急求用VB做的一个简单画图软件代码。
求vb实现画图程序代码?？
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 End Function Private Sub Form_Load()Show Picture1.Scale (-10, 10)-(10, -10)Picture1.BackColor = vbWhite axis Picture1 End Su等会说😪😊_-🌲🌴。
提供一个绘制任意曲线的简单代码🌖☁️-——🤿。其他功能类似*——🐷🪴，希望能举一反三🦗😻|*🐍。在窗体中添加一个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 '当鼠标左希望你能满意🎗🌦|-🦝🦢。
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 End Function Private Sub Form_Load()Show Picture1.Scale (-10, 10)-(10, -10)Picture1.BackColor = vbWhite axis Picture1 End Su等会说😪😊_-🌲🌴。
提供一个绘制任意曲线的简单代码🌖☁️-——🤿。其他功能类似*——🐷🪴，希望能举一反三🦗😻|*🐍。在窗体中添加一个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 '当鼠标左希望你能满意🎗🌦|-🦝🦢。
方法1🎁🐉——|😖：Private Sub Form_Resize()Form1.Caption = "y=sin(x)" '修改窗体标题Const pi As Single = 3.14159 '常量声明Scale (-360, 360)-(360, -360) '定义坐标系Line (-360, 360)-(360, -360), RGB(200, 200, 255), BF '画矩形框♟👻-|🧐，作为坐标区域Line (0, -36等会说✨——😸。
VB6 画图源码可实现功能线圆矩形图形移动颜色线宽更改大小更改🐑😁——_☹️，
能用vb设计编写一个类似于Window画图板的程序,可通过鼠标绘制各种图形...
Imports System.Drawing Private Sub DrawGraphic() Me.PictureBox.BackgroundImage = New System.Drawing.Bitmap(PictureBox.Size.Width, PictureBox.Size.Height) Dim MyGraphics As System.Drawing.Graphics MyGraphics = System.Drawing.Graphics.FromImage(PictureBox.BackgroundImage) MyGrap还有呢？
建三个command控件🐘🧶_——♣，第一个画直线🏒|🦈，第二个画矩形*|-🤑🌘，第三个画圆编写以下代码*🦕__🍄🎽：Dim x1 As Integer Dim y1 As Integer Dim k As Integer Private Sub Command1_Click()k = 1 End Sub Private Sub Command2_Click()k = 2 End Sub Private Sub Command3_Click()k = 3 End Sub Private Sub 说完了🐾_💐。
如何用VB画图??？
以绘制螺栓为例🧵-🎱*。首先要画一个螺栓的基本图形🦄|🐉。将螺栓创建为块参照🏵-🦝🐼，命名为“螺栓”🐪☀️_👻*。进入块编辑器🤫|🦈🎍，开始编辑“螺栓”🍂🐽_🐌。在“块编写选项板”的“参数”一栏中点击“线性”🤩——|🍀。利用“线性”标注拉伸的起点和终点😽🏈——*🏏。在“块编写选项板”的“动作”一栏中点击“拉伸”🥈||🌔。此时光标为拾取框状态🍂_👻🌹，点选参数“距离1有帮助请点赞🐔🎎__🤿。
= level3MSChart1.ChartData = thisarrayNext xlbook.CloseSet xlbook = Nothingxlapp.QuitEnd Sub 然后在vb中点击工程-引用-Microsoft excel library🐡☀️-⭐️🦓，部件中选择Microsoft chart control ⛸|-♣🎉，d盘界面文件夹里新建等级.xls文件🌵🐲__🥈，在A1:C4 单元格中随便输入如下🌾——🎎，分别如下图最后运行代码🌷🥍——😙，即可运行如下好了吧😫🎋-🎱！
用VB在excel里画图?？
用VB在excel里画图30 想在VB里用代码操纵EXCEL在EXCEL里画图🎋*-🦉，画成X,Y散点平滑曲线图*🦇_🤿，用EXCEL录制了一段宏😛😹|🤬🐫，但放到VB里不能用☹️*——_☁️🦎，宏如下(我自己少少修改了点):DimExAppAsNewExcel.ApplicationDimExbAsEx后面会介绍🧵🦗|☁️。 想在VB里用代码操纵EXCEL在EXCEL里画图🏆🏸——_🦊，画成X,Y散点平滑曲线图😘🐄||🦧，用EXCEL录制了一段宏🐞🎽|⭐️，但放到VB里不能后面会介绍🎑——😵。
先在工程－引用里面增加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是什么🐐😄_🎍。.