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

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

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

Option Explicit Private WithEvents NewText As Text<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Private Sub Command1_Click() Set NewText = Controls.Add("VB.Text<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>","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 '动态控件check<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> 个数 Private Sub FillGrid1() Call ResetGrid1 '这个你自己写吧 '清除原有的CHECK<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>-------------- For <a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>I = 1 To ckbxnum Unload Check1(<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>I) Next <a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>I '-------------------------------- Set Rst = New ADODB.Recordset Rst.Open "SELECT * from Q_Liushui where lsdh<>''",DB,1,1 If Rst.EOF Then Exit Sub '<a href="https://www.jb51.cc/tag/shengcheng/" target="_blank" class="keywords">生成</a>新的CHECK<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>组------------- ckbxnum = Rst.RecordCount For <a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>J = 1 To ckbxnum Load Check1(<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>J) Check1(<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>J).value = False Check1(<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>J).Visible = False Next <a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>J '------------------------------ 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) Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> Index End Sub

很简单吧:P