أكواد مهمة جداً

بارك الله ........ فيك

والله أكواد جميلة أخي هاوي فيجول

ونتمنا المزيد منها ان شاء الله

شكراً أخويّ ( أبو زيد و yasserstars) على مروركما الجميل

نكمل الآن الجزء الثاني

الكود الأول:

لفتح السيدي و إغلاقه

اقتباس

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" ( _

    ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _

    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

   

Public Sub OpenCDDriveDoor(ByVal State As Boolean)

    If State = True Then

        Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)

    Else

        Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)

    End If

End Sub

   

Private Sub Command1_Click()

    OpenCDDriveDoor (True)

End Sub

   

Private Sub Command2_Click()

    OpenCDDriveDoor (False)

End Sub

   

الكود الثاني:

لإطفاء و تشغيل الشاشة

اقتباس

اكتب هذا الكود في قسم التصريحات :

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

Const WM_SYSCOMMAND = &H112

Const SC_MONITORPOWER = &HF170

ثم اكتب هذا الكود لإطفاء الشاشة :

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&

أما لتشغيل الشاشة فاكتب الكود التالي :

SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1

الكود الثالث:

استخدام winzip8 في برنامجك

اقتباس

Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean)

    zipIT = App.Path & "winzip32 -a"

    unzipIT = App.Path & "winzip32 -e "

    If zip = True Then

        Shell (zipIT & target & source)

    Else: Shell (unzipIT & target & source)

    End If

End Function

الكود الرابع:

ادراج صورة في الأداة Rich Text Box

اقتباس

ضع زر أمر و الأداة و أداة picture

و اكتب الكود التالي:

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 Const WM_PASTE = &H302

Private Sub Command1_Click()

'the 2 code lines below copy the picture box's picture to the clipboard. if you will omit them,

'the picture that currently found in the clipboard will be copied to the rich text box.

    Clipboard.Clear

    Clipboard.SetData Picture1.Picture

    SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0

End Sub

الكود الخامس:

البحث في الأداة List Box

اقتباس

Public Const LB_FINDSTRING = &H18F                  ' Used to search a List box

Public Declare Function SendMessageAny Lib "user32" _

    Alias "SendMessageA" (ByVal hwnd As Long, _

    ByVal wMsg As Long, ByVal wParam As Long, _

    lParam As Any) As Long

Public Function ListBoxIndex(ByVal lHwnd As Long, ByVal sSearchText As String) As Long

    ListBoxIndex = SendMessageAny(lHwnd, LB_FINDSTRING, -1, ByVal sSearchText)

End Function

أرجو أن تكون أعجبتكم و في إنتظار الردود

رائع جدا جدا أخي هاوي فجوال

يعطيك العافية والله ..اكوادر اكثر من رائعه ..

بس بالنسبه للكود الخامس ..استرجاع الاعدادات :

Private Sub Command1_Click()

'áÍÝÙ ÇáÃÚÏÇÏ

SaveSetting App.EXEName, "FORMS", "WIDTH", Form1.Width

MsgBox RESULT

End Sub

Private Sub Command2_Click()

'áÇÓÊÑÌÇÚ ÇáÃÚÏÇÏÊ

RESULT = GetSetting(App.EXEName, "FORMS", "WIDTH", "500")

MsgBox RESULT

End Sub

ممكن شرح الجمله :

SaveSetting App.EXEName, "FORMS", "WIDTH", Form1.Width

وبقدر استعمل الكود هادا لاسترجاع قاعده بينات بعد ما اعمل نسخ احتياطي ؟؟؟

مشكور جدا اخي ..

شكرا على الاكواد المفيدة جدا

شكراً لكم جميعاً على هذه الردود اللطيفة مثلكم

و بالنسبة للأخت عبير الكود معناه حفظ التغيرات على الفورم في مسار البرنامج و على ما أعتقد يمكنك إسترجاع قاعده بينات بعد عمل نسخ احتياطي ولكنني لست متأكد لأني لم أجربها....

وشكراً لكم مجدداً