لإدارة المبيعات  :  Email : sales@elzohry.net   للدعم الفني  Email : support@elzohry.net

لمدير الشركة : Email:  elzohry@elzohry.net للشراء من أمريكا : http://www.selectedu.com/outget/products.htm

تحميل قائمة المنتجات والأسعار  مطلوب وكلاء في كل دول العالم 

برامج مختارة اسألونا مواقع مختارة موسوعتك قريباً منتجاتنا

الصفحة الرئيسية 

FAQs ( 20 / 5 / 2000 )

أسئلة وأجوبتها20 / 5 / 2000

إذا كان لديك استفسار، عن لغة الفيجول بيسك Visual Basic فلا تترد فى إرسالة لنا وسنجيب عليه إن شاء الله في أقرب فرصة، وجزاك الله كل خير على ما تقدمة من نصيحة أو استفسار.

  Elzohry@elzohry.com

 

كيفية إلغاء إعادة التحميل عند الضغط على Ctrl + Alt + Del برمجيا من خلال الفيجول بيسك؟

في بعض الأوقات قد نحتاج لتبطيل إمكانية غلق البرنامج أو إعادة تحميل الويندوز بإستخدام Ctrl + Alt + Del وخاصة في برامج الحفاظ على الشاشة ScreenSaver، الكود التالي يقوم بهذه العملية وكذلك يقوم بتبطيل الذهاب لقائمة إبدأ عن طريق الضغط على مفتاحي Ctrl + Esc.

قم بنسخ الكود التالي للموديول Module :

Private Declare Function SystemParametersInfo Lib _ "user32" Alias "SystemParametersInfoA" (ByVal uAction _ As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long

Sub DisableCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

وهكذا إلى إردت تبطيل مفعول Ctrl + Alt + Del قم بإستدعاء الدالة التالية: 

Call DisableCtrlAltDelete(True)

وإذا أردت تمكينها فقم بكتابة الكود التالي :

Call DisableCtrlAltDelete(False)

 إلى أعلى

 

كيف يمكن إعادة تحميل الويندوز برمجياً ?

في بعض الأحيان يقوم برنامج الإعداد الخاص بالبرنامج بتغيير بعض ملفات النظام والتي لن تعمل إلا بعد إعادة تحميل النظام، الآن يمكنك إعادة تحميل الويندوز أو حتى إغلاق الويندوز برمجيا.

قم بنسخ الكود التالي للموديول Module :

Public Const EWX_LOGOFF = 0 

Public Const EWX_SHUTDOWN = 1 

Public Const EWX_REBOOT = 2 

Public Const EWX_FORCE = 4 

Declare Function ExitWindowsEx Lib "user32" Alias _ "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _ As Long) As Long

إذا أردت أن تعيد تحميل النظام، فاكتب الأمر التالي:

t& = ExitWindowsEx(EWX_REBOOT, 0)

إذا أردت أن إغلاق الويندوز، قم بكتابة الأمر التالي:

t& = ExitWindowsEx(EWX_SHUTDOWN , 0)

 

 إلى أعلى

 

فتح وغلق مسوق أقراص الليزر Cd Rom.

قم بنسخ الكود التالي للموديول Module :

DeclareFunction mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand as string,ByVal lpstrReturnString as string,ByVal uReturnLength as long,ByVal hwndCallback as long) as long

لغلق مسوق الإسطوانات، قم بكتابة الكود التالي:

retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0) 

لفتح مسوق الإسطوانات، قم بكتابة الكود التالي:

retvalue = mciSendString("set CDAudio door open", returnstring,127, 0) 

 إلى أعلى

 

تحريك النموذج Form عن طريق الماوس Mouse .

كثيرا ما نقوم بتغيير شكل النموذج، ليكون كهيئة رسمة معينة ونقوم بإلغاء شريط العنوان Caption bar أو Title Bar ثم نقع في مشكلة وهي عدم إمكانية تحريك النموذج، عن طريق الكود التالي يمكنك تحريك النموذج بالماوس عن طريق النقر والسحب من أي مكان على النموذج.

قم بنسخ الكود التالي للموديول Module :

Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1

قم بكتابة الكود التالي وليكن عند الحدث MouseDown_Event والخاص مثلا بأداة PictureBox

ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

 إلى أعلى

 

تشغيل ملفات الصوت .Wav .

قم بنسخ الكود التالي للموديول Module :

Public Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub PlayWav(path As String)
 Dim SafeFile As String
 file$ = Dir(path$)
 If file$ <> "" Then Call playa(WavFile$, SND_FLAG)
End Sub

لتشغيل أي ملف صوت قم بكتابة الأمر التالي، مع تغيير اسم ومسار ملف الصوت المراد تشغيله:

Call PlayWavFile("c:\ElzohryProject\Quran\Fateh.wav")

 إلى أعلى

 

برامجنا

 

برنامج اليوم 

القرآن الكريم

 

كتاب اليوم

Platinum Edition Using Visual Basic 5

Platinum Edition Using Visual Basic 5

 

موقع اليوم

 

أهل الحديث

 

شاركونا

Elzohry@elzohry.net  

              يمكنك مراسلتنا على البريد الإلكتروني:

جمهورية مصر العربية - 27 ش محمد على ربيع - فيصل - الجيزة

              العنوان:

                                                 تليفون/فاكس: 5827557  - 202 - موبايل: 0127450035  - 0101553588 - 0123132529 -

يفضل استخدام متصفح إنترنت إكسبلورر 5 أو أعلى

كافة الحقوق محفوظة للزهري للبرمجيات 2005

مطلوب وكلاء - موزعين في جميع أنحاء العالم