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

الصفحات : 1 2

السلام عليكم

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

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

كود :

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

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

بدلا من استخدام مصفوفتين عليك أن تستخدم 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 

(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

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

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

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

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

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 

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

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

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

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

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

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

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

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

هل تقصد مثل هاد

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 

(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

اجل اخي لكنه لا يمد الرقم الصحيح Huh

اقصد اخي كما هو مبين في الصورة (0)مقابل (0)
و(1)مقابل (1)
شكرا لك

الصفحات : 1 2