作者MOONRAKER (㊣无入，故不自得 :()
看板Visual_Basic
标题Re: [VB6 ] 新手不知道哪里出问题
时间Sat Dec 6 00:18:24 2008
因为你显然是找到一本把BASICA绘图的书拿来前後加上sub...end sub
就直接改成for VB的上古烂书
本人特地写一个比较近代的VB6绘图范例给你看
Private Sub Form_Activate()
Dim i As Integer
Dim cx As Double, cy As Double
Dim rx As Double, ry As Double
Dim RR As Double, PR As Double
cx = 250: cy = 150
RR = 120: PR = 3
Me.ScaleMode = vbPixels ' 这一行一定要设，不然画出来的图大小会变成1/15
For i = 0 To 360 Step 5
rx = Cos(rad(i * 1#)) * RR + cx
ry = Sin(rad(i * 1#)) * RR + cy
Me.Circle (rx, ry), PR
Next i
End Sub
Function rad(d As Double) As Double
rad = d * 3.14159265 / 180
End Function
从你给的范例来看，你的书真是太rancid了
gosub用得一点意义都没有，整个sub完全可以放到前面没有任何差别
完全就是BASICA思维，连QB都构不上
现在还被那种招摇撞骗的书骗到实在是太惨了
看过以上范例以後请把那本烂书丢了，弄本比较近代的书来看吧
VB6老归老，也不表示可以用烂书来学
--
BATCH 03 : 买张床 - 切达大侠 - 伐木人之歌 -
http://tinyurl.com/3zpyx5
[B4准备中]: 讴歌金钱(7/02) - 单车超人(7/23) -
http://tinyurl.com/66v6vq
[ 番外篇 ]: 包租婆也有过当罗莉的时候(7/17) -
http://tinyurl.com/6j4ale
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
■ 蒙帝派松正体中文计画 ■ Spam-a-lot and enjoy the pythonesque delight!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ https://www.youtube.com/user/JamesBondXD▄▄
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.208.50