[anes]

السلام عليكم

اريد كود يقوم بحفظ ترتيب او اسم او رقم سطر الى التكست بوكس

مثال عندي بالبرنامج هته الروابط

كود :

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

اتمنى ان يكون سؤالي واضح اخوتي الكرام
تقبلو مني تحية رمضانية كريمة
وشكرا

[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 


[anes]

(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 


حاولت التعديل على الفكرة لكن لم اعرف التعامل مع الفكشن التي بعثتها لي

[mstfa1991]

فين مشروعك اخ anes لان الموضوع مش واضح

[anes]

(06-06-17, 10:42 PM)mstfa1991 كتب : فين مشروعك اخ anes لان الموضوع مش واضح

تفظل اخي مثال في المرفقات
للاضافة هو لما اظخط على الزر يختار رابط من الروابط يفتحو في المتصفح
اريد لما يتم الظغط على الرابط يتم حفظ مقابله في SecCode في التكست بوكس
وشكرا لك اخي

[silverlight]

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 


[mstfa1991]

أخ anes مشروعك غير واضح

لا يوجد في الفورم أي روابط، مجرد تكستبكوس وبوتون

والكود صحيح فيه روابط، ولكنه غير واضح شو علاقتها بالتكستبكوس او البوتون!

[anes]

(07-06-17, 02:55 AM)mstfa1991 كتب : أخ anes  مشروعك غير واضح

لا يوجد في الفورم أي روابط، مجرد تكستبكوس وبوتون

والكود صحيح فيه روابط، ولكنه غير واضح شو علاقتها بالتكستبكوس او البوتون!

اخي الكريم جرب افتح المشروع
ولما تظغط الى الزر يفتحلك رابط من الروابط في المتصفح
انا عايز لما يتم فتح رابط من الروابط ان يحفظ الرقم المقابل له بالتكست بوكس
مثل الصورة

حظرتك جرب الظغط على الزر سيفتح رابط من الروابط الموجودة بالبرنامج
ارجو اني قد اوضحت الامر
وشكرا لك

[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 


[anes]

(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)
شكرا لك