关于 一个程序
本来在做一个简单的测试程序:两张图片框,开始一张是隐藏的。然后用timer定时在这两张图上画点。用按钮3点一次显示一张,再点一次显示另外一张,这样的一个小程序出现几个问题:① 按钮3点击后可以实现交替显示图框,但是里面所画点没有了。
② 我原先目的是在X轴方向每隔距离1画一个点,由变量d控制横坐标,为什么显示后确实那么一大堆,哪里出错了?
三个按钮,一个timer,两个图框
Dim c As Integer, d As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
If c = 1 Then
Picture1.Visible = True
Picture2.Visible = False
c = c + 1
Else
If c = 2 Then
Picture1.Visible = False
Picture2.Visible = True
c = c + 1
Else
c = 1
End If
End If
End Sub
Private Sub Form_Load()
c = 1
Timer1.Enabled = False
Picture1.Visible = True
Picture2.Visible = True
End Sub
Private Sub Timer1_Timer()
Dim a As Double, b As Double
a = Rnd * 1000
b = Rnd * 1000
Picture1.PSet (d, a)
Picture2.PSet (d, b)
d = d + 1
End Sub
有显示,只是点很小,不明显,你仔细看看左边缘
With Picture1
.Visible = True
.ScaleWidth = vbMillimeters
.DrawWidth = 2
.AutoRedraw = True
End With
设置显示风格就可以看到 ,picture2 同picture1
还有一个为什么每个横坐标内有那么多点啊?
还有为什么每个横坐标会有那么多点,我的原意是一个横坐标对应一个点的
没有,就一个,两个Picture不是一样,间隔的. 你程序都是那么写的
补充:VB , 网络编程