这是一个MSFlexGrid + TextBox的例子,你可以改成ComboBox,然后再加一些功能和判断。Private Sub Form_Load()
MSFlexGrid1.Rows = 20
MSFlexGrid1.Cols = 4For i = 0 To 19
For j = 0 To 3
MSFlexGrid1.TextMatrix(i, j) = "Grid(" & i & "," & j & ")"
Next
Next
End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Text1.Left = MSFlexGrid1.ColPos(MSFlexGrid1.MouseCol) + MSFlexGrid1.Left
Text1.Top = MSFlexGrid1.RowPos(MSFlexGrid1.MouseRow) + MSFlexGrid1.Top
Text1.Height = MSFlexGrid1.CellHeight
Text1.Width = MSFlexGrid1.CellWidth
Text1.Visible = True
End Sub
MSFlexGrid1.Rows = 20
MSFlexGrid1.Cols = 4For i = 0 To 19
For j = 0 To 3
MSFlexGrid1.TextMatrix(i, j) = "Grid(" & i & "," & j & ")"
Next
Next
End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Text1.Left = MSFlexGrid1.ColPos(MSFlexGrid1.MouseCol) + MSFlexGrid1.Left
Text1.Top = MSFlexGrid1.RowPos(MSFlexGrid1.MouseRow) + MSFlexGrid1.Top
Text1.Height = MSFlexGrid1.CellHeight
Text1.Width = MSFlexGrid1.CellWidth
Text1.Visible = True
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货