在VB中创建和使用动态数组控件的方法总结

在VB中,MSHFEXGRID不支持文本框,为了解决这个问题,一般的方法就是通过一个文本框的显示和隐藏,并获得表格单元的坐标,来实现向MSHFLEXGRID中录入数据的,具体方法我记得在本博中有,就不说了,自己搜一下

 

今天要说的是在MSFLEXGRID中动态添加多个控件的问题:

 

先看一个动态添加的例子:

Option Explicit Private WithEvents NewText As TextBox Private Sub Command1_Click() Set NewText = Controls.Add("VB.TextBox", "Text1", Form1) NewText.Move Command1.Left + Command1.Width + 240, Command1.Top NewText.Visible = True End Sub

再看一个向MSFLEXGRID中添加CHECKBOX的例子:

先往FORM中添加一个MSFLEXGRID1和CHECK4

Private Sub Form_Load() Me.ScaleMode = 1 With MSHFlexGrid1 .Row = 0 .Col = 0 .CellAlignment = flexAlignCenterCenter .ColWidth(0) = 1350 .Text = "型号" .Row = 0 .Col = 1 Check4.Top = .Top + .CellTop Check4.Left = .Left + .CellLeft Check4.Width = .CellWidth - 10 Check4.Height = .CellHeight - 10 Check4.ZOrder 0 Check4.Visible = True End With End Sub

 

但你会发现只能添加一个

 

如果我们需要添加多个,怎么办呢?

用数组控件+动态添加!

看一个动态添加多个控件的例子:

窗体上 创建 text1 text2
把text2的index 属性改为0

Dim a Private Sub Form_Load() Text2(0).Visible = False End Sub Private Sub Text1_Change() For i = 0 To a - 1 If i = 0 Then Text2(i).Visible = False Else Unload Me.Text2(i) End If Next i a = Val(Text1.Text) For j = 0 To a - 1 If j = 0 Then Text2(j).Visible = True Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j / 3) Text2(j).Left = 100 + Text2(0).Width * (j Mod 3) Else Load Me.Text2(j) Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j / 3) Text2(j).Left = 100 + Text2(0).Width * (j Mod 3) Text2(j).Visible = True End If Text2(j).Text = “第“ & j + 1 & “个text“ Next j End Sub

修改TEXT1中的数值,就会生成相应数量的TEXT2(?)

 

好了,最后看一个向MSHFLEXGRID中添加多个CHECKBOX例子:

先往FORM中添加一个MSFLEXGRID1和CHECK1

Dim ckbxnum As Integer '动态控件checkbox 个数 Private Sub FillGrid1() Call ResetGrid1 '这个你自己写吧 '清除原有的CHECKBOX-------------- For BoxI = 1 To ckbxnum Unload Check1(BoxI) Next BoxI '-------------------------------- Set Rst = New ADODB.Recordset Rst.Open "SELECT * from Q_Liushui where lsdh<>''", DB, 1, 1 If Rst.EOF Then Exit Sub '生成新的CHECKBOX组------------- ckbxnum = Rst.RecordCount For BoxJ = 1 To ckbxnum Load Check1(BoxJ) Check1(BoxJ).value = False Check1(BoxJ).Visible = False Next BoxJ '------------------------------ With MSFLEXGRID1 For I = 1 To Rst.RecordCount Grid1.Rows = I + 1 For J = 1 To 7 .TextMatrix(I, J - 1) = Rst(J) Next Check1(I).Left = .Left + .ColPos(8) + 50 Check1(I).Top = .Top + .RowPos(I) + 70 Check1(I).ZOrder 0 Check1(I).Visible = True Rst.MoveNext Next End With Set Rst = Nothing End Sub Private Sub Check1_Click(Index As Integer) MsgBox Index End Sub

很简单吧:P