+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عن hashtable (/showthread.php?tid=14311)
عن hashtable - samers - 04-01-16
السلام عليكم ورحمة الله وبركاته
لقد تعلمت كيفية عمل hashtable ووضعت اسماء وهكذا ولكن اريد كود لإضافة اسماء اخرى بعد تشغيل البرنامج , طبعا انا خصصت تكست بوكس و زر امر وليبل ولكن كيف اضيف اسماء إضافية وحفظها
وشكرا لكم
RE: عن hashtable - samers - 04-01-16
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
RE: عن hashtable - silverlight - 04-01-16
هذا مثال لكيفية الإضافة و لتنفيذ الكود عليك ان تضيف الاتي الي الفورم
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
RE: عن hashtable - zinom - 04-01-16
(04-01-16, 01:06 AM)khodor1985 كتب : ضع مثالا لو سمحت
اتمني وضع الامثله