منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم

احتاج كود اظهار الباسورد والتي على شكل نجوم ******
بالاضافه الى تنفيذ البرنامج لو سمحتوا
شكرا
[/quote]

في خصائص text في PasswordChar اكتب رمز * او x او علامات اخرى

انا ئصدي لما يكون في باسورد وظاهرلي على شكل نجوم ***
بدي اسوي برنامج بمجرد ما امرر هاد البرنامج على النجوم هدول تظهر كلمه السر الحقيقيه ..
شكرا

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer()
Const EM_SETPASSWORDCHAR = &HCC
Dim coord As POINTAPI

s = GetCursorPos(coord)
x = coord.x
y = coord.y

H = WindowFromPoint(x, y)

Dim NewChar As Integer
NewChar = CLng(0)
RetVal = SendMessage(H, EM_SETPASSWORDCHAR, ByVal NewChar, 0)
End Sub
[/align]

الاصيله اشكرك على مرورك وردك الجميل ،
بس لما اجيت انفذ المشروع وئف عند
H = WindowFromPoint(x, y)

وما ئبل ينفذه !!!