Mejoras a formulario

[fjchavez]

Hola a todos, quisiera me apoyen con estas funcionalidades que quiero agregar a este formulario.

-He fijado que todos lo combo box aparezcan con No o Ninguno segun sea el caso (lo cual desabilita los textbox).Cuando se elije una opcion (Sí, Uno, Dos o Tres segun sea el caso) se habilitan.
-He notado en el frame "Vemos 1" que cuando por ejemplo elijo Si en ComboBox3, luego elijo Tres en ComboBo4 (todo funciona bien hasta ahi), luego elijo No en ComboBox3 otra vez, no se me desactivan los textbox. Tambien he notado lo mismo en el frame Diversión.
-Quisiera que cuando haga click en el boton se cambie el Label que dice "Ejemplo 1" y diga ejemplo 2 y asi sucesivamente.

Esas son algunas funcionalidades que quiero agregarle a este formulario.


Archivo excel

[fjchavez]

O algun enlace en internet donde pueda investigar?

[zxs23]

'Para el fallo al deshabilitar los textbox's pon el codigo que utilizas para ver lo que estas haciendo
'Ahora por el archivo excel que dejas estas programando con VBA y no con VB6.0

Código:

Dim zNum As Integer

Private Sub Command1_Click()

zNum = zNum + 1
Label1.Caption = "Ejemplo " & zNum

End Sub

[fjchavez]

Gracias por la respuesta, este es el código.

Código vb:

Private Sub CB3_Change()
Select Case CB3.Text
Case "No"
CB4.Enabled = False
Case "Sí"
CB4.Enabled = True
End Select
End Sub
 
Private Sub CB4_Change()
Select Case CB4.Text
Case "Ninguno"
TextBox03.Enabled = False
TextBox03.BackColor = UserForm1.BackColor
TextBox06.Enabled = False
TextBox06.BackColor = UserForm1.BackColor
TextBox04.Enabled = False
TextBox04.BackColor = UserForm1.BackColor
TextBox07.Enabled = False
TextBox07.BackColor = UserForm1.BackColor
TextBox05.Enabled = False
TextBox05.BackColor = UserForm1.BackColor
TextBox08.Enabled = False
TextBox08.BackColor = UserForm1.BackColor
Case "Uno"
TextBox03.Enabled = True
TextBox03.BackColor = vbWhite
TextBox03.SetFocus
TextBox06.Enabled = True
TextBox06.BackColor = vbWhite
TextBox04.Enabled = False
TextBox04.BackColor = UserForm1.BackColor
TextBox07.Enabled = False
TextBox07.BackColor = UserForm1.BackColor
TextBox05.Enabled = False
TextBox05.BackColor = UserForm1.BackColor
TextBox08.Enabled = False
TextBox08.BackColor = UserForm1.BackColor
Case "Dos"
TextBox03.Enabled = True
TextBox03.BackColor = vbWhite
TextBox03.SetFocus
TextBox06.Enabled = True
TextBox06.BackColor = vbWhite
TextBox04.Enabled = True
TextBox04.BackColor = vbWhite
TextBox07.Enabled = True
TextBox07.BackColor = vbWhite
TextBox05.Enabled = False
TextBox05.BackColor = UserForm1.BackColor
TextBox08.Enabled = False
TextBox08.BackColor = UserForm1.BackColor
Case "Tres"
TextBox03.Enabled = True
TextBox03.BackColor = vbWhite
TextBox03.SetFocus
TextBox06.Enabled = True
TextBox06.BackColor = vbWhite
TextBox04.Enabled = True
TextBox04.BackColor = vbWhite
TextBox07.Enabled = True
TextBox07.BackColor = vbWhite
TextBox05.Enabled = True
TextBox05.BackColor = vbWhite
TextBox08.Enabled = True
TextBox08.BackColor = vbWhite
End Select
End Sub
 
Private Sub UserForm_Initialize()
CB3.List = Array("No", "Sí")
CB3.ListIndex = 0
CB4.List = Array("Ninguno", "Uno", "Dos", "Tres")
CB4.ListIndex = 0
End Sub
 

[zxs23]

Como vas fjchavez tu problema esta en que estas utilizando el evento change y select case para verificar las condiciones.
Para empezar debes programar en el evento click del combo ahora con respecto a los Select Case nunca los utilize mucho pero lo probe y no me funciona, ahora utilizando If Then Else me funciono perfecto.
Ojo que estoy probando en vb6.0, la diferencia es casi nula pero hazlo como te digo "evento click e If".

Código:

Private Sub CB3_Click()
'Select Case CB3.Text
'Case "No"
'CB4.Enabled = False
'Case "Sí"
'CB4.Enabled = True
'End Select

If CB3.Text = "No" Then
   CB4.Enabled = False
ElseIf CB3.Text = "Si" Then
   CB4.Enabled = True
Else
   MsgBox "Otras condiciones"
End If

End Sub