在一行中，我需要更改字体类型并在字体下划线

Question

这是我试过但不起作用的代码。 .

Dim lab As New Label
lab.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, 0)

Answer 1

好吧，它确实有效。您是否将其添加到表格中？使用 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)

在一行中，我需要更改字体类型并在字体下划线

In one line I need to change the font type and also underline the font

vb.net