在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