谢谢,sdhyj的解答,但是sysbase的说明看不明白,能帮忙用PB代码实现一下吗?
举例说有如下w_importest.srw 文件
$PBExportHeader$w_importest.srw
forward
global type w_importest from window
end type
type cb_1 from commandbutton within w_importest
end type
end forward
global type w_importest from window
integer width = 2533
integer height = 1408
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_1 cb_1
end type
global w_importest w_importest
on w_importest.create
this.cb_1=create cb_1
this.Control[]={this.cb_1}
end on
on w_importest.destroy
destroy(this.cb_1)
end on
type cb_1 from commandbutton within w_importest
integer x = 1097
integer y = 620
integer width = 457
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "none"
end type