problemilla

N
24 de Marzo del 2005
me podira por favor alguien decir como hafgo para pasar datos de un formato a otro...

a otra cosa... lo que sucede es que yo tengo un label en el formato al darle clic en un button ahi un accion que esconde el label (visible), luego de eso utilizo El Print para imprimir en el formulario... pero en el espacio donde esta el label qeu supuesta mente no es visible no se puede sobreescribir.... como hago para sobreescribir encima de ese label si supuestamente esta escondido... y tambien como hago para darle coordenadas al Print, para escribir en una parte especifica del formulario...

de antemano muchas gracias....

en?
24 de Marzo del 2005
Lo primero:
Form1.AutoRedraw = True

Lo segundo:
Form1.CurrentX = 150
Form1.CurrentY = 50

__
Un saludo.

en?
24 de Marzo del 2005
a, lo de pasar datos de un formato a otro, no te entiendo. Si quieres especificar un poco más...

__
Un saludo.

N
24 de Marzo del 2005
primero que todo gracias...

y como segundo pues viene lo siguiente...

estoy haciendo un matriz y en el formulrio1 capturo la dimension de la matriz... mi pregunta es como hago para pasar ese dato de la dimension a otro formulario para que lo imprima la matriz en otro formulario...

y seria mucha molestia si te pidiera que me agregaras al msn si tengo alguna duda... [email protected]

gracias...

en?
24 de Marzo del 2005
No sé si te entendido del todo, pero supongo que te estás refiriendo a que tu intención es, por ejemplo:

-------------
En Form1
-------------
Private Sub Command1_Click()
Dim LaMatriz(3) As String

LaMatriz(0) = "uno"
LaMatriz(1) = "dos"
LaMatriz(2) = "tres"
LaMatriz(3) = "cuatro"
Load Form2
Call Form2.ImprimirMatriz(LaMatriz)
End Sub

-------------
En Form2 sería
-------------
Private Sub Form_Load()
Me.AutoRedraw = True
Me.Show
End Sub

Public Sub ImprimirMatriz(ByRef AMatriz() As String)
Dim Valor As Variant

For Each Valor In AMatriz
Me.Print Valor
Next
End Sub


Todas las dudas que tengas te las intentaremos solucionar entre todos aquí mismo.

__
Un saludo.

N
24 de Marzo del 2005
Dim A1 As Variant
Dim B1 As Variant
Dim C1 As Variant
Dim D1 As Variant

Private Sub Command1_Click()
Form2.Visible = False
Form3.Visible = True
End Sub

Private Sub Command2_Click()
Form2.Visible = False
Form3.Visible = True
End Sub

Private Sub Command3_Click()
A1 = Int(Rnd * 10)
B1 = Int(Rnd * 10)
C1 = Int(Rnd * 10)
D1 = Int(Rnd * 10)
Label1.Caption = A1
Label2.Caption = B1
Label3.Caption = C1
Label4.Caption = D1
While A1 = B1 Or A1 = C1 Or A1 = D1 Or B1 = C1 Or B1 = D1 Or B1 = C1 Or C1 = D1
A1 = Int(Rnd * 10)
B1 = Int(Rnd * 10)
C1 = Int(Rnd * 10)
D1 = Int(Rnd * 10)
Label1.Caption = A1
Label2.Caption = B1
Label3.Caption = C1
Label4.Caption = D1
Wend
\'control de numeros
numero = InputBox("DIGITE NUMERO O LETRA", "CAPTURA", Default, 7000, 7000)
Label6.Caption = numero
If IsNumeric(numero) Then
numero = Val(numero)
MsgBox ("ES UN NUMERO " + Str(numero))
Else
MsgBox ("ES UN CARACTER DIFERENTE DE NUMERO " + numero)
End If
Command4.Enabled = True
Command3.Enabled = False
End Sub

Private Sub Command5_Click()
MsgBox "GRACIAS POR UTILIZAR NUESTRO PROGRAMA", vbInformation, "SALIR"
End
End Sub

Private Sub Form_Load()
Command4.Enabled = False
End Sub

tengo esto si... y me gustaria saber como hago para separar la variable numero como un vector para poder comparar cada uno de sus componentes... ya intente declarandola la variable como un vector pero cuando va a capturar con el inputbox captura todo en la posicion que yo le asigne, como me gustaria que fuera como en C, que capturara cada caracter en una posicion de la cadena, pero pues si no se puede resivo cualquier otra idea...

gracias

N
24 de Marzo del 2005
vale de todas maneras gracias...

y ahora como hago para controlar el espacio qeu hay entre acda print de forma horizontal

N
24 de Marzo del 2005
He por aca por favor alguien que me ayude