دراكولا 2002

هل تريد التعرف على خصائص الطابعة أي هل تريد إظهار نافذة خصائص الطابعة إتبع ما يلي : إضغط على ctrl+t إختر من النافذة التي سوف تظهر لك Microsoft Common Dialog وذلك بوضع أمامه صح ثم OK أضفه في الفورم واكتب الكود التالي في حدث الضغط على زر Dim BeginPage, EndPage, …

هذا الكود يقوم بإخبارك هب يوجد كرت صوت أم لا أي هل تستطيع تشغيل ملفات الأصوات في جهازك ضع هذا الكود في الموديل Module Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long اضف زر Command وضع فيه الكود التالي Dim i As Integer i = waveOutGetNumDevs() If …

هذه الدالة تعرض مربع حوار تهيئة القرص المرن Const SHFD_CAPACITY_DEFAULT = 0 Const SHFD_FORMAT_QUICK = 0 Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As …

هذه الدالة لتغيير ألوان الواجهة للويندوز Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Const COLOR…

هذه الدالة تقوم بتعطيل زر إغلاق Close الذي يوجد في كل نافذة Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long Private Dec…

هذه الدالة تقوم بنقل ملف من مسار إلى مسار آخر Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() MoveFile "c:WindowsDesktopa.txt", "c:a.txt…

هذه الدالة لتحميل صفحة من الإنترنت Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub…

هذا الكود لعمل فورم رخامي ضع هذا الكود في قسم التصريحات General Private Sub GradientFill() Dim i As Long Dim c As Integer Dim r As Double r = ScaleHeight / 3.142 For i = 0 To ScaleHeight c = Abs(220 * Sin(i / r)) Me.Line (0, i)-(ScaleWidth, i), RGB(c, c, c + 3…

لتحميل جميع خطوط الكمبيوتر في الكومبو بوكس إكتب الكود Private Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i) Next i Combo1.Text = Combo1.List(0) End Sub