Ver Mensaje Individual
  #4 (permalink)  
Antiguo 07/03/2012, 05:01
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 3 meses
Puntos: 29
Respuesta: Reconocer CheckBoxes

Prueba asi:

Código vb:
Ver original
  1. Private Sub chkDoc_Click(Index As Integer)
  2.     CompruebaChecks
  3. End Sub
  4.  
  5. Private Sub CompruebaChecks()
  6.     TextDocumentacion.Text="0"
  7.     If chkDoc(1).Enabled = True And chkDoc(1).Value = 1 Then
  8.         TextDocumentacion.Text = "1"
  9.     End If
  10.     If chkDoc(2).Enabled = True And chkDoc(2).Value = 1 Then
  11.         TextDocumentacion.Text = "1"
  12.     End If
  13.     If chkDoc(3).Enabled = True And chkDoc(3).Value = 1 Then
  14.         TextDocumentacion.Text = "1"
  15.     End If
  16.  
  17.     If chkDoc(1).Enabled = True And chkDoc(1).Value = 0 Then
  18.         TextDocumentacion.Text = "0"
  19.     End If
  20.     If chkDoc(2).Enabled = True And chkDoc(2).Value = 0 Then
  21.         TextDocumentacion.Text = "0"
  22.     End If
  23.     If chkDoc(3).Enabled = True And chkDoc(3).Value = 0 Then
  24.         TextDocumentacion.Text = "0"
  25.     End If
  26. End Sub
  27.  
  28. Private Sub c1_Change(Index As Integer)
  29.     If Val(c1(1)) <> 0 Or Val(c1(2)) <> 0 Or Val(c1(3)) <> 0 Or Val(c1(4)) <> 0 Or Val(c1(5)) <> 0 Then
  30.         chkDoc(1).Enabled = True
  31.     Else
  32.         chkDoc(1).Enabled = False
  33.     End If
  34.     CompruebaChecks
  35. End Sub
  36.  
  37. Private Sub c2_Change(Index As Integer)
  38.     If Val(c2(1)) <> 0 Or Val(c2(2)) <> 0 Or Val(c2(3)) <> 0 Or Val(c2(4)) <> 0 Or Val(c2(5)) <> 0 Then
  39.         chkDoc(2).Enabled = True
  40.     Else
  41.         chkDoc(2).Enabled = False
  42.     End If
  43.     CompruebaChecks
  44. End Sub
  45.  
  46. Private Sub c3_Change(Index As Integer)
  47.     If Val(c3(1)) <> 0 Or Val(c3(2)) <> 0 Or Val(c3(3)) <> 0 Or Val(c3(4)) <> 0 Or Val(c3(5)) <> 0 Then
  48.         chkDoc(3).Enabled = True
  49.     Else
  50.         chkDoc(3).Enabled = False
  51.     End If
  52.     CompruebaChecks
  53. End Sub
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!