社区
VB基础类
帖子详情
如何在代码中取得当前获得焦点的控件
一杯清茶几行代码
2003-08-22 02:54:13
请教 ,如何在代码中取得当前获得焦点的控件?
...全文
39
1
打赏
收藏
如何在代码中取得当前获得焦点的控件
请教 ,如何在代码中取得当前获得焦点的控件?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lihonggen0
2003-08-22
打赏
举报
回复
Text1.SetFocus
MsgBox Me.ActiveControl.Name
Text2.SetFocus
MsgBox Me.ActiveControl.Name
使用JS
取得
焦点
(focus)元素
代码
主要介绍了使用JS
取得
焦点
(focus)元素的具体实现,需要的朋友可以参考下
OBControl v1.1
控件
for Delphi
控件
包包括： 1.TOBXPBarMenu ========== 就是大名鼎鼎的XPMenu
控件
名，这个
控件
包是Kingron修改过的，我对它也进行过一些小修改。 2.TOBCdUtils ========== 用来控制CD-ROM的开关，里面提供两个函数，直接调用就是了。 3.TOBCreateShortcut ========== 用于在桌面上创建快捷方式，如果你写安装程序的话，相信会节省不少
代码
。 4.TOBDirectories ==========
取得
系统相关的各种路径，不用调用函数，直接读取
控件
相关属性就可以，十分实用。 5.TOBGammaPanel ========== 十分漂亮和专业的颜色取色器，不是取其它窗口的颜色，而且提供一个容器让用户选择颜色。 6.TOBFormMagnet ========== 不用写任何
代码
，让你的程序实现Winamp的磁性窗口效果。 7.TOBStarfield ========== 产生满天星空的效果，做关于窗口的话效果真会让人吃惊。 8.TOBThread ========== 多线程
控件
，再也不用为使用线程而新建一个文件了。而且提供多个函数和OnFinish线程完成、OnFinishAll所有线程完成等重要事件。 9.TOBZoom ========== 一个类似Windows放大镜的
控件
，如果需要写图像漫游的话就十分合适了。 10.TOBZlibMultiple ========== 使用了Delphi的ZLib进行压缩，不同的是它可以将多个文件、整个目录压缩到一个文件
中
，还可以进行解压。十分适合用在程序的备份功能上。 11.TOBSearchFile ========== 可以为你
取得
指定目录下面的所有文件名，相信很多人都需要这个
控件
。提供OnChangeDir事件让你在查找过程
中
进入子目录也能得到处理。 12.TOBDragDrop ========== 加入此
控件
后，你的程序就可以接受浏览器的文件拖入。 13.TOBAssociateExtension ========== 使你的程序有关联某种文件的能力。以前写此类相关
代码
真的好烦，现在好了，一个
控件
就搞定了。 14.TOBIQShine ========== 使得某个
控件
产生星光闪闪的效果，十分的抢眼，好看。程序
中
将
当前
输入
焦点
设置为星光闪闪是一个不错的选择。 15.TOBWavePlayer ========== 顾名思义，就是一个播放Wav文件的
控件
，提供循环播放的功能。 16.TOBTimeLimit ========== 如果你要设置程序只能使用到某个日期的话，只需放上此
控件
，并设置日期就可以了。 17.TOBAutoSizeCompo ========== 使你的程序能根据窗口大小，自动放大缩小窗口
控件
的大小及位置。 18.TOBInstances ========== 使用此
控件
可以使你的程序只会运行一个实例，而你却无需编写任何
代码
。 19.TOBFileStore ========== 可以将任何文件保存到窗口上。以前要写这样的功能，文件只能保存到资源上，很不方便。 20.TOBPictureStore ========== 可以组织一些不可见的图片。作者一般使用在自画的
控件
上。 1.1版本新增 : 21.TOBSysInfo ========== 收集系统CPU、显卡、网卡、系统等信息，资料十分齐全。感谢wind8bell提供资料。 22.TOBFormButton ========== 使得你的程序可以在标题栏添加按钮，并提供多种按钮图标或自定义图标。
VBA从入门到精通（
控件
+类模块+ADO+SQL数据库）
VBA
中
比较高阶的课程，主要讲解关于各种事件的应用，各种
控件
的应用，如果使用类模块，如果在VBA用调用SQL语句去处理数据库
中
的数据等操作。学习完成本课后，你可以在Excel
中
开发各种小型应用系统。以下是课程主要...
P2P技术应用（VB收发邮件源
代码
）
VB6.0 收发邮件一例，完整的源
代码
。收邮件的过程：需要先登录，活动窗体
中
具有输入
焦点
控件
的字体设置，然后打开邮件对话，
取得
邮箱
中
邮件的数量，将邮件的信息装载到邮件列表窗体
中
的列表框，根据选择的邮件索引确定相关菜单项和工具栏按扭的可用状态，设置各个按扭及菜单的可用状态；当阅读邮件消息的子窗体处于是活动子窗体时，将MAPIMessages
控件
的消息索引与邮件消息列表框索引，设置为与
当前
阅读的邮件一致，当窗体大小发生改变时，调整各
控件
的大小； 发邮件：调用收发邮件设置对话框，撰写新邮件，使用MAPI对话框撰写及发送电子邮件，使用设计的窗体NewMsg撰写及发送电子邮件，在删除
当前
邮件后，下一封邮件的位置设置为
当前
位置，这时需要判断该邮件是否已经在子窗体MsgView
中
显示，如是，将其设为活动窗体，否则，用MsgView显示该邮件……
VB6.0 收发邮件一例，附
代码
内容索引:VB源码,网络相关,收发邮件 VB6.0 收发邮件一例，完整的源
代码
。收邮件的过程：需要先登录，活动窗体
中
具有输入
焦点
控件
的字体设置，然后打开邮件对话，
取得
邮箱
中
邮件的数量，将邮件的信息装载到邮件列表窗体
中
的列表框，根据选择的邮件索引确定相关菜单项和工具栏按扭的可用状态，设置各个按扭及菜单的可用状态；当阅读邮件消息的子窗体处于是活动子窗体时，将MAPIMessages
控件
的消息索引与邮件消息列表框索引，设置为与
当前
阅读的邮件一致，当窗体大小发生改变时，调整各
控件
的大小； 发邮件：调用收发邮件设置对话框，撰写新邮件，使用MAPI对话框撰写及发送电子邮件，使用设计的窗体NewMsg撰写及发送电子邮件，在删除
当前
邮件后，下一封邮件的位置设置为
当前
位置，这时需要判断该邮件是否已经在子窗体MsgView
中
显示，如是，将其设为活动窗体，否则，用MsgView显示该邮件……
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章
发帖
与我相关
我的任务
分享
