منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
ممكن تعديل على الكود بحيت عند Click بالماوس فى التكسة بكس تظهر القائمة كاملة تحت التكست بكس ويتم الاختيار منها
الان الكود يخرج القائمة التى تبدأ بنفس الحرف عند الكتابة فى التكسة بكس وهدا هو الكود ارجو التعديل علية لو امكن

Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged

Dim col As New AutoCompleteStringCollection

col.Add("Normal")
col.Add("Budget")
col.Add("Emergency")
col.Add("Shutdown")

TextBox9.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox9.AutoCompleteCustomSource = col
TextBox9.AutoCompleteMode = AutoCompleteMode.Suggest

Return

End Sub

(31-12-22, 04:43 PM)AMAZ1972AMAZ كتب : [ -> ]السلام عليكم
ممكن تعديل على الكود بحيت عند Click بالماوس فى التكسة بكس تظهر القائمة كاملة تحت التكست بكس ويتم الاختيار منها
الان الكود يخرج القائمة التى تبدأ بنفس الحرف عند الكتابة فى التكسة بكس وهدا هو الكود ارجو التعديل علية لو امكن

Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles TextBox9.TextChanged

Dim col As New AutoCompleteStringCollection

col.Add("Normal")
col.Add("Budget")
col.Add("Emergency")
col.Add("Shutdown")

TextBox9.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox9.AutoCompleteCustomSource = col
TextBox9.AutoCompleteMode = AutoCompleteMode.Suggest

Return

End Sub

و عليكم السلام و رحمة الله و بركاته
اعتقد ان ما يلي هو ما تقصده

PHP كود :

Public Class Form2
    Dim col As New AutoCompleteStringCollection
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        col.Add("Normal")
        col.Add("Budget")
        col.Add("Emergency")
        col.Add("Shutdown")
        TextBox9.AutoCompleteSource = AutoCompleteSource.CustomSource
        TextBox9.AutoCompleteCustomSource = col
        TextBox9.AutoCompleteMode = AutoCompleteMode.Suggest
    End Sub
    Private Sub TextBox9_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox9.KeyDown
        If e.KeyCode = Keys.Enter Then
            If Not col.Contains(TextBox9.Text) Then
                TextBox9.AutoCompleteCustomSource.Add(TextBox9.Text)
            End If
        ElseIf e.KeyCode = Keys.Delete Then
            col.Remove(TextBox9.Text)
            TextBox9.AutoCompleteCustomSource = col
            TextBox9.Clear()
        End If
    End Sub   
End Class 

بارك الله فيك اخى الكريم على الرد ولاكن الكود لم يفى بالمطلوب ممكن تقصير منى فى توضيح المطلوب بالظبط
والمطلوب هو فى الكود 4 خيارات ( 4 ITEM) المطلوب عند الظغط بالماوس فى التكست بكس تخرج القائمة كاملة تحت التكسة بكس ويتم اختيار الخيار المناسب ليكتب بالتكسة بكس مرفق صورة توضح المطلوب بالظبط وشكرا

(31-12-22, 09:21 PM)AMAZ1972AMAZ كتب : [ -> ]بارك الله فيك اخى الكريم على الرد ولاكن الكود لم يفى بالمطلوب ممكن تقصير منى فى توضيح المطلوب بالظبط
والمطلوب هو فى الكود 4 خيارات ( 4 ITEM) المطلوب عند الظغط بالماوس فى التكست بكس تخرج القائمة كاملة تحت التكسة بكس ويتم اختيار الخيار المناسب ليكتب بالتكسة بكس مرفق صورة توضح المطلوب بالظبط وشكرا

اعتقد ان كان كذلك فما عليك الا باداة ال ContextMenueStrip فهي اسهل فقط كليك يمين على التكست بوكس فتظهر القائمة المنسدلة بما تحويه من عناصر ثم عند اختيار عنصر من القائمة سيكتب في التكست بوكس
و هذا مثال بسيط لذلك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

AMAZ1972AMAZ

asmarsou

AMAZ1972AMAZ

asmarsou