vb.6.0爱好者 - 编程论坛

#2

a5158684162013-10-26 08:35

我也是新手

#3

snrtjat2013-10-26 18:25

共同探讨.

#4

回头一笑2017-10-17 11:38

Private Sub Command2_Click()
Picture1.Scale (0, 0)-(800, 400)
'Picture1.BorderStrle = 6
For x = 50 To 800

  Picture1.Line (x * 50, 0)-(x * 50, 400)
Next x

For y = 50 To 400
  请问各位老师：出现提示：BorderStrle只能=1，不能=6.为什么？能否为我解惑？
  Picture1.Line (0, y * 50)-(800, y * 50)
Next y

End Sub

Private Sub Command3_Click()
End


End Sub

Private Sub Picture1mousemove(x As Single, y As Single)
Picture1.Caption = "当前鼠标坐标为：x" & x & "y" & y
End Sub

#5

回头一笑2017-10-17 15:21

再补：现在直线都画不出来了，不知为什么。求救版主，及各位大神！

#6

回头一笑2017-10-19 20:30

Private Sub Command2_Click()
Dim x As Integer
Dim y As Integer
Picture1.Scale (0, 0)-(800, 396)
For x = 100 To 8
Picture1.Line (x * 100, 0)-(0, 396), vbRed
Next x
For y = 99 To 4
Picture1.Line (0, y * 99)-(800, y * 99), vbRed
Next y
End Sub
以上小程序预先在picture1存入一张画，800是它的横的像素，396是它竖的像素，本来是可以划线打格的，现在却不能，我把它删了，重写，瞬间出现了横竖线，但不成比例。请问各位老师，为什么，能否告知我怎么办。深致谢意！