soy nuevo y no se mucho ayudenme
:rolleyes:
lo que queria decir es como hacer que un form. sea indefinido
por ejemplo
if combo1= A then
X=Form1
end if
if combo1= B then
X=Form2
end if
entonces que depende al combo1 X sea el nombre de un formulario
y
text1= (X).text1
text1= form1.text1
text1= form2.text1
por ejemplo es un supon no digo que este sea el codigo, solo para dar una idea
se podra hacer?
si me puden ayudar a la brevedad mejor porque se me acaba el tiempo para hacer mi trabajo
ideas, ideas ;-) gracias
Claro que si y por lo que veo necesitas propiedades en los formularios mira te dejo esto:
Form1
Option Explicit
Public Property Get text() As String
text = "Adios Mundo"
End Property
Form2
Option Explicit
Public Property Get text() As String
text = "Hola Mundo"
End Property
Form3
Option Explicit
Private Sub Combo1_Click()
Dim frm1 As Form1
Dim frm2 As Form2
Static last As Integer
If last = Combo1.ListIndex Then ' Evitamos acciones repetidas sobre un mismo elemento.
Exit Sub
End If
last = Combo1.ListIndex
Select Case Combo1.text ' o Combo1.ListIndex
Case "Adios" ' o 0
Set frm1 = New Form1
MsgBox frm1.text
Case "Hola" ' o 1
Set frm2 = New Form2
MsgBox frm2.text
Case Else
MsgBox "Error"
End Select
End Sub
Private Sub Form_Load()
Combo1.AddItem "Hola"
Combo1.AddItem "Adios"
End Sub
De lo dejo para descargar:
http://filex.sytes.net/?dir=/BlackZeroX/Programacion/vb6/Foro.ElHacker.Net&file=Ejemplo%2009042014.zip
Dulces Lunas!¡.
gracias por el codigo!
mi pregunta era confusa pero la entendiste ;D
si no es molestia quisiera saber como eliminar los items en blanco o vacios de un lisbox en visual basic 6.0
ejemplo list1=
1
2
3
4
5
y que me quede
1
2
3
4
5
como se hace? :P
Es fácil hacerlo, solo juega un poco con las funciones, si no te sabes muchas funciones solo OPRIME F2 en el IDE de VB6 y te aparecerán varias con sus descripciones y tipos...
Option Explicit
Private Sub Form_Load()
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem "1"
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem "2"
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem "3"
List1.AddItem ""
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem "4"
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem " " ' Notese que no esta vacio pero es banco...
List1.AddItem "5"
MsgBox ("Se eliminaron " & EliminarBlancos(List1) & " elementos considerados blancos.")
End Sub
Function EliminarBlancos(ByRef list As Listbox)
Dim i As Long
Dim ret As Long
With list
While (i < .ListCount) ' While (list.ListCount > 0)
If EsBlanco(.list(i)) = True Then ' If EsBlanco(list.list(i)) = True Then
.RemoveItem i ' list.RemoveItem(i)
ret = (ret + 1)
Else
i = (i + 1)
End If
Wend
End With
EliminarBlancos = ret
End Function
Function EsBlanco(ByRef str As String) As Boolean
EsBlanco = CBool(Trim$(str) = vbNullString)
End Function
Dulces Lunas!¡.