制作画图程序的VB代码是什么?

``` 拜托各位拉` `
``是windows 附件 里面的 画图程序``
要用VB设计` ` `
我就是不会` 用代码
所以问问大家拉
大哥大姐 `帮忙一下拉 把代码编出来啊` `
急用啊
小弟先谢了`

第1个回答  2007-01-14
Visual Basic 给用户提供了许多操作图形的工具,同时也提供了功能强大的绘图方法,它作为 Windows环境下的可视化开发工具(RAD),完全继承了Windows界面的风格.
Visual Basic提供了线条控件,形状控件,图像框和图片框.用这些控件可完成界面装饰,动画特技和科学曲线绘制等工作.
同时VB也提供了各种画图语句用于在窗体和图片框进行画图:
Circle 方法 Line 方法 Drag 方法 Cls 方法
等等。
配合一定的Windows API函数应用,Visual Basic能完成大多数图形任务.本回答被网友采纳

用VB编写画图程序
提供一个绘制任意曲线的简单代码。其他功能类似,希望能举一反三。在窗体中添加一个Picture box,然后输入命令如下:Dim oldx As SingleDim oldy As Single Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then '当鼠标左...

VB画图(简单的直角坐标系,扇形)急
建picture1,command1,command2.代码如下。=== Option Explicit Const pi = 3.14159265358979 Private Sub Command1_Click()Picture1.Scale (-10, 10)-(10, -10)Picture1.Line (0, -10)-(0, 10), vbBlue Picture1.Line (-10, 0)-(10, 0), vbBlue End Sub Private Sub Command2_Clic...

求vb实现画图程序代码
给你个参考:'加入一个Picture控件和1个按钮 Private Sub Command1_Click()Picture1.Cls axis Picture1 For i = -9 To 9 Step 0.005 Picture1.PSet (i, MyFun(i))Next i End Sub Private Function MyFun(ByVal X As Double) '这里定义函数 Dim Y As Double Y = Sin(X)MyFun = Y...

VB ( 随机画图程序制作 ) 包括 (最大半径 最小半径 随机画10个圆 随机...
如果 picture,text1,text2dim a as single ,b as single a=val(text1) b=val(text2)dim ox as single,oy as single ox=picture1.scalewidth\/2oy = picture1.scaleheight \/2 '下面开画你可以循环多次。 dim r as singler=rnd()*(b-a)+apicture1.circle (oa,ob),r ...

vb 怎么调用系统自带的画图程序?
在窗口添加一个Command1按钮,输入如下代码 Private Sub Command1_Click()On Error Resume Next CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "颜色"CommonDialog1.ShowColor If Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End If End Sub ...

VB 怎么实现Picture的画图
Dim x As Integer Private Sub Form_Load()Timer1.Enabled = True Timer1.Interval = 1000 x = 750 End Sub Private Sub Timer1_Timer()Picture1.Cls Picture1.Circle (x, 1000), 750 x = x + 100 If x + 750 >= Picture1.ScaleWidth Then x = 750 End Sub ...

请教:画图程序中直线的画法,用vb怎样写?谢谢。
直线只能用一段线段表示 画法:object.Line(x1,y1)-(x2,y2)张志晨:在什么对象上画.画线(起点坐标)-(终点坐标)

VB问题,在什么控件内可以画图,线的宽度和颜色如何控制?
下面是一个在窗体内画线的例子:Private Sub Form_Click()Me.DrawWidth = 1 '设置宽度(其他宽度下线型均为实线)For i = 0 To 6 Me.DrawStyle = i '设置线条类型 Me.Line (1000 * i + 100, 100)-(1000 * i + 100, 6000), vbRed '线的起点、终点和颜色 Next i End Sub 下面是...

...画图,我要用VB语言实现新建CAD图形,并画出图形 具体代码是什么...
先在 工程-引用 里面增加 aucocad类型库然后写代码如下:Private Sub Command1_Click()Dim p1(2) As Double, p2(2) As Double, p3(2) As Double Dim acad As AcadApplication Dim adoc As AcadDocument Dim aline As acadline Dim dima As AcadDimAligned Set acad = CreateObject("autocad....

如何用VB画图,如将Y=5+2X这个方程画在窗体上
放一个picture控件,假定名字叫Picture1,则有如下示例代码:Dim x As Single Dim y As Single Picture1.Scale (-10, 25)-(10, -25)Picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)Picture1.Line (0, 25)-(0, -25), RGB(0, 0, 255)For x = -10 To 10 Step 0.0001 ...

相似回答