www.wfdy.net > vB绘制图像

vB绘制图像

这种绘图问题来找我嘛……(分好寒酸。。) 传说中的GDI+隆重出场-… GDI+是最快的。可以超过VB任何绘图语句 1.建立一个模块,复制下面代码: Option Explicit Public Type GdiplusStartupInput GdiplusVersion As Long DebugEventCallback As Lon...

1、先定义坐标系,即XY轴。 2、根据具体需要,调用内部函数,或自定义函数,绘制函数图像。 3、代码供参考: Me.AutoRedraw = True Me.Width = 8000: Me.Height = 6000 Me.Scale (-10, 2)-(10, -2) Line (0, -2)-(0, 2) Line (-20, 0)-(20, 0) F...

数学中常用的就是描点法;通过X计算出Y,输出该点,然后点与点之间可以连接直线;VB可以在Form或者PictureBox里绘制点和直线;命令格式如下: 1,绘制点; 对象名.Pset (x,y) 2,绘制直线; 对象名.Line (x1,y1) - (x2,y2) 说明:(x,y)、(x1,y1)...

可以!以下代码在PictureBox中画出1个矩形和一个圆 Option ExplicitPrivate Sub Command1_Click() '画一个矩形 Picture1.Line (10, 10)-(100, 60), vbRed, BEnd SubPrivate Sub Command2_Click() '画一个圆:圆心在(80, 50),半径为50 Picture1....

1。建立坐标系 用line画 x y轴2 。计算函数的X ,Y值3。用pset画出x,y不同的点

Private Sub Command1_Click() a = Text1.Text b = Text2.Text c = Text3.Text Dim x As Double, y As Double Picture1.ScaleMode = 3 Picture1.Scale (-150, 150)-(150, -150) Picture1.CurrentX = 1 Picture1.CurrentY = -1 For x = -140 To 1...

Private Sub Form_Click() '点击窗体开始运行Dim xx As Single, yy As SingleMe.AutoRedraw = TrueMe.Scale (-50, 1)-(50, -1)Me.Line (-50, 0)-(50, 0), vbRedMe.Line (0, 1)-(0, -1), vbRedFor xx = -50 To 50 If xx 0 Then yy = 1 / xx Me.PS...

提问1: 在Form1上添加一个ComboBox,添加窗体Form2,Form2上放图片框Picture1做显示图片的, 放4个Picture2里存储图片用,分别加载A,B,C,D四张图片,Picture2可以隐藏 Form1里放下边的代码: Private Sub Form_Load() Combo1.AddItem "A" Co...

Option Explicit '变量要先定义后使用 'FunY(X) 函数,给定 X 计算 FunY(X) 的值 Private Function FunY(X#) As Double Dim Y# '计算 y = x - 0.09340062 * sin(x) FunY = X - 0.09340062 * Sin(X) End Function Private Sub 画线() '绘制方程的...

第一步,新建一个工程,新建一个Form1,在上面添加一个picture控件和一个command控件,然后选中此控件,右击"复制",在窗体空白处右击"粘贴",在弹出的对话框中选择"是",创建了一个Command控件数组,复制,使窗体上总共出现7个Command控件,然后复制代码: ...

网站地图

All rights reserved Powered by www.wfdy.net

copyright ©right 2010-2021。
www.wfdy.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com