以下是引用feifei998在2015/9/3 19:18:00的发言:
字体颜色呢?能在一个弹出窗口内一起解决不!
不能。
Dim Label1 As WinForm.Label = e.Form.Controls("Label1")
Dim font As New Windows.forms.FontDialog
If font.showdialog = DialogResult.OK Then
Label1.Font = font.font
End If
Dim color As New Windows.forms.ColorDialog
If color.showdialog = DialogResult.OK Then
Label1.ForeColor = color.Color
End If