锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net画图操作 vbs 画图

IT技术画图

vb.net 画图对象问题参考一下下面这段代码：
‘ 首先picturebox1 加载一张图像
FolderBrowserDialog1.Description = "选择图片文件夹导入图片"
FolderBrowserDialog1.ShowDialog()
path = FolderBrowserDialog1.SelectedPath()
If path = "" Then Return
strSrcFile = Dir(path"\*.tif")
PictureBox1.Image = Image.FromFile(path"\"strSrcFile)
’然后再在picturebox1中用graphic画图而不清空原图像
' 建立一个画图对象
Dim g As Graphics = Me.PictureBox1.CreateGraphics
‘ 定义画笔
Dim myPen As System.Drawing.Pen = New System.Drawing.Pen(Color.Blue)
’ 画出矩形框并且填充颜色（颜色保持50%vb.net画图操作的透明度vb.net画图操作，使得下面原来的图片背景能看得到）
g.DrawRectangle(myPen, New System.Drawing.Rectangle(50, 50, 30, 20))
g.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.YellowGreen)), New System.Drawing.Rectangle(50, 50, 30, 20))
' 最后释放画图对象
g.Dispose()
效果大致如下图所示：
VB.net中如何画图？分类:电脑/网络程序设计其vb.net画图操作他编程语言
问题描述:
VB6中vb.net画图操作的form1.circle (100,200),rgb(0,255,0)vb.net画图操作的语句如何在VB中使用?。?
急用啊vb.net画图操作?。。。。。。。?
解析:
VB与VB不同 。
VB已经有专门绘图的类 。
可以定义笔刷然后用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进行绘图vb.net画图操作你去查查书吧，书上挺详细的，在这说不好说，vb.net画图操作你先在项目里引用 。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视
vb.net 绘图，重绘知识继承（Inherits）控件就可以重写它的属性和方法，图标可以在paint中重绘，用gdi，工具主要在drawing和drawing2d中 。
combobox弹出的框增加图标吗？个人看法可能需要得到那个句柄，才可以重绘，但那个好像是一体的，不知道能不能弄到句柄 。
textbox可以自定义高度 。只是以行高度为单位，改变字体大小即可，没必要重写吧 。
我也自学 ， 感觉基础容易学，进阶资料少 。循序渐进也没序可循，基本是在摸索 。
都是想到什么问题，就立下一个目标，然后攻破他，结果可能是尝试几天后 ， 发现目标超出能力范围 。
晦涩是相对的，实践出真知，多动手 ， 基础就好了 。
vb.net读取txt的数据作图问题一、分析vb.net画图操作：
1，这一类随时间而变化的曲线图，通常把横轴作为时间，把纵轴作为相应的值，在这里就是密度值 。
2，点的集合就是线vb.net画图操作；一组时间、密度值，对应一个点，把点连接起来就构成vb.net画图操作了线 。
二、在VB.NET中作图，需要知道并解决几个问题vb.net画图操作：
1 ， 与VB6一样，VB.NET中默认的坐标系统，左上角为坐标原点，X轴的正向为从左向右，Y轴的正向是从上向下 。
为了使得它与数学中的坐标系统相一致，可以使用VB.NET中Graphics类的两个方法；
1、TranslateTransform----平移变换
格式：Graphics.TranslateTransform(dx,dy)
其中：dx 和 dy分别是Single数据类型
2、ScaleTransform----缩放变换
格式：Graphics.ScaleTransform(sx,sy)
其中：sx 和 sy分别是Single数据类型；
例如：为了符合数学中的一般格式，可以使用下述代码：
Graphics.ScaleTransform(1, -1)
这样就把Y轴的正方向给翻过来了 。
三、VB.NET中绘制图形
1，绘制圆或椭圆
'绘制图形的三步曲
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
'绘制一个实心圆 ， 该圆在：直线x=200，y=200，x=200 100，y=200 100所划的矩形区域内
MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)
'绘制一个空心圆 ， 该圆在：直线x=200，y=200，x=200 100 ， y=200 100所划的矩形区域内
MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)
注意：最后两个数值如果不等，就是绘制椭圆
当圆足够?。褪堑懔?。
2 ， 绘制直线
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)
'或者直接用
Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)
【vb.net画图操作 vbs 画图】vb.net画图操作的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs 画图、vb.net画图操作的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：关于怎么去查找mysql慢查询的信息

    下一篇：家用电工具直播，家用电工工具主要包括