كتابه كلمه في textbox من خلال button

txtbox1.text&="د"

و طبعا لكل

شكرا لك اشتغل هالكود

انا كنت مسسويته بس ماحطيت & للربط :)

طيب جاوبني على هذا القسم :)

واريد اذا كتبت الحرف الاول يحدد في listbox الموجوده على الفورم

بمعنى اوضح اكتب الكلمه بالزرار بالتكست بوكس ويحددها في list box الموجوده

Dim i As Integer

For i = 0 To ListBox1.Items.Count - 1

ListBox1.SelectedIndex = i

If ListBox1.SelectedItem = "Ali" Then

MsgBox("")

End If

Next

بسم الله الرحمن الرحيم

أختي العزيزة قمرنا كلنا

بالنسبة لسؤالك فحله ان شاء الله سهل جدا

أولا : قومي بتصميم صفحة و ضعي عليها أداتي ListBox & TextBox

و أضيفي ما تريدين الى الليست بوكس من الخاصية Items

الآن قومي باعلان متغير في الأعلى Genaral كالتالي

Dim I as Integer

بعد ذلك في حدث TextBox1_TextChanged

ضعي الكود التالي

   Try
            If TextBox1.Text = "" Then Exit Sub
            If I = 0 Or TextBox1.Text <> Mid(ListBox1.Items.Item(I), 1, Len(TextBox1.Text)) Then
                I = 0
                For I = 0 To ListBox1.Items.Count - 1
                    If TextBox1.Text = Mid(ListBox1.Items.Item(I), 1, Len(TextBox1.Text)) Then
                        ListBox1.SelectedIndex = I
                        Exit For
                    End If
                Next
            End If
        Catch X As Exception
        End Try

و ان شاء الله يشتغل و انا أرفقت لك الملف التنفيذي حتى ترين النتيجة

و لم اشأ وضع الكود لأني أعلم أن لديك نسخة 2002 و لن يشتغل عليها كود ال 2003

يالله مع السلامة و بالتوفيق ان شاء الله

kamar.rar

السلام عليكم

اخى crazy-man حتى الملف التنفيذي لن يعمل بسبب اصدار .NET Framework مختلف

شكرا لك crazy-man

وماتقصرر