PaintBack(g, SystemColors.ControlLightLight)
End Sub
''''绘制背景色
Private Sub PaintBack(ByVal g As Graphics, ByVal c As Color)
''''填充时采用:单色画刷,相对与(0,0)坐标(3,3)的位置,大小为宽-6,高-6
g.FillRectangle(New SolidBrush(c), 3, 3, Width - 6, Height - 6)
''''写文本
Private Sub WriteText(ByVal g As Graphics)
''''计算文本的位置
Dim x As Integer = 0
Dim y As Integer = 0
''''size用宽高有序对表示矩形区域
Dim s As Size = g.MeasureString(Text, Font).ToSize()
<< 上一页 [11] [12] [13] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18