Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
DrawInPictureBox("星期1")
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
DrawInPictureBox("亂馬客")
End Sub
Private Sub DrawInPictureBox(ByVal drawString As String)
Dim drawfont As New Font("Helvetica", 16, FontStyle.Bold) '定義字型
Dim x = 5, y = 9 '定義字體左上角位置
Dim mycolor1 As New SolidBrush(Color.FromArgb(25, 25, 25)) '定義字體顏色
Dim g As Graphics
' 根據 PictureBox 控制項建立一個 Graphics 物件並清除其內容。
g = PictureBox1.CreateGraphics()
g.Clear(Color.White)
g.DrawString(drawstring, drawfont, mycolor1, x, y)
End Sub
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line