problemilla
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....
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....
Lo primero:
Form1.AutoRedraw = True
Lo segundo:
Form1.CurrentX = 150
Form1.CurrentY = 50
__
Un saludo.
Form1.AutoRedraw = True
Lo segundo:
Form1.CurrentX = 150
Form1.CurrentY = 50
__
Un saludo.
a, lo de pasar datos de un formato a otro, no te entiendo. Si quieres especificar un poco más...
__
Un saludo.
__
Un saludo.
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...
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...
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.
-------------
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.
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
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
vale de todas maneras gracias...
y ahora como hago para controlar el espacio qeu hay entre acda print de forma horizontal
y ahora como hago para controlar el espacio qeu hay entre acda print de forma horizontal