¿Cómo escribir un evento de doble clic para el control MSFlexGrid en VB6.0?

Agregue un TextBox con Index establecido en 0 en Form2, es decir, configurado como una matriz de control.

Método 1:

En Form1:

Sub privado MSFlexGrid1_DblClick()

Atenuar frm como nuevo Form2

Con frm

Para i = 1 A MSFlexGrid1.Cols - 1

Cargar .Text1(i)

.Text1(i).Visible = True

.Text1(i).Top = .Text1(i - 1).Top + 360

MSFlexGrid1.Text1(i) = MSFlexGrid1.Text

Siguiente

.Text1(0).Visible = False

.Show

Terminar con

End Sub

Método 2:

En Form1:

Sub privado MSFlexGrid1_DblClick()

Atenuar frm como nuevo Form2

frm.Text1(0) = MSFlexGrid1.Row

frm.Show

End Sub

End Sub

Método 2.p> En Form2:

Subtexto privado1_Change(Índice como entero)

Si el índice > 0, entonces salga del Sub

Para i = 1 en Form1.

Cargar texto1 (i)

Texto1(i).Visible = Verdadero

Texto1(i).Top = Texto1(i - 1).Top + 360

Formulario1 .MSFlexGrid1.Cols = i

Texto1(i) = Form1.MSFlexGrid1.Text1(i).Top + 360