[µo°Ý] ½Ð±Ðªí³æ¤º Label ¤W¤U¥ª¥k¸m¤¤°ÝÃD

mark15jill

ºô¸ô¤W§ä¨ì¦³¤H¤À¨É Label¦r¦ê¸m¤¤(¤W¤U¥ª¥k)¡A¦ý¬O¸Ó­ì©l½X¦ü¥G¥u¯à¥Î©ó³æ¤@ª«¥ó¡C
¦³¸ÕµÛ§ï¼g¡A¦ýÅã¥Ü¥X¨Ó ¶È¤ô¥­¸m¤¤
½Ð°Ý­Y¥H °j°é¨Óªí¥Üªº¸Ü
¸Ó­n¦p¦ó­×¥¿¤ñ¸û«ê·í

¤U¸ü (42.68 KB)

2012-11-23 16:59

1. Private Sub UserForm_Initialize()
   
2.     Dim lab As MSForms.Label
   
3.     Dim xx As Integer
   
4.     Dim yy As Integer
   
5.    
   
6.     With UserForm1
   
7.         .Height = 500
   
8.         .Width = 500
   
9.             For yy = 1 To 500 Step 100
   
10.                 For xx = 1 To 500 Step 100
    
11.                     Set lab = .Controls.Add("forms.label.1")
    
12.                     With lab
    
13.                         '.Caption = .Name
    
14.                         
    
15.                         .Top = 10 + yy
    
16.                         .Left = 10 + xx
    
17.                         .AutoSize = False
    
18.                         .BackColor = &HC0FFC0
    
19.                         
    
20.                         Dim str As String
    
21.                         Dim strout As String
    
22.                         str = .Name
    
23.                         'strout = ""
    
24.                         .BorderStyle = fmBorderStyleSingle
    
25.                         .TextAlign = fmTextAlignCenter
    
26.                         .WordWrap = True
    
27.                         strout = .Name
    
28.                         .Caption = strout
    
29.                     End With
    
30.                 Next
    
31.             Next
    
32.    
    
33.     End With
    
34. End Sub
    
35. 
    
36. 
    
37. '¥H¤U¬O¬Yºô¯¸ªº LABEL ¦r¦ê¸m¤¤½d¨Ò
    
38. '    Dim str As String = "³o¸Ì©ñ¤W±z­nªº¦r"
    
39. '    Dim strOut As String = ""
    
40. '    Label1.BorderStyle = BorderStyle.FixedSingle
    
41. '    Label1.TextAlign = ContentAlignment.TopCenter
    
42. '    For Each ch As Char In str.ToCharArray
    
43. '        strOut &= ch & ControlChars.CrLf
    
44. '    Next
    
45. '    Label1.Text = strOut

½Æ»s¥N½X

GBKEE

¦^´_ 1# mark15jill
¸Õ¸Õ¬Ý

1. With lab
   
2.               .Top = 10 + yy
   
3.               .Left = 10 + xx
   
4.               .Font.Size = 12         '¦r«¬¤j¤p
   
5.               .Height = .Font.Size + .Font.Size * 0.1  '½Õ¾ã°ª«×
   
6.              '  .AutoSize = False

½Æ»s¥N½X

mark15jill

¦^´_ 2# GBKEE


    GBKEE¤j¤j¡AÁÂÁ¡C

    ³o¤èªk¥i¥H¡A¦ý¬O¡A´ú¸Õµ²ªG ¶È­­©ó ¦rÅé¤j¤p¤ñ¸û¤pªº®É­Ô¾A¥Î¡C
    ¥Î¤j¤p 36 ´ú¸Õ«á¡A¤Ï¦Ó·|¦³ÂI©¹¤W°¾¡C
   

¤U¸ü (70.56 KB)

2012-11-26 16:13

GBKEE

¦^´_ 3# mark15jill
¦r«¬¤j©ó36  ®É¥i½Õ¾ã 0.1  ¸Õ¸Õ¬Ý
   

1. .Height = .Font.Size + .Font.Size * 0.1  '½Õ¾ã°ª«×

½Æ»s¥N½X

mark15jill

¦^´_ 4# GBKEE


    ­è¸ÕµÛ­×§ïµøµ¡¤j¤p¡A¨S§ï¨S¨Æ±¡¡A§ï¤FÅܦ¨...

¤U¸ü (189.37 KB)

2012-11-26 16:59

<µo²{­þÃä©Ç©Çªº¤F¶Ü¡H>

1. Private Sub UserForm_Initialize()
   
2. 
   
3.     Dim lab As MSForms.Label
   
4. 
   
5.     Dim xx As Integer
   
6. 
   
7.     Dim yy As Integer
   
8. 
   
9.    
   
10.     With UserForm1
    
11. 
    
12.         .Height = 700
    
13. 
    
14.         .Width = 1400
    
15. 
    
16.             For yy = 1 To 700 Step 100
    
17. 
    
18.                 For xx = 1 To 1400 Step 200
    
19. 
    
20.                     Set lab = .Controls.Add("forms.label.1")
    
21. 
    
22.                     With lab
    
23. 
    
24.                         '.Caption = .Name
    
25. 
    
26.                         
    
27. 
    
28.                         .Top = 10 + yy
    
29. 
    
30.                         .Left = 10 + xx
    
31. 
    
32.                         .AutoSize = False
    
33.                         
    
34.                         .Font.Size = 36        '¦r«¬¤j¤p
    
35.                         
    
36.                         .Height = .Font.Size + .Font.Size * 0.1  '½Õ¾ã°ª«×
    
37.                         
    
38.                         .Width = 100
    
39. 
    
40.                         .BackColor = &HC0FFC0
    
41. 
    
42. 
    
43. 
    
44.                         
    
45. 
    
46.                         Dim str As String
    
47. 
    
48.                         Dim strout As String
    
49. 
    
50.                         str = .Name
    
51. 
    
52.                         'strout = ""
    
53. 
    
54.                         .BorderStyle = fmBorderStyleSingle
    
55. 
    
56.                         .TextAlign = fmTextAlignCenter
    
57. 
    
58.                         .WordWrap = True
    
59. 
    
60.                         strout = .Name
    
61. 
    
62.                         .Caption = strout
    
63. 
    
64.                     End With
    
65. 
    
66.                 Next
    
67. 
    
68.             Next
    
69. 
    
70.    
    
71.     End With
    
72. 
    
73. End Sub
    

½Æ»s¥N½X