Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load GPath.AddString("电脑", _ New FontFamily("幼圆"), _ FontStyle.Bold + FontStyle.Italic, _ 120.0F, _ New PointF(30.0F, 20.0F), _ New StringFormat) '添加一个字符路径 pen = New Pen(Color.Black) '构造画笔 pen.DashPattern = Dpattern '自定义的短划线和空白区域 pen.DashStyle = DashStyle.Custom '此属性的 DashStyle.Custom 值指定:由 DashPattern 属性定义的短划线和空白区域的自定义图案 End Sub End Class 在WINXP+SP1+VS.NET2003编译通过 |
正在阅读:VB.NET实现PhotoShop的流动选取框VB.NET实现PhotoShop的流动选取框
2004-04-08 10:11
出处:CSDN
责任编辑:sdq
键盘也能翻页,试试“← →”键