• Viernes 8 de Noviembre de 2024, 07:57

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - HanS0

Páginas: [1]
1
Visual Basic para principiantes / MsFlexgrid A a MsFlexgrid B
« en: Miércoles 1 de Julio de 2009, 12:50 »
Saludos amigos cybernautas  :alien:  le mando un gran saludo desde mi pais Panamà.
Miren necesito de su ayuda les comento mi problema. De ante mano pido disculpas si esto no va aqui y todo ese protocolo pero la verdad es mi primera vez posteando en el site, ademas estoy nesecitando de ayuda de los que sepan de esto  :good:

Soy estudiante de Ingenieria Civil aca nos ponen a programar en vb6 y bueno para serles sinceros se hacer cosas muy muy sencillas... etc etc. al grano estoy haciendo un proyecto de visual que resuelve una cercha o una estructura como sea  -_- .

La cuestion es que tengo varios formularios y muchas msflexgrids  :argh: sehh bueno la cuestion es que tengo
 que mandar datos numericos de un msfA a el msfB dejeme decirles que intentado varias formas y nada me manda error o simplemente me llena el otro msfgrid con cero o me los deja sin datos.
eso por un lado por otro lado como en un mismo msfgrid poder hacer operaciones con datos de una columna para mostrar en una al lado?
cualquier ayuda es bienvenida estare aqui esperando su ayuda.

saludos
ahi les dejo una vista

 
    'numero de columna y numero de filas del flexgrid
     
     frmdatos3.msf3.Rows = 4 * n + 3
     frmdatos3.msf3.Cols = 3
     
      For TR = 0 To 2
        frmdatos3.msf3.ColWidth(TR) = 1600
        frmdatos3.msf3.ColAlignment(TR) = 4
      Next
     
    kl = 0
    For i1 = 1 To 2 * n + 1
    frmdatos3.msf3.TextMatrix(i1 + kl, 0) = " U " & i1
    frmdatos3.msf3.TextMatrix(i1 + kl + 1, 0) = " V " & i1
    kl = kl + 1
    Next



        FS = 1
     For q1 = 1 To 2 * (2 * n + 1)
        For he = 1 To 2
        ' aqui esta el problema nose si se hace asi msfuerzas es el  msfgrid del otro formulario
           Carga(q1) = frmdatos2.msFuerzas.TextMatrix(FS, he)    
           frmdatos2.msFuerzas.CellAlignment = flexAlignCenterCenter  
           
           q1 = q1 + 1
        Next he
         q1 = q1 - 1
         FS = FS + 1
     Next q1
       
     For q14 = 1 To 2 * (2 * n + 1)
      frmdatos3.msf3.TextMatrix(q14, 4) = Carga(q14)
      frmdatos3.msf3.CellAlignment = flexAlignCenterCenter
     Next q14
    End Sub

Páginas: [1]