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

用VB设计更好的用户界面

HTML文档下载 WORD文档下载 PDF文档下载
用VB设计更好的用户界面
有时在一个窗口中出现较多的控制件时,如果能向导式地建议用户下一步该做什么,不失为上策。在Visual Basic的程序设计中,我们可以使用语句:object.SetFaocus使我们希望的控件得到输入焦点,举个例子:在Form1中我们加入一个按钮Command1和一个文本输入Text1,双击按钮控件,然后键入如下代码:text1.SetFocus

  再按F5运行程序,您就会看到一单击按钮,文本框会立即取得输入焦点。另外,我们还可以使用语句:Sendkeys "{TAB}"使下一个控件获得焦点,但我们需要在设计时确定各控件的Index值。(在Properties窗口中)让控件自己感知自己的工作已完成,而主动将焦点让出,会使用户觉得应用程序很聪明,也减少了用户出错的机会。
  可是当焦点切换的两个控件相隔有一定距离时,上述的方法有时也不足以引起用户的注意,那么一种好的解决方法是将鼠标箭头也移到控件上。可惜,VB并不支持鼠标移动,那我们就求助API函数,API函数SetCursorPos可让我们如愿。
  下面是子程序MoveCursorOn,它可让鼠标移动到指定控件上方。

下列代码请放在declarations段中:
Type PoinTAPI
x As Integer
y As Integer
End Type
Declare Sub SetCursorPos Lib "User"(Byval x As Integer,Byval y As Integer)
Declare Sub ClientToScreen Lib "User"(Byval hwnd As Integer,IpPoint As PointAPI)
Declare Function GetParent Lib "User"(Byval hwnd As Integer)As Integer

然后建立一个新的子程序(ALT+N→N→键入子程序名MoveCursorOn),下面是子程序的代码:
Sub MoveCursorOn(source As Control)
   Dim Pt As PoinTAPI
   Dim hparent As Integer
   p.x=(Source.Left+Source.Width/2)/Screen.Twipsperpixel)
   p.y=(Source.Top+Source.Height/2)/Screen.Twipsperpixel)
   hparent=GetParent(source.hwnd)
   ClientToScreen hparent pt
   SetCursorPos pt.x pt.y
   End Sub

使用该子程序很容易,例如我们想把鼠标移动到按钮Command1上,就可使用语句Move Cursor On Command1
您会看到鼠标箭头已经指着按钮Command1。
  需要说明的是,千万不要滥用该子程序。让鼠标自己满屏乱飞,我们的用户会感到失去对应用程序的控制,这是违反我们的初衷的。
在有数个输入框的窗口中(这在数据库应用程序中是很典型的),当用户完成第一个输入框的输入后,总爱习惯性的加一个回车,希望输入焦点落到下一个输入框中(DOS中大多数应用程序是如此),可往往事与愿违,这一回车却触发了拥有Default特性的按钮,结果不是关闭了当前窗口就是又蹦出另一窗口。用户睁大眼睛看着屏幕,"咦?!我到底做了什么?”这是Windows新用户经常遇到的事情。解决它其实很容易,只需在输入框的KeyPress事件中加入如下代码:

IF KeyASCII=13 Then
  KeyASCII=0
  Sendkeys "{TAB}"
END IF

这样,当用户在这个输入框中键入Enter时,就象键入TAB键时,焦点被移到下一控件上。但需注意,这种方法不适用于多行的TextBox,即TextBox的MultiLine特性设为True时,因为这时的回车键是起换行的作用。
如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 使用Delphi实现滚动式面板窗口 通用的MsgBox-Delphi资料 图象放大镜——实现图象局部放大的原理和方法-Delphi资料 图形的特殊显示效果-Delphi资料 图形整体拉出效果-Delphi资料 一个实用的Delphi屏幕拷贝程序的设计 用Delphi 显示122种图形特效 用Delphi编写DLL实现动态改变分辨率 用Delphi进行OpenGL编程学习心得 用Delphi开发windows95屏幕保护预览程序 用Delphi实现壁纸更换 用DELPHI实现位图显示特技 用DELPHI中Canvas特性开发图形软件 用构件变换法实现动画效果-Delphi资料 在Delphi中使用动态图标 在Delphi中显示Windows图标 在多媒体文件中批量抓取图象-Delphi资料 怎样读出不同格式图形的高和宽-Delphi资料 怎样使用PageUp、PageDown滚动窗体-Delphi资料 怎样制作全透明的窗口-Delphi资料 DELPHI:FormContainer简易手册 Delphi:用FormContainer渐变效果 Delphi4的窗口融合技术 Delphi使用技巧ABC Delphi使用技巧四则 DELPHI中自适应表单的实现 TList的用法-Delphi资料 有谁知道win2003+sql2000的问题? 怎么删除表中列的DEFAULT啊??? 高手请进,将程序加为服务 关于邮件服务器 组件编写中的问题--如何显示图标 记得以前学计算机的热情很大,并且非常希望有一台计算机,可是现在机器有了,却没有了以前的热情,经典书买了一堆却都没有看,我在想到底要不 关于超星的问题 大家装了windows server 2003么?怎么样啊?讨论一下好么!! 救救我吖!!怎样在oracle8.0.5中直接添加数据!!高分!急!! 大问题!!!装2003后网卡驱程不行,声卡装了听不到声音??? java能不能实现多文档(象VC++中)? 哪位E文好的同志能把这段话翻译出来,是RFC1928中的一段。 一个比较低级的问题-vb里面的回车换行孵的ASCII码是多少?? 奇怪!!!奇怪!!!奇怪!!!奇怪!!!快来看看! 谁知道windows的按文件名排序是怎么回事阿? ie问题 如何从一个框架调用另一个框架的方法?有办法吗?(在线) 突然觉得计算机语言有个误区 请问我用depends打开了dll文件,看到了里面的函数,但是参数表和返回值类型没有啊 水晶报表急问,大家帮帮忙看看! 请教文件查找的问题。 谁知道windows的按文件名排序是怎么回事阿? oracle难学吗 <jsp:getProperty name="userInfor" property="*"/> 出错!!(在线等待) 如何在vb中设置Combo的默认值?立刻给分 点击按纽,打开应用程序文件,并获得应用程序的窗口标题,怎么实现??? Linux遇到CORBA问题——高分有送! 新的IBM 60G硬盘(7200转)在PII上检测不到(硬盘没问题,在其他上能正常使用,有没有解决办法?) 21世纪合格人材必备7大技能 对加密感兴趣的同志请进,介绍一下有关书籍和代码。 word中的特殊数学符号无法在Authorware中显示 windows 下刪除文件是怎麼刪除的用什麼函數??? 找一部电影,《国家的敌人》 高分送高人:一个OLE和数据库的小问题 父子表的更新怎么办? 电话拨号程序,给点提示 关于调用存储过程的问题!在线,搞定就结 求问,关于BEA weblogic 7.0 100分求助Windows Server 2003 的cdk! 那位大侠帮忙谢谢! hello 大家好!不好意思又有问题了 我一直想学会的一个简单问题,谢谢! 问一个参数传递的超菜问题? 怎样才能将资源文件中的 图片 二进制文件 保存到磁盘上 请教这句是什么意思? 关于页面设计的问题?高手请教!! 100分求助Windows Server 2003 的cdk! 那位大侠帮忙谢谢! matlab s-矩阵(若回答满意加100分,每题25分) 关于页面设计的问题,求助? TListView中某一行字体的大小、字体的颜色如何改变? 各位高手给小弟指点指点吧!(DELPHI请教) fastreport中Picture控件的问题? 求解释第4小题 求解释38题的所有选项,和第39题 求解释第45题 我悠然前行什么意思 需要中国成语对照给予下面的英语解释:Tell me and I'll forget; show me and I may remember; involve me and I'll understand.Outside noisy,inside empty.Make happy those who are near,and those who are far will come.To forget one's ancesto 请问,第九题的选项A为什么错误? D1和cif的区别是什么?关于图像监控方面的问题 我要中文成语的英文对照.越多越好^^^ 我得到了启示550字以上,急,好的加分 ____ do you think has left the message on the wall?A What B How C Whom D Who 下列英文对应的是什么成语?the apple in the hand---?grief and indignation---?carry sth through to the end---?apple-pie order---?faithfulness---?let yourself go---?the lip rifle tongue---?take advantage of a weak point---?as if wakening from 全宇宙比流离更加脑残的生物 如何应用表观遗传学研究癌基因的致癌作用 重要的用英语怎么写 我得到了启示.(扩句) 古罗马由共和制转帝制是进步还是后退论文500~800字左右 要悠闲的古诗,要完整的~~~~ 塑钢窗变黄怎么处理? LOVE什么意思? 做…是重要的 英语怎么说 一个小球在半径为40cm的圆形轨道上做匀速圆周运动,若他在0.5s内转过了45°角,求小球的线速度和向心加速度 诊断卡显示D1是什么意思?该怎么解决?进不了系统~黑屏无法通过自检~请问各位达人是什么问题,该如何解决?跟系统无关~ bird 函数不行吧谁创建的? 一颗卫星在距地球高度为h的轨道上匀速圆周运动,周期为t,地球半径为r,求卫星线速度,还有物体在地球表面下落的加速度和地球的宇宙第一速度, 硬盘录像机d1什么意思? 监察和监管分别是什么意思啊 万二中暑假生活数学部分的几何部分和初一易错题集发答案到时候可以来找我跪谢 战国策 魏策 文候与虞人期猎.是日,饮酒乐,天雨.文候将出,左右曰:“今日饮酒了,天又雨 ,公将焉之?”文候曰:“吾与虞人期猎,虽乐,岂可不一会期哉?”乃往,身自罢之.魏于是乎始强.1.解释下 印迹清晰,即印即干.英语怎么说? 饮湖上初晴后雨中的”西子“指(    ). 圆柱一定要两个圆大小一样吗 饮湖上初晴后雨 前两句比喻什么 欲把西湖比西子的西湖指哪里的西湖就是西湖是哪个市的西湖 我听朋友说是杭州 但有的说是惠州 《战国策》全文在线阅读战国策全文在线阅读 二鸿文言文的中心思想是什么呀, 治世不一道 便国不法古体现了商鞅什么样的主张 英语:我们打算明天去登长城:We__ __ __ __up the Great Wall tomorrow有 up 阴阳眼如何开 商鞅的:治世不一道,便国不法古. 《战国策,魏策》的阅读答案,魏文侯,期什么意思拜托了各位 谢谢 怎么开阴阳眼(方法简便,)什么用牛眼泪,什么又,吞 乌鸦眼, 还有看过很多,都没用.我只想开开阴阳眼,回答得好 加分100...!顺便拜个会抓鬼的师傅,我想 跟他学学 英语翻译请问,把“真爱传奇”翻译成英文怎样译才最有深意呢,True Love The Legends 这样拼写正确吗,还有没有更好的译法? 用两张同样大小的长方形纸卷成圆柱(接头处不重叠),并装上两个圆形底面,制成两个圆柱,这两个圆柱的形A.一定相同 b.一定不相同 c.不一定相同 英语翻译:她只是普通水平 扇形的面积挂钟的时针长7厘米,从1点到6点,时针扫过的面积算式是() 外界的压力,通过正面抗争去战胜它,有时要向雪松那样先弯曲一下,适当的让步,以求反弹的机会理解是啥?费尽脑汁啦 怎样靠接电池负极的开关通断来控制三极管的通断呢?如图要在电池正极和D2阳极之间接入三极管之类的,达到S1断开时,三极管截止,电池正极和D2阳极之间为断开,S1闭合时,三极管饱和,电池正极 函数F(x)=A(x)-B(x),有没有一个公式或定理来讨论或是证明在定义域内的任一x,A(x)>B(X)例如函数F(x)=A(x)-B(x),有没有相关公式或定理来讨论或是证明在定义域内的任一x,A(x)>B(X).因为有的函数像f(x) What+is+the+weather+like+in+July+in+Shanghai?这句话对吗 把电池里面的电能输给用电器为什么还连接负极 在开始里关闭计算机时突然出现希望计算机做什么 怎样恢复原来的关机方式 what is the weather like in July in Shanghai?这句话是这儿么说的吗? 从电源正极先经过用电器后经过开关最后回到负极用电器会亮吗? 悠然的意思 对于生活的压力,可以通过正面抗争去战胜它,有时也可以先弯曲一下,作出适当的让步,以更积蓄力量,以求反弹,用一个名句表达这个意思………… 第21和22题双选题 悠然什么意思 酵母双杂交中,转化诱饵载体时的鲑鱼精DNA的作用是什么?酵母双杂交中,转化诱饵载体时,将鲑鱼精同诱饵质粒同时加入的作用是什么? [娱乐]世界上最脑残的生物是什么?这是娱乐,何必当真. 悠然的意思?在线等. 英语对应的成语1.like a duck to water2.poor as a church mouse3.at sixes and sevens4.spend money like to water5.as timid as a bare 从奥巴马借助大数据成功连任说起美国一位妈妈送13岁儿子手机前“约法人民币升值,钱却为何越来越不值钱埃及审判穆尔西或将引发新的流血冲突俄罗斯:严防“黑寡妇”袭击 确保冬奥俄称斯诺登可去德国协助调查窃听事件泰国沉船事故致一中国人遇难 渡轮超载苏格兰首席部长访华 推动双方经贸合作苏格兰首席部长访华 推动双方经贸合作缅甸穆斯林赴邻国避难遇海难 或死伤惨中国海外移民生存录:从\"卖猪仔\"美澳联手监听亚太 “特等舱”行动曝光印度女婴家传怪病 身体多毛酷似狼孩【深秋也会得热射病 永康男子差点没了命男子驾车时低头捡手机 一抬头开偏车道宁海男子欠前女友20万元不还 法官上曼德拉生平电影首映 前妻称反映其“苦英一医院误诊流产百例泰国沉船事故致一中国人遇难 渡轮超载武林CBD将启动推进11大项目 新增孙杨无驾照开豪车出车祸 致歉称将加强我省17岁男生平均身高173.6cm“紫红”窗帘买到家变成深咖色明天开始气温再次下降健康过大年 晨报发“健康红包”!大寒将至 抓住“冬藏”去病最佳时彭帅拿到新赛季首胜13岁男孩右手被铡草机切碎“我建议他扑左边”NFL最终四强决出金华市人民医院迁至东市街浙江经济创新榜今日集结 请你为浙江创在爱情里,不要老是一厢情愿富氧水、矿物质水等名称将禁用南华商品综合指数浙江经济创新榜今日集结 请你为浙江创秀红唇 拍美食 三家餐厅等你来白吃 苏丹总统巴希尔会见王毅研究称“脸书”用户成长放缓 多重社交海关总署:中国外贸在提质量等方面取得中国援塞公共卫生师资培训队首批队员凯麻木是椎间盘突出证常见症状
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘