Visual Basic NET ( 3)


- 2


' :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FontDialog1.ShowColor = True

FontDialog1.ShowDialog()

End Sub

' :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

TextBox1.Font = FontDialog1.Font

TextBox1.ForeColor = FontDialog1.Color

End Sub

' :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

' , , :

Dim As Font = FontDialog1.Font

' , :

Dim As New SolidBrush(FontDialog1.Color)

Dim As Graphics = Me.CreateGraphics

.DrawString("!", , , 0, 0) '

End Sub

: FontDialog1 , . , , 12.2.3.




- -  - -  - -