w_mian.srw

来自「PB实现的交通运输管理 系统 1．运输企业系统管理人员通过该系统来管理用户资料」· SRW 代码 · 共 51 行

$PBExportHeader$w_mian.srw
forward
global type w_mian from window
end type
type cb_1 from commandbutton within w_mian
end type
end forward

global type w_mian 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_mian w_mian

on w_mian.create
this.cb_1=create cb_1
this.Control[]={this.cb_1}
end on

on w_mian.destroy
destroy(this.cb_1)
end on

type cb_1 from commandbutton within w_mian
integer x = 1111
integer y = 660
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"
end type

event clicked;close(parent)
end event