VB点击按钮,改变按钮的文字和字体
Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickButton1.Text = "确定"Dim mFont As Font = New Font(New FontFamily("宋体"), 11, FontStyle.Bold)Button1.Font = mFontEnd Sub
End Class
Public Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickButton1.Text = "确定"Dim mFont As Font = New Font(New FontFamily("宋体"), 11, FontStyle.Bold)Button1.Font = mFontEnd Sub
End Class