عبد الله فتحي

:)

أختي العزيزة لتحريك الصورة من خلال الأسهم أضيفي هذا الكود في الفورم Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 37 'left Picture1.Left = Picture1.Left - 15 Case 38 'up Picture1.Top = Picture1.Top - 15 Case 39 ' right…

بالنسبة للسحب وترتيب الفورم في القائمة، فأنا أظن إنها ما راح تنفع، ولكن ممكن نجرب. ولكن بإمكانك كحل غير مباشر أن تقوم باختيار الفورم الأولى form1 لكي تشتغل أولاً من خلال القائمة Project --> Project Properits --> General. ثم تقوم بكتابة form6.show في حدث Form_L…

أخي الكريم NOP يمكنك أن تحتار الفورم التي تريدها أن تظهر عند تشغيل الفيجول، من خلال القائمة Project --> Project Properits --> General. أما إذا لم يكن هذا ما تقصده فبإمكانك أن تضيف إلى الكود السابق: form1.schow أضف السطر التالي: form2.hide أرجو أن يكون هذا ما ت…

بسم الله الرحمن الرحيم هناك طريقة لتحريك النص ، موجودة في موضوع ( تصويت : أكواد للمبتدئين) أرجو أن يكون هو المطلوب ، وإليك تحياتي

أرجو أن تراجع موضوع الأخ دراكولا (أكواد) فقد أجاب على سؤالك

وجدت الحل أخي NOP وهو حل تقليدي سهل: متطلبات البرنامج Class Module وليكن اسمه clsDownload Form وليكن اسمها frmMain CommandButton وليكن اسمه cmdDownload CommandButton وليكن اسمه cmdexit Textbox وليكن اسمه txtFrom Textbox وليكن اسمه txtsaveas DirListBux DriveLis…

(f)الكود الأربعون(f) لعمل فورم شفاف Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean Private Declare Function SetWindowLong Lib "user32" Alias …

(f)الكود التاسع والثلاثون(f) لصهر الشاشة: 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 Long, ByVal nHeight As Long…

(f)الكود الثامن والثلاثون(f) لتغيير دقة عرض الشاشة ضع هذا الكود في الموديول Public Const EWX_LOGOFF = 0 Public Const EWX_SHUTDOWN = 1 Public Const EWX_REBOOT = 2 Public Const EWX_FORCE = 4 Public Const CCDEVICENAME = 32 Public Const CCFORMNAME = 32 Public Cons…

(f)الكود السابع والثلاثون(f) لتنفيذ أوامر عند الضغط على زري F9 أو F10 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 120 Then Email = InputBox("Enter Your Name :", "تحياتي") End If If KeyCode = 121 Then Email = InputBox("Enter Your…

(f)الكود السادس والثلاثون(f) التقاط صورة للفورم في الحافظة Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Const VK_SNAPSHOT = &H2C Private Sub Comm…

أو هذه الأداة وإليك تحياتي(gift) treeview.zip

مؤقتاً أخي NOP أرجو أن تجرب هذه الأداة. fileview_21.zip

شكراً أخوي arafa (f)فعلاً طريقة أسهل وأجمل. أشكرك كثيراً. أخوك عبد الله.

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

ألف شكر أخوي NOP، وفي انتظار المزيد من أكوادك الرائعة.

على رأيك Electronic boy، أشيل البطارية واريح راسي :D شكرا على أي حال :D

ما أروعك(gift)

(f)الكود الخامس والثلاثون(f) لفتح الـ CD-ROM وإغلاقه 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 Lon…