w_youhuadashi.srw

powerbuilder开发的一个仿优化大师的界面的一个程序源代码。不知道有人喜欢吗？

$PBExportHeader$w_youhuadashi.srw
forward
global type w_youhuadashi from window
end type
type shl_1 from statichyperlink within w_youhuadashi
end type
type st_4 from statictext within w_youhuadashi
end type
type st_3 from statictext within w_youhuadashi
end type
type st_2 from statictext within w_youhuadashi
end type
type st_1 from statictext within w_youhuadashi
end type
type cb_44 from uo_xpbutton within w_youhuadashi
end type
type cb_43 from uo_xpbutton within w_youhuadashi
end type
type cb_42 from uo_xpbutton within w_youhuadashi
end type
type cb_41 from uo_xpbutton within w_youhuadashi
end type
type cb_40 from uo_xpbutton within w_youhuadashi
end type
type cb_39 from uo_xpbutton within w_youhuadashi
end type
type cb_38 from uo_xpbutton within w_youhuadashi
end type
type cb_35 from uo_xpbutton within w_youhuadashi
end type
type cb_34 from uo_xpbutton within w_youhuadashi
end type
type cb_33 from uo_xpbutton within w_youhuadashi
end type
type cb_32 from uo_xpbutton within w_youhuadashi
end type
type cb_31 from uo_xpbutton within w_youhuadashi
end type
type cb_30 from uo_xpbutton within w_youhuadashi
end type
type cb_29 from uo_xpbutton within w_youhuadashi
end type
type cb_28 from uo_xpbutton within w_youhuadashi
end type
type cb_27 from uo_xpbutton within w_youhuadashi
end type
type p_1 from picture within w_youhuadashi
end type
type cb_5 from uo_xpbutton within w_youhuadashi
end type
type cb_24 from uo_xpbutton within w_youhuadashi
end type
type cb_23 from uo_xpbutton within w_youhuadashi
end type
type cb_21 from uo_xpbutton within w_youhuadashi
end type
type cb_20 from uo_xpbutton within w_youhuadashi
end type
type cb_19 from uo_xpbutton within w_youhuadashi
end type
type cb_18 from uo_xpbutton within w_youhuadashi
end type
type cb_17 from uo_xpbutton within w_youhuadashi
end type
type cb_16 from uo_xpbutton within w_youhuadashi
end type
type cb_4 from uo_xpbutton within w_youhuadashi
end type
type cb_15 from uo_xpbutton within w_youhuadashi
end type
type cb_14 from uo_xpbutton within w_youhuadashi
end type
type cb_13 from uo_xpbutton within w_youhuadashi
end type
type cb_12 from uo_xpbutton within w_youhuadashi
end type
type cb_11 from uo_xpbutton within w_youhuadashi
end type
type cb_10 from uo_xpbutton within w_youhuadashi
end type
type cb_9 from uo_xpbutton within w_youhuadashi
end type
type cb_8 from uo_xpbutton within w_youhuadashi
end type
type cb_7 from uo_xpbutton within w_youhuadashi
end type
type cb_6 from uo_xpbutton within w_youhuadashi
end type
type cb_55 from uo_xpbutton within w_youhuadashi
end type
type cb_22 from uo_xpbutton within w_youhuadashi
end type
type ln_1 from line within w_youhuadashi
end type
type cb_25 from commandbutton within w_youhuadashi
end type
type cb_26 from uo_xpbutton within w_youhuadashi
end type
type cb_36 from commandbutton within w_youhuadashi
end type
type cb_37 from commandbutton within w_youhuadashi
end type
type cb_3 from uo_xpbutton within w_youhuadashi
end type
type cb_1 from uo_xpbutton within w_youhuadashi
end type
type gb_1 from groupbox within w_youhuadashi
end type
end forward

shared variables

end variables

global type w_youhuadashi from window
integer width = 3054
integer height = 2120
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event readme ( )
shl_1 shl_1
st_4 st_4
st_3 st_3
st_2 st_2
st_1 st_1
cb_44 cb_44
cb_43 cb_43
cb_42 cb_42
cb_41 cb_41
cb_40 cb_40
cb_39 cb_39
cb_38 cb_38
cb_35 cb_35
cb_34 cb_34
cb_33 cb_33
cb_32 cb_32
cb_31 cb_31
cb_30 cb_30
cb_29 cb_29
cb_28 cb_28
cb_27 cb_27
p_1 p_1
cb_5 cb_5
cb_24 cb_24
cb_23 cb_23
cb_21 cb_21
cb_20 cb_20
cb_19 cb_19
cb_18 cb_18
cb_17 cb_17
cb_16 cb_16
cb_4 cb_4
cb_15 cb_15
cb_14 cb_14
cb_13 cb_13
cb_12 cb_12
cb_11 cb_11
cb_10 cb_10
cb_9 cb_9
cb_8 cb_8
cb_7 cb_7
cb_6 cb_6
cb_55 cb_55
cb_22 cb_22
ln_1 ln_1
cb_25 cb_25
cb_26 cb_26
cb_36 cb_36
cb_37 cb_37
cb_3 cb_3
cb_1 cb_1
gb_1 gb_1
end type
global w_youhuadashi w_youhuadashi

type prototypes
Function ulong SetParent (ulong hWndChild, ulong hWndNewParent) Library "USER32.DLL"
end prototypes

type variables
boolean sb_postion[]
long sl_newx,sl_newy,sl_oldx,sl_oldy
end variables

event readme();/*========================================================================*/
// 事件名称: readme in w_youhuadashi * (youhuadashi) (youhuadashi.pbl) inherited from window 
/*------------------------------------------------------------------------*/
// 描述: 
/*------------------------------------------------------------------------*/
// 作者: 张学禹  武汉科技学院 计007班           日期: 2003-10-3
/*========================================================================*/
/*========================================================================*/
//拉大窗口可看到，隐藏的控件
/*========================================================================*/
/*========================================================================*/
//
/*========================================================================*/
/*========================================================================*/
//
/*========================================================================*/

end event

on w_youhuadashi.create
this.shl_1=create shl_1
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.st_1=create st_1
this.cb_44=create cb_44
this.cb_43=create cb_43
this.cb_42=create cb_42
this.cb_41=create cb_41
this.cb_40=create cb_40
this.cb_39=create cb_39
this.cb_38=create cb_38
this.cb_35=create cb_35
this.cb_34=create cb_34
this.cb_33=create cb_33
this.cb_32=create cb_32
this.cb_31=create cb_31
this.cb_30=create cb_30
this.cb_29=create cb_29
this.cb_28=create cb_28
this.cb_27=create cb_27
this.p_1=create p_1
this.cb_5=create cb_5
this.cb_24=create cb_24
this.cb_23=create cb_23
this.cb_21=create cb_21
this.cb_20=create cb_20
this.cb_19=create cb_19
this.cb_18=create cb_18
this.cb_17=create cb_17
this.cb_16=create cb_16
this.cb_4=create cb_4
this.cb_15=create cb_15
this.cb_14=create cb_14
this.cb_13=create cb_13
this.cb_12=create cb_12
this.cb_11=create cb_11
this.cb_10=create cb_10
this.cb_9=create cb_9
this.cb_8=create cb_8
this.cb_7=create cb_7
this.cb_6=create cb_6
this.cb_55=create cb_55
this.cb_22=create cb_22
this.ln_1=create ln_1
this.cb_25=create cb_25
this.cb_26=create cb_26
this.cb_36=create cb_36
this.cb_37=create cb_37
this.cb_3=create cb_3
this.cb_1=create cb_1
this.gb_1=create gb_1
this.Control[]={this.shl_1,&
this.st_4,&
this.st_3,&
this.st_2,&
this.st_1,&
this.cb_44,&
this.cb_43,&
this.cb_42,&
this.cb_41,&
this.cb_40,&
this.cb_39,&
this.cb_38,&
this.cb_35,&
this.cb_34,&
this.cb_33,&
this.cb_32,&
this.cb_31,&
this.cb_30,&
this.cb_29,&
this.cb_28,&
this.cb_27,&
this.p_1,&
this.cb_5,&
this.cb_24,&
this.cb_23,&
this.cb_21,&
this.cb_20,&
this.cb_19,&
this.cb_18,&
this.cb_17,&
this.cb_16,&
this.cb_4,&
this.cb_15,&
this.cb_14,&
this.cb_13,&
this.cb_12,&
this.cb_11,&
this.cb_10,&
this.cb_9,&
this.cb_8,&
this.cb_7,&
this.cb_6,&
this.cb_55,&
this.cb_22,&
this.ln_1,&
this.cb_25,&
this.cb_26,&
this.cb_36,&
this.cb_37,&
this.cb_3,&
this.cb_1,&
this.gb_1}
end on

on w_youhuadashi.destroy
destroy(this.shl_1)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.cb_44)
destroy(this.cb_43)
destroy(this.cb_42)
destroy(this.cb_41)
destroy(this.cb_40)
destroy(this.cb_39)
destroy(this.cb_38)
destroy(this.cb_35)
destroy(this.cb_34)
destroy(this.cb_33)
destroy(this.cb_32)
destroy(this.cb_31)
destroy(this.cb_30)
destroy(this.cb_29)
destroy(this.cb_28)
destroy(this.cb_27)
destroy(this.p_1)
destroy(this.cb_5)
destroy(this.cb_24)
destroy(this.cb_23)
destroy(this.cb_21)
destroy(this.cb_20)
destroy(this.cb_19)
destroy(this.cb_18)
destroy(this.cb_17)
destroy(this.cb_16)
destroy(this.cb_4)
destroy(this.cb_15)
destroy(this.cb_14)
destroy(this.cb_13)
destroy(this.cb_12)
destroy(this.cb_11)
destroy(this.cb_10)
destroy(this.cb_9)
destroy(this.cb_8)
destroy(this.cb_7)
destroy(this.cb_6)
destroy(this.cb_55)
destroy(this.cb_22)
destroy(this.ln_1)
destroy(this.cb_25)
destroy(this.cb_26)
destroy(this.cb_36)
destroy(this.cb_37)
destroy(this.cb_3)
destroy(this.cb_1)
destroy(this.gb_1)
end on

event open;//this.width=PixelsToUnits(665,XPixelsToUnits! )
//this.height=PixelsToUnits(530,YPixelsToUnits! )
//messagebox("",this.width)
//messagebox("",PixelsToUnits(15,YPixelsToUnits!))
//messagebox("",PixelsToUnits(139,XPixelsToUnits!))
sb_postion[1]=false
sb_postion[2]=false
sb_postion[3]=true
cb_25.visible=true
cb_37.visible=false
sl_newx=0
sl_newy=ln_1.beginy
sl_oldx=0
sl_oldy=p_1.y
this.backcolor=rgb(222,223,222)
//messagebox('',rgb(173,227,255))
end event

event mousedown;Send(Handle(this),274,61458,0)
return 1
end event

type shl_1 from statichyperlink within w_youhuadashi
integer x = 1390
integer y = 1824
integer width = 718
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean underline = true
string pointer = "HyperLink!"
long textcolor = 134217856
long backcolor = 67108864
string text = "www.pbhome.net或cpb.cn"
boolean focusrectangle = false
string url = "www.pbhome.net"
end type

event constructor;this.backcolor=rgb(222,223,222)
end event

type st_4 from statictext within w_youhuadashi
integer x = 1243
integer y = 1728
integer width = 1019
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "武汉科技学院    计科系   0007 班"
boolean focusrectangle = false
end type

event constructor;this.backcolor=rgb(222,223,222)
end event

type st_3 from statictext within w_youhuadashi
integer x = 1646
integer y = 1632
integer width = 690
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "[e-mail]"
boolean focusrectangle = false
end type

event constructor;this.backcolor=rgb(222,223,222)
end event

type st_2 from statictext within w_youhuadashi
integer x = 1280
integer y = 1632
integer width = 219
integer height = 64
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "张学禹"
boolean focusrectangle = false
end type

event constructor;this.backcolor=rgb(222,223,222)
end event

type st_1 from statictext within w_youhuadashi
integer x = 73
integer width = 2816
integer height = 76
integer textsize = -9
integer weight = 400