Programación General > Visual Basic para principiantes

 MsFlexgrid A a MsFlexgrid B

<< < (2/2)

m0skit0:
Anda, te he hecho un proyecto y todo  :wub:

[attachment=0:1n24n8zz]Ejemplo MSFG.7z[/attachment:1n24n8zz]
Pero no hace exactamente lo que necesitas. Si logras entenderlo, podrás hacer lo que quieres  :devil:

HanS0:
:comp:  saludos amigos foreros les mando un saludo :alien:
 
seh ya resolvi el problema gracias de todos modos ahi dejo la info de una de las tantas me imagino yo formas para sumar datos numericos en un mismo msflexgrid lo dejo como aporte a los que en algun momento tengan la duda o simplemente no tengan alguien que les ayude... :bad:

son dos formularios dos grid y varios botones...
primer formulario

Private Sub Command1_Click()
'para salir de la corrida
End
End Sub

Private Sub Command2_Click()
'para cambiar de un form a otro
Form1.Hide
Form2.Show
End Sub

Private Sub Command3_Click()
'dimensionando variables C,A,B son vectores

Dim I As Integer, C(4) As Single, A(4) As Single, B(4) As Single

'ciclo que lee los datos del msflexgrid y los manda a los
'vectores para luego sumarlos

For I = 1 To 4
'vectores almacenadores de datos numericos en este caso
A(I) = ms1.TextMatrix(I, 1)
B(I) = ms1.TextMatrix(I, 2)
'vector de la suma
C(I) = A(I) + B(I)
'aqui se muestra los resultados de la suma
ms1.TextMatrix(I, 3) = C(I)
Next I
End Sub

Private Sub Form_Load()
Dim I As Integer, J As Integer
'dandole el formato al msflexgrid

ms1.Rows = 5
ms1.Cols = 4
ms1.TextMatrix(0, 0) = "Nº"
ms1.TextMatrix(0, 1) = "A"
ms1.TextMatrix(0, 2) = "B"
ms1.TextMatrix(0, 3) = "C"

For I = 1 To 4
For J = 1 To 2

ms1.TextMatrix(I, 0) = "F" & I
ms1.TextMatrix(I, J) = 0

Next J
Next I


segundo formulario

Private Sub Command1_Click()
'dimensionando las variables
Dim I As Integer, J As Integer, D(8) As Single, acum As Integer
'ciclo donde se llaman los datos del msflexgrid A

For I = 1 To 8

'se tienen estos if ya que se pondran en una sola columna
If I <= 4 Then

'almacenando los datos en el msflexgridB de la primera col
D(I) = Form1.ms1.TextMatrix(I, 1)
ms2.TextMatrix(I, 1) = D(I)

End If

If I > 4 Then
'almacenando los datos en el msflexgridB de la segunda col
D(I) = Form1.ms1.TextMatrix(I - 4, 2)
ms2.TextMatrix(I, 1) = D(I)

End If



Next I


End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Form2.Hide
Form1.Show
End Sub

Private Sub Form_Load()
'dandole el formato al msflexgrid
Dim I As Integer
Dim J As Integer

ms2.Rows = 9
ms2.Cols = 2
ms2.TextMatrix(0, 0) = "Nº"
ms2.TextMatrix(0, 1) = "D"

For I = 1 To 8
ms2.TextMatrix(I, 0) = "F" & I

Next I

End Sub

saludos y gracias  :good:

HanS0:

--- Cita de: "m0skit0" ---Anda, te he hecho un proyecto y todo  :wub:

[attachment=0:h6i01rz7]Ejemplo MSFG.7z[/attachment:h6i01rz7]
Pero no hace exactamente lo que necesitas. Si logras entenderlo, podrás hacer lo que quieres  :devil:
--- Fin de la cita ---

gracias hasta ahora lo veo eres grande voy a revisarlo para ver si es algo mas practico se te agradece fren de verdad no ay gente asi ya casi saludos  y gracias por comentar y ayudarme en mis dudas y problemas :beer: ...

saludos  :good:

m0skit0:
No, el tuyo es mejor usando TextMatrix  :good:

Saludos  :hola:

HanS0:
bueno la verdad ya ahora me siento un poco mejor que me dijistes que es mejor usando para ese caso un textmatrix bueno saludos y gracias por tus comentarios :wub:  xD

saludos :alien:

Navegación

[0] Índice de Mensajes

[*] Página Anterior