怎样在VB中画立体图形
来源:互联网 发布:机器人qq聊天软件 编辑:程序博客网 时间:2024/06/10 05:10
窗体布局:
控件 | 屬 性 | 值 |
timer1 | enabled | flase |
interval | 1 | |
Command1 | caption | 画图 |
Command2 | caption | 保存 |
CommonDialog1 ,各屬性不用改变。
代码:
Dim i As Integer
Dim a As Integer
Dim b As Single
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Me.AutoRedraw = False
CommonDialog1.Filter = "bitmap(*.bmp)|*.bmp"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
SavePicture Me.Image, CommonDialog1.FileName
End If
End Sub
Private Sub Form_Load()
i = 0
a = 0
b = 0
End Sub
Private Sub Timer1_Timer()
i = i + 1
a = a + 5
Line (4000, 1800 + a)-(7000, 1800 + a), RGB(0, Abs(255 - a / 10), 0)
Line (4000 + a, 1800 - a)-(7000 + a, 1800 - a), RGB(0, Abs(255 - a / 10), 0)
Line (7000 + a, 1800 - a)-(7000 + a, 3800 - a), RGB(0, Abs(255 - a / 10), 0)
If a > 2000 Then Timer1.Enabled = False
Circle (2000, 6000 - a), 1500, RGB(0, 0, Abs(255 - a / 10)), , , 0.4
Circle (9000, 6000 - a), 1500 - a / 2.5, RGB(Abs(255 - a / 10), 0, 0), , , 0.4
For b = 0 To 40 Step 0.1
PSet (3000 + 100 * b, 5000 - 300 * Sin(b)), RGB(Abs(255 - a / 10), Abs(255 - a / 10), 0)
Next
End Sub
- 怎样在VB中画立体图形
- java 画立体图形
- 在ChemDraw中怎样绘制分子立体结构
- 怎样在VB中控制WORD
- 怎样在VB中调用Word程序
- 怎样在VB中控制Word
- 怎样在VB中控制WORD
- 在VB中怎样操作注册表.
- 怎样在VB中控制WORD
- [VB.NET]vb中定义数组,在vb.net怎样转?
- 怎样在一个对话框中实现预览图形文件功能
- 怎样在Xcode 6中使用矢量图形
- 怎样在VB中设计背景动画图案
- 怎样在VB中控制Word(一)
- 在VB中怎样调用外部文件中的代码
- 怎样在VB中设计背景动画图案
- [转载]怎样在VB 中调用Excel 2003 中的数据?
- 怎样在VB中声明和使用API函数~
- XML的热点问题
- 用XML实现编程语言间的互译
- 转载:TThread类剖析
- 公开近百个国外共享软件发布地址
- 在VB中用Paintpicture方法进行图形处理
- 怎样在VB中画立体图形
- 怎样在VB中设计背景动画图案
- 不想作程序员,但是想做软件企业的老板
- 老掉牙的 全排列问题
- C#轻松解决世纪迷题
- .NET中用于处理XML的方法和相关类
- 从COM组件调用.NET组件编程实战
- 轻而易举拥有xp风格的界面
- 如何对ListView的项进行排序