六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

用Visual Basic設計更好的用戶界面

[摘要]有時在一個窗口中出現較多的控制件時,如果能向導式地建議用戶下一步該做什么,不失為上策。 在Visual Basic的程序設計中,我們可以使用語句:Object.SetFaocus使我們希望的控件得到輸入焦點,舉個例子:在Form1中我們加入一個按鈕Command1和一個文本輸入Text1,雙擊按鈕...
有時在一個窗口中出現較多的控制件時,如果能向導式地建議用戶下一步該做什么,不失為上策。

在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時,因為這時的回車鍵是起換行的作用。


主站蜘蛛池模板: 一级毛片在线免费视频 | 午夜国产福利在线观看 | 色吧综合网 | 亚洲高清一区二区三区四区 | 伊人资源 | 在线a视频| 亚洲伊人成综合人影院小说 | 色yeye在线观视频 | 青草青在线免费视频 | 人人色在线视频播放 | 亚洲欧美v | 污视频在线免费观看 | 天天干天天拍天天射天天添天天爱 | 亚洲网址在线观看 | 日韩精品欧美亚洲高清有无 | 性做久久久久 | 欧美性视频一区二区三区 | 一级十八以 下岁女子毛片 一级人做人爰a全过程免费视频 | 校园激情综合网 | 日本欧美一区二区三区视频 | 中文字幕欧美视频 | 亚洲免费一 | 日韩中文字幕在线不卡 | 欧美一区二区三区不卡 | 日本欧美高清全视频 | 无码精品一区二区三区免费视频 | 在线高清h视频在线观看 | 在线看欧美日韩中文字幕 | 青青青青青青在线精品视频 | 欧美天堂在线观看 | 天天爽天天狼久久久综合 | 欧美亚洲欧美日韩中文二区 | 婷婷丁香综合网 | 日韩中文字幕在线观看 | 一区二区三区在线观看视频 | 天天影视色香欲综合影视大全 | 天天干夜夜操 | 亚洲综合小说网 | 伊人第一页 | 亚洲综合第一区 | 亚洲大尺度在线 |