- 注册时间
- 2008-2-4
- 最后登录
- 2017-3-18
⑥精研
脑残的我。。。。
- 积分
- 1162
|
发表于 2010-1-20 15:58:59
|
显示全部楼层
汗了。。刚回来看到。。。
大概就是这样。。
textgosub *text_lb;跳转自制对话系统
然后定义对话框,在对话框的定义里一起定义等待游标。。
*prep
setwindow 88,457,20,4,29,29,2,4,500,1,1,":a;form.jpg",0,0
lsph 0,":l/3,300,2;cursor0.bmp",715,551
return
然后就是自制对话系统里的设置。。
*text_lb
erasetextwindow 0
*textbtnloop
vsp 0,1
print 1
textbtnwait %0
repaint
if %0=0 goto *end_textbtn
if %0=-1 vsp 0,0:print 1:systemcall windowerase:goto *text_lb
goto *textbtnloop
*end_textbtn
texec
vsp 0,0
print 1
saveon
erasetextwindow 1
return
这样大概就OK了。。 |
|