這是我嘗試過但不起作用的代碼。.
Dim lab As New Label
lab.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, 0)
uj5u.com熱心網友回復：
嗯，它確實有效。您是否將其添加到表單中？用Form.Controls.Add(Control)
你說“一行”，所以...
Me.Controls.Add(New Label With {.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, 0), .Location = New Point(10, 10), .Text = "abcDEF"})
但這里更具可讀性
Dim lab As New Label()
lab.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, 0)
lab.Location = New Point(10, 10)
lab.Text = "abcDEF"
Me.Controls.Add(lab)
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/314917.html
標籤：网络