在VB中有哪个网格控件可以直接输入，0
答案:2 悬赏:80 手机版
解决时间 2021-02-14 03:26
- 提问者网友：容嬷嬷拿针来
- 2021-02-13 05:48
在VB中有哪个网格控件可以直接输入，0
最佳答案
- 五星知识达人网友：舊物识亽
- 2021-02-13 06:44
有些控件虽然不能直接编辑，但是想想办法还是能实现的。我常用MSFlexGrid.
窗体上一个MSFlexGrid1，一个Text1。代码如下，双击网格即可编辑
Private Type FlxCell
row As Long
col As Long
End Type
Private m_ActiveCell As FlxCell
Private Sub MSFlexGrid1_DblClick()
If MSFlexGrid1.row > 0 Then
m_ActiveCell.row = MSFlexGrid1.row
m_ActiveCell.col = MSFlexGrid1.col
With Text1
.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
.Width = MSFlexGrid1.CellWidth
.Height = MSFlexGrid1.CellHeight
.Text = MSFlexGrid1.Text
.Visible = True
.ZOrder
.SetFocus
.SelStart = Len(Text1.Text)
End With
End If
End Sub
Private Sub Form_Load()
Text1.Appearance = 0
Text1.Visible = False
End Sub
Private Sub Text1_LostFocus()
MSFlexGrid1.TextMatrix(m_ActiveCell.row, m_ActiveCell.col) = Text1.Text
Text1.Visible = False
End Sub
窗体上一个MSFlexGrid1，一个Text1。代码如下，双击网格即可编辑
Private Type FlxCell
row As Long
col As Long
End Type
Private m_ActiveCell As FlxCell
Private Sub MSFlexGrid1_DblClick()
If MSFlexGrid1.row > 0 Then
m_ActiveCell.row = MSFlexGrid1.row
m_ActiveCell.col = MSFlexGrid1.col
With Text1
.Top = MSFlexGrid1.CellTop + MSFlexGrid1.Top
.Left = MSFlexGrid1.CellLeft + MSFlexGrid1.Left
.Width = MSFlexGrid1.CellWidth
.Height = MSFlexGrid1.CellHeight
.Text = MSFlexGrid1.Text
.Visible = True
.ZOrder
.SetFocus
.SelStart = Len(Text1.Text)
End With
End If
End Sub
Private Sub Form_Load()
Text1.Appearance = 0
Text1.Visible = False
End Sub
Private Sub Text1_LostFocus()
MSFlexGrid1.TextMatrix(m_ActiveCell.row, m_ActiveCell.col) = Text1.Text
Text1.Visible = False
End Sub
全部回答
- 1楼网友：蓝房子
- 2021-02-13 06:59
最常用的网格控件有datagrid 和 msflexgrid
引用方法是：单击菜单［工程］--[部件]
勾选你要加载的控件即可！如图.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯