3.在VB6.0中 MSFlexGrid控件的双击事件怎么写Form2中添加一个TextBox,Index设为0，即设为控件数组 。
方法一：
Form1中：
Private Sub MSFlexGrid1_DblClick()
Dim frm As New Form2
With frm
For i = 1 To MSFlexGrid1.Cols - 1
Load .Text1(i)
.Text1(i).Visible = True
.Text1(i).Top = .Text1(i - 1).Top + 360
MSFlexGrid1.Col = i
.Text1(i) = MSFlexGrid1.Text
Next
.Text1(0).Visible = False
.Show
End With
End Sub
方法二：
Form1中：
Private Sub MSFlexGrid1_DblClick()
Dim frm As New Form2
frm.Text1(0) = MSFlexGrid1.Row
frm.Show
End Sub
Form2中：
Private Sub Text1_Change(Index As Integer)
If Index > 0 Then Exit Sub
For i = 1 To Form1.MSFlexGrid1.Cols - 1
Load Text1(i)
Text1(i).Visible = True
【vb双击事件怎么写】Text1(i).Top = Text1(i - 1).Top + 360
Form1.MSFlexGrid1.Col = i
Text1(i) = Form1.MSFlexGrid1.Text
Next
Text1(0).Visible = False
End Sub
4.VB中treeview双击事件代码怎么写啊Private Sub TreeView1_DblClick()
On Error Resume Next
Select Case TreeView1.Nodes.Item(TreeView1.SelectedItem.Index).Key
Case "hebei1"
WMP1.URL = "mms://mms.hebtv.com/tv1"
Case "hebei2"
WMP1.URL = "mms://mms.hebtv.com/tv2"
End Select
End Sub
自己可以再改改
5.VB工具栏按钮双击事件道理是相同的 。工具栏上面的按钮有单击事件，再加一个计时器就成了双击事件了 。
Dim blnClicked As Boolean
Private Sub Toolbar_Click()
If blnClicked =True Then
MsgBox "按钮被双击了"
blnClicked=False
Else
blnClicked=True
End If
End Sub
Private Sub Form_Load()
Timer1.Interval=500'设定双击有效间隔时间为半秒钟以内
End Sub
Private Sub Timer1_Timer()
blnClicked =False
End Sub
6.VB中treeview双击事件代码怎么写啊Private Sub TreeView1_DblClick() On Error Resume Next Select Case TreeView1.Nodes.Item(TreeView1.SelectedItem.Index).Key Case "hebei1" WMP1.URL = "mms://mms.hebtv.com/tv1" Case "hebei2" WMP1.URL = "mms://mms.hebtv.com/tv2" End SelectEnd Sub自己可以再改改 。
文章插图