通行证: 用户 密码 域名空间  下载中心 社区论坛 信息公告 MY小屋
联系我们
设为首页
加入收藏

 

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程 程序 网页图象 建站经验 私服
首页 | 新闻资讯 | 编程开发 | 网页设计 | 图形图象 | 网络媒体 | 网站模板 | 数 据 库 | 投稿
论坛 | 操作系统 | 系统优化 | 网络安全 | 黑客技术 | 硬件学堂 | 硬件报价 | 服 务 器 | 地图
专题 | 应用软件 | 聊天通讯 | Q Q 专栏 | 建站经验 | 在线工具 | 站长Club | 注 册 表 | 旧版
社会 | 游戏娱乐 | 设计欣赏 | 疑难解答 | 社区论坛 | 韩国素材 | 素材图库 | 广告服务 | 服务
当前位置:首页>>编程开发>>VB编程>>正文 新版上线![旧版]
注:打开慢时请稍等

VB编程开发常见技巧

http://www.iyit.net  日期:2006-4-29 22:29:49  来源:  点击:
参加讨论】isual Basic(以下简称VB)是Windows下的一个面向对象的可视 化开发环境,功能非常强大。下面笔者就自己在实际软件开发过程中 获得的一些经验和大家作以交流。
  提示钮的实现
  如果自己留心一点儿,一定注意到了Microsoft公司的一系列产品 (如Word、Excel甚至B 本身),都为其应用程序的命令按钮提供了信息 。如用户不清楚软件中所列图标按钮的功能, 可将鼠标移至该图标按 钮上,过一会儿在其下方就会显示一信息,说明它的作用,而鼠标移开 后,提示即消失。
图1
  这里我们利用mousemove这一事件来实现。先将Label1.visible 设置为False再输入以下代码。
  Private Sub Command1_MouseMove(Button As
  Integer,Shift As Integer,X As Single,
  Y As Single)
    Label1.Visible=True
  End Sub
  Private Sub Form_MouseMove(Button As Integer,Shift As In
teger,X As Single, As Single)
   Labl1.Visible=False
  End Sub
  若按钮放在Frame中,则将Form_mousemove事件改为Frame_mousem ove即可,或干脆二者都写。

  背景设置
  我们进行软件设计时,功能实现当然是第一位的,但人机界面也绝 不容忽视。有时我们希望为其加一个比较漂亮的背景,且自始至终都 在屏幕上。我们可让一窗体一直不释放,但这样效果并不好。VB提供 的MDI表单(Multiple Document Interface即多文档界面)是一个包含 多个子表单的容器,是应用程序的背景表单。我们可插入一MDI表单( 选Insert、MDI Form即可),这样就使应用程序具有了MDI功能。在MDI 窗体Picture属性中加入想要的图片,然后把其它表单的MDIChild属性 设置为True,使它们成为MDI主菜单的子表单。一个应用程序只能有一 个MDI表单,但可有多个各不相同的非MDI子表单。这一点在Word、Exc el中都有体现。如Micrs oft Excel中包含工作表和图表子菜单,作为 一些普通对话框的宿主。
  Tab键与回车键
  ①用过VB的人一定知道,用文本框Text输入时很不方便,因为VB本 身并不支持回车而自动跳到下一个控件。这一点可用Keypress事件来 解决。
  Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii=13 Then text2.SetFocus 13是return键
  End Sub
  ②另外,文本框在用户按回车键时会发出蜂鸣声,如何避免呢?输 入以下代码:
  Private Sub Text eyPress(KeyAscii As Integer)
   If KeyAscii=13 Then
   KeyAscii=0
   End If
  End Sub
  即可避免。而且用户按回车键常常有一定的目的——跳到下一个 控件,我们可让Tab键模拟回车键,只要在Keyascii=0前回上一句sendk eys"{Tab}"即可。
  快捷菜单的实现
  利用鼠标右键弹出菜单功能简单方便。如在Win95资源管理器中, 选中一文件目录或文件后按右键即弹出一菜单,可选"发送"项,很方便 拷贝至A盘;Desktop上按右键亦可方便修改桌面属性,这些都无疑极大 程度地方便了用户。我们利用VB编程时,也可实现这一功能。在菜单 编辑器中定义好菜单文件后,对鼠标右键编写对应的响应代码即可(必 须有下一级菜单)。
  Private Sub Form_MouseDown(Button As Integer,Shift As In
teger,X As Single, As Single)If Button=2 Then PopupMenu mhel
p
  End Sub
  若想原菜单不显示在屏幕上,可将其Visible设为False(如本例中 为mhelp)。图3

  滚动条
  笔者认为,VB4.0中提供的滚动条功能还不够完善,过程控制都得 用户自己去实现,如要用滚动条去控制文本框或标签,我们可将其Inde x属性改为0,利用数组控制下标来移动(如Tex( text).move X,Y),再 将其Visible作相应的改变即可。但如果开发程序较大、控制较多的 话,则需要把它们从内存中释放(即Unload),为程序顺利运行留下更多 的内存空间。此时需小心控制其下标以正确运行。
  按钮名的动态变化
  由于桌面空间有限,我们不可能同时在一屏幕上放很多控件,否则 会显得特别拥挤。但我们可从Foxpro Wizard开发的程序中得到启示 。如"追加"按钮揿下去后,即变为"存盘"或"放弃"。我们可将命令按 钮的Caption(或Text)属性变掉!如Command1的Caption开始设置为"追 加",输入以下代码:

本新闻共2页,当前在第1页  1  2  


编辑: [发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇:防止将重复项目添加到列表框控件中
下一篇:创建位图菜单
转载请注明来源:www.iyit.net
特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。

 相关文章
VB两种操作Access数据库方法的比较 用VC程序来创建SQL Server ODBC数据源 用VB备份和恢复SQL Server数据库的方法
VB程序如何访问数据库 VB程序如何连接数据库 VB+Oracle 9i如何构建开发和运行的环境
VC下利用Pro*C开发Oracle接口 VB游戏攻略 php编程命名规则
PHP编程常用技巧 PHP编程网上游 在VBScript中使用类(一)
在VBScript中使用类(二) 在VBScript中使用类(三) 在VBScript中使用类(四)
.Net环境下基于Ajax的MVC方案 RC4经典加密算法VB版本代码 在asp中通过vbs类实现rsa加密与解密
使用VC++6.0制作ASP服务器控件简介 ASP VBScript 函数速查表 清空iis log 中自己登录ip的vbs
PHP:MVC迷思 PHP程序员的自我修炼:PHP编程风格 MVC模式的PHP实现
最新更新 热点排行 推荐新闻
Visual Basic 5.0中实现视频画中画
保存列表框内容为文本文件
Visual Basic 概述
Visual Basic 概述二
Visual Basic 概念
站点FTP参数设置
用tar包配置高可用性vsftp(上)
用tar包配置高可用性vsftp (中)
用tar包配置高可用性vsftp (下)
菜鸟也能架设FTP服务器(一)
快速架设基于宽带的FTP服务器(上)
快速架设基于宽带的FTP服务器(下)
Serv-U:快速构建功能强大FTP服务器(二
Serv-U:快速构建功能强大FTP服务器(三
Serv-U:快速构建功能强大FTP服务器(四
Visual Basic 概述
快速初始化Variant和String类型数组
Visual Basic 概述二
VB中APP对象及其应用
Visual Basic使用技巧
优秀公益广告作品欣赏(8)
java数据类型转换
Windows XP专业版IIS连接数的更改
QQ最新版下载 2006 beta2 体验新感受 
优秀公益广告作品欣赏(7)
Office2007简体中文版浮出水面 美图抢
WEB服务器配置全攻略(三)
优秀公益广告作品欣赏(6)
优秀公益广告作品欣赏(4)
优秀公益广告作品欣赏(1)
直接编辑VB中网格控制项的两种方法
硬盘分区消失,解决方法!
传统计算机病毒传播能力破坏性在提高
内存为何有“两面性”
AMD水货盒装CPU识别方法
IP地址资源2012年枯竭 部署IPv6很紧迫
古老问题有新解:世上先有鸡蛋后有鸡
Dreamweaver MX 2004从零开始(1)
利用CSS改善网站可访问性
如何让MM的脸通透可人
msn8.0下载
 友情链接
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接
Copyrights © 2004-2006 iYiT.Net All Rights Reserved.
网站合作、广告联系QQ:147007642、466949678
易特网络技术 点击这里给我发消息