1.用vb编一个小程序
2.vb源代码中的源码在哪
3.vb.net绘制曲线图

用vb编一个小程序

       '在窗体中画一个PICTUREBOX控件，并加载——你的绘图那朵花

       '画2个COMMAND按钮

       Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像

        Dim curX As Long, curY As Long '当前打印位置

        Randomize '开始参数随机数

        curX = Rnd() * Me.ScaleWidth

        curY = Rnd() * Me.ScaleHeight

        Me.PaintPicture Picture1.Picture, curX, curY '打印到窗体

       End Sub

       Private Sub Command2_Click()

        Unload Me

       End Sub

       Private Sub Form_Load()

       Me.ScaleMode = 3 '窗体以像素为单位

       Command2.Cancel = True '按ESC时执行Command2_Click（退出运行）

       End Sub

vb源代码中的在哪

       VB软件调用有多种方法：

       1、直接调用外部文件；

       2、源码直接放入控件的绘图订单web系统源码Picture属性或Icon等属性；

       3、放入资源文件；

       4、源码其他方法（比如数据库）。绘图simpleui源码

       从你描述的源码情况来看，应该可以排除第一种方法。绘图如果是源码第二种方式，那么是绘图放在与窗体同名的frx文件中（比如Form1.Frx），这里放的源码是所有与该窗体有关的二进制数据（不单单是），不过你要想在程序外部从frx文件中提取出原可不太容易，绘图但你在程序中可以用savepicture命令很轻松的源码pipe源码把保存为新文件。如果使用资源文件存放的绘图，你可以用一些资源文件的源码分析软件取出所要的，当然也可以用VB本身的canon源码提取资源命令取出到图像控件的picture属性再用savepicture命令保存为新文件。

       当然如果你说的VB软件不是源代码，而是编译后的EXE文件，那就没办法了，yarn 源码只有破解一途了，但这个的成功率很低。

vb.net绘制曲线图

       。net  其实还是很好绘制图形的

       你可以看下 Graphics  类

            Dim d As New Bitmap(Me.Width, Me.Height)  ‘一个吧 

               Dim g As Graphics = Graphics.FromImage(d)’绘制  准备在这个是进行

       然后  就是你绘制的东西了

       线 就是   g.DrawLine()

        圆 弧度  就用  g.DrawArc(Pens.Black, New Rectangle(0, 0, , ), 0, )

         复杂的就是      g.DrawBezier()

          等  如果你用的是 VS的  编译  上面都有详细的参数说明  

     Dim d As New Bitmap(Me.Width, Me.Height)

               Dim g As Graphics = Graphics.FromImage(d)

               g.DrawArc(Pens.Black, New Rectangle(0, 0, , ), 0, )

               g.DrawLine(Pens.Red, New Point(0, 0), New Point(, ))

               g.DrawLines(Pens.Green, New Point() { New Point(0, 0), New Point(, ), New Point(, ), New Point(, ), New Point(, )})

               g.DrawBezier(Pens.Yellow, New Point(0, ), New Point(0, 0), New Point(, 0）， New Point(, ))

               g.Dispose()

               Me.BackgroundImage = d