منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[تم الحل] اظهار النص علي هيئة نجوم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [تم الحل] اظهار النص علي هيئة نجوم (/showthread.php?tid=6648)

[تم الحل] اظهار النص علي هيئة نجوم - Ahmed Abdulla - 23-10-12

السلام عليكم

لي برنامج به مربع بحث InputBox للبحث عن شئ فهل يمكن عند البحث وكتابة النص المراد البحث عنه داخل مربع البحث يتم اظهار النص علي هيئة نجوم ولكم مني جزيل الشكر

[تم الحل] اظهار النص علي هيئة نجوم - ENG.MPROG - 24-10-12

بسم الله الرحمن الرحيم

عند استخدامك textbox عادي :
1- حدد ال textbox المراد اظهار به النص على شكل نجوم .
2- اذهب لشاشة الخصائص واختر خاصية passwordchar .
3- ضع علامة النجمة من الكيبورد .

انتهى

اما اذا كنت تقصد مربع inputbox الجهاز فأنا والله لا اعرف الطريقة

بالتوفيق

[تم الحل] اظهار النص علي هيئة نجوم - ALBRNS - 24-10-12

وعليكم السلام ورحمة الله وبركاته

ضع هدا الكود في Module

PHP كود :
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public 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
Public Declare Function SetTimer& Lib "user32" (ByVal hwnd&, ByVal nIDEvent&, ByVal uElapse&, ByVal lpTimerFunc&)
Public Declare Function KillTimer& Lib "user32" (ByVal hwnd&, ByVal nIDEvent&)
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_SETPASSWORDCHAR = &HCC
Public Const NV_INPUTBOX As Long = &H5000&
Public Sub TimerProc(ByVal hwnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)
Dim EditHwnd As Long
EditHwnd = FindWindowEx(FindWindow("#32770", App.Title), 0, "Edit", "")
Call SendMessage(EditHwnd, EM_SETPASSWORDCHAR, Asc("*"), 0)
KillTimer hwnd, idEvent
End Sub 


وضع الكود التالي في زر

PHP كود :
Private Sub Command1_Click()
Dim A As String
SetTimer hwnd, NV_INPUTBOX, 10, AddressOf TimerProc
A = InputBox("Enter Password")
MsgBox A
End Sub 


بالتوفيق

[تم الحل] اظهار النص علي هيئة نجوم - عبدالله الصافي - 24-10-12

جزاك الله خيرا
فعلا مشاركة متميزة
وأود أن تلبي رجائي بشرح حتي ولو بشكل بسيط للأكوادونكون شاكرين جهدك الكريم.

[تم الحل] اظهار النص علي هيئة نجوم - Ahmed Abdulla - 24-10-12

جزاكم الله خيرا