说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何在VB中实现绘图区的大十字光标

HTML文档下载 WORD文档下载 PDF文档下载
VB如何在VB中实现绘图区的大十字光标
作者:吴鹏炜
有时,我们需要用VB快速开发一个试验数据绘图处理程序,将绘图控件内的鼠标光标改变成与AutoCAD软件中使用的大十字光标的形式,将可以比普通的箭头光标达到更好的效果。那么我们如何实现这样的大十字光标呢?
---- 首先,我们明确一下要达到的效果,假若我们在一个Picture控件中绘图,那么,鼠标移动到这个控件上时,鼠标光标立即改变为大十字形状,光标中的横线从控件的左边界到右边界,竖线从控件的上边界到下边界,即大十字光标将绘图控件分割为四个象限。当鼠标移动到控件外时,光标则又恢复成原来的形式。

---- 要实现这样的光标,得我们自己通过画线的方式实现。如鼠标在绘图控件内,先在鼠标的当前位置画上光标的横线和竖线;当鼠标位置移动,先擦除原先的光标横线和竖线,然后再在新的位置画光标的横线和竖线,那么我们就要响应绘图控件的MouseMove事件。当然,绘图控件内无论有什么内容,我们擦除光标线和重画光标线时都不能破坏原先的内容,因此我们要将绘图控件的DrawMode设置为vbXorPen(异或方式),绘制光标的横线和竖线时,用异或的方式将横线和竖线的象素点颜色设为光标的颜色和原先的象素点色彩的异或值,再用异或的方式在同样的位置绘制一遍竖线和横线,横线和竖线上的象素点再一次和光标颜色进行异或操作,就擦除了光标的横线和竖线,且又恢复了绘图控件内原先的内容。

---- 我们还得保证鼠标移动到绘图控件内时,普通的鼠标光标消失,只有绘制的大十字光标出现,因此还应该设置绘图控件的MousePointer属性为vbCuntom,即用户自定义。绘图控件的MousePointer属性设置为vbCustom后,其MouseIcon属性中应装入相应的用户自定义图形,因为我们希望绘图控件内只有我们绘制的光标,而没有其它的光标,故应该装入一个空的(透明的)光标图形。可以任找一个光标文件,通过任意一个资源编辑器对其进行编辑,用透明的方式填充整个光标图形,保存成我们所需的NoIcon.cur即可。

---- 通过以上的关键设置和操作,我们就可以实现大十字光标了。利用异或方式进行绘图,我们还可以实现一般绘图软件中常有的“橡皮筋”效果,即用鼠标定义一个点后,动态拖动鼠标来定义另外一个点,动态拖动鼠标过程中,所要绘的图形也动态相应变化。

---- 以下我们通过一个示例来完整实现绘图控件中的大十字光标,还演示如何实现用“橡皮筋”效果来画矩形:

---- 在VB中新建一个标准EXE工程,在Form1中加入一个Picture控件,其Name设为PicDraw,可以装入一个图象文件,PicDraw的大小和其中的图象大小基本上覆盖大部分的Form1即可。实现代码如下所示。此程序在VB5.0中运行通过。

Option Explicit
Private Old_X As Single
Private Old_Y As Single
Private isMouseDown As Boolean
Private Box_X0 As Single
Private Box_Y0 As Single
Private Box_X1 As Single
Private Box_Y1 As Single
Private PenColor As Long
Private CrossColor As Long

Private Sub Form_Load()
CrossColor = QBColor(8)
PenColor = QBColor(15)
picDraw.DrawMode = vbXorPen
picDraw.MouseIcon = LoadPicture
(App.Path & "\no.cur")
picDraw.MousePointer = vbCustom
isMouseDown = False
Box_X0 = Box_X1 = Box_Y0 = Box_Y1 = 0
End Sub

Private Sub picDraw_MouseDown
(Button As Integer,
Shift As Integer, X As Single, Y As Single)
If isMouseDown = True Then
'先前已经用鼠标定义了一个点
Box_X1 = X
Box_Y1 = Y
isMouseDown = False
picDraw.DrawMode = vbCopyPen
picDraw.Line (Box_X0, Box_Y0)-
(Box_X1, Box_Y1),
PenColor, B
picDraw.DrawMode = vbXorPen
'画一个光标
picDraw.Line (0, Y)-(picDraw.ScaleWidth, Y),
CrossColor
picDraw.Line (X, 0)-(X, picDraw.ScaleHeight),
CrossColor
Old_X = X
Old_Y = Y
Else
'定义了一个矩形的第一个顶点,则擦除光标
picDraw.Line (0, Y)-(picDraw.ScaleWidth, Y),
CrossColor
picDraw.Line (X, 0)-(X, picDraw.ScaleHeight),
CrossColor
Box_X0 = X
Box_Y0 = Y
isMouseDown = True
End If
End Sub

Private Sub picDraw_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single)
If isMouseDown = True Then
'拖动鼠标来定义矩形的另外一个顶点,
此时擦除前一个矩形,绘制新的矩形
picDraw.Line (Box_X0, Box_Y0)-(Old_X, Old_Y),
PenColor, B
picDraw.Line (Box_X0, Box_Y0)-(X, Y), PenColor, B
Else
'消除旧光标线
picDraw.Line (0, Old_Y)-(picDraw.ScaleWidth, Old_Y),
CrossColor
picDraw.Line (Old_X, 0)-(Old_X, picDraw.ScaleHeight),
CrossColor
'画新的光标线
picDraw.Line (0, Y)-(picDraw.ScaleWidth, Y),
CrossColor
picDraw.Line (X, 0)-(X, picDraw.ScaleHeight),
CrossColor
End If
Old_X = X
Old_Y = Y
End Sub

农行网上银行支付接口:商户代理卖方挂单成交功能测试 Windows Phone 7 实现简单的GPS定位器 C#如何删除string中的Html标记 ImageStone图像处理C++类库 jQuery Mobile 开发入门手册--概述 jQuery Mobile 开发入门手册--技术理论 jQuery Mobile 开发入门手册--组件 SMTP/POP3收发邮件的C#类库SmtPop.Net 用C#编写的Telnet开源类库 Visual Studio C#创建Windows服务(Windows Service) C#取得Windows服务列表 C#编程自动安装Windows服务 C#安装/删除 .NET Windows服务 C#启动、停止、重启Windows服务 jQuery实现Ajax提交form表单的简单方法 字符串String与枚举Enum之间的转换[C#] Javascript统计DOM元素里文字的行数 C#从Web网站下载文件 C#得到区域名称列表 C#合并多个PrintDocument WpWidgetLibrary - Windows Phone的HTML部件库(Widgets) 让你不再害怕C语言指针 C语言概述-C语言教程 Turbo C 2.0集成开发环境的使用(上)-C语言教程 Turbo C 2.0集成开发环境的使用(下)-C语言教程 程序的灵魂—算法-C语言教程 数据类型、运算符与表达式(上)-C语言教程 数据类型、运算符与表达式(下)-C语言教程 最简单的C语言顺序程序设计-C语言教程 分支结构程序-C语言教程 循环控制-C语言教程 关于Datalist的弱弱问题:怎样显示全部数据? 深圳哪儿有分期付款的笔记本卖啊,知道的进来,散分 抢在编译器之前!!!! EventArgs e做何解? 如何读取Excel表中的数据 知道一个文件名d:/1.bmp,想复制另一文件d:/2.bmp,怎么写?在线等候 GIF动画图片 我的一个dbgrid的连到一个datasource名是dtds,然后dtds的dataset是一个adoquery,现在当我在dbgrid上选择了几个记录后,如何把所有被选择 如何在Delphi6 程序中,把数据库(BDE)连接的用户名、密码写进程序中? 汉字组成的字符串转成char[]数组,再组合起来就出现乱码 WEB控件 textbox控件的问题,我从来没有遇到过,真奇怪? 求救!在线等 向高手求救,有关java中文的问题!!! 怎样在数据库中查出本周的记录。是ACCESS数据库。为什么高手都不进来。是问题太难吗 如何将任务栏的图标隐藏? 怎么google上不去了? SQL简单问题 关于html中进行文本编辑中操作图片的问题?请各位大虾来看看结贴一定给分 哪儿有H.323的资料呀? 我是菜鸟: ReportBuilder 中明细记录的序号怎么加? 屏蔽输入的字符 求解分数排名的权数确定 如何实现海量数据数据库的快速查询?? 有谁知道TreeView的AutoSelect属性是干嘛用的?? vc60编译出错问题? 请问编写调试JavaScript用什么软件比较好? 救命啊!!!!! 和父母一直搞的不好,怎么办? 客户端连接问题 求救 VFP:event.prg不存在? 宏和内联函数有什么具体的区别 请问如何将HTML页面直接插入TWebBrowser而不通过文件存取?谢谢! 如何将任务栏的图标隐藏? SQL Server7.0我的一个表才5万条数据,用这样的SQL Select * from Diner 语句查询要几十秒钟?太慢了。 请高手指点迷津!!! 2035年9月7日新华社报道 我的IE菜单怎么变成英文的了? GetFileVersionInfoSize,GetFileVersionInfo, VerQueryValue通过他们...... 谁知道文件上传组件:w3upload ,哪里有下载? 向高手求救,有关java中文的问题!!! 请教关于信息分析的好的软件有哪些?(100分) 急!如何使JTable中的某一列中的所有单元格只能输入数字?(急需源代码!)感谢! 怎样判断数据连接? 你是一个真正的程序员吗? 串口接收二进制数据一问,高分相送 关于关机的问题 Linux gcc 一弱弱问题 关于《阳春白雪》安装的问题,急! 发现index.aspx页面的ImageButton事件无法跟踪调试 怎么google上不去了? VB当中相当于VC当中的Continue(跳出一次循环,接着进行下一次循环)的语句是什么? 请问风力发电用什么发电机? 问问黏土就是橡皮泥吗?,价格多少? PCB中SMT封装怎么做?因为SMT加工的时候经常被投诉“封装Pin脚太短,焊接不好”“封装Pin脚太长,不爬锡焊接不好”.搞得很被动,一会说长,一会说短!如0402;FQPF128;QFN48之类常见封装,该如何定义Pin chip(薯条)可不可数? 风力发电用哪种发电机 化学元素符号的书写顺序是什么?有金属的肯定金属在前,非金属在后.氧化物氧在后,但如果是既没有金属原子成分也没有氧原子呢?比如HCL,凭什么氯在氢后头? lim(x→-∞)[(√(x+2)(x+5))+x]=__..根号下是(x+2)乘于(x+5) 后面加的x不在根号下 中国古代农业发展史的革命.农业是我国两千多年封建社会的立国之本,农业生产技术的革新历来受到重视,下列哪一项是我国农业发展史上的一次革命( A.筒车.B.铁农具.C.都江堰水利工程.D.牛 为什么胰蛋白酶处理可以使细胞分散? 有一道关于极限的简单题目已知xn=(-1)n次方/(n+1)2次方,证明数列{xn}的极限是0证明如下|xn-a|=|(-1)n次方/(n+1)2次方-0|=1/(n+1)2次方0(设ε 我国古代农业发展史! 太空泥干了怎麼办 简述近代中国社会中出现的新观念,你怎样看待这一现象 比较珠江三角洲地区和辽中南地区工业发展的不同特点,从地理条件,原料等方面分析其原因 太空泥干了怎么办 依据材料一指出明清时期出现的新的经济现象是什么 中国古代语言发展史先秦两汉语言为文言文,后代亦有古文家模仿文言文,那么,两汉后通用语言是什么?除文言文外古代还有什么语言吗? 如何检测水里的重金属 中日甲午战争与~辛丑条约 给中国带来了什么 汽车本身装有防紫外线玻隔热玻璃还用贴膜吗? 太空泥有毒么 泰山石隔剪是什么意思 地震之前有那些预兆? 太空泥如何调色 甲午战争给中国带来了什么?甲午战争除了给中国带来了灾难外,还带来了觉醒,让封关闭守的中国知道自己不如别人了.我想知道多一些关于中国为什么在甲午战争中醒来的条件、原因,或别的 中国古代的钱币a.中国在秦朝之前的钱币是多种多样的,有哪些形状呢?请写下表:b.有些古代钱币上还刻有文字,它们代表了什么呢?照样子描下来.c.有些同学们在花鸟市场发现,一些古代的同伴 太空泥弄到床单上怎么办 谁知道泰山石敢挡是什么意思啊? 中国古代钱币的问题1·比如哪个朝代的钱币相当于现在的多少元2·不限朝代,越多越好 求一个极限, 院里放泰山石是什么意思 现金最贵的中国古代钱币是什么? 请问一个求极限的问题请问求极限的过程中什么情况下能把式子中的一部分用该部分的极限值代替,我只知道0比0型是不行的,请问还有其他的吗, 铜与硫酸银溶液的反映现象,及其讲解 自来水会存在重金属超标的情况吗?现在城市自来水还能喝吗? 请问SMT 和 EMS 和PCB和HDI的全拼是什么,啥意思 泰山石什么作用?摆放时注意什么? 四川省绵阳市自来水是否重金属超标? 电子行业中,PCB,SMT,FTB这三个缩写的全称是什么意思呢? 中国古代桥梁知识 净水 器出来的水会不会重金属超标了? 目前从事SMT行业,主要负责设备方面,哪位前辈可以说说设备这块主要工作内容是什么?比如日检,保养,还有备件类的 中国古代桥梁之最(举3中以上) 老师说胃蛋白酶可以水解蛋白质.那是不是一般来说所有的蛋白酶都可以水解蛋白质.快拉快拉.我急. 血浆中的水来自.A.淋巴,组织液B,消化道,淋巴,组织液答案:B. 请问为什么血浆中的水有来自消化道的? 我国有那些古代名桥? 胃蛋白酶能相互水解吗?为什么? 强生膜怎样 高铁酸钠、明矾、氯气、次氯酸盐哪种的净水效果最好?如题 胃蛋白酶和胰蛋白酶能互相水解吗胃蛋白酶和一胰蛋白酶在都不失活的情况下 呼吸酶在哪里生成的? 硫酸四氨合铜和硫酸反应的产物是什么? 胃蛋白酶能否将自己水解? 植物呼吸用的酶在哪 硫酸四氨合铜与氢氧根方程式 如何除去自来水中重金属、铁锈及其他杂质? SMT厂和PCB厂是一样吗半导体盲,啥都不懂,老板让搜集PCB组装厂的信息,不知道SMT厂是不是属于这一类,如果不是请解释一下区别 发电机叶片直径大概要多大风力发电机的叶片 直流发电机 最终用途是给手机充电 但是要先给蓄电池充电 蓄电池大概12V 容量15-20AH 自来水真的含很多重金属吗 呼吸酶在哪合成?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘