飞老师,下面的代码有俩处不明白,还望指教.
1、Windows.Forms.Form 是个啥东东?帮助里没有说吧。
2、e.Form.Controls("Btn_Add").BaseControl.FindForm画横线的代码是啥意思?
3、 .Grid.Cols(0).Visible = False
我查了一下,table里没有这样的属性啊?
代码如下:
Dim Basefrm As Windows.Forms.Form = e.Form.Controls("Btn_Add").BaseControl.FindForm
Basefrm.Width = e.Form.DropDownBox.Width
With Tables(e.Form.Name & "_Tbl_Main")
.Grid.Cols(0).Visible = False
.Grid.Rows(0).Visible = False
.Grid.CellButtonImage = GetImage("delete.png")
.ExtendLastCol = True
.DefaultRowHeight = 30
.DataTable.SysStyles("Focus").BackColor = Color.SkyBlue
.DataTable.SysStyles("Focus").ForeColor = Color.Red
.Cols("值").ComboList = "|..."
End With
[此贴子已经被作者于2013-2-25 19:11:18编辑过]