標題: [發問] 請教表單內 Label 上下左右置中問題 [打印本頁]

---

作者: mark15jill    時間: 2012-11-23 16:59     標題: 請教表單內 Label 上下左右置中問題

網路上找到有人分享 Label字串置中(上下左右)，但是該原始碼似乎只能用於單一物件。
有試著改寫，但顯示出來 僅水平置中
請問若以 迴圈來表示的話
該要如何修正比較恰當

[attach]13259[/attach]

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. '以下是某網站的 LABEL 字串置中範例
    
38. '    Dim str As String = "這裡放上您要的字"
    
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

複製代碼

---

作者: GBKEE    時間: 2012-11-26 15:45

回復 1# mark15jill
試試看

1. With lab
   
2.               .Top = 10 + yy
   
3.               .Left = 10 + xx
   
4.               .Font.Size = 12         '字型大小
   
5.               .Height = .Font.Size + .Font.Size * 0.1  '調整高度
   
6.              '  .AutoSize = False

複製代碼

---

作者: mark15jill    時間: 2012-11-26 16:13

本帖最後由 mark15jill 於 2012-11-26 16:17 編輯

回復 2# GBKEE


    GBKEE大大，謝謝。

    這方法可以，但是，測試結果 僅限於 字體大小比較小的時候適用。
    用大小 36 測試後，反而會有點往上偏。
   
[attach]13290[/attach]

---

作者: GBKEE    時間: 2012-11-26 16:32

回復 3# mark15jill
字型大於36  時可調整 0.1  試試看
   

1. .Height = .Font.Size + .Font.Size * 0.1  '調整高度

複製代碼

---

作者: mark15jill    時間: 2012-11-26 16:59

回復 4# GBKEE


    剛試著修改視窗大小，沒改沒事情，改了變成...




[attach]13291[/attach]
<發現哪邊怪怪的了嗎？>

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        '字型大小
    
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
    

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)