- 博客(3)
- 收藏
- 关注
RSS订阅原创 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
713
原创 图形旋转
‘在窗体上加两个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
832
原创 vb基础（打印问题）
Private Sub Command1_Click()Dim beginpage, endpage, numcopies, orientation, i CommonDialog1.CancelError = True On Error GoTo errhandler CommonDialog1.ShowPrinter beginpage = CommonDialog1.FromPage end
2003-08-18 09:37:00
842
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人