e.-.m.-.p.-.o
Admin
المساهمات : 81
تاريخ التسجيل : 06/03/2011
 |  موضوع: شـرح عمل برنامج اظهارواخفاء سـطح المكتـب  الإثنين مارس 07, 2011 9:57 am | |
| <li>
</li>
<li>المثـآل على command يعــني بـس مثـآل لاكن لاجيت تطوره
</li>
<li>او عند دمـجه في آدآة آختـرآق آو ملف آخر عليك وضعهـآبالفورم ,
</li>
<li>اآنـآ وضعتـآ لكم على آلـ command شرح بسيط و[3] اكـوآد
</li>
<li>آول شـي نقـوم بـآدرآج آلـ Command
</li>
<li>مثـل مـآ فــي ألصــوره !
</li>
<li>
</li>
<li>الان نقـوم بـكتـآبة هذا الكـود آول كـود للـ General
اقتباس:
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
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
|
</li>
<li>مثـل مـآ فــي ألصــوره !
</li>
<li>
</li>
<li>الان كـود ألـ Command1 نكتـب هــذآ الكـود
اقتباس:
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5
|
</li>
<li>مثـل مـآ فــي ألصــوره !
</li>
<li>
</li>
<li>الان كـود الـ Command2 نكتـب هــذآ الكـود
اقتباس:
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
|
</li>
<li>مثـل مـآ فــي ألصــوره !
</li>
<li>
</li>
<li>وبكذا نـجرب البـرنـامج نقـوم بحفـظ البرنامج !
</li>
<li>
</li> | |
|
