7,762
社区成员
发帖
与我相关
我的任务
分享想问一下关于MSHFlexGrid的问题..知道的请说一下..(一定给分)
想问一下哪位知道怎么样判断双击这个控件里的数据行是我要双击的哪一行,然后按照这行的数据作为条件的?
其实只要都是我不知道怎么判断我是双击了哪条数据...请高手过招....
其实只要都是我不知道怎么判断我是双击了哪条数据...请高手过招....
...全文
请发表友善的回复…
发表回复
bluesky23 2005-09-11
- 打赏
- 举报
同意楼上。
它需在MSFlexGrid1的双击事件中激活的。
它需在MSFlexGrid1的双击事件中激活的。
fishmans 2005-09-11
- 打赏
- 举报
'form1
Private Sub MSFlexGrid1_DBlClick()
Me.tag=msflexgrid.textmatrix(msflexgrid.row,msflexgrid.col)
form2.show 1
End Sub
'form2
private sub form_load()
msgbox form1.tag
end sub
Private Sub MSFlexGrid1_DBlClick()
Me.tag=msflexgrid.textmatrix(msflexgrid.row,msflexgrid.col)
form2.show 1
End Sub
'form2
private sub form_load()
msgbox form1.tag
end sub
northwolves 2005-09-10
- 打赏
- 举报
Private Sub Form_Load()
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 10
Dim i As Long
For i = 0 To 59
MSFlexGrid1.TextArray(i) = IIf(i < 6, "i^" & i, (i \ 6) ^ (i Mod 6))
Next
End Sub
Private Sub MSFlexGrid1_Click()
Dim x(5) As String, i As Integer
For i = 0 To 5
x(i) = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, 1) & "^" & i & " =" & MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, i)
Next
Form2.Show
Form2.Print Join(x, vbCrLf)
End Sub
MSFlexGrid1.Cols = 6
MSFlexGrid1.Rows = 10
Dim i As Long
For i = 0 To 59
MSFlexGrid1.TextArray(i) = IIf(i < 6, "i^" & i, (i \ 6) ^ (i Mod 6))
Next
End Sub
Private Sub MSFlexGrid1_Click()
Dim x(5) As String, i As Integer
For i = 0 To 5
x(i) = MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, 1) & "^" & i & " =" & MSFlexGrid1.TextMatrix(MSFlexGrid1.MouseRow, i)
Next
Form2.Show
Form2.Print Join(x, vbCrLf)
End Sub
lyh770 2005-09-10
- 打赏
- 举报
ccccccccccccccccccccccccccccccccccc
lyh770 2005-09-09
- 打赏
- 举报
我是想知道怎么样才可以双击这个控件里面的一行数据而跳到另外的一个窗体去吖......高手给个例子来好吗？
lyh770 2005-09-09
- 打赏
- 举报
不知道这个ROW的用法是怎么用的呢..?可以列一个简单的例子我看看吗？
rainivy 2005-09-09
- 打赏
- 举报
mshflexgrid.row就是当前的行
饮水需思源 2005-09-09
- 打赏
- 举报
用mshflexgrid.row或mshflexgrid.mouserow
lyh770 2005-09-09
- 打赏
- 举报
为什么没人说呢................我在线等吖........
