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

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


For循环语句详解 - DOS BAT批处理编程入门教程(五) Android编程之实现GPS定位 android编程实现仿iphone的tab效果 系统变量 - DOS BAT批处理编程入门教程(三) Android编程获取手机的IMEI Android开发中14个很有用的编程技巧 Android蓝牙栈bluez使用方法 Android模拟GPS数据生成kml和nmea文件 Android签名用keytool和jarsigner制作apk文件 谈谈Android中文短信的实现 Android中文短信开发技巧 Android来电号码获取代码 Android AIDL初学者必看内容 Android与XML解析 Android天气预报程序开发实例与定位信息 Android中文短信开发终结篇 Android权限列表permission说明 Android输入法开发实例解析 Android示例程序Snake贪食蛇源代码分析 Android平台View的按键事件KeyDown用法 Android加速感应器实现屏幕自动旋转-Sensor属性 Android视频播放类VideoView解析 Javascript如何检测浏览器关闭了小叉叉 文件操作 - DOS BAT批处理编程入门教程(六) 获得手机中的电话簿 Android开发学习小心得 VC中用CPPToolTip轻松实现工具提示 Android中MediaRecorder类实现视频录制 WEB开发中将数据库记录转换到EXCEL表格文件xls供下载 F#是什么语言 函数式编程语言F#:基于CLR的另一个头等编程语言 高手请进!50分赠送!!!!!!!!!!!!!(运行正确即送分)! 一个关于dropdowndw的问题 普通PC是否有装UNIX的必要? 谁有好的加密算法介绍几个,在这里谢谢大家了! alter table--问题 请求帮助!help me!回答正确一定给分 哪里有卡通警察???? int64@163.com 我在一个.CPP文件中定义了一种ENUM类型,我怎样在其他的.CPP中定义此ENUM类型的变量? 小问题 Crystal reports的问题 a question about sqlserver + delphi 有关数据库的设计 请问谁有360度可以许多张图片旋转的代码。 各位大虾,kde下的KDevelop怎么用,尤其是C++编程? 急!急!急!急!急!急!急!急! 我该如何调试一个进程外的exe组件呢?我该如何调试一个进程外的exe组件呢? 打包的问题? 如何在一个MFC程序中取得theApp的指针?? vb与ACCESS200以上版本的兼容性问题 怎么做到的录像? 能不能在基于对话框的程序里实现串行化? MS专家请进:行锁定问题 怎样得到一个文件的扩展名 我在VB中引用了"Microsoft DAO2.5/3.5 compatibility Library",请问在做安装程序时要添加什么DLL和库文件? 高手请进!35分赠送!!!!!!!!!!!!!(运行正确即送分)! sos sos sos 求一源程序或者代码,或者详细制作方法 求教:用java怎样写,内详。 那位兄弟介绍一下国外的找工作情况 在我的主程序中调用ActiveX DLL的问题。 急救:ucdos98,如有请发给我,guicheng.wang@hisensecom.com 高分感激!!! 一个简单的问题? 买了个内置硬猫,装上驱动后机器慢得要命,好象一直在等待什么,而此时system进程占用cpu为99%。 关于专用打印机指令问题!!! 候捷和候俊杰是什么关系?? Crystal Reports的问题 什么是命名空间? 请问怎样订阅google上的新闻组?? 浏览器中的时间选择 谁知道程序员大本营2001光盘那个EXE文件的制作方法吗? 为什么没有actionscript的论坛?那个可是前沿啊/ 错误类型:Microsoft JET Database Engine (0x80040E09)是什么错误啊?请大虾们帮忙! 紧急:请问怎样在windows me中添加、设置并使用传真机 有谁有字节序转换的c代码?现在我要将网络字节序和主机字节序相互转换,但又不能调用api,不知那位大侠可以帮忙?先谢了! 用.NET制作安装盘的一些问题 有谁有字节序转换的c代码?现在我要将网络字节序和主机字节序相互转换,但又不能调用api,不知那位大侠可以帮忙?先谢了! 不能访问asp文件了?? 能做到让页面不刷新吗? 请教一个算法,有关数学的 FastReoprt 要!要!要!要!要!要!要!要! 《C++ Primer》 中文版怎么还不出啊! 母鸡如何受精孵出小鸡的?小时候在乡下看见过母鸡孵小鸡,但就是搞不懂母鸡怎样受精的,我从没见过鸡交配?请高人了却我好几年的疑惑 内存的大小从大到小排是什么?不是 比如 KB K MB M 的排列大小 排大小~ 母鸡孵化鸡蛋,有的蛋可以孵化成小鸡,有的不行.请问公鸡是怎样使母鸡受精的? 母鸡下几个蛋就开始孵小鸡 排大小哦 寻,尺,丈,里都是古代的长度单位,请按由小到大的顺序排例 母鸡下的蛋一定可以孵小鸡吗 这大小怎么排 长度单位寻,丈,尺,寸从大到小排列是 养鸡场的母鸡下的蛋都能孵出小鸡吗? 排列大小 质量为m的物体从静止开始自由下落,不计空气阻力,在t秒内重力对物体做功的平均功率是? 养鸡场的母鸡下的蛋都能孵出小鸡吗?为什么? 按大小排列 物体从高处自由若不计空气阻力则重力做功的功率将如何变化 母鸡生的蛋都能孵出小鸡吗? 鸡蛋需母鸡孵化多久才能出小鸡? 寻,里,尺,丈大小排列帮帮忙