شبه جسم

بالنسبة لكلمة Randomize فكنت في السابق أستخدمها ، لكنني لا أعرف فائدتها ، لذلك تركت استخدامها أتمنى لو تفيدنا في هذا الخصوص أما بالسنبة لـ +0 فلأن عناصر الـ ListBox تبدأ من الصفر ، ولو أننا كتبنا +1 ، فسوف يتجاهل البرنامج الاسم الأول بالمناسبة .. المفروض أن نك…

جرب أخوي هذي الطريقة : حط في الفورم List و Command ، وحط هذا الكود : Private Sub Form_Load() List1.AddItem "محمد" List1.AddItem "أحمد" List1.AddItem "عمر" List1.AddItem "خالد" List1.AddItem "محمود" List1.AddItem "عبد العزيز" List1.AddItem "عمران" End Sub Priva…

للرفع

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

بالنسبة لكود فتح الفلاش فهذا هو : ShockwaveFlash1.LoadMovie 0, "C:\Movie1.swf" لكن لازم تضيف أولا أداة ShockwaveFlash

أخي شمس الزناتي هذا مثال على ما طلبت في المرفقات Read_Text.zip

أشكرك أخوي عبد القادر الحمد لله الخلل ما في الكمبيوتر وألف شكر على درس الـ Resourse Editor ممتاز

الله يعافيك أخوي الصراحة أنا عملت لك مثال لكيفية تحويل الحروف إلى أرقام ، وعليك إنك تنفذ الطريقة لإضافة البيانات إلى قاعدة البيانات ، لأني ضعيف شوي في عمل قواعد البيانات :P فكرتي عن قاعدة البيانات إنها تحتوي على حقلين ، الحقل الأول فيه أرقام تسلسلية ، والحقل ا…

ألف شكر أخوي عبد الكريم ، الصراحة استفدت كثير من الموضوع لكن كان سؤالي عن الملف المرفق إذا كان الكود فيه سليم وإلا لا يعني أبغيك أخوي تحمل الملف وتشوف إذا كانت النتيجة تظهر معاك تمام وإلا الخلل في كمبيوتري لأن عندي شوية مشاكل في لغة الكمبيوتر العربية وحبيت أتأ…

للرفع

بالنسبة لفكرتي فهي تعتمد على أن يكون لكل حرف رقم خاص به ( وهو رقم الـ ASCII المعروف ) ، وبهذه الحروف تكون الاسم الذي تريد . مثلا ، اسم محمد يتكون من هذه الحروف ( م ، ح ، م ، د ) . حرف الميم معورف أن رقمه هو 277 ، وحرف الحاء هو 205 ، وحرف الدال هو 207 إذن فإسم …

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عندي استفسار بسيط عن الـ Resourse Editor أرجو منكم معاونتي عليه لو تكرمتم لقد قمت بوضع ملف تكست في الـ Resourse Editor ، وعندما أردت تحميله إلى TextBox لم أجد غير هذا الكود ، وظهر بالصدفة أنه هو المطلوب . …

أخي الكريم ، لقد قلت في بداية موضوعك أنك : أخي الكريم .. لحل مشكلة بطء تنفيذ العد إلى 22000 في اللست ، قم بإخفاء اللست في بداية التنفيذ lst.Visible =False ثم أعد إظهاره بعد الانتهاء من التنفيذ

مشكور أخوي femTo على الدرس الممتاز لكن ظهرت عندي رسالة خطأ وأنا أطبق الدرس رسالة الخطأ هنا في هذا السطر Dim f As New femtodll.MSG مع إني استخدمت المكتبة إللي أرفقتها إنت ممكن توضح لي أخوي وين الخطأ !

أرفق البرنامج وإن شاء الله نعدل فيه وبالنسبة للسؤال الثاني حط الأكواد بالترتيب إللي تريد البرنامج يقوم بها .. أو حط الأكواد هنا وإحنا نخبرك إن شاء الله

لو كان كذا ممكن في فكرة لكنها غير عملية ، وهي إنك تشوف عن طريق الريجستري إذا كان زر إبدأ مكتوب بالعربي أو بالإنجليزي إذا كان بالعربي يعني الواجهة عربية وإذا كان بالإنجليزي يعني الواجهة إنجليزي لكن مشكلة هذا الكود إن بعض الناس تحط واجهة إنجليزية ، وتغير من زر إ…

أنا رأيي إن هذي الطريقة غير عملية يعني إذا كان عندك أكثر من فورم ، إنت مضطر تعمل في برنامجك ضعف الفورمات إللي عماتها يعني برنامجك إللي حجمه واحد ميجابايت مثلا ، راح يتحول إل برنامجين حجمه اثنين ميجا بايت . والله أعلم

أخوي طبق الكود كامل .. يعني بهذي الطريقة : Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.PopupMenu Menu2, , X, Y End Sub لا تكتفي بهذا الكود وحده : If Button = 2 Then Me.PopupMenu Menu2, , X, Y ال…

أخي Super_Pro عندما لا يتم ذكر الإحداثيات فإن الفيجوال بيسك يعيد الإحداثيات مباشرة إلى إحداثيات المكان الذي تم ضغط الماوس عليه .. جرب الكود الذي قمت بوضعه ( بدون ذكر الإحداثيات ) وسوف تجد أن القائمة ستظهر في المكان الذي ضغطت عليه بالماوس لكن هذا لا يمنع أن نقو…

الف ألف ألف شكر أخوي على التوضيح االكلام كان واضح .. والكود الذكي كان أوضح ممتاز