生成表單時，我的代碼如下所示：
Set obj = Me.DataSetAuthor.Controls.Add("Forms.Label.1", fld)
With obj
.top = top
.Left = 5000
.Width = 20
.height = 18
.ControlTipText = "search " & heading
.caption = "U"
.FontName = "Wingdings 2"
.Font.name = "Wingdings 2"
.Font.Size = 16
End With
在我的靜態編輯器版本中，帶有字體名稱“Wingdings 2”的標題“U”給了我里面帶有“X”的小圓圈。但不是在這里，我得到了字體大小為 16 的“U”。我需要做什么才能得到 Wingdings 2 字體？
uj5u.com熱心網友回復：
您應該首先設定字體名稱，然后才是標題：
Private Sub UserForm_Initialize()
Dim obj As MSForms.Label, top As Double, Heading As String
top = Me.top: Heading = "My header"
Set obj = Me.Controls.Add("Forms.Label.1", "myLab1")
With obj
.top = top
.Left = 50 'for 5000 it may go out from the form...
.Width = 20
.Height = 18
.ControlTipText = "search " & Heading
.Font.Name = "Wingdings 2"
.Caption = "U"
.Font.Size = 16
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/324385.html