como declarar en visual basic 6.0

[kenrigls]

soy nuevo y no se mucho ayudenme

lo que queria decir es como hacer que un form. sea indefinido

por ejemplo

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

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

[BlackZeroX]

Claro que si y por lo que veo necesitas propiedades en los formularios mira te dejo esto:

Form1

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Property Get text() As String
    text = "Adios Mundo"
End Property


Form2

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Property Get text() As String
    text = "Hola Mundo"
End Property


Form3

Código (vb) [Seleccionar] Expandir


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!¡.

[kenrigls]

gracias por el codigo!

mi pregunta era confusa pero la entendiste

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?

[BlackZeroX]

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...

Código (vb) [Seleccionar] Expandir


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!¡.