我的第一個程式Hello VB 2010 !
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
TextBox1.Text = "Hello VB 2010!!!"
End Sub
End Class
加點花樣
請在Hello VB 2010程式上增加幾個按鈕,以便調整框內文字對齊方式及字型顏色
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.TextAlign = HorizontalAlignment.Left
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.TextAlign = HorizontalAlignment.Center
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.TextAlign = HorizontalAlignment.Right
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.ForeColor = Color.Red
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.ForeColor = Color.Green
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.ForeColor = Color.Blue
End Sub
End Class