【文件属性】:
文件名称:vb 沙丘图案 图片框中显示
文件大小:2KB
文件格式:FRM
更新时间:2013-04-06 04:11:20
vb 沙丘 图案
vb 沙丘图案
点击按钮,图片框中显示
Dim xx, yy, px, py, al, l, a
Dim dx
Picture1.Scale (0, 0)-(640, 200)
dx = 640
For py = 0 To dx Step 5
al = 2 * PI * (py - 20) / 360
l = PI * Sin(al)
For a = 0 To 6 * PI Step PI / 8
xx = dx / (6 * PI) * a
yy = py + 18 * Sin(a + l)
If a = 0 Then Picture1.PSet (xx, yy / 2)
Picture1.Line -(xx, yy / 2), QBColor(6)
Next a
Next py
网友评论
- 很好的程序,有用