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

السلام عليكم ورحمة الله وبركاته
لقد تعلمت كيفية عمل hashtable ووضعت اسماء وهكذا ولكن اريد كود لإضافة اسماء اخرى بعد تشغيل البرنامج , طبعا انا خصصت تكست بوكس و زر امر وليبل ولكن كيف اضيف اسماء إضافية وحفظها
وشكرا لكم

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Hash As New Hashtable()
Hash.Add("1", "Jim Strong")
Hash.Add("2", "Mari Anthem")
Hash.Add("3", "Pauly Day")
Hash.Add("4", "George Set")
If Hash.ContainsKey(TextBox1.Text) Then
Label1.Text = Hash.Item(TextBox1.Text)
Else
Label1.Text = "Not in Hashtable"
End If
End Sub

---

(04-01-16, 01:06 AM)khodor1985 كتب : [ -> ]ضع مثالا لو سمحت

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Hash As New Hashtable()
Hash.Add("1", "Jim Strong")
Hash.Add("2", "Mari Anthem")
Hash.Add("3", "Pauly Day")
Hash.Add("4", "George Set")
If Hash.ContainsKey(TextBox1.Text) Then
Label1.Text = Hash.Item(TextBox1.Text)
Else
Label1.Text = "Not in Hashtable"
End If
End Sub

هذا مثال لكيفية الإضافة و لتنفيذ الكود عليك ان تضيف الاتي الي الفورم

Button
TextBox
ListBox

ثم استخدم الكود التالي

لكن الافضل ان تستخدم Generic Dictinary بدلا من HashTable او تستخدم Generic HashSet لأن HashTable مثله مثل ArrayList فهو من الممكن ان يقبل بيانات من اي نوع لأن مدخلاته اصلا عبارة عن Object

Public Class Form1

   Private hasher As Hashtable = New Hashtable

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim s As String = TextBox1.Text
       If Not (String.IsNullOrEmpty(s)) Then
           Dim count As Integer = hasher.Count
           Dim index As Integer = count + 1
           If Not hasher.Contains(s) Then
               hasher.Add(index, s)
           End If
       End If

       ListBox1.Items.Clear()
       For Each item In hasher.Values
           ListBox1.Items.Add(item)
       Next
       TextBox1.Text = ""
   End Sub
End Class

(04-01-16, 01:06 AM)khodor1985 كتب : [ -> ]ضع مثالا لو سمحت

اتمني وضع الامثله