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

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


大数据时代正在到来 微软CFO:我们的移动战略没有“B计划” TIOBE 2013年2月编程语言排行榜:历经十月Java重返第一 为让用户亲身体验产品 谷歌年底或开零售商店 谷歌推Chrome API支持HTML5实现本地离线数据存储与同步 Ubuntu开发者预览版将于月底开放下载 因Java漏洞,Facebook遭受恶意软件攻击但未泄密 HTML5预测 取代本地App将成为可能 2013年最佳实习企业:微软仅居第三 助力响应式设计:Adobe发布最新HTML5工具包 VMware控告Hortonworks恶意挖角 2013年大数据真谛:实时分析与批量处理 微软招聘信息证实Windows Blue项目正在推进 研究人员正开发永不会崩溃的计算机 Google:开发者应尽早进入可穿戴式计算 Chrome OS身世及其创始人之谜 谷歌举办Glass Foundry黑客马拉松活动 获80款Glass应用 政府和法律的干预拖慢了云计算发展 AMD打造开放的异构计算标准? Podcasts:苹果史上最烂iOS应用 烂过iOS Maps 日本游戏开发公司谈:如何在激烈的APP世界立足 VC不会告诉你的8件事 Reddit宣布将接受虚拟货币Bitcoin付款 OneID创始人:双因素身份验证无法保护Twitter Opera放弃自家内核转投WebKit的背后 Amazon强攻私有云市场,目标锁定银行 微软的24年数据中心之路 Flurry:约会应用男同性恋用的最多 jQuery消息提示框的简单实现 Mozilla CTO:Mozilla不会转向WebKit 这很重要 Pinterest或超Twitter成第二大社交网站 yushulei(永远)接分 这语句错在哪?select a.* from (SELECT min(id) FROM user )a 怎样列出客户生日来临前的一个星期所有客户名单? 我想做监控的软件,用udp 如何使用?着急! 急需求助!! 怎么样判断一个目录、文件是否存在??? 请教如何在给定的几个数中随机选出3个数? 想参加一个jsp开发组织。那里有? 为什么下面的头文件没有 .h后缀 如何在SAS软件中导入SQL SERVER 2000的数据?谢谢 请教有经验的学长:动态网页在我自己的机器上运行没有问题,但是(急) 一个奇怪的输出问题?各位C高手看过来 如何让Edit1->Text 等于float类型的变量? 菜鸟问题,在线等 Win98下的SOAP. 哪位大侠有installshield 7.0 以上版本的,发我一个,谢谢!!! 在word中用鼠标滚动的时候,左下角的 行 页变化是怎么的出来的,有没有程序呢 请大家看过来,apache配置文件是否有错,超紧急求救! 如何让Edit1->Text 等于float类型的变量? 为何提示不能创建对象?急死我了 在对话框类中怎样向视图类发送刷新视图的消息?谢谢 急,在线等!同样的打印程序(套打),为什么在不同的操作系统下面打印的位置有差别,怎么才能做到同一打印程序在不同的打印机和不同的系 DELPHI+SQL 想要怎么学习才能快速成长 哪个前辈指点指点 请你们指教好吗 串口通信问题 一个排序的问题! JBuilder下的编辑问题 急呀!vba高手帮帮忙? 动态类型转换 关于软件测试,测试结论 大家进来说说 如何在当前目录下调出一个CHM格式的文档? 为什么动态增加的WebBrowser1.Align不能为alClient啊? 怎样通过代码实现CTRL+C和CTRL+V的功能? 有两个问题要问,很难的哟,谁来挑战一下!! 在dll中能不能声明一些类,供外部程序调用?能给个例子最好; 各位,请帮我看看! weblogic6.1中配置好了oracle9i的连接池,名为oracle9,但是编程工程中如何使用这个连接池,希望答复!! MSXML2.XMLHTTP 是什么组件? 颜色填充 我要用到GPRS的知识,了解者请赐教! 请问在程序运行期间执行label1.text="***"怎么不变啊! 大家帮我看看,为什么不能选择divx压缩? 打开excel文件时提示“重载open方法未获得1参数” 帮忙写报表查询,我搞不定,请求帮忙!!!比较复杂!!!! 自定义标志的问题 着急! 今天在CSDN上终于变成三个绿色的小三角了,高兴……散分(前十位每人10分)! 如何把一个文件中text的值传到另一个文件中去? 路由器如何设置?? apache2配置文件问题,请大家指点迷 PPS文件用什么软件打开,谢谢! 填充颜色 请朋友们,用善字的不同意思个写一句话. 谁能马上回答这道数学题一个自然数的最大两个约数的和是1768,这个数是几 吃胡萝卜和鸡蛋对我们的眼睛有好处 英文(快!谢谢)是Eat carrots and eggs is good for our eyes还是Eat carrots and eggs are good for our eyes为什么? 答案与原因是什么 请给我说下解题思路 《谁给我说下解题思路谢谢》某单位组织员工去天水湾风景区,共支付给春秋旅行社旅游费用27000远.请问该单位这次功有多少员工去天水风景区旅游?收分标准:如果人数不超过25人,人均旅游 顺便说下解题思路吧,已知椭圆的对称轴为坐标轴,短轴的一个端点与焦点组成一个等边三角形,焦点到长轴上较近的端点的距离为2,求此椭圆的标准方程 麻烦说下解题思路 举世闻名,头重脚轻,望而生畏,月明星稀.这句诗是什么 你心目中的上海人是怎样的?世博会期间,接触了几个上海人,觉得很不爽.现在发现有一篇很有意思的文章: 如何快速的背下长英语文章? 浙江省11月2日上海招贤 推出300浙江省级部门首次“晒账本”土耳其再次出动战机拦截叙利亚战机2013财年美国联邦政府财政赤字682013财年美国联邦政府财政赤字68“以房养老”国外遇冷 新加坡四年仅数德媒:美国人的耳朵早已伸到中国厄瓜多尔欲向斯诺登提供政治避难北斗导航系统首次落地国外美国曾促日本修宪助战海底隧道连通欧亚两大洲费孝通晚年“重释美好社会”郭金龙会见国际奥委会主席巴赫以协同发展引领改革大潮让故居还原故人通州楼市“退烧” 二手房趋冷原声毕录片桐济三郎今日看点世锦赛首现9人百米决赛警方称曼谷爆炸主嫌或已离境战术冒进 王镇遗憾摘银校园贴心高手药香嫡女:王爷别乱来养媳有毒重回十三岁都市之纵横傲天一世契约未来之军娘在上万界战歌戏命师之白夜晨歌我在广西养小鬼屌丝道士之厄运起源黄金广场旅游照金香山旅游陈炉旅游三原城隍庙旅游柴埠溪旅游莘庄公园旅游银滩湿地公园旅游安徽省博物院旅游蜀山春晓旅游中国科学技术大学旅游静之湖滑雪场旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘