Título: como declarar en visual basic 6.0
Publicado por: kenrigls en 9 Abril 2014, 08:40 am
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
Título: Re: como declarar en visual basic 6.0
Publicado por: BlackZeroX en 9 Abril 2014, 10:18 am
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!¡.
Título: Re: como declarar en visual basic 6.0
Publicado por: kenrigls en 10 Abril 2014, 08:37 am
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
Título: Re: como declarar en visual basic 6.0
Publicado por: BlackZeroX en 11 Abril 2014, 08:29 am
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!¡.
|