GBKEE

¦^´_ 1# reangame

1. If sp.Name Like "ToggleButton*" Then Controls.Remove (sp.Name)

½Æ»s¥N½X

¥i°Ñ¦Ò³o¸Ì

GBKEE

¦^´_ 3# reangame

1. Dim XToggle() As New Class1
   
2. Private Sub ComboBox1_Change()
   
3. If ComboBox1 <> "" And ComboBox2 <> "" Then ¦æ¨Æ¾ä»s§@
   
4. End Sub
   
5. Private Sub ComboBox2_Change()
   
6. If ComboBox1 <> "" And ComboBox2 <> "" Then ¦æ¨Æ¾ä»s§@
   
7. End Sub
   
8. Sub ¦æ¨Æ¾ä»s§@()
   
9.     Dim sp As Control
   
10.     For Each sp In UserForm1.Frame2.Controls
    
11.        If sp.Name Like "ToggleButton*" Then Me.Controls.Remove sp.Name
    
12.     Next
    
13.     day1 = DateSerial(Val(ComboBox1), Val(ComboBox2), 1)
    
14.     day2 = DateSerial(Val(ComboBox1), Val(ComboBox2) + 1, 0)
    
15.     w = Weekday(day1, vbMonday)
    
16.     ReDim XToggle(day1 To day2)
    
17.     For I = day1 To day2
    
18.         k = Int((Day(I) + w - 2) / 7)
    
19.         s = Weekday(I, vbMonday)
    
20.         kk = Int((Day(I) + w - 2) / 7)
    
21.         If kk = 5 Then
    
22.             Frame1.Height = 262
    
23.         Else
    
24.             Frame1.Height = 222
    
25.         End If
    
26.         
    
27.          With Frame2.Controls.Add("forms.ToggleButton.1")
    
28.             .Top = (k * 38) - 1
    
29.             .Left = (42 * (s - 1)) - 2
    
30.             .Height = 38
    
31.             .Width = 42
    
32.             .Caption = Day(I)
    
33.             Set XToggle(I).Toggle = Controls(.Name)
    
34.             'ª«¥óÅܼƫü©w¬° Controls(.Name)
    
35.         End With
    
36.     Next
    
37. End Sub

½Æ»s¥N½X

¤U¸ü (78.87 KB)

2014-6-14 16:41

1. Option Explicit
   
2. Public WithEvents Toggle As MSForms.ToggleButton
   
3. Private Sub Toggle_Click()
   
4.     With Toggle
   
5.         .BackStyle = 1
   
6.         If .Value Then
   
7.             .Font.Size = 18
   
8.             .Font.Bold = True
   
9.             .BackColor = vbYellow
   
10.         Else
    
11.             .Font.Size = 12
    
12.             .Font.Bold = False
    
13.             .BackColor = &H8000000F
    
14.         End If
    
15.     End With
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# reangame
Dim XToggle() As New Class1    ->©w¸qXToggle()¬°ª«¥óÃþ§O¼Ò²Õ¡A¨Ï¥Î®É¾÷??
·í§A¦³³\¦h¬Û¦Pª«¥óªº¹w³]¨Æ¥ó,¤£»Ý¨C£¸ª«¥ó¼g¤@¨Æ¥óµ{¦¡½X.

¦AªÌ°}¦C¤£¬O±q0¶}©l¡AXToggle(i)«ç»ò¤£·|¥X¿ù?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim ar(-5 To 5)
   
4.     ar(-5) = "Why"
   
5.     MsgBox ar(-5)
   
6. End Sub

½Æ»s¥N½X

¦bªí³æ¤¤ ªº Dim XToggle() As New Class1 -> «Å§i XToggle() «¬ºA¬° ·sªº Class1
4# ªºª«¥ó¼Ò²Õ¦WºÙ¬° Class1¬°¹w³]ªº.·s¼W¨Ì§Ç·|¬° Class2,Class3....,¥ç¥i¨Ì³ß¦n©R¦W,
Dim XToggle() As New GbKee

Set XToggle(I).Toggle = Controls(.Name)     ->³]©wXToggle(I)±±¨î¶µªº¦WºÙ¡H  
.Toggle¬O¤°»ò¥\¥Î¡H->Public WithEvents Toggle As MSForms.ToggleButton   ¬O³o±±¨î¶µ   

F1¤]¬d¤£¨ì
vbaµøµ¡¤¤¿é¤JToggleButton ¥i¬d¨ì

¦p¦ó¤À¿ëShapes¡BOLEObjects¡BControlsªº®t§O©Î¨Ï¥Î®É¾÷??
vbaµøµ¡¤¤¿é¤JShapes ....¥i¤F¸Ñ