返回列表 上一主題 發帖

[發問] 請教表單內 Label 上下左右置中問題

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-11-23 16:59 | 只看該作者

[發問] 請教表單內 Label 上下左右置中問題

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

  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


  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

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
3#
發表於 2012-11-26 16:13 | 只看該作者
本帖最後由 mark15jill 於 2012-11-26 16:17 編輯

回復 2# GBKEE


    GBKEE大大，謝謝。

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-11-26 16:32 | 只看該作者
回復 3# mark15jill
字型大於36  時可調整 0.1  試試看
   
  1. .Height = .Font.Size + .Font.Size * 0.1  '調整高度
複製代碼

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
5#
發表於 2012-11-26 16:59 | 只看該作者
回復 4# GBKEE


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





<發現哪邊怪怪的了嗎？>
  1. Private Sub UserForm_Initialize()

  3.     Dim lab As MSForms.Label

  5.     Dim xx As Integer

  7.     Dim yy As Integer

  9.    
  10.     With UserForm1

  12.         .Height = 700

  14.         .Width = 1400

  16.             For yy = 1 To 700 Step 100

  18.                 For xx = 1 To 1400 Step 200

  20.                     Set lab = .Controls.Add("forms.label.1")

  22.                     With lab

  24.                         '.Caption = .Name

  26.                         

  28.                         .Top = 10 + yy

  30.                         .Left = 10 + xx

  32.                         .AutoSize = False
  33.                         
  34.                         .Font.Size = 36        '字型大小
  35.                         
  36.                         .Height = .Font.Size + .Font.Size * 0.1  '調整高度
  37.                         
  38.                         .Width = 100

  40.                         .BackColor = &HC0FFC0



  44.                         

  46.                         Dim str As String

  48.                         Dim strout As String

  50.                         str = .Name

  52.                         'strout = ""

  54.                         .BorderStyle = fmBorderStyleSingle

  56.                         .TextAlign = fmTextAlignCenter

  58.                         .WordWrap = True

  60.                         strout = .Name

  62.                         .Caption = strout

  64.                     End With

  66.                 Next

  68.             Next

  70.    
  71.     End With

  73. End Sub
複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題