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

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


VB如何让用户自行输入方程式,并计算其结果? VB如何使程序不在Ctrl+Alt+Del弹出的对话框内? VB如何使用 VB 编写自动反安装的程序? VB如何用VB建立快捷方式 VB如何用VB在桌面建立快捷方式 VB如何在 VB 中控制 Modem 行为? VB如何在VB中判断Windows9x的运行模式 VB如何在Visual Basic中实现异步执行程序 VB如何在开机时自动更换墙纸? 使回车具有 Tab 的功能-VB资料 输入时,自动转换成小写? -VB资料 显示多媒体信息 -VB资料 也谈Windows 下的自动存盘 -VB资料 一个小巧精致的CPU监视器 -VB资料 应用VB4.0实现工业控制的实时曲线和历史曲线 应用程序中实现关机功能-VB资料 萤幕抓取与萤幕保护程式 -VB资料 用VB5.0创建Windows快捷方式 用VB5.0收集键盘和鼠标信息 用VBA限制非注册软件使用时间 用VB编程检测当前电池使用情况 用VB编写定时关闭计算机的程序 用VB编写键盘拦截程序 用VB函数轻松访问系统注册表 用VB设计一个定时闹钟程序 用VB实现拖放功能 在VB中启动控制面板 在VB中异步执行程序 在Visual Basic中终止Windows 95 在关机或Logff前信息的拦截-VB资料 VB怎样捕捉窗体的鼠标? 关于CPU 100%使用率的问题 如何使用VB访问MySQL数据库? 视图窗口的windows句柄和视图窗口的指针有什么区别? SQLServer出现问题,急!! 如何像Windows Form一样,弹出 .aspx的Web文件。 请教一个问题。急 请问如何才能链接到中文文件?谢谢。 初学者的一个很低级的问题! 未老先衰吗? 用什么方法可以把DBGrid查询的内容打印处理,查询是用sql语句的,有什么好控件? 怎样重烖 滚动条的滚动消息? 请问高手:IIS5.0+PHP4.0安装问题 怎么样取得数据窗口中所有的TEXT和计算字段的列表? 如何实现(单击一个下拉菜单,同时刷新另外一个下拉菜单中的值??) 我的Red Hat 7.3启动盘丢了。怎么办? 哪里有讲Object Pascal的书下载? vb里怎么调用vc写的dll,还有为什么vc的dll不好用regsvr32直接注册,老说dll enter point not found ★★★同志们好,我想在北京找工作,什么人才网站比较好? 怎样实现在一个窗体中控制另外一个窗体及其控件? 创建一个线程来接收串口数据,为什么正常收一段时间后(10多分钟)就不再收任何东西了? 关于设计一个防震系统!欢迎讨论! 请问各位高手!Win32 SDK里面有没有用来设置麦克风音量的函数? 用.Net技术实现:与扫描仪直接连接,将扫描图像保存为文件,其他子内容保存到数据库中? 请大虾介绍一款好用的web报表打印控件,最好有说明文档,谢谢 CString类型怎样转换成unsigned char * 关于使用System.Net.Sockets时的一些不明白的问题 关于.net编辑器操作的问题? 将main函数移动后出现的编译错误 请各位大佬帮忙,sql server是否有..start with..这样语句? 读"征集2001参加工作的程序员的工作感受和打算"有感! 我知道问提出在那里了,再问: 求职 怎么修改RTE控件的字体大小? 删除文件的问题 出大问题了?????!!!!! 有没有人用CORBA,JBUILER编写JSP? 请问有没有vc.net方面的好书呀 哪位大侠在使用JMAIL3。7来发送邮件时,出现,邮件成功发送但收件人收到的邮件没有内容???? 关于nt4.0下 hp -cdrw 不见了 在redhat linux中怎样配置dns和apache。本人是初次接触,希望您能详细点,多谢!! 在FTP服务器上删除文件用什么函数啊 一个奇怪的网络连接现象!请高手帮忙! @怎样比较数据库中的时间??急急急!!! 我知道我搞不定的,有高手肯定可以的!!!!!! 关于frame的问题 如何在Turbo C中加入汇编代码 vb中如何遍历文件夹 一个关于COM注册的小问题 急!如何安装 SMTP Service? 怎么设置treeview中每个分支中的背景色? first time 为什么低温诱导染色体加倍要用卡诺氏液,而观察有丝分裂却不用 为什么强电解质都是完全电离,弱电解质的电离程度却各有不同?如题 孟加拉的天气是怎么样的? 盐酸在低温诱导植物染色体数目变化中起什么作用? 求教一道高中政治计算题.假定2010年某商品价值用人民币表示为1680元,人民币汇率为1美元=7元人民币.如果2011年3月生产该商品的行业社会劳动生产率提高20%,且人民币兑美元升值5%.若其他条件 孟加拉国的官方语言是什么? 低温诱导植物染色体变化中酒精的作用 求教一道高中的政治计算题.假定2010年某商品价值用人民币表示为1680元,人民币汇率为1美元=7元人民币.如果2011年3月生产该商品的行业社会劳动生产率提高20%,且人民币兑美元升值5%.若其他条 类是木马得病毒! 个人新建的实验室想采购化学试剂,去哪里比较划算不过要买的试剂很多很难找的,一般的网上卖家都没法提供 求助:一道高中政治计算题!假如2010年甲国价值600元的A商品在乙国市场上的销售价格为120元.2011年甲国A商品的社会劳动生产率提高20%,A商品在乙国市场上的销售价格不变,不考虑其他因素,甲乙 蜘蛛分几类,哪些有毒 低温诱导染色体数目加倍的实验中用95%的酒精洗去卡诺氏液这句话是对的还是错的?为什么? 有20个灯泡,电阻都是484欧,并联后等效电阻怎么计算.好像是 484*484*484*484------在除以484+484+484+484---- 这样算好像不同啊我用的公式是R1*R2\R1+R2 算的是一沓糊涂为什么答案是484除以20等于24.2 有毒动植物有哪些类型 求化学试剂的其他购买途径!我家在武汉市远城区,去市区买化学试剂耗时耗力,而且机会也不多.但是我们城区没有试剂店,我又不能网购,求大神给我一些购买方式!尽量方便一些!网购,邮寄除 电动车充满电充电器指示灯不亮上午电动车充电,然后应该是充满了,但是没有亮绿灯,指示灯不亮,再插上去,红灯一闪,就熄灭了,这是所谓的自动断电,还是充电器坏了? MnO2在酸性条件下与双氧水反应离子方程式 怎么判断物质能否电离?1.溶于水后能电离的化合物就是电解质吗?2.电解质是不是由离子构成?3.比如熟石灰是否能电解?怎么看?4.物质溶与水后是以分子的状态存在,就不能导电了吗?5.只有溶于 还原糖有哪些 一个西瓜换二个梨,一个梨换三个橘子,一个橘子换两个草莓,一个西瓜换几个草莓? 强酸在冰醋酸中为什么电离会受到抑制?怎么据此判断酸性强弱? 关于还原糖为什么蔗糖不属于还原糖? 西瓜、橙子、甘蔗、草莓分别是多少级的作物? 怎么判断哪些物质难电离啊, 还原糖是什么 电瓶车充电器充满电指示灯不能跳转了,什么原因啊?怎么办?用手动下电瓶那头的插头或拔掉再插就是绿灯亮,如果先插电瓶那头,再插电源那头仍是红灯亮,刚换的四块新电池,还是那样,修理人 两支同样长的蜡烛,一支能燃4小时,一支能燃3小时,同时点燃两支,几小时后第一只是第二支的两倍 用15吨甘蔗制成1.9吨糖,要制1吨糖需要甘蔗多少吨? 实验室制备氢氧化铁胶体时,怎样检验制备是否成功 两支长度相等的蜡烛,第一支能点4小时,第二支能点3小时,同时点燃这两支蜡烛,几小时后第一支的长度是第二支的三倍 碘和氯化氨的混合物加热发生什么化学变化? 在化学实验室里制备氢氧化铁胶体首先用洁净烧杯取少量蒸馏水,用酒精灯加热至沸腾,然后向烧杯中逐滴加1mol*L^-1氯化铁溶液,并继续煮沸至液体成透明的红褐色即得氢氧化铁胶体.某同学在活 杨桃是酸性还是碱性 氯化氨溴化氨碘化氨的稳定性比较?NH4X化合物的稳定性比较?是不是用大大小小规则判断?氨根离子是酸还是硬酸?半径算不算大? 实验室制备氢氧化铁胶体的化学方程式 有两支蜡烛.当第一支燃去五分之四,当第二支燃去三分之二时.这两支蜡烛原来长度的比是 用加热法鉴别氯化氨、碘化氨、碳酸钙、碳酸钠 为什么射击时人会向后晃动用物理知识解释 有关细胞有丝分裂中染色体的变化下列关于细胞有丝分裂过程中染色体变化的叙述,错误的是:A、分裂间期,完成了染色体的复制B、分裂前期,因染色质的高度螺旋化而形成了染色单体C、分裂 为什么碘化钾可以使碘从氯化碘和溴化碘中完全游离出来? 为什么一瓶标明剧毒的毒药却对人无害,为什么? 猕猴桃是酸性还是碱性适合人群 为什么碘化钾可以使碘从氯化碘和溴化碘中完全游离出来 0.3mol的稀硝酸能溶解多少铁?能溶解5. 怎么区分糖水和盐水?要五种方法. 有丝分裂的细胞中有同源染色体吗? 解释高压锅煮饭熟得快的道理————用物理知识! 糖水与盐水混合一起,如何区分? 人类的细胞有丝分裂后期有几个染色体?为啥说,人体普通细胞的染色体是46条?不应该说染色单体有46条吗? 蔗糖是否是还原糖麦芽糖水解生成两分子的葡糖糖,所以它是还原糖,可是蔗糖水解生成的是一分子的果糖和一分子的葡萄糖,而葡萄糖和果糖又都是还原性的糖,为什么蔗糖不是还原糖呢? 求怎样用浓硝酸配100毫升0.1N的硝酸,要有计算公式 猕猴桃属于酸性还是碱性 碳酸氢铵和氯化钠反应的原理是什么? 请问大家纯硝酸的密度是多少?如题, 观察细胞有丝分裂中期染色体形态可判断基因突变发生的位置这句话为什么错了 孟加拉国官方语言是什么? 一般情况听到或者看到杨梅.桔子之类会想流口水,这种反应叫什么反应?记得中学曾学过. 怎么判断电解质是部分电离还是完全电离?在不知道该电解质是强电解质还是弱电解质的情况下. 孟加拉国属于哪个洲?EM?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘