李碧穎、楊洪斌

　　在應(yīng)用程序中，有時(shí)需要用戶錄入一些不宜在屏幕上直接顯示的內(nèi)容，如用戶口令或機(jī)密數(shù)據(jù)。我們已熟知，在Foxbase/Foxpro中這一功能可以用SETCONSOLEOFF命令關(guān)閉向屏幕的回顯來(lái)實(shí)現(xiàn)。那么，在VisualBasicforWin-dows中如何做到這一點(diǎn)呢?

　　一個(gè)容易想到的方法是利用文本框的Key-Press事件，但為了處理用戶對(duì)文字的編輯(如刪除、插入)，則還要再用其它變量存放真正輸入的內(nèi)容，而且必須書寫大量復(fù)雜的控制程序。實(shí)踐證明，這種方法比較繁瑣，不便使用。

　　筆者在用VB編程時(shí)發(fā)現(xiàn)，Windows文本框可以響應(yīng)許多消息，那么，可不可以利用WindowsAPI函數(shù)sendmessage將控制特性的消息傳遞給文本框呢?如果可行，則可以將使目標(biāo)以密碼形式輸出的消息傳遞給文本框，不就可以制作出不回顯文字的文本框了嗎?

　　答案是肯定的。筆者使用以上思路實(shí)現(xiàn)了這一功能。以下是程序中用到的幾個(gè)API函數(shù)和有關(guān)的消息:

getfocus():返回獲得輸入焦點(diǎn)的目標(biāo)句柄;

getwindowlong():取得指定目標(biāo)的信息，第二個(gè)參數(shù)為GWL_STYLE時(shí)將返回目標(biāo)的“風(fēng)格”屬性;

setwindowlong():把新的屬性值賦予指定的目標(biāo)。該函數(shù)的三個(gè)參數(shù)分別為目標(biāo)的句柄、屬性類型、新屬性值;

sendmessage():向目標(biāo)發(fā)送一條消息。該函數(shù)的四個(gè)參數(shù)分別為接收消息的目標(biāo)句柄、消息、消息參數(shù)一、消息參數(shù)二;

GWL_STYLE(程序中簡(jiǎn)寫為STYLE):其值為-16，表示目標(biāo)的“風(fēng)格”;

ES_PASSWORD(程序中簡(jiǎn)寫為PASS)簡(jiǎn)寫為PASS):其值為&H20，表示目標(biāo)具有錄入口令的屬性，即在錄入時(shí)不回顯;

EM_SETPASSWORDCHAR(程序中簡(jiǎn)寫為PASSCHAR):其值為&H41C，表示傳遞密碼特性。用sendmessage向目標(biāo)傳遞此消息成功，則目標(biāo)會(huì)將自身的輸出信息以指定的密碼形式給出。

以下程序，通過(guò)sendmessage函數(shù)修改文本框Text1的“風(fēng)格”屬性，使其以指定的密碼形式輸出———不管用戶錄入的是什么內(nèi)容，都以相同數(shù)量的“*”來(lái)顯示。用戶可以通過(guò)單點(diǎn)“Command1”按鈕來(lái)顯示Text1.Text的真正內(nèi)容。



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