锐客网

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

vb.net窗体上画线 vb中窗体

IT技术Ftpclient

如何让用户在一个窗体或控件上可以随意画直线ACCESS窗体主要是用来开发数据库应用系统vb.net窗体上画线的，如果vb.net窗体上画线你想在窗体上画线条的确不太给力 。在VB窗体里划线以坐标为参数使用LINE方法非常方便，但是在OFFICE，ACCESS里的VBA
LINE方法(当然需要使用坐标参数 ， 联机说明有详细介绍）只能应用于报表而不能应用于窗体 。
若要在ACCESS窗体里面划线，我建议你使用下列两种办法：
1）如果你VB比较熟练，可用VB设计一个带LINE方法的自定义ActiveX控件，然后再在ACCESS
【vb.net窗体上画线 vb中窗体】VBA中引用该控件，之后将你的自定义控件添加到ACCESS窗体里面，你就可以使用那个ActiveX控件的LINE方法在该控件里绘图划线了；
2）使用ACCESS提供的内置直线控件（Line） 。
首先在ACCESS窗体里放置若干个Line控件（要用多少个就放置多少个）将Visible属性设置为False,给不同用途的Line控件分别命名为：类型加尾号，例如：X轴标尺1，X轴标尺2,...
斜线1，斜线2.....
直线1，直线2,......等等
以便以后可集中而不必为每一个控件壹壹设置属性以提高效率 ， 其它属性暂时不理 。
使用VBA语言设置Line控件的各种属性在窗体里的特定位置画线，例如：
画斜线
with
斜线1
.Top=300
‘单位：缇
相当于一个像素
567缇=1厘米
.LineSlant=False
'
确定线条左斜还是右斜
.Left=200
.width=800
.height=400
.visible=true
end
with
画水平线
with
直线2
.Top=300
.Left=900
.width=350
.height=0
.visible=true
end
with
画垂直线
with
直线3
.Top=300
.Left=900
.width=0
.height=300
.visible=true
end
with
直线的粗细
用BorderWidth属性设置（取值范围0-6，单位为磅）
直线的颜色
用Bordercolor属性设置（例如取
vbBlue,vbGreen,vbRed
等等）
特别提醒一下，除了使用直线控件外，其实你还可以使用其它类型的控件来画图，这要看你的想象力了 。
只要你正确设置各种画线控件的绝对和相对位置及各种属性值，充分利用VBA的循环、判断等语句相信你能够在ACCESS窗体里画出各种效果相当不错的图形，如果配合Timer甚至还能绘出动画效果vb.net窗体上画线！
具体的VBA实现代码这里就不写了，祝你成功！
如何通过vb.net WinForm窗体上画线条或弧线，让用户可以用鼠标捕捉（选中）已画的线条 。代码写起来可能比较麻烦vb.net窗体上画线 ， 给vb.net窗体上画线你个思路 ， 就是用GraphicsPath来绘制，然后通过绘制目标vb.net窗体上画线的鼠标移动事件来获取当前鼠标在绘制目标中的实际位置 ， 再通过GraphicsPath的IsVisible()方法来确认鼠标是否包含在GraphicsPath中 。
DrawLine直线比较容易处理，只要得到Line的坐标点 ， 然后比较当前鼠标坐标就好 。
在VB NET中，在Form_Load中创建graphics类，并绘制直线 ， 为什么执行程序后发现直线绘制不出来？1. 创建一个Graphics对象实例 。
绘制图形必须创建Graphics对象 。如果是在窗体上绘图，要使用下列代码创建Graphics对象；
Dim MyGraphics As Graphics = Me.CreateGraphics
如果是在PictrueBox里绘图 ， 要使用下列代码创建Graphics对象；
Dim MyGraphics As Graphics = PictureBox1.CreateGraphics
2. 定义一个Brush对象，用来填充图形(如果你需要填充的话) 。
如果填充封闭曲线或者多边形，必须创建Brush对象（或者Brush类的继承类对象），用来确定填充的颜色 。例如下面的代码 ， 创建了一个填充红色的画刷对象 。在最后的括号里，用Color结构指定的枚举值 ， 确定画刷的颜色 。限于篇幅有关Color结构这里不展开，可能在后续博文里介绍 。

推荐阅读


上一篇：flutter容器文本对齐方式，flutter容器化

下一篇：密钥对生成html5，密钥对生成失败 130012