المنتدى: مكتبه اكود فيجوال بيسك 6

السلام عليكم اخواني الاعزاء اقدم لكم هذا الكود البسيط للضغط على زر الكوماند برمجياً و مرئيا بشكل تلقائي عند تشغيل البرنامج باستخدام اداة التايمر و...

السلام عليكم ورحمة الله وبركاته إليكم اخواني الأعضاء كود بسيط لفحص حالة الإتصال بالإنترنت Option Explicit Private Declare Function...

بسم الله الرحمن الرحيم الدالة الخاصة بذلك : Dir If Dir("C:\vba4a.Txt") <> "" Then MsgBox "الملف موجود" Else MsgBox "الملف غير موجود"...

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

السلام عليكم ورحمة الله وبركاته إليكم إخواني الأعضاء كود للتحقق من وجود ال Netframework في الجهاز من عدمه Private Declare Function...

السلام عليكم ورحمة الله وبركاته إليكم اخواني الأعضاء كود توليد رقم عشوائي محصور بين رقمين Private Function RandomInteger(Lowerbound As Integer,...

السلام عليكم ورحمة الله وبركاته تفضلوا هذا الكود البسيط نوعاً ما لتغيير الصفحة الرئيسية لمستعرض الأنترنت Internet Explorer Private Declare...

السلام عليكم ورحمة الله وبركاته هذا مثال للعبة X & O المشهورة والمثال كاملاً مصنوع بالكود وللعلم أن الكود منقول للأفادة للتحميل أضغط إدناه

اهلا اخوانى انا الان جاء على بالى فكرة اصحح كود كلما اجده هنا فى هذا الموضوع لتعلم الصح ما رايكم مثال

السلام عليكم ورحمة الله وبركاته لفتح موقع دون استخدام أدوات خارجية يمكن استخدام الكود التالي Private Declare Function ShellExecute Lib...

بسم الله الرحمن الرحيم إذا رغبت في معرفة هل المستخدم أدخل تاريخ أم لا ، نستخدم دالة التاريخ IsDate مثال : If IsDate(Text1.Text) Then...

بسم الله الرحمن الرحيم إذا رغبت في معرفة هل المستخدم أدخل رقم لا ، نستخدم دالة الأرقام IsNumeric مثال : If IsNumeric(Text1.Text) Then...

اطلب من الاخ العزيز المشرف المحب لاعضاء الموقع تنفيذ هذا الكود على مجلد به ملفات باور بوينت فى مشروع من فورم واحد بسيط لى لاننى عضوء مبتدى نفرض...

تريد كود يقوم بعد فنح او نسخ او الحذف لملف محدد المسار

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

بسم الله الرحمن الرحيم الدالة الخاصة بذلك : FileCopy FileCopy "C:\vba4a.txt", "D:\vba4a.txt"

بسم الله الرحمن الرحيم الدالة الخاصة بذلك : Kill Kill "c:\vba4a.Txt"

بسم الله الرحمن الرحيم الدالة الخاصة بذلك : Abs Number = Abs(-100.5) MsgBox Number

بسم الله الرحمن الرحيم الدالة الخاصة بذلك : Log Number = Log(30) MsgBox MyNumber

بسم الله الرحمن الرحيم الدالة الخاصة بذلك : Sin Number = Sin(100) MsgBox Number

السلام عليكم أعضاء المنتدى الغالي و مع موضوع جديد من مواضيع المبرمج الطموح موضوع عن الريجستري أعتقد أنه يفيد الكثير من الناس ........ و هو عن...

بسم الله الرحمن الرحيم لمعرفة الحالة التي من خلالها تم الاتصال ومعلومات الاتصال يمكنك استخدام الاسطر التالية Private Const...

السلام عليكم و رحمة الله و بركاته باختصار نضع الكود التالي لجعل الاحداثيات المطلوبة توافق موقع الماوس Private Sub Form_MouseDown(Button As...

بسم الله الرحمن الرحيم Const scUserAgent = "ebrahem - alabdaly" Const INTERNET_OPEN_TYPE_DIRECT = 1 Const INTERNET_OPEN_TYPE_PROXY = 3 Const...

بسم الله الرحمن الرحيم لمعرفة جميع المستخدمين للنظام نكتب الأسطر التالية Private Const TOKEN_QUERY = (&H8) Private Declare Function...

بسم الله الرحمن الرحيم Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As...

بسم الله الرحمن الرحيم توفر الأسطر التالية مهمة التأكد من صحة عنوان موقع إلكتروني Private Const FLAG_ICC_FORCE_CONNECTION = &H1 Private...

بسم الله الرحمن الرحيم لمعرفة المنافذ في جهازك استخدم هذه الأسطر مباشرة في مشروعك Private Type PORT_INFO_2 pPortName As String ...

بسم الله الرحمن الرحيم لاظهار كافة البرامج الموجودة في البروسيرس نضف أداة ListBox ثم ندخل الأسطر التالية في صفحة الأكود Const...

بسم الله الرحمن الرحيم لا عادة التشغيل للجهاز نكتب الكود التالي: Private Declare Function SetupPromptReboot Lib "setupapi.dll" (ByRef FileQueue...

بسم الله الرحمن الرحيم لتعطيل الأزرار التالية: ALT-TAB, ALT-ESC, CTRL-ESC وإعادة تفعيلها نستخدم الموديول التالي: Option Explicit Public...