+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حفظ قيمة في التكست بوكس (/showthread.php?tid=20634)
الصفحات:
1
2
حفظ قيمة في التكست بوكس - anes - 06-06-17
السلام عليكم
اريد كود يقوم بحفظ ترتيب او اسم او رقم سطر الى التكست بوكس
مثال عندي بالبرنامج هته الروابط
كود :
AdfLinks(0) = "http://adf.ly/1moY4m"
AdfLinks(1) = "http://adf.ly/1moY4m"
AdfLinks(2) = "http://adf.ly/1moY4m"مثلا لما اظغط على الرابط رقم AdfLinks(0)
يحفظ في التكست بوكس الرقم 5289EAB6EC الموجود في SecCode(0)
كود :
SecCode(0) = "5289EAB6EC"
SecCode(1) = "1289E25666"
SecCode(2) = "2289EA6922"ولما اظغط على الرابط المرقم ب (1) يحفظ في التكست بوكس الرقم 1289E25666 الموجود في SecCode(1)
الفكشن المراد العمل عليهل
كود :
Private Function InitValues() As Object
SecCode(0) = "5289EAB6EC"
SecCode(1) = "1289EAB6EC"
SecCode(2) = "2289EAB6EC"
AdfLinks(0) = "http://adf.ly/1moY4m"
AdfLinks(1) = "http://adf.ly/1moY4m"
AdfLinks(2) = "http://adf.ly/1moY4m"
End Functionاتمنى ان يكون سؤالي واضح اخوتي الكرام
تقبلو مني تحية رمضانية كريمة
وشكرا
RE: خفظ قيمة في التكست بوكس - silverlight - 06-06-17
بدلا من استخدام مصفوفتين عليك أن تستخدم Generic Dictionary
بحيث يكون Key هو المفتاح للبحث ويمثله هنا اللينك
وتكون Value هي القيمة التي يجب استرداداها وتمثلها هنا الكود المراد الحصول عليه
يمكنك استخدام الفكرة التالية لكن عليك بتغيير البيانات الي ما يناسب نوعية بياناتك
PHP كود :
Friend Function TryGetSynonymous(imageName As String) As Bitmap
Dim result As Bitmap = CType(Nothing, Bitmap)
If Not New Dictionary(Of String, Bitmap)() From {{"FirstImageName", My.Resources.FirstImage}, {"SecondImageName", My.Resources.Secondimage}}.TryGetValue(imageName, result) Then
result = Nothing
End If
Return result
End Function
RE: خفظ قيمة في التكست بوكس - anes - 06-06-17
(06-06-17, 07:30 PM)silverlight كتب : بدلا من استخدام مصفوفتين عليك أن تستخدم Generic Dictionaryحاولت التعديل على الفكرة لكن لم اعرف التعامل مع الفكشن التي بعثتها لي
بحيث يكون Key هو المفتاح للبحث ويمثله هنا اللينك
وتكون Value هي القيمة التي يجب استرداداها وتمثلها هنا الكود المراد الحصول عليه
يمكنك استخدام الفكرة التالية لكن عليك بتغيير البيانات الي ما يناسب نوعية بياناتك
PHP كود :
Friend Function TryGetSynonymous(imageName As String) As Bitmap
Dim result As Bitmap = CType(Nothing, Bitmap)
If Not New Dictionary(Of String, Bitmap)() From {{"FirstImageName", My.Resources.FirstImage}, {"SecondImageName", My.Resources.Secondimage}}.TryGetValue(imageName, result) Then
result = Nothing
End If
Return result
End Function
RE: حفظ قيمة في التكست بوكس - mstfa1991 - 06-06-17
فين مشروعك اخ anes لان الموضوع مش واضح
RE: حفظ قيمة في التكست بوكس - anes - 06-06-17
(06-06-17, 10:42 PM)mstfa1991 كتب : فين مشروعك اخ anes لان الموضوع مش واضحتفظل اخي مثال في المرفقات
للاضافة هو لما اظخط على الزر يختار رابط من الروابط يفتحو في المتصفح
اريد لما يتم الظغط على الرابط يتم حفظ مقابله في SecCode في التكست بوكس
وشكرا لك اخي
RE: حفظ قيمة في التكست بوكس - silverlight - 07-06-17
PHP كود :
Friend Function TryGetSynonymous(linkName As String) As String
Dim result As Object = CType(Nothing, String)
If Not New Dictionary(Of String, String)() From {{"http://adf.ly/1moY4m", "5289EAB6EC"}, {"http://adf.ly/1moY4m", "1289EAB6EC"}, {"http://adf.ly/1moY4m", "2289EAB6EC"}}.TryGetValue(linkName, result) Then
result = Nothing
End If
Return result
End Function
RE: حفظ قيمة في التكست بوكس - mstfa1991 - 07-06-17
أخ anes مشروعك غير واضح
لا يوجد في الفورم أي روابط، مجرد تكستبكوس وبوتون
والكود صحيح فيه روابط، ولكنه غير واضح شو علاقتها بالتكستبكوس او البوتون!
RE: حفظ قيمة في التكست بوكس - anes - 07-06-17
(07-06-17, 02:55 AM)mstfa1991 كتب : أخ anes مشروعك غير واضح
لا يوجد في الفورم أي روابط، مجرد تكستبكوس وبوتون
والكود صحيح فيه روابط، ولكنه غير واضح شو علاقتها بالتكستبكوس او البوتون!
اخي الكريم جرب افتح المشروع
ولما تظغط الى الزر يفتحلك رابط من الروابط في المتصفح
انا عايز لما يتم فتح رابط من الروابط ان يحفظ الرقم المقابل له بالتكست بوكس
مثل الصورة
حظرتك جرب الظغط على الزر سيفتح رابط من الروابط الموجودة بالبرنامج
ارجو اني قد اوضحت الامر
وشكرا لك
ولما تظغط الى الزر يفتحلك رابط من الروابط في المتصفح
انا عايز لما يتم فتح رابط من الروابط ان يحفظ الرقم المقابل له بالتكست بوكس
مثل الصورة
حظرتك جرب الظغط على الزر سيفتح رابط من الروابط الموجودة بالبرنامج
ارجو اني قد اوضحت الامر
وشكرا لك
RE: حفظ قيمة في التكست بوكس - mstfa1991 - 07-06-17
هل تقصد مثل هاد
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.Diagnostics.Process.Start(AdfLinks(RNDADF1), 1)
TextBox1.Text = SecCode(RNDADF1)
End Sub
RE: حفظ قيمة في التكست بوكس - anes - 07-06-17
(07-06-17, 03:35 AM)mstfa1991 كتب : هل تقصد مثل هاد
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
System.Diagnostics.Process.Start(AdfLinks(RNDADF1), 1)
TextBox1.Text = SecCode(RNDADF1)
End Sub
اجل اخي لكنه لا يمد الرقم الصحيح
اقصد اخي كما هو مبين في الصورة (0)مقابل (0)
و(1)مقابل (1)
شكرا لك