USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Limitando o nº de checkbox selecionados
Postada em 28/4/2004 por geronimo            
Vou dar o exemplo com um array de checkboxes pq é mais fácil mas a função funciona com checkboxes individuais também.

Para testar desenhe um form com um bando de checkboxes (Check1) em control array e cole o código abaixo. MaxSel é o máximo de checkboxes que podem ser selecionados ao mesmo tempo e Marca é uma string que o Tag de cada um dos checkboxes que participem deste esquema devem ter para que a função abaixo possa reconhece-los.

Function RestringeSel(MaxSel As Integer, Marca As String) As Integer

Dim CTL As Control
Dim CTR As Integer

RestringeSel = 1
For Each CTL In Me.Controls
If TypeOf CTL Is CheckBox Then
If CTL.Tag = Marca Then
CTR = CTR + CTL.Value
End If
End If

If CTR > MaxSel Then
RestringeSel = 0
Exit For
End If
Next

End Function

Private Sub Check1_Click(Index As Integer)

If Check1(Index) = 1 Then Check1(Index) = RestringeSel(2, "*")

End Sub

Para funcionar com checkboxes individuais (fora de um control array) cada um deles deve ter a linha acima no seu evento click

Fonte: www.Codex.com.br
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página