在VB6.0中 MSFlexGrid控件的双击事件怎么写？

Question

在VB6.0中编程，想双击MSFlexGrid控件的某行，弹出一个新窗口显示这行的详细信息，请教代码。

Answer 1

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
Text1(i).Top = Text1(i - 1).Top + 360
Form1.MSFlexGrid1.Col = i
Text1(i) = Form1.MSFlexGrid1.Text
Next
Text1(0).Visible = False
End Sub

Answer 2

同样问题哦；。。。。