تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عن hashtable
#1
السلام عليكم ورحمة الله وبركاته
لقد تعلمت كيفية عمل hashtable ووضعت اسماء وهكذا ولكن اريد كود لإضافة اسماء اخرى بعد تشغيل البرنامج , طبعا انا خصصت تكست بوكس و زر امر وليبل ولكن كيف اضيف اسماء إضافية وحفظها
وشكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
ضع مثالا لو سمحت
الرد }}}}
تم الشكر بواسطة: zinom
#3
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
الرد }}}}
تم الشكر بواسطة:
#4
هذا مثال لكيفية الإضافة و لتنفيذ الكود عليك ان تضيف الاتي الي الفورم

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
الرد }}}}
تم الشكر بواسطة: khodor1985
#5
(04-01-16, 01:06 AM)khodor1985 كتب : ضع مثالا لو سمحت

اتمني وضع الامثله
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم