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

用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控件被聚焦! 当然你也可以作适当调整,使它符合你个人的需要。


DELPHI 和 THE INTERNET Delphi开发Web Server程序如何返回图像 Delphi开发Web Server程序响应用户的输入 DELPHI与INTERNET(二) DELPHI与INTERNET(一) Delphi中串行通信的实现 Email 服务器的简单实现-Delphi资料 Internet编程技巧-Delphi资料 SMTP组件的使用方法-Delphi资料 Web Server程序开发环境的建立-Delphi资料 WEB数据库的开发-Delphi资料 Win32 行程通讯的观念与技术-Delphi资料 编程发送E-mail-Delphi资料 调用那个函数得到本机的IP-Delphi资料 动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址-Delphi资料 如何在程序中动态取得Win98的网络邻居中的工作组及计算机名-Delphi资料 动态设置DNS地址-Delphi资料 读取IE收藏夹内网址的信息-Delphi资料 改网络计算机名-Delphi资料 关于WEB应用程序的打印组件开发初探-Delphi资料 基于TELNET协议的DELPHI程序与LINUX主机通信的实现 监视POP3信箱-Delphi资料 开发WEBMAIL程序-Delphi资料 开发响应用户输入的数据库web Server-Delphi资料 利用Delphi编程发送E-mail 利用Delphi编写Socket通信程序 利用Delphi开发网络数据库应用 在许多系统中,出于安全或其它原因,常常要求随时对键盘进行监控,一个专-Delphi资料 链接的视觉效果-Delphi资料 如何从域名名得到IP?-Delphi资料 按钮提交并链接不同页面的问题。 简单的问题 请教VC++高手:在MFC中,如何把剪贴板中的位图按原比例打印出来? 分不够再加! 怎么样在vb中读取bmp的位图信息,将图中所有黑颜色的象素 谁在20分钟内答出以下问题能拿高薪 如何修改注册表的键的默认键值? WINXP开始运行宽带播号程序缓慢,什么原因? newwish2 给我一个例子,邮箱:make_a_wish@163.com!!!着急呢!! evc4.0中文显示的问题! struts--html:select 为何出不来? 讨论:关于WinXP下开发的COM+的分发问题!! 菜鸟的小问题!! 一个关于东芝笔记本的故障 请问JBuilder错误提示:cannot access directory javax\mail at line 7, column 1 CSDN的速度越来越慢了,来这里的高人也越来越少了! 有没有DOS很熟的仁兄?纯DOS下和WIN NT4.0联网 小小问题!!! 困扰我多时了。。。 sybase 在程序中连接的问题。急,我咨询Sybas公司也不行。 按钮茶馆开张啦,有闲的进来聊天吧~ 小問題 PhoebusApollo(sunny) 你说要开贴,又没分,我有,给你100分,进来领吧!呵呵,不用谢!:) 关于DBGridEh排序的问题,急急急!!! ora-12224错误,tns no listener错误 !在线等待 ,急~! 求助jb9的破解 报表问题,急呀,救命呀~~~55555~~~~ 500分求解决一个问题 在线等待 解决立即给分 2003下为什么我的声卡不能用? 在程式AAA.PRG中如何修改表的字段的類型,比如字段C類型改為N類型??很急!!! 为什么有时候成员函数或变量显示不出来 救命!我在程序中使用webbrowse控件………… 在线等待。 也许是一个很简单的问题! 连接mysql出错 寻关于工控的中英文对照资料 想在暑假打工(计算机方面的)需要什么条件啊? 关于SQL SERVER的疑难问题!来者有分!(在线等待!分数不够可以再加) MTS与线程——高分相赠!!!! 来看看啊,告诉我再哪里下就给分啊~~ 大对象问题,所有书都是这么说的,可是都作不成功? 如何指定tquery中的某一行? 如何通过API发送翻页按键给控件? 在jbuilder 中 不能通过 创建Ejb Tester对EntityBean进行测试吗?SessionBean都可以的 如何在ie中点右键获得这个ie窗口的window Text以及其主框架的URL。 关于Kdevelop开发 大家讨论一下项目负责人到底该赚多少钱(年薪)? ★★★★★如何在文件下载完毕后自动关闭浏览器??★★★★★ #### 关于CWebBrowser控件 #### 兄弟我要做一个网上银行系统,需要做压力测试,各位有过这样的经验吗??怎么来测试,用什么工具来进行并发访问压力测试? 兄弟我要做一个网上银行系统,需要做压力测试,各位有过这样的经验吗??怎么来测试,用什么工具来进行并发访问压力测试? 菜鸟问题,在线等待,如何让JList显示带gif的文字啊? delphi+access 用ADO连接,为什么在SQL语句中用SUM()时,执行出错?送分 为什么我make时,有错误:'class' or 'interface' expected 消除业障是什么意思 农民工进城务工前后的思想观念的调查分析3000字以内的,紧紧围绕问题说明,不要答非所问?感激不尽! 难忘的秋季运动会 500字以上 第4和的7题怎么写啊! 历史整理好了知识点,在一个本上,怎么背才能高效率的记住 难忘的运动会(四年级)秋季400字. 7年级上册数学195页第2题和196页第4和11题的答案 已知角aob是45度,oc为一条射线,且角aoc与角cob等于2:3,求角boc的度数 关于纽约的环境问题(尽量用数字)除四年级语文暑假作业上有的,其他的都可以. 什么是业障? 为什么农村人们都要进城务工? 白居易诗词评论文章500字 第二题,第四题,第七题, 已知AOC=40 自O点引射线OC 若AOC比COB=2比3 求OC与AOB的平分线OM所形成的角的度数 我国每个节日都是一道独特的风景线,按样子些下列节日!示例:清明节:雨也纷纷泪也涟涟,思也悠悠意也绵绵.端午节:.中秋节:.植树节:. √βф赢政打一生肖雄风镇山林健步驰千里打一生肖Y(^_^)Yβё跟着港哥走有肉吃电l3288037l46 如何组织一场三局两胜制的男单网球比赛?比赛为男单比赛,从进场开始描述,比赛中涉及的规则以及考虑比赛过程中可能出现的问题, 白居易诗词里“芙蓉芍药皆莫姆”是什么意思 语音四要素在汉语中有什么作用 虚功原理小知识点 急求各种有利于观点 “农民工不该进城务工” 的相关数据!用于辩论赛 新东方万泉河校区 的201教室是多少人上课的教室啊?是教室能装多少人就有多少人上课么?这个教师能装多少人啊? 赢政是什么动物 比赛采用三局两胜制,如果甲队想获胜,他们应该怎样安排应对策略? 在∠AOB内过O点引出30条射线,这样能组成个角. 小明和小张两人做石头,剪子,布游戏,规定:比赛规则为三局两胜制,如果两人在每局比赛小明和小张两人做石头、剪子、布游戏,规定:比赛规则为三局两胜制,如果两人在每局比赛中获胜的机会 衣服上有个小线头,太短了想系个死扣系不上,怎么办,怎么把它收住?那地方是这么一根线缝过来的,发现头上这个地方没收住,是松开的,若不管它的话后面缝的部分很容易就连锁反应依次跟着都 已知钝角∠AOB,点D在射线OB上...50悬赏伺候已知钝角∠AOB,点D在射线OB上.(1)画直线DE丄OB.(2)画直线DF丄OA垂足为F.要图, ANSYS如何生成log文件?log、logw、logd为后缀的文件有什么区别? 有线电视线头怎么安装?有线的线和有线头怎样衔接是最好的,可以让电视很清晰 羽毛球比赛三局两胜15分制一场多长时间,21分呢? 英语翻译FLST,5,39,6,ORDE,7 FITEM,5,1 FITEM,5,-34 FITEM,5,36 FITEM,5,40 FITEM,5,44 FITEM,5,48 FITEM,5,52 VSEL,s,,,P51X 请问这个Log文件什么意思,用命令流该怎么表示? 针线盒里面的线乱了该怎么办?可以用很乱来形容.我家的针线盒里线全乱了,弄半天也没弄开,我这人有自我强迫症,一想起来线这事,心里就别扭,睡不着觉,必须得想出来个招,不然我就别想干其 如何对现代散文进行解读与散文教学中存在的问题 问什么听课的时候觉得懂了, 已知OC⊥OB,垂足为O,∠BOC-∠AOC=60°,试求∠AOB的度数标准解题格式来做 如何进行科学有效的教学评价 Log File:D:\ANSYS Inc\install.err我在安装ansys时也遇到了这个问题,请问你有怎么解决么? 已知OC⊥OB,垂足为O,∠COB与∠AOC之差为60°,试求∠AOB的度数 拔河比赛有五个参赛队采用三局两胜要怎么分 ANSYS的工作空间里没有后缀为log的文件,如何生成后缀为log 的文件?后缀为log、logd、logw的文件有什么区别? 省去图形,以知条件不变,OC垂直于OB,垂足于O,角COB与角AOC之差为60度,(几何题)试求角AOB的度数!~过程写清楚! 已知三角形AOB和三角形COD都是等腰直角三角形,AO=BO,CO=DO,三角形AOB可绕着O顺时针旋转.(1)如图1,当点A,O,D在同一直线上时 请指出下列关系:①AB与CD:___;②AC与BD:___.(2)若△AOB旋转到图2 ,图3位置时, 我现在高二了,在上物理的选修3-1,感觉听课听得懂,但是做题就不会做, 已知OC垂直OB,垂足为O,角OCB与角AOC只差为60°,试求角AOB的度数请用标准解题格式来做. 发个链接 为什么听课听得懂,要做题就不知道了,感觉很模糊 从O点出发的三条射线OA,OB,OC,若∠AOB是直角,∠AOC是∠COB的3倍,则∠COB的度数是多少? 赢政的父亲是?拜托各位大神 已知∠AOB=45°,OC为一射线,且∠AOC:∠COB=2:3.求∠BOC的度数.提示:请先画图,然后求解.画图时,考虑是否需要分类讨论) 请问哪些可以折成正方体? 赢政是什么人 如图,射线OC把∠AOB分成两部分∠AOC与∠COB,求∠AOB的度数.如图,射线OC把∠AOB分成两部分∠AOC与∠COB,且它们的度数比为3:2,OD是∠AOB的平分线,且∠DOC=10°,求∠AOB的度数. 难忘的运动会 用英语怎么写 四条射线最多能画几个钝角?最好把图画出来 历史怎么听课才有好效率 写文章时,写到心里的想法应不应该加引号? 第4和7题 x^2-8xy+7y^2 因式分解 心里的想的话需要加引号吗?人教版四年级上册《巨人的花园》第六自然段最后一句话——他想:“今年的春天为什么这么冷,这么荒凉呀……”,需要加双引号吗?一般是不加的吧?那这里是什 俄罗斯加大乌克兰施压力度欲让其放弃北印总理对美监控很淡定土耳其加入欧盟谈判下月重启美国缘何窃听亲密盟友美监听全球30余国首脑纽约股市标普指数25日再创新高纽约金价25日继续上行美元对主要货币汇率25日普遍上涨但对美国8月份批发库存环比上升0.5%赣南脐橙催熟打蜡续:为保持口感喷洒甜德政府将派高级官员赴美就窃听一事讨说俄罗斯为美国发射一颗通信卫星纽约黄金期价25日收于每盎司1352马耳他总统阿贝拉会见杜青林日本东北地区发生7.1级地震日本本州东海岸附近海域发生7.1级地日本福岛外海强震上修为7.1级 东京日本福岛县外海6.8级强震 气象厅发纽约油价25日继续反弹日本本州东海岸附近海域7.1级地震 北京10月购车摇号166万人参与 中东莞3D打印产业愈“打”愈热火“保险+互联网”存隐忧 专家:理性选鲁志枢:对河流污染应严防死守[我财经]林耘:融创绿城“联姻”背后深圳机场大批航班延误或取消 部分旅客坚持走和平发展道路 把中国的机遇转变省劳模疗休养基地落户海公园 巽寮湾上铁壶屑语河南济源首次发现 明确纪年的金代墓葬“塞上江南·神奇宁夏” 旅游推介会在静态藏品“活”起来 博物馆“动”起来跟随“少年” 发现意大利之美邓超自曝对孙俪说一不二对话的秘密(14)北欧双国: 童话在左 峡湾在右导 读《归来》开局票房气势如虹做一个 幸福的吃货益田威斯汀酒店新总经理上任《潜艇总动员4》首映细致服务 旅游让心更贴近
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘