2012年7月3日
GDI 虚线画笔
摘要： Dim dashValues As Single() = {1, 6} Dim pen1 As New Pen(Brushes.Red, 1) pen1.DashStyle = Drawing2D.DashStyle.Dot pen1.DashPattern = dashValue 阅读全文
posted @ 2012-07-03 03:28 rf8862 阅读(154) 评论(0) 推荐(0)
2012年6月19日
VB.NET阻止程序重复启动
摘要： 以下两种方法来自qq群,未经测试: 方法一: If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then MessageBox.Show 阅读全文
posted @ 2012-06-19 15:10 rf8862 阅读(859) 评论(0) 推荐(0)