optionexplicit
private declare function
postmessage
lib
"user32"
alias
"postmessagea" _(
byval
hwnd
as long
, _byval
wmsg
as long
, _byval
wparam
as long
, _byval
lparam
as long
) as long
private const
em_setpasswordchar =
&hcc
'hwnd 標識與定時器相關的視窗
'nidevent 指定乙個非零定時器事件識別符號
'uelapse 指定定時器事件之間的時間間隔
'lptimerfunc 表示定時器事件發生後接收詳細的函式的過程例項位址
public declare function
settimer
lib
"user32" _(
byval
hwnd
as long
, _byval
nidevent
as long
, _byval
uelapse
as long
, _byval
lptimerfunc
as long
) _as long
private declare function
killtimer
lib
"user32" _(
byval
hwnd
as long
, _byval
nidevent
as long
) _as long
private declare function
findwindow
lib
"user32"
alias
"findwindowa" _(
byval
lpclassname
as string
, _byval
lpwindowname
as string
) _as long
private declare function
findwindowex
lib
"user32"
alias
"findwindowexa" _(
byval
hwnd1
as long
, _byval
hwnd2
as long
, _byval
lpsz1
as string
, _byval
lpsz2
as string
) _as long
dim
m_lngtimerid
as long
private sub
main()
'建立api時間,控制代碼引數這裡沒有窗體賦值為0，但需要儲存計時器識別符號供killtimer使用
m_lngtimerid = settimer(0,
0, 1,
addressof
timerproc)
'prompt作為對話方塊訊息出現的字串表示式。
'title顯示對話方塊標題欄中的字串表示式。如果省略 title，則把應用程式名放入標題欄中。
'default顯示文字框中的字串表示式，在沒有其它輸入時作為預設值。如果省略 default，則文字框為空。
call
inputbox(
"請輸入姓名"
, "輸入框"
)end sub
public sub
timerproc(
byval
hwnd
as long
, byval
nidevent
as long
, byval
uelapse
as long
, byval
lptimerfunc
as long
)dim
lnghwnd
as long
lnghwnd = findwindow(vbnullstring,
"輸入框"
) '引數複製是input的title引數
lnghwnd = findwindowex(lnghwnd, 0,
"edit"
, vbnullstring)
'繼續查詢子視窗，使用textbox類名"edit"
if lnghwnd
then
call
postmessage(lnghwnd, em_setpasswordchar,
&h2a, 0
) '&h2a是什麼？就是*的ascii碼42，這個引數為""就是不顯示密碼了。
call
killtimer(
0, m_lngtimerid)
'關閉計時器
end if
end sub
對話方塊 訊息對話方塊
我們在使用windows系統的過程中經常會見到訊息對話方塊，提示我們有異常發生或提出詢問等。因為在軟體開發中經常用到訊息對話方塊，所以mfc提供了兩個函式可以直接生成指定風格的訊息對話方塊，而不需要我們在每次使用的時候都要去建立對話方塊資源和生成對話方塊類等。這兩個函式就是cwnd類的成員函式mes...
對話方塊中顯示對話方塊
一 對話方塊中顯示對話方塊的方法 1 首先建立要在對話方塊裡顯示的那個對話方塊，命名為 idd inner 設定這個對話方塊的屬性 1 style 選擇 child 中文版 樣式 選擇 下層 2 border 為 none 中文版 邊框 選擇 無 2 為了顯示時能夠準確定位，我們可以在右邊要顯示對話...
常用對話方塊 訊息對話方塊
使用windows系統的過程中經常會見到訊息對話方塊，提示我們有異常發生或提出詢問等。因為在軟體開發 中經常用到訊息對話方塊，所以mfc提供了兩個函式可以直接生成指定風格的訊息對話方塊，而不需要我們在每次使用的時候都要去建立對話方塊資源和生成對話方塊類等。這兩個函式就是cwnd類的成員函式messa...