vb.net画长方体 用vb编程求长方形面积

怎样用VB画出实体的三维立体图出来，比如说一个球和一个长方体，谢谢

这在其他语言中很好办（尤其是C++），在VB中就不太好办了，你尝试着用一下OpenGL,网上有资料

相关问答

Q1: VB里面怎么画矩形？

使用Line方法，向Form，PictureBox这些控件都支持这个方法。

语法:

object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

如：

Me.Line (100,100)-(600,600), vbred, bf

加B这个参数就是矩形，加F就是用就边框颜色填充

补充：

Color参数就是边框颜色，如果省略，就用对象的ForeColor（前景色，就是字体的颜色） 属性值

Q2: 谁知道怎么用VB.NET编写一个算长方形面积的程序?

dim a as single=...'自己输入长方形vb.net画长方体的长

dim b as single=...'自己输入长方形vb.net画长方体的宽

dim c as single=a*b'计算面积

textbox1.text=c'显示面积

Q3: 求用VB图形设计实现十朵花、十个长方体和正方体... 谢谢啦～

Private Sub Command1_Click()

Const π = 3.14159127

For i = 0 To 9

For j = 0 To 360 Step 30

Me.Circle (Sin(j * (π / 180)) * 150 + 800 * i + 500, Cos(-j * (π / 180)) * 150 + 500), 100, vbRed

Next

Next

End Sub

Private Sub Command2_Click()

For i = 0 To 9

Line (i * 800 + 250, 1000)-(i * 800 + 750, 1500), vbMagenta, B

Next

End Sub

Private Sub Command3_Click()

For i = 0 To 9

Line (i * 800 + 250, 1700)-(i * 800 + 750, 1900), vbBlue, B

Next

End Sub

Private Sub Command4_Click()

Cls

End Sub

Private Sub Form_Load()

Move 0, 0, 9675, 4300

Me.AutoRedraw = True

Command1.Move 8160, 480, 1215, 495

Command2.Move 8160, 1080, 1215, 495

Command3.Move 8160, 1680, 1215, 495

Command4.Move 8160, 2280, 1215, 495

End Sub

vb.net画长方体的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用vb编程求长方形面积、vb.net画长方体的信息别忘了在本站进行查找喔。