**************************************************
*-- 类:
bg (d:\gy7\bga.vcx)
*-- 父类:
grid
*-- 基类:
grid
*-- 时间戳:
09/06/09 09:25:05 AM
*
DEFINE CLASS bg AS grid
ColumnCount = 20
FontSize = 10
Height = 108
RowHeight = 18
Width = 192
BackColor = RGB(240,255,240)
HighlightBackColor = RGB(220,240,220)
SelectedItemBackColor = RGB(220,220,250)
HighlightStyle = 1
Name = "bg"
Column1.FontSize = 10
Column1.Width = 55
Column1.BackColor = RGB(240,255,240)
Column1.Name = "Column1"
Column2.FontSize = 10
Column2.Width = 55
Column2.BackColor = RGB(240,255,240)
Column2.Name = "Column2"
Column3.FontSize = 10
Column3.Width = 55
Column3.BackColor = RGB(240,255,240)
Column3.Name = "Column3"
Column4.FontSize = 10
Column4.Width = 55
Column4.BackColor = RGB(240,255,240)
Column4.Name = "Column4"
Column5.FontSize = 10
Column5.Width = 55
Column5.BackColor = RGB(240,255,240)
Column5.Name = "Column5"
Column6.FontSize = 10
Column6.Width = 55
Column6.BackColor = RGB(240,255,240)
Column6.Name = "Column6"
Column7.FontSize = 10
Column7.Width = 55
Column7.BackColor = RGB(240,255,240)
Column7.Name = "Column7"
Column8.FontSize = 10
Column8.Width = 55
Column8.BackColor = RGB(240,255,240)
Column8.Name = "Column8"
Column9.FontSize = 10
Column9.Width = 55
Column9.BackColor = RGB(240,255,240)
Column9.Name = "Column9"
Column10.FontSize = 10
Column10.Width = 55
Column10.BackColor = RGB(240,255,240)
Column10.Name = "Column10"
Column11.FontSize = 10
Column11.Width = 55
Column11.BackColor = RGB(240,255,240)
Column11.Name = "Column11"
Column12.FontSize = 10
Column12.Width = 55
Column12.BackColor = RGB(240,255,240)
Column12.Name = "Column12"
Column13.FontSize = 10
Column13.Width = 55
Column13.BackColor = RGB(240,255,240)
Column13.Name = "Column13"
Column14.FontSize = 10
Column14.Width = 55
Column14.BackColor = RGB(240,255,240)
Column14.Name = "Column14"
Column15.FontSize = 10
Column15.Width = 55
Column15.BackColor = RGB(240,255,240)
Column15.Name = "Column15"
Column16.FontSize = 10
Column16.Width = 55
Column16.BackColor = RGB(240,255,240)
Column16.Name = "Column16"
Column17.FontSize = 10
Column17.Width = 55
Column17.BackColor = RGB(240,255,240)
Column17.Name = "Column17"
Column18.FontSize = 10
Column18.Width = 55
Column18.BackColor = RGB(240,255,240)
Column18.Name = "Column18"
Column19.FontSize = 10
Column19.Width = 55
Column19.BackColor = RGB(240,255,240)
Column19.Name = "Column19"
Column20.FontSize = 10
Column20.Width = 55
Column20.BackColor = RGB(240,255,240)
Column20.Name = "Column20"
ADD OBJECT bg.column1.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column1.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column2.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column2.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column3.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column3.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column4.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column4.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column5.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column5.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column6.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column6.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column7.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column7.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column8.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column8.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column9.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column9.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column10.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column10.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column11.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column11.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column12.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column12.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column13.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column13.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column14.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column14.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column15.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column15.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column16.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column16.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column17.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column17.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column18.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column18.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column19.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column19.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
ADD OBJECT bg.column20.header1 AS header WITH ;
FontSize = 10, ;
Alignment = 2, ;
Caption = "Header1", ;
Name = "Header1"
ADD OBJECT bg.column20.text1 AS textbox WITH ;
FontSize = 10, ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(240,255,240), ;
SelectedBackColor = RGB(220,220,250), ;
Name = "Text1"
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
PROCEDURE text1.DblClick
DO Z40
ENDPROC
ENDDEFINE
*
*-- EndDefine: bg
**************************************************
我的一个疑问是:
PROCEDURE text1.DblClick
DO Z40
ENDPROC
如果我对CULUMN1,CULUMN2,CULUMN3,CULUMN4,....各个TEXT1的 DBLCLICK 配置不同的程序是否可以?当然在此例子中,我是统一 DO Z40 .