锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net画图源程序 vb绘图控件

IT技术文本

如何用VB.NET调用excel的画图命令，即用.NET得到一组点坐标后，调用excel根据点画出曲线图并显示在VB.NET里你可以通过用VB.net控制excel，让excel生成曲线图，然后利用excelVBA将图输出，最后导入到VB.net就可以了 。
求VB.net程序源代码 绘图板、二十一点游戏、计算器、井字棋游戏、屏幕保护程序等说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮 ， 一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command3_Click()
txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command4_Click()
txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中
End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a
b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b
If txtfuhao.Text = "+" Then '运算过程
c = a + b '运算过程
ElseIf txtfuhao.Text = "-" Then '运算过程
c = a - b '运算过程
ElseIf txtfuhao.Text = "÷" Then '运算过程
【vb.net画图源程序 vb绘图控件】c = a / b '运算过程
ElseIf txtfuhao.Text = "×" Then '运算过程
c = a * b '运算过程
Else
j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")
End If
txtc.Text = c '将运算结果c输出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = "" '将空字符输入到文本框内（刷新）
txtb.Text = "" '将空字符输入到文本框内（刷新）
txtc.Text = "" '将空字符输入到文本框内（刷新）
txtfuhao.Text = "" '将空字符输入到文本框内（刷新）
End SubPrivate Sub Command7_Click()
End '结束程序
End SubPrivate Sub Form_Load()End Sub
VB.net中如何画图？VB.net与VB不同 。
VB.net已经有专门绘图的类 。
可以定义笔刷然后用Drawing类中的方法绘制 。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
如何用VB.NET编程语言实现打开CAD文件？需要解析CAD文件的构成 然后根据规则绘制 说白点CAD文件是人家公司定义的一个文件格式 里面保存的不是图形 而是图形的绘制规则 程序AutoCad打开文件的时候是读取文件里面描写的绘制规则绘制图案的 你了解了CAD文件的构成后就可以自己写代码绘制图形了（具体CAD图形构成没研究过 你可以用记事本打开一个CAD的图形交换文件.Dxf 可以看到 这个文件是由图层说明和很多点坐标组成的）
vb.net怎么绘制带坐标轴的的一次函数？最好附上源码 。1、利用公式求出Y值第一列设置表头为x，下面依次填入取值，比如x1234......第二例表头设置为y，在下面表格中填入计算公式如=2*x+1然后选中点右下角的十字型标记，拖下去 ， 和前面x数量一致 。2、然后选中数据源（即选中要进行操作的数据区域 ， 这里指XY值所在区域 。）3、执行菜单命令插入——图表——XY散点图执行命令，打开图表向导对话框选XY散点图－－选平滑线散点图－－完成最后使用图表向导在横坐标填入x值，纵坐标填入y值，生成图即可将一次函数的Y列用公式编辑出来，分别填写出当取不同的X值时得到不的函数值，选择函数值所在列，插入——图表按提示操作 。执行菜单命令执行菜单命令

推荐阅读


上一篇：用手机怎么格式化u盘，用手机怎么格式化u盘里的视频

下一篇：快手怎么只显示直播，快手怎么显示直播回放在主页