先谢谢老师了!
我是菜鸟,不知道怎么加啊!现在把代码发上来,求帮助看看。
再次感谢!
frmMyForm = CREATEOBJECT('Form')
&& 创建表单
frmMyForm.Closable = .F.
&& 禁止窗口弹出菜单和"关闭"按钮
frmMyForm.Top = 55
&& 指定 Form 表单所在行
frmMyForm.width = 555 && 指定 Form 表单宽度
frmMyForm.Height = 333
frmMyForm.left = 55
&& 指定 Form 表单所在列
frmMyForm.AddObject('edit','EditBox')
&& 在表单中添加一个 EditBox 控件
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')
&& 添加 Up 命令按钮
frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')
&& 添加 Down 命令按钮
frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')
&& 添加 Quit 命令按钮
frmMyForm.edit.Visible = .T.
&& 使 EditBox 控件可见
frmMyForm.edit.Top = 20
&& 指定 EditBox 控件所在行
frmMyForm.edit.width = 140
&& 指定 EditBox 控件宽度
frmMyForm.edit.Height = 20
frmMyForm.edit.left = 3
&& 指定 EditBox 控件所在列
frmMyForm.AddObject('edit2','EditBox')
&& 在表单中添加一个 EditBox 控件
frmMyForm.edit2.Visible = .T.
&& 使 EditBox 控件可见
frmMyForm.edit2.Top = 20
&& 指定 EditBox 控件所在行
frmMyForm.edit2.width = 90
&& 指定 EditBox 控件宽度
frmMyForm.edit2.Height = 20
frmMyForm.edit2.left = 211
&& 指定 EditBox 控件所在列
frmMyForm.cmdCmndBtn1.Visible =.T.
&& Up 命令按钮可见
frmMyForm.cmdCmndBtn2.Visible =.T.
&& Down" 命令按钮可见
frmMyForm.cmdCmndBtn3.Visible =.T.
&& Quit 命令按钮可见
frmMyForm.SHOW
&& 显示表单
READ EVENTS
&& 开始事件处理
DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON
&& 创建命令按钮
Caption = 'Slant \<Up'
&& 命令按钮上的标题
Left = 50
&& 命令按钮所在列
Top = 100
&& 命令按钮所在行
Height = 25
&& 命令按钮的高度
PROCEDURE Click
SET PROCEDURE TO dl_pingze.prg
frmMyForm.edit2.Visible = .T.
&& 使 EditBox 控件可见
ENDDEFINE
frmMyForm.edit2.Visible = .T.
&& 使 EditBox 控件可见
DEFINE CLASS cmdMyCmndBtn2 AS CommandButton
&& 创建命令按钮
Caption = 'Slant \<Down'
&& 命令按钮的标题
Left = 200
&& 命令按钮所在列
Top = 100
&& 命令按钮所在行
Height = 25
&& 命令按钮的高度
PROCEDURE Click
ThisForm.edit2.Visible = .T.
&& 显示 edit2 控件
ENDDEFINE
DEFINE CLASS cmdMyCmndBtn3 AS CommandButton
&& 创建命令按钮
Caption = '\<Quit'
&& 命令按钮上的标题
Cancel = .T.
&& 默认的取消按钮 (Esc)
Left = 125
&& 命令按钮所在列
Top = 150
&& 命令按钮所在行
Height = 25
&& 命令按钮的高度
PROCEDURE Click
THISFORM.Release
CLEAR EVENTS
&& 停止事件处理, 关闭表单
ENDDEFINE