文本框密码的问题！

[bbinw]

如何在一个程序中判断另一程序中的某个文本框是否设置了passwordchar？

[馮強]

写外挂么？要用API的。

[bbinw]

不是的。用哪个API啊？

[bbinw]

有人知道吗？帮忙吖！

[cso]

Option Explicit
Private Const ES_PASSWORD = &H20&
Private Const GWL_STYLE& = (-16)
Private Declare Function GetWindowLong Lib _
"user32" Alias "GetWindowLongA" (ByVal hwnd _
As Long, ByVal nIndex As Long) As Long


Private Function CheckPassStyle(thwnd As Long) As Boolean
Dim tStyle As Long
tStyle = GetWindowLong(thwnd, GWL_STYLE)
CheckPassStyle = tStyle And ES_PASSWORD

End Function

Private Sub Form_Load()
MsgBox CheckPassStyle(Text1.hwnd)
End Sub

[bbinw]

楼上的，very very thanks:-)