mmm no vendria mal un poco de practica y prueba no y un manual de paso ?? podes poner como publica la funcion en un modulo y despues llamarla desde el form2 y pasarle los flexgrid anteponiendo el nombre del formulario form1.flexgrid...etc
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúOption Explicit
Private Sub Command1_Click()
Call Comparar(MSFlexGrid1, MSFlexGrid2)
End Sub
Private Function Comparar(ByVal pFlexgrid1 As MSFlexGrid, ByVal pFlexgrid2 As MSFlexGrid)
Dim i As Long, a As Long
Dim vNi As String, vNF As String, vLongitud As String
With pFlexgrid1
For i = 1 To .Rows - 1
vNi = .TextMatrix(i, 0)
vNF = .TextMatrix(i, 1)
vLongitud = .TextMatrix(i, 2)
For a = 1 To pFlexgrid2.Rows - 1
If pFlexgrid2.TextMatrix(a, 0) = vNi And pFlexgrid2.TextMatrix(a, 1) = vNF Then
pFlexgrid2.TextMatrix(a, 2) = vLongitud
End If
Next a
Next i
End With
End Function
Private Sub Form_Load()
With MSFlexGrid1
.FixedCols = 0
.FormatString = "NI|NF|Long. en m"
.AddItem "M" & vbTab & "A" & vbTab & "22"
.AddItem "A" & vbTab & "B" & vbTab & "33"
.AddItem "B" & vbTab & "C" & vbTab & "44"
.AddItem "B" & vbTab & "D" & vbTab & "55"
.ColWidth(0) = 700
.ColWidth(1) = 1000
.ColWidth(2) = 1000
.RemoveItem 1
End With
With MSFlexGrid2
.FixedCols = 0
.FormatString = "NI|NF|Long. en m"
.AddItem "M" & vbTab & "A"
.AddItem "B" & vbTab & "D"
.ColWidth(0) = 700
.ColWidth(1) = 1000
.ColWidth(2) = 1000
.RemoveItem 1
End With
End Sub
Cita de: Pazador en 6 Agosto 2009, 03:08 AM
no paro de reir
aproposito... yo si estoy aprendiendo a programar en visual basic pero visual 6 ya voy 2 dias y todo se ve facilicimo (porque tengo nociones intermedias de php) pero alguien me podria recomendar si mejor dejo visual basic 6 para ir tras visual 2005 o 2008 ?? algun master que sepa que es lo mas recomendable??