编写命令按钮Command单击事件如下-vb6自学ppt
编写命令按钮（Command1）单击事件如下： Private Sub Command1_Click() Const PI = 3.14159 Dim a as Double Picture1.Cls Picture1.BackColor = vbWhite ‘设置图形框的背景颜色为白色Picture1.ScaleMode = 3 Picture1.Scale (-7, 3)-(7, -3) ‘自定义坐标系Picture1.DrawWidth = 1 Picture1.Line (-7, 0)-(7, 0), vbBlue ‘绘制X-轴Picture1.Line (6.5, 0.5)-(7, 0), vbBlue ‘绘制X-轴的箭头Picture1.Line -(6.5, -0.5), vbBlue Picture1.ForeColor = vbBlue Picture1.Print "X" Picture1.Line (0, 7)-(0, -7), vbBlue ‘绘制Y-轴Picture1.Line (0.5, 2.5)-(0, 3), vbBlue ‘绘制Y-轴的箭头Picture1.Line -(-0.5, 2.5), vbBlue Picture1.ForeColor = vbBlue Picture1.Print "Y" Picture1.CurrentX = 0.5 ‘设置原点字母的输出位置Picture1.CurrentY = -0.5 Picture1.Print "0" For a = -2 * PI To 2 * PI Step PI / 6000 ‘开始绘制正弦曲线Picture1.PSet (a, Sin(a) * 3), vbRed Next a End Sub
文件大小：3.47MB
评论区