الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

لو سمحتم

مغلق
بدأه توك في 4 ديسمبر 2004 · 4 رد · 618 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أرجوكم، ارجوكم أن تساعدونني في سؤالين، لازم أقدم الحل خلال 3 أيام.

1 ) عندي في تطبيقي listbox1 وعندي textbox، ال (ليستبوكس) فيه أسماء أشخاص كثيرين والمطلوب أنه عندما أكتب حرف في ال (تكستبوكس) يقوم التطبيق بإختيار أول إسم في ال (ليستبوكس) يطابق ما كتبته (ولا يشابهه)، فمثلاً إن كتبت الكلمة Ali فيجب أن يقوم التطبيق بإختيار اللكلمة Ali من ال (ليستبوكس) فإن لم يجدها لا يقوم بإختيار أي شيء.

2) في تطبيقي عمليات حسابية يجب أن يعرف ال user الحل، فإن عرفه فيجب أن تظهر وجه مبتسم وإن لم يعرفه فيجب أن يظهر وجه عابس... الشرط أن لا أستخدم صور، سألنا الأستاذ "طيب كيف" فقال لا أعرف يجب أن تعرفو بأنفسككم، أتوقع بأنه يريدنا أن نستخدم القرافيكس GDI ولكنني لا أعرف كيف.

أرجوكم بحل بسرعة

#2

بالنسبة للسؤال الأول::

في حدث textChanged الخاص بالtextbox اكتب الكود التالي:

        ListBox1.SelectedIndex = ListBox1.FindStringExact(TextBox1.Text)

بالنسبة للطلب الثاني فهناك طريقتين افكر فيهما::

الأولى :: الرسم باستخدام الGDI كما ذكرت حيث سترسم دائرة و بداخلها قوس يمثل الابتسامة او التكشيرة

الثانية :: عمل label ثم كتابة حرف الJ و label اخر و كتابة الK و اختيار فونت wingdings والذي سيقوم بعملية التحويل المطلوبة

هذه الطريقة هي الاسهل ..

اقتباس
الـ VB هى الأساس ... بتبرمج بيها بالاحساس

ولا سيمي كولن ولا أقواس ... وتعلمها سهل لكل الناس

راكب فيها موتور نفاث ... دي سريعه جدا وباخلاص

الـ VB هى التراث ... للذكور والايناث :D

الـ VB لغة عريقه ... حتى اسأل Anwarica

من ديوان الشاعر السي شاربي "معتز شمس"
#3

بالنسبة للسؤال الثاني، فأما أن تأخذي بالحلين الذي طرحهما الأخ Undo، او تستخدمي الطريقة التالية:

ضع لافتتين Label واكتبي الكود التالي في زر Button:

Dim HMS As New System.Text.UnicodeEncoding(True, False)
Dim B As Byte() = {&H26, &H39}
Dim C As Byte() = {&H26, &H3A}
Label1.Text = HMS.GetChars(B)
Label2.Text = HMS.GetChars(C)

Learn Japanese :>>> http://www.nouben.com/

#4

شكرا ليكم على الحلول، وسامحوني على سؤال أخير:

كيف أشغل الصوت في الفيجوال بيسك؟ عندي فايل من نوع wave وأريد تشغيله في برنامجي...

#5

أرجو أن لا يكون كودي التالي خاطئاً لأنني أكتبه من الذاكرة:

في قسم التعريفات للفورم ضع الفانكشن التالي:

Declare Function playSound Lib "winmm.dll" (ByVal name  As string) As integer

قم بوضع زر وأكتب الكود التالي (وأنا أفترض هنا بأن ملف الصوت إسمه sound وهو موجود في نفس الفولدر الذي إشتغل منه البرنامج ):

PlaySound (application.startpath & "\sound.wav")

Learn Japanese :>>> http://www.nouben.com/

هذا الموضوع مغلق.

مواضيع مشابهة