在應用程序中,有時需要用戶錄入一些不宜在屏幕上直接顯示的內容,如用戶口令或機密數據。我們已熟知,在Foxbase/Foxpro中這一功能可以用SETCONSOLEOFF命令關閉向屏幕的回顯來實現。那麼,在 VisualBasicforWin-dows中如何做到這一點呢?
一個容易想到的方法是利用文本框的Key-Press事件,但為了處理用戶對文字的編輯(如刪除、插入) ,則還要再用其它變量存放真正輸入的內容,而且必須書寫大量復雜的控制程序。實踐證明,這種方法 比較繁瑣,不便使用。
筆者在用VB編程時發現,Windows文本框可以響應許多消息,那麼,可不可以利用WindowsAPI函數 sendmessage將控制特性的消息傳遞給文本框呢?如果可行,則可以將使目標以密碼形式輸出的消息傳遞 給文本框,不就可以制作出不回顯文字的文本框了嗎?
答案是肯定的。筆者使用以上思路實現了這一功能。以下是程序中用到的幾個API函數和有關的消息:
getfocus():返回獲得輸入焦點的目標句柄;
getwindowlong():取得指定目標的信息,第二個參數為GWL_STYLE時將返回目標的"風格 "屬性;
setwindowlong():把新的屬性值賦予指定的目標。該函數的三個參數分別為目標的句柄、屬性類型、 新屬性值;
sendmessage():向目標發送一條消息。該函數的四個參數分別為接收消息的目標句柄、消息、消息參 數一、消息參數二;
GWL_STYLE(程序中簡寫為STYLE):其值為-16,表示目標的"風格";
ES_PASSWORD(程序中簡寫為PASS)簡寫為PASS):其值為&H20,表示目標具有錄入口令的屬性,即 在錄入時不回顯;
EM_SETPASSWORDCHAR(程序中簡寫為PASSCHAR):其值為&H41C,表示傳遞密碼特性。用 sendmessage向目標傳遞此消息成功,則目標會將自身的輸出信息以指定的密碼形式給出。
以下程序,通過sendmessage函數修改文本框Text1的"風格"屬性,使其以指定的密碼形 式輸出———不管用戶錄入的是什麼內容,都以相同數量的"*"來顯示。 用戶可以通過單點"Command1"按鈕來顯示Text1.Text的真正內容。
Declare Function getfocus Lib"user"() As Integer
Declare Function getwindowlong Lib "user"(ByVal hand As Integer,ByVal index
As Integer) As Long
Declare Function setwindowlong Lib "user"(ByVal hand As Integer,ByVal index
As Integer,ByVal newflag As Long) As Long
Declare Function sendmessage Lib"user"(ByVal hand As Integer,ByVal msg As
Integer,ByVal wpara As Integer,ByVal lpara As Long) As Long
ConstSTYLE=-16
ConstPASS=&H20
ConstPASSCHAR=&H41C
Sub Command1_Click()
MsgBox text1.Text
End Sub
Sub Command2_Click()
End
End Sub
Sub Form_Load()
Show
text1.SetFocus
hand%=getfocus()
flag&=getwindowlong(hand%,STYLE)OrPASS
flag&=setwindowlong(hand%,STYLE,flag&)
flag&=sendmessage(hand%,PASS-CHAR,Asc("*"),0&)
End Sub
