Visual Basic - Ayuda con dos Combos

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con dos Combos

Publicado por Juan (1 intervención) el 18/02/2003 21:31:11
Tengo 2 combos y 1commando Aceptar (combo1=Dias),(combo2=Mes).Al introducir una fecha y pulsar Aceptar quiero que se abra un formulario para esa fecha llamado form1 y al introducir otra fecha otro formulario.Cada form va cada 5 dias (01al05 de Enero) Form1, (06al10)Form2 y asi consecutivamente.Este es el codigo del comando Aceptar. Gracias

Private Sub Aceptar_Click()
Dim Dia As String, Mes As String
Dia = Combo2
Mes = Combo1
Select Case Dia
Case "01,02,03,04,05"
If Mes = "Enero" Then
End If
Case Else
End Select

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con dos Combos

Publicado por Carlos Christian Molina Vega (10 intervenciones) el 19/02/2003 00:33:26
crea un collection y cada vez agregas un nuevo form. Luego accesas al
que quieras por su indice dentro del collection
dim MyForms as collection
sub Form_load
set MyForms = new collection
end sub

function AddForm as long
dim F as form1
set f = new form1
f.show
myforms.add f
AddForm = myforms.count 'es el indice para el form
end sub

para accesarlos
dim F as form1
set f = myforms(1)
f.xxxx
f.visible = false

existen muchas formas de hacerlo, esta es solo una de ellas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar