ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó­pºâcheckbox "¦³¥´¤Ä"ªº­Ó¼Æ??

[µo°Ý] ¦p¦ó­pºâcheckbox "¦³¥´¤Ä"ªº­Ó¼Æ??

½Ð°Ý¦p¦ó­pºâcheckbox ¦³¥´¤Äªº­Ó¼Æ©O?
°²³]¦³checkbox1~5
¥u¤Ä¤F1.3
¨º­n¦p¦ó°µ­pºâ©O??

·Ð½Ð¦U¦ì«e½ú¸Ñµª ·PÁ :)

¦^´_ 1# rick4615
  1. Private Sub cbCal_Click()
  2.   Dim iI%
  3.   Dim ctl As Control
  4.   
  5.   iI = 0
  6.   For Each ctl In Me.Controls
  7.     If TypeName(ctl) = "CheckBox" Then
  8.       If ctl.Value Then iI = iI + 1
  9.     End If
  10.   Next
  11.   MsgBox "¦@¦³ " & iI & "­Ó CheckBox ³Q¥´¤Ä"
  12. End Sub
½Æ»s¥N½X
¦p¦ó­pºâcheckbox¦³¥´¤Äªº¼Æ¶q.zip (6.51 KB)

TOP

¦^´_ 2# luhpro


·PÁ¤j¤jªºÀ°¦£ :D

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD