M0OATH

ألف شكر .. صراحة هي فكرة رهيبة.. استفدت منها في بعض برامجي.. ألف شكر أخ عبدالجليل العقوري

ألف شكر على النصائح.. نستفيد منها قدر الامكان

بعد الاذن من الأخ رغيد الطيب.. نعم توجد.. أنظر الصورة وستعرف أين.. انها الأداة التي قد تم اختيارها.. مع ملاحظة أنها لا تظهر الا بعد اختيار أيقونة لها NotifyIcon.rar

لإنشاء مصفوفة مكونة من10 ازرار.. مع ملاحظة أن العد يبدأ من صفر: 'لإنشاء مصفوفة مكونة من10 ازرار.. مع ملاحظة أن العد يبدأ من صفر Dim Buttons(9) As Button حتى الان أنشأنا مصفوفة أزرار.. لكنها فراغة.. ولملأها اليك الطريقة: 'ملأ المصفوفة For Count As Integer = 0 T…

حسب ما أفهم من رد الأخ bedoonline .. يجب استبدال & بــ +.. هذا والله أعلم الكود بعد التعديل مرة أخرى.. أرجو أن يعمل هذه المرة: Dim WMP As New WMPLib.WindowsMediaPlayer WMP.URL = Application.StartupPath + "\Funky Cold Medina.wma" WMP.controls.play()

مشكور.. ألف شكر أخ bedoonline.. وأحاول أفهم الشرح لأني :wacko:

شكرا على الشرح... في انتظار الدروس الباقية

لتحويل صورة محفوظة في الجهاز الى أرقام: Dim NumS As String = "" ' يجب تحديد مسار الصورة أدناه Dim PicturePath As String = "" Dim PictureStream As New IO.StreamReader(PicturePath) Do Until PictureStream.EndOfStream NumS &= PictureStream.BaseStream.ReadByte() & …

أول شي يجب نسخ الملف الى المجلد المحتوي على البرنامج... ونقلهما جميعا.. أينما ذهبا.. الكود بعد التعديل: Dim WMP As New WMPLib.WindowsMediaPlayer WMP.URL = Application.StartupPath & "/Funky Cold Medina.wma" WMP.controls.play()

هذا المثال فيه زرين.. الأول يشغل مقطع الصوت الموجود في نفس المجلد المحتوي على البرنامج.. الزر الثاني يفتح المجلد الذي فيه البرنامج.. للتأكد من وجود المقطع الصوتي .. WindowsApplication1.rar

يعطيك العافية أخ omlex على الكتب.. والله تستحق الفوز

مشكور أخ INSIDE على هذا الخبر.. وأقترح أن نكون مجموعة ونشارك في الفرع الثاني.. وان شاء الله نربح.. ونتقاسم الـ 3000 دولار فيما بيننا ;) :D

جاري التحميل.. وان شاء الله نستفيد منه قدر الامكان

العفو اخوي ya as .. واياك ان شاء الله

Dim RndNum As String = 0 Do Until RndNum.Length = 14 RndNum = Int(Rnd() * 10 ^ 14) Loop ولكن هذه الطريقة.. ستولد نفس الأرقام العشوائية في كل مرة يشتغل فيها البرنامج.. ولحل هذه المشكلة.. في الاجراء الحدثي لتحميل الفورم: Private Sub Form1_Load(ByVal sender As Ob…

موضوع مهم.. وشرح أكثر من رائع.. وفقك الله أخ الغملاسي

رائع أخ bedoonline .. بس لو فيه طريقة لتكبير حجم زر ابدأ.. لأنك اذا وضع كلمة طويلة..كـ M0oATH .. لن تظهر بالكامل.. :D .. على العموم ألف شكر على الطريقة .. ويا ليت تشرح الكود

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'لجعل طريقة الاكمال تلقائية TextBox1.AutoCompleteMode = AutoCompleteMode.Append 'لتخصيص قائمة الاكمال التلقائية TextBox1.AutoCompleteSource = AutoCompleteSou…

If My.Computer.Network.IsAvailable = False Then MsgBox("الاتصال غير متاح") End End If

جزاك الله خيرا أخ محمد