PKKO

¦^´_ 16# bobomi


    ¤j¤j,¸Ì­±¨S¦³userform = =

bobomi

UserForm.Zoom3.zip (15.19 KB)

¤U¸ü¦¸¼Æ: 11

2015-5-19 22:40

PKKO

¦^´_ 14# GBKEE


    ·PÁÂ,¤w¤F¸Ñ¨Ï¥Î¤è¦¡!

GBKEE

¦^´_ 13# PKKO

10# ªºµ{¦¡½X
©ñ¤j: Áä½LCtrl Áä + «ö¤U¥ª·Æ¹«Áä
ÁY¤p: Áä½LCtrl Áä + «ö¤U¥k·Æ¹«Áä
ÁÙ­ì: Áä½LShiftÁä +«ö¤U·Æ¹«¥ô¤@Áä

1. If Shift = 2 Then           'Ctrl Áä
   
2.         Select Case Button      '·Æ¹«
   
3.             Case 1              '«ö¤U¥ª·Æ¹«Áä¡C: ©ñ¤j
   
4.                 xZoom = 1.2     '©ñ¤j %2
   
5.             Case 2              '«ö¤U¥k·Æ¹«Áä¡C: ÁY¤p
   
6.                 xZoom = 0.8     'ÁY¤p %2
   
7.         End Select
   
8.        Zoom_UserForm xZoom     'ªí³æÁY©ñµ{¦¡
   
9.     ElseIf Shift = 1 Then       'Shift Áä +¥ô¤@·Æ¹««öÁä
   
10.         Revert_UserForm         'ªí³æÁÙ­ì­ì¥»¤j¤p
    
11.     End If

½Æ»s¥N½X

11#ªºµ{¦¡½X
ªí³æ¶}±Ò¦Û°Ê³Ì¤j¤Æ

PKKO

¦^´_ 11# GBKEE


    ¶Wª©¤j¤j,§Ú©ñ¤Jªí³æ¤º¨Ï¥Î,¨Ã¨ú¥NUSERFORMªº©Ò¦³µ{¦¡½X,¦ýµL½×«ç»òÂI·Æ¹«³£µLªk¤Ï¬M?

PKKO

¦^´_ 8# bobomi

javascript:;
    ·PÁ¤j¤j,§Ú´ú¸Õ¹L¥i¥H¦Û°Ê©ñ¤jªºuserform ¶W»Åªº~¸òºô­¶¤@¼Ë¦Û¥Ñ©b©ñ,¦ý....©ñ¤j®ÄªG¤£¨Î,¥H±zªºuserfrom¨Ó©ñ¤j¤§«á·|µo²{¤ñ¨Ò©Ç©Çªº
§Ú·Q­ì¦]À³¸Ó¬O¸ò©p»¡ªº¤@¼Ë,zoom¥u¯à¦P®É©ñ¤j,µLªk¥u½Õ¾ã¥ô¦ó¤@Ã䪺Ãö«Y

¦Ü©ó13"¹q¸£ªº³¡¤À,§Ú´ú¸Õ¹L©p³Ì«áªºµ{¦¡½X,¸ò¤§«eªº¤@¼Ë©O!·|¶W¥XÃä¬É(¥»¨­­ì¥»ªº¤j¤p¬O¤£·|¶W¹Lªº)

ªþ¥ó¬O§ÚªºUSERFORMªº¤j¤p!

GBKEE

¦^´_ 10# GBKEE
ªí³æ³Ì¤j¤Æ

1. Option Explicit
   
2. Private Sub UserForm_Initialize()  'ªí³æªì©l¤Æªºµ{¦¡
   
3.     Dim e As Control
   
4.     For Each e In Me.Controls
   
5.         e.Tag = e.Top & "," & e.Left & "," & e.Width & "," & e.Height & "," & e.Font.Size
   
6.     Next
   
7.     Form_xlMax
   
8. End Sub
   
9. Private Sub Form_xlMax() 'ªí³æ³Ì¤j¤Æ
   
10.     Dim xlMax As Double, ylMax As Double, xZoom As Double
    
11.     Dim e As Control
    
12.     With Application
    
13.         .WindowState = xlMaximized
    
14.         xlMax = .Width
    
15.         ylMax = .Height
    
16.     End With
    
17.     xZoom = 1
    
18.     Do While Width < xlMax
    
19.         Width = Width * xZoom
    
20.         Height = Height * xZoom
    
21.         For Each e In Controls
    
22.             With e
    
23.                 .Top = .Top * xZoom
    
24.                 .Left = .Left * xZoom
    
25.                 .Width = .Width * xZoom
    
26.                 .Height = .Height * xZoom
    
27.                 .Font.Size = .Font.Size * xZoom
    
28.                Debug.Print xZoom, .Font.Size
    
29.             End With
    
30.         Next
    
31.         xZoom = xZoom * 1.0000654
    
32.     Loop
    
33.     Top = 0
    
34.     Left = 0
    
35. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# PKKO
¸Õ¸Õ¬Ý¦Û¤vÁY©ñ.
³oªí³æªºµ{¦¡½X

1. Option Explicit
   
2. Dim X As Double, Y As Double, e As Control
   
3. Private Sub UserForm_Initialize()  'ªí³æªì©l¤Æªºµ{¦¡
   
4.     Dim e As Control
   
5.     X = Width
   
6.     Y = Height
   
7.     For Each e In Me.Controls
   
8.         e.Tag = e.Top & "," & e.Left & "," & e.Width & "," & e.Height & "," & e.Font.Size
   
9.     Next
   
10. End Sub
    
11. Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
12. 'µo¥Í¦b·í¨Ï¥ÎªÌ«ö¤F·Æ¹«Áä®É¡CMouseDown µo¥Í©ó¨Ï¥ÎªÌ«ö¤U·Æ¹«Áä****
    
13.     Dim xZoom As Double
    
14.     If Shift = 2 Then           'Ctrl Áä
    
15.         Select Case Button      '·Æ¹«
    
16.             Case 1              '«ö¤U¥ª·Æ¹«Áä¡C: ©ñ¤j
    
17.                 xZoom = 1.2     '©ñ¤j %2
    
18.             Case 2              '«ö¤U¥k·Æ¹«Áä¡C: ÁY¤p
    
19.                 xZoom = 0.8     '©Ò¤p %2
    
20.         End Select
    
21.         Zoom_UserForm xZoom     'ªí³æÁY©ñµ{¦¡
    
22.     ElseIf Shift = 1 Then       'Shift Áä +¥ô¤@·Æ¹««öÁä
    
23.         Revert_UserForm         'ªí³æÁÙ­ì­ì¥»¤j¤p
    
24.     End If
    
25. End Sub
    
26. Private Sub Zoom_UserForm(xZoom As Double)  'ªí³æÁY©ñ
    
27.     Width = Width * xZoom
    
28.     Height = Height * xZoom
    
29.     For Each e In Controls
    
30.         With e
    
31.             .Top = .Top * xZoom
    
32.             .Left = .Left * xZoom
    
33.             .Width = .Width * xZoom
    
34.             .Height = .Height * xZoom
    
35.             .Font.Size = .Font.Size * xZoom
    
36.         End With
    
37.     Next
    
38. End Sub
    
39. Private Sub Revert_UserForm() 'ªí³æÁÙ­ì­ì¥»¤j¤p
    
40.     Dim xTag As Variant
    
41.     Width = X
    
42.     Height = Y
    
43.     For Each e In Me.Controls
    
44.         With e
    
45.             xTag = Split(.Tag, ",")
    
46.             .Top = xTag(0)
    
47.             .Left = xTag(1)
    
48.             .Width = xTag(2)
    
49.             .Height = xTag(3)
    
50.             .Font.Size = xTag(4)
    
51.         End With
    
52.     Next
    
53. End Sub

½Æ»s¥N½X

PKKO

¦^´_ 8# bobomi


    ·PÁ¤j¤jªº¥Î¤ß! §Ú´ú¸Õ§¹¦A¸ò±z³ø§i !

bobomi

Zoom  ¤ñ¸û¦nªº¤è®×
22.zip (12.39 KB)

¤U¸ü¦¸¼Æ: 16

2015-5-17 15:57