DUVIDA SIMPLES DE CONTROLES ARRAY

WEBIER 21/09/2011 20:43:34
#384902
tenho 7 checkbox e 1 textbox

Os checkbox estão em array: chkDia(0), chkDia(1), chkDia(2), etc.

o chkDia(0) representa SEGUNDA-FEIRA
o chkDia(1) representa TERÇA-FEIRA
o chkDia(2) representa QUARTA-FEIRA
e assim sucessivamente até DOMINGO

a ideia seria assim:

Quando eu clicar no chkDia(0) ele digita no text1 = 2ª
Quando eu clicar no chkDia(1) ele digita no text1 = 3ª
e assim até DOMINGO (chk(6))

Agora poderá ter multiplas marcações... ou seja, posso marcar 2 ou mais checkbox

então vale essa formatação
2ª e 3ª
2ª, 3ª e 6ª

então é a formatação padrão de nosso portugues
WILLVIDAL 21/09/2011 22:17:37
#384909
Você pode usar a propriedade INDEX do checkbox para saber qual deles esta selecionado e assim gerar o texto que você quer, por exemplo coloque tres checkbox com as propriedades INDEX = 1, 2 , 3 e uma caixa de texto num formulário, depois o código seguinte no clique do checkbok.

Private Sub Check1_Click(Index As Integer)
Dim Texto As String

Select Case Index
Case 1
Texto = [Ô]DOMINGO[Ô]
Case 2
Texto = [Ô]SEGUNDA[Ô]
Case 3
Texto = [Ô]TERCA[Ô]
End Select

TEXT1.Text = Texto
End Sub
ROBIU 22/09/2011 09:35:21
#384925 Resposta escolhida
Montei uma função conforme sua descrição. 

Function Dias() As String
    Dim i As Integer
    Dias = [Ô][Ô]
    For i = 0 To 6
        If Check1(i).Value Then
            If Dias = [Ô][Ô] Then
                Dias = Check1(i).Caption
            Else
                Dias = Dias & [Ô], [Ô] & Check1(i).Caption
                
            End If
        End If
    Next i
    If Len(Dias) > 5 Then
        If InStr(1, Right(Dias, 5), [Ô],[Ô]) > 0 Then
        Dias = Left(Dias, Len(Dias) - 5) & Replace(Right(Dias, 5), [Ô],[Ô], [Ô] e[Ô])
        End If
    End If
End Function


Segue projeto anexo.
Tópico encerrado , respostas não são mais permitidas
Voltar