GBKEE

¦^´_ 1# pinklee
¨Ï¥Î[ª«¥óÃþ§O¼Ò²Õ]  ¤@¦¸³]©w48­ÓLabel
ªí³æ¼Ò²Õµ{¦¡½X

1. 'TextBox1´N·|Åܦ⠧令¬°  Label±±¨î¶µ ©R¦W¬°Label49
   
2. Option Explicit
   
3. Dim Form_Lable(1 To 48) As New Class1                 'Class1¬°[ª«¥óÃþ§O¼Ò²Õ]
   
4. Private Sub CommandButton1_Click()
   
5.     Unload Me
   
6. End Sub
   
7. Private Sub UserForm_Initialize()
   
8.     Dim i
   
9.     For i = 1 To 48                                    '48­Ó¦â½X ­Ó§O¦Û©ñ¦b¤£¦P Label1->  Label48
   
10.         Set Form_Lable(i).La = Controls("Label" & i)   '«ü©w¨ìª«¥óÃþ§O¼Ò²Õªº LaÅܼƤ¤
    
11.     Next
    
12.     Label49.Caption = "¤å¦r¤Î©³¦â¹wÄý"
    
13. End Sub

½Æ»s¥N½X

ª«¥óÃþ§O¼Ò²Õ Class1 µ{¦¡½X

1. Option Explicit
   
2. Public WithEvents La As MSForms.Label
   
3. Private Sub La_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
4.      With UserForm1
   
5.         If .OptionButton1 Then
   
6.             .Label49.BackColor = La.BackColor
   
7.         ElseIf .OptionButton2 Then
   
8.             .Label49.ForeColor = La.BackColor
   
9.         End If
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

¤U¸ü (25.07 KB)

2013-5-24 15:45

GBKEE

¦^´_ 4# borshun88

1. Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.    'Shift :²Õ¦XÁä SHIFT,ALT,CTRL ªº¼Æ­È
   
3.    'X ·Æ¹«X¶b¼Æ­È
   
4.    'Y ·Æ¹«Y¶b¼Æ­È
   
5.    Dim S As String
   
6.    Select Case Button
   
7.         Case 1
   
8.             S = "[¥ªÁä]"
   
9.         Case 2
   
10.             S = "[¥kÁä]"
    
11.     End Select
    
12.     MsgBox "§A«ö¤F " & S
    
13. End Sub
    
14. 
    
15. Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
16.       Application.DisplayStatusBar = True
    
17.       Application.StatusBar = "·Æ¹« X ¶b¼Æ­È : " & X & vbLf & "  ·Æ¹« Y ¶b¼Æ­È : " & Y
    
18.       'Åã¥Ü¦bª¬ºA¦C
    
19. End Sub

½Æ»s¥N½X