关注
分享cxmty
这个作者很懒，什么都没留下…
展开
-
图形旋转
‘在窗体上加两个picturebox控件，五个option控件放在frame框架上，一个按钮Option ExplicitConst Pi = 3.1416Dim JiaoDu As DoubleFunction b(i)Dim x As Integer, y As IntegerDim X1 As Integer, Y1 As IntegerDim X2 As Double, Y2 As D原创 2003-10-31 21:32:00 · 815 阅读 · 0 评论 -
vb基础
Dim sngdrawwidth As Single 模块级变量，保存线条宽度Private Sub Command1_Click()刷新恢复Form3.ClsEnd SubPrivate Sub form_mousedown(button As Integer, shift As Integer, x As Single, y As Single) If button = 1 T原创 2003-10-31 21:34:00 · 689 阅读 · 0 评论