Autor Tema: Matriz De Controles Y Tags (Leído 1275 veces)

MAESTROMANU · « **en:** Domingo 27 de Febrero de 2005, 19:01 »

Hola, tengo en un form 3 casillas de verificacion que se llaman

Check1(0) y en el tag he puesto 8
Check1(1) y en el tag he puesto 9
Check1(2) y en el tag he puesto 10,

Ahora, tengo un boton que se llama 'CmdAlterna01', con el caption 'Todos los usuarios

Al pulsar este boton, quisisera que segun el caption de este boton se activaran o desactivaran los check's, sabiendo que al pulsar el boton 'CmdAlterna01', cambio el caption de este por 'Usuario actual' y al reves.

'Todos los usuarios' ----> click ----> 'Usuario Actual'
'Usuario Actual' ----> click ----> 'Todos los usuarios'

y el valor del tag 8 determina que este debe estar activo para 'Todos los usuarios', pero no debe estar activo para el 'usuario actual'
el valor 9 determina que este debe estar activo para 'Usuario actual', pero no puede estar activo para 'Todos los usuarios'
y el valor 10 determina que este debe estar activo tanto para 'Usuario actual"como para 'Todos los usuarios'

Adjunto el codigo que tengo puesto, pero el problema que tengo es que el check1(0) si lo modifica como debiera, pero los demas no.

Código: Text

 
Private Sub CmdAlterna01_Click()
    If CmdHardware.Caption = &#34;Usuario Actual&#34; Then
        CmdHardware.Caption = &#34;Todos los usuarios&#34;
            Select Case Check1(Index).Tag
                Case 8
                    Check1(Index).Enabled = True
                Case 9
                    Check1(Index).Enabled = False
                Case 10
                    Check1(Index).Enabled = True
            End Select
    ElseIf CmdHardware.Caption = &#34;Todos los usuarios&#34; Then
        CmdHardware.Caption = &#34;Usuario actual&#34;
            Select Case Check1(Index).Tag
                Case 8
                    Check1(Index).Enabled = False
                Case 9
                    Check1(Index).Enabled = True
                Case 10
                    Check1(Index).Enabled = True
            End Select
    End If
    
End Sub
 
 

Brroz

Hola maestro.

Tu código debería ser algo así, optimizaciones aparte:

Código: Text

 
Private Sub CmdAlterna01_Click()
    Dim iIdx As Integer
    If cmdHardware.Caption = &#34;Usuario Actual&#34; Then
        cmdHardware.Caption = &#34;Todos los usuarios&#34;
        For iIdx = 0 To 2
            Select Case Check1(iIdx).Tag
               Case 8
                   Check1(iIdx).Enabled = True
               Case 9
                   Check1(iIdx).Enabled = False
               Case 10
                   Check1(iIdx).Enabled = True
            End Select
        Next iIdx
    ElseIf cmdHardware.Caption = &#34;Todos los usuarios&#34; Then
        cmdHardware.Caption = &#34;Usuario Actual&#34;
        For iIdx = 0 To 2
            Select Case Check1(iIdx).Tag
                Case 8
                    Check1(iIdx).Enabled = False
                Case 9
                    Check1(iIdx).Enabled = True
                Case 10
                    Check1(iIdx).Enabled = True
            End Select
        Next iIdx
   End If
End Sub
 
 

Estabas usando la variable 'index', que no sé dónde la tendrías declarada, supongo que con valor 0, por lo que sólo te funcionaba con un check.

Chao.

MAESTROMANU

Muchas gracias brroz.

SoloCodigo

Autor Tema: Matriz De Controles Y Tags (Leído 1275 veces)

MAESTROMANU

Matriz De Controles Y Tags

Brroz

Re: Matriz De Controles Y Tags

MAESTROMANU

Re: Matriz De Controles Y Tags