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

用VB设计聚焦框程序

HTML文档下载 WORD文档下载 PDF文档下载
用VB设计聚焦框程序


季昭君

  什么是聚焦框?在Windows中是这样解释的:当某个按钮被按下或某个控件正在使用时,由一个长方形的虚线框聚焦在此按钮或控件上来提示用户它正起作用。但是并非所有的控件在任何时候都能得到焦点(即得到聚焦框),有时我们在日常的编程中也许会用到它,用来提示用户一些必要的信息。这时你可以这样做:
  说明: 在以下程序中可以使Picture控件得到聚焦框,且程序调用API函数来完成。
  首先,在FORM1上新建一个Picture1和一个Command1,然后输入以下代码:

  Private Declare Function DrawFocusRect Lib "user32" _
    (ByVal hdc As Long, lpRect As RECT) As Long
  Private Type RECT
    X1 As Long
    Y1 As Long
    X2 As Long
    Y2 As Long
  End Type
  Dim lpRect As RECT '在通用中声明调用API函数
  Private Sub Form_Load()
    Form1.WindowState = 2 '最大化窗口
    Picture1.Picture = LoadPicture("C:\BMP\1.BMP") '请读者根据自己选择图片
    Command1.Caption ="设置聚焦框"
  End Sub
  Private Sub Form_Activate()
    Picture1.Move (Form1.ScaleWidth - Picture1.ScaleWidth) / 2, _
        (Form1.ScaleHeight - Picture1.ScaleHeight) /2 '使Picture1居中显示
  End Sub
  Private Sub Command1_Click()
    Dim DENG As Long
    lpRect.X1 = Picture1.Left - 10
    lpRect.Y1 = Picture1.Top - 10
    lpRect.X2 = lpRect.X1 + Picture1.Width + 20
    lpRect.Y2 = lpRect.Y1 + Picture1.Height + 20
    DENG = DrawFocusRect(hdc, lpRect)
  End Sub

  OK,大功告成,按F5运行,通过单击按钮Command1就可以实现Picture1控件被聚焦! 当然你也可以作适当调整,使它符合你个人的需要。


别再设计易碎的Web API! LinkedIn:55人支持2700位员工,2亿用户的大数据分析 Brian Krzanich是谁?这位新CEO预示英特尔未来怎样? HTML5开发者心声:浏览器兼容性成最大问题 传微软6月下旬将发布第二代Surface 7到9英寸全有 Turbulenz:HTML5 2D和3D游戏引擎开源 携程开放平台总经理夏天:内容+高转化率成就开发者 直接拿来用!最火的Android开源项目(一) Qunar 谌振宇:旅游行业的移动化如何布局? 大数据分析“铁三角”: Teradata数据仓库、Teradata Aster与Hadoop Teradata专业服务:打造行业企业的“数据科学家” Xamarin Evolve 2013:竭尽全力让C#服务iOS与Android 史上最全!57个Web框架4轮横向对比 回顾银行数据的可用性和一致性历史 Qubole:托管在AWS平台上的Hive服务 自由操作系统 Debian 正式发布7.0版本 4月份浏览器份额:IE 8仍居第一,IE 10翻番 亚马逊正式在华推Android应用商店 收入3:7分账 不要男孩,只允许女生参加的四所编程学校 下一波App机会在哪里? JS1K 2013优胜作品公布 3D蜜蜂仅获亚军 专访:前新浪网架构师徐佳转行卖水果背后的故事 FBI密码挑战,你能解开吗? 从0到1只需一天:Twitter后PC时代物联网“敏捷”开发之路的探索 机械生物已经面世 只少个“大脑”而已 百度正式宣布3.7亿美元收购PPS视频业务 比尔·盖茨:iPad让人失望 用户需要Surface Dropbox将于今年夏天举办有史以来的第一场开发者大会 Clustrix Sierra分布式数据库系统:云计算时代的MySQL 英特尔出杀手锏 发布低功耗、高性能Silvermont微架构 10大最实用的Raspberry Pi扩展设备推荐 散源代码(6)- 货郎担问题回溯法 散源代码(7)- 求解货郎担问题的分枝限界算法图形演示(v2) 请教windows xp 网络共享问题 你想有额外的收入吗? 如何在SQL Server中,让一个用户作另一个用的别名 谁有skinengine2.0的密码? vc++.net简单问题-必定送分 怎么分割? 紧急求助:(无以为报,奉送点值20分) 散源代码(8)- 动态规划算法计算网络的最长路线和最短路线 oracle 9i支持哪些jdbc驱动? 赚钱秘籍!!! 用ACCESS设计了一报表,在VB中如何调用? 求在CRichEditView中设置位图背景的代码?谢谢! 怎么在一个CStatic上用程序动态显示BMP图片 javabean+tomcat访问数据库,如何配置阿!大虾帮帮我吧!搞来稿去就不行! 我想在运行时把form里面的所有控件缩小一半(控件很多,不想一个一个设),该怎么办? c++builder6快出现了。散分!!!!!!!!!!!!!!!!!!! 如何在程序中插入 EXCEL表格 我是个菜鸟,我这个问题这么这么的简单,以经在CSDN上问了好多好多天,为什么就是没有人会帮我解决? 急,所以到谁圆问一下,.dwg的文件是什么格式,用什么打开,谢谢! 一段读串口的代码有问题,高手帮我看看 紧急求救!!!怎样用C++Builder在链接服务器中创建一个表呢?SOS 特惠虚拟主机:dtp.51.net! 想把一系统内存块拷贝到位于D3DPOOL_DEFAULT的Surface中,怎样做更快?谈谈你的经验吧 在msdn中我看了一下午关于枚举的可就是不明白他到底在什么情况或者处理什么情况的时候用? All-in-Wonder Radeon 是不是不支持 Real Producer???? 用ACCESS设计了一个报表,在VB中如何调用? 支持ASP、PHP高迅特价主机:(推荐)dtp.51.net 套接字问题再次提问 C#参考文档要的举手啊! 怎样做服务程序? (在系统后台运行) TComboBox的text能否设为只读? 站点属性中“应用程序保护”有三个选项,分别是---低,中,高。有什么区别吗?安全性有什么不同?为什么有的isapi程序必须设置成低才能正确执行啊? 怎样才能使Web页上的ACTIVEX控件自动下载注册? ADO 与 DATA MODUAL 怎样判断一个文本文件中的数据。 绝对的诚意邀请高手加盟 请问邮件服务器,如何用java实现,最好有源代码,谢谢了,急 急贴:>>>>>>>>>>>>>>>>>>>>>>>>>>这里有英语好的网络专家吗? 关于java中的画矩形 哪里有将股票数据转换成数据库格式的工具? 从哪里能找到用opengl绘制三维图形的源码?基于unix下的。 asp 怎么判断客户端的操作系统还有屏幕大小什么的? 卡在了一个错误里出不来,求救! 谁知道??????求救~~~~用asp操作注册表,从注册表中删除指定的主键! 何处能找到用opengl绘制三维图形的源码?基于unix下的 谁有多种字符窜转换的方法或代码呀? 用JBuilder5做的数据库应用程序怎么打包? 我的机器上没有装outlook,当我点击mailto时,就直接链接到hotmail的邮箱,怎么回事那 请问我在一个窗体里拖动了十几个ADODC控件,启动时很慢请问我该怎么样 平面磨床磨的工件为什么不平 wc的真正含义是什么? 谁可以给我讲解汽车打磨用砂纸的问题,因为我刚刚学汽车美容,对这些都不了解,师傅们又不怎样对我们这些学徒讲解,所以俺想在这里问各位师傅讲解下,懂了之后起码不用被师傅骂啥又啥,学 平面磨床磨出的工件为什么不平行 WC的含义WC! 打磨轮毂砂纸 金相水砂纸 理研砂纸片? 数控铣床加工中心用什么切削液适合? WC什么意思 氩弧焊可以焊接铝合金和生铁吗? 以下几个实验现象,能说明声音产生的原因的是……A:放在玻璃钟罩内的电铃正在发声,把玻璃钟罩内的空气抽去一些后,钟声明显减弱B:把正在发声的收音机密封在塑料袋里,然后放入水中,人 卧式加工中心选择什么样的切削液?主要加工球墨铸铁和合金钢的. 将生锈的铁钉放到足量的稀硫酸中,可以观察到铁钉表面有气泡产生, 以下几个实验现象,能说明声音产生原因的是:( )A 正在发声的音叉接触水面时,水面激起水花.B 把正在发声的收音机密封在塑料袋内放入水中,人们仍能听到收音机发出的声音.C 拉小提琴时. cnc加工中心的切削液如何选择? 切削速度与进给速度有什么不同最近还搞不懂 请列举出三个能说明声音产生原因的实验现象 加工中心切削液北冻住,有什么好办法?加切削液怎么样? 铁钉放入稀硫酸中如果一颗铁钉的质量增加了0.2g,那么参加反应的铁的质量为____g,溶液中Cu 2+的物质的量减少了____mol,溶液质量____(填“增加”或“减少”)____g. 厕所怎么除臭?平时不该马桶盖的时候,楼上一冲水我们家就可臭了,怎么办?有什么好一点的办法吗?另外我不喜欢84的味道, 数控车床中切削速度是什么在数控车床中切削速度是指刀具切削刃上的某一点相对于工件待加工表面在主运动方向上瞬时速度称为切削速度.这是书本上解释,可这太难懂了请有对这方面比较 光亮的铁钉和稀硫酸方程式将一光亮铁钉放入稀硫酸中的化学方程式、、 点燃镁带时未在实验桌上放石棉网会怎么样啊? 峡谷的切割深度是指什么 把一枚生锈铁钉至于稀硫酸中一会儿 铁钉表面变光亮 离子方程式 做镁条燃烧实验时在桌面上放石棉网的作用是什么 什么叫深度切割高山区 硬质合金铣刀上有6个刀齿刀尖所在直径为100选择切削速度为每分钟100米每齿进给量为0.2计算转速N和进给速度要公式和答案 在化学实验中点燃镁带时为什么放石棉网 研究不同金属的活动性顺序可以采用的方法有哪些 家用220V电焊机可以使用不锈钢焊条焊接吗 镁带燃烧是用( )夹镁带的,实验中石棉网的作用是( ). 金属被使用的先后顺序与活动性顺序有关为什么金属被使用的先后顺序与活动性有关 光亮的铁钉在下列几种情况中最不易生锈的是:A完全浸泡在水中 B完全浸泡在植物油中 C在空气中 浴室里的毛巾架是不锈钢的好还是太空铝的好?哪种容易坏?... 常见金属活动性由强到弱的顺序是——.在该顺序中1、金属的位置越靠前,它的活动性越——,越容易——电子.2、位于——的金属单质能置换出盐酸、稀硫酸中的氢元素.3、位于前面的金属能 铁钉浸没在植物油中为什么不易生锈?如题、 太空铝毛巾架可以放在厨房吗.会不会有什么危害买了一根太空铝的毛巾架放在厨房,平时用来挂洗碗的抹布之类的东西,这样会不会有铝离子进入人体呢,好纠结.如果是质量不好的太空铝会怎 金属的活动性顺序是怎样规定的?用什么来判定前后顺序 在探究金属的腐蚀条件时,有一个实验是把铁钉放在水里上面有一层植物油这个我们老师说如果里面是蒸馏水就不会腐蚀,如果是自来水就会,为什么啊 太空铝毛巾架跟不锈钢毛巾架比哪个比较实用? 加工中心切削液堵住了,怎么弄 切削液满的,但打开不流啊 高速钢铣刀铣削时的线速度范围一般是多少?是在普通立铣床上,并且冷却条件不是很好,用毛刷蘸切削液冷却!请问在这种情况下高速钢立铣刀铣削时的线速度范围一般是多少? 毛巾架什么材质好?不锈钢还是太空铝好? 某机床的主轴转速为100-1120r/min 圆柱铣刀的最小直径是多少?相应的铣削速度及进给量的数据表发份给我,lengsanye@163.com,另有重谢!拒绝收费 赴美带薪实习口语测试会问一些什么问题啊? 谢谢帮忙! 浴室里的毛巾架是不锈钢的好还是太空铝的好 三种金属加入盐酸前都先用砂纸将其表面擦抹光亮,其目的为什么还有是表面光亮便于观察 赴美带薪实习的听力 口语大概考什么内容?难度如何? 如何防止加工中心用的切削液结冰? 高级钳工计算题:工件直径D=125mm,机床主轴转速n=80r/min,试计算车削时的切削速度V的大小.若车削D=200mm的工件时,仍要保持此切削速度,问机床主轴的计算转速n是多少? 我也参加了2012新东方的赴美带薪实习.我明天参加新东方的那个口语测试,心里没底.你当时都问的什么问题啊.就是新东方的口语测试,不是企业面试哦 做化学实验时为什么要打磨金属? 在做金属和酸反应的实验时,一定要用砂纸把金属磨光亮吗某学习小组对三种金属钛、铝、铜的金属活动顺序进行探究.“同温下,取这三种金属薄片并用砂布将其表面擦光亮”这句话对吗? 请问赴美带薪实习好吗,想了解下 除了厕所,是谁发明的? 车削直经为50mm的工件,若选用主轴转速为600r/min,求切削速度大小? 惠州市金属切削液生产厂家,防锈性能强、适合不锈钢材质的? wc的中文意思是什么? 在车床上车削直径100mm的工件,设粗加工的切削速度为30m/min,精加工时的切削速度为120m/min,忽略吃刀深度,试选定车床主轴的速度.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn