【vfp开源代码栏目提醒】:网学会员为广大网友收集整理了,程序25.prg,希望对大家有所帮助!
form1=Createobject('form')
form1.show
form1.top=180
form1.left=180
form1.Height=180
form1.width=500
WAIT WINDOW
form1.AddObject('TEX','TEXTBOX')
form1.tex.Visible=.T.
form1.tex.Top=10
form1.tex.Left=50
form1.tex.Height=20
form1.tex.Width=120
form1.tex.value="我的表单"
form1.tex.readonly=.T.
form1.AddObject('com','commandbutton')
form1.com.Caption='确定'
form1.com.Visible=.T.
form1.com.Top=50
form1.com.Left=50
form1.com.Height=20
form1.com.Width=60
Wait Window
Release form1