دراكولا 2002

لتشغيل ملفات GIF gif.zip

بيانو midipiano11172002.zip

الة حاسبة calc1.zip

لصنع بروجريس بار progress.zip

الفورم الشفاف transparent.zip

هذا مثال لعمل برنامج لاخذ صورة للشاشة printscreen.zip

لعبة Connect4 connect4.zip

لعبة بلاك وينتر blackwinter.zip

كود يجعل الشاشة تبدوا و كأنها منصهره الصق الكود التالي Private Declare Function GetDC Lib "user32" ( _ ByVal hwnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" ( _ ByVal hDestDC As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal nWidth As Lo…

عمل كلمة مرور للبرنامج Private Sub Form_Load() Dim s As Integer Dim passw As String Do Until (s = 5 Or passw = "00000") passw = InputBox("ادخل كلمة المرور", "كلمة مرور مطلوبة") s = s + 1 Loop If s = 5 Then MsgBox "كلمة المرور التي ادخلتها خاطئة... الرجاء حاول …

مثال على كيفية وضع جميع الفونتات (Fonts) فى الأداة TreeView Private Sub Form_Load() Dim root As Node Dim i As Integer With TreeView1.Nodes Set root = .Add(, , , "Fonts") .Add root.Index, tvwChild, , Screen.Fonts(i) For i = 1 To Screen.FontCount - 1 .Add root.I…

تحويل مشروع فيجوال بيسك إلى ملف تنفيذى (EXE) عن طريق الكود Private Sub Command1_Click() Shell "vb6.exe /make C:ProgramsProject.vbp C:ProgramsProject.exe" End Sub

هذه لعبة سناك برمجة الفيجوال بيسك dxsnakes.zip

هذا الكود لطباعة النص الموجود في التكست بوكس code: Printer.Print Text1.Text

هذا الكود لقلب الصورة بشكل عمودي code: Picture2.PaintPicture Picture1.Picture, 0, 0, _ Picture1.Width, Picture1.Height, 0, Picture1.Height, _ Picture1.Width, -Picture1.Height, vbSrcCopy

كود لتحويل ألوان الصور إلى الرمادي أضف زر كوماند ومربع صورة واكتب في الكوماند الكود التالي code: Picture1.ScaleMode = vbPixels x = Picture1.ScaleWidth y = Picture1.ScaleHeight For i = 0 To y - 1 For j = 0 To x - 1 pixel = Picture1.Point(j, i) red = pixel Mod 2…

جعل اسم النموذج يومض Create a new .exe project, add a module to it with the following code: Public Declare Function FlashWindow _ Lib "user32" (ByVal hwnd As Long, _ ByVal bInvert As Long) As Long Put a timer and 2 commandbuttons on form1 with these properties…

تعطيل مفاتيح Alt + Shift + Delete Copy this code into the declarations section of your project. Private Declare Function SystemParametersInfo Lib _ "user32" Alias "SystemParametersInfoA" (ByVal uAction _ As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ …

الحصول على اسم المستخدم Dim s As String Dim cnt As Long Dim dl As Long Dim CurUser as String cnt = 199 s = String$(200, 0) dl = GetUserName(s, cnt) If dl <> 0 Then curuser = Left$(s, cnt) Else curuser = "" You must declare the following function in the declara…

معلومات عن المساحة الحرة على القرص الصلب Use the function GetDiskFreeSpace. The declaration for this API function is: Declare Function GetDiskFreeSpace Lib "kernel32" Alias _ "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _ lpSectorsPerCluster As Long, l…