当前位置: 源码素材网 » VB源码 » 图形处理 » 详情页

VB演示如何绘制长方体几何图形

VB6.0演示如何绘制长方体几何图形,并计算长方形的面积,用户可输入几何长方体的长和宽后,自动绘制生成长方形,并计算出面积,运行视图效果如截图所示:
  Private Sub Command1_Click()
  Dim a As Single, b As Single, c As Single, v As Single
  a = Text1 '取长方体各边长
  b = Text2
  c = Text3
  v = a * b * c '计算体积
  Text4 = v '计算结果在文本框中显示
  P1.CurrentX = 850 '设置当前坐标
  P1.CurrentY = 500
  P1.FontItalic = True
  P1.Print "v="; v '输出
  End Sub
  
  Private Sub Form_Activate()
  P1.CurrentX = 250 '图片框坐标系内的指定点
  P1.CurrentY = 500
  P1.Print "c" '输出
  P1.CurrentX = 140 '图片框坐标系内的指定点
  P1.CurrentY = 1500
  P1.Print "b" '输出
  P1.CurrentX = 800 '图片框坐标系内的指定点
  P1.CurrentY = 2500
  P1.Print "a" '输出
  End Sub

  • 相关标签:图形绘制
  • 调试环境:VB6.0
  • 文件大小:2.32K
  • 资源评级:
  • 更新时间:2020-03-24
  • 相关链接:暂无演示

源码测试截图:

VB演示如何绘制长方体几何图形运行截图

相似源码:图形绘制 VB源码下载:VB演示如何绘制长方体几何图形 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“VB演示如何绘制长方体几何图形”源代码侵犯了您的权益,请尽快告诉我们。