【呼死你源码下载】【彩色图源码】【珠峰架构源码】vb源码绘图

时间:2024-11-28 17:16:01 分类:网站源码乱码解决 来源:阅读源码价值分析

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

vb源码绘图

用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、源码直接放入控件的绘图呼死你源码下载Picture属性或Icon等属性;

       3、放入资源文件;

       4、源码其他方法(比如数据库)。绘图彩色图源码

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

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

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