مشكله مع نوع label وتقسيم اسم الكائن و المصفوفةstr

#114 نوفمبر 2005 في 21:29 صاحب الموضوع

(بسم الله الرحمن الرحيم)

وبه نستعين

أخطاء الكود التالي :blink:

1: أنه يعترض على نوع المصفوفه فلو كانت المصفوفه تحوي ارقام وكانت من نوع int لايحدث مشكلة أما هنا ومع string يظهر الخطأ؟

2: يعترض على النوع lable لماذا؟

        Dim StringArray("name", "jop", "date", "time") As String

        For Each MyLab As Label In Me.GroupBox2.Controls 

            MyLab.Text = StringArray(MyLab.TabIndex)

        Next MyLab

اما الكود التالي فهل مكنني الوصول لشيء يقسم اسم الكائن لقسمين

For i As Int32 = 1 To 4
       Me.[Label&i].Text = 
 Next i

وبالله التوفيق

تم تعديل هذه المشاركة بواسطة POWER _GIRL في 14 نوفمبر 2005 في 21:31

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل</span>

#214 نوفمبر 2005 في 23:37

اختى الكريمة لتعريف مصفوفة نصوص ديناميكيه واعطائها قيم لحظة التعريف يتم هكذا

Dim stringArray() As String={"txt1","txt2","txt3","txt4"}

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

تم تعديل هذه المشاركة بواسطة SOLO.NET في 14 نوفمبر 2005 في 23:43

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#315 نوفمبر 2005 في 01:08

اولا B) شكرا على الحل الاول

يطيك ربي العافية

ثانيا

For Each MyLab As ControlIn

سيقوم بإعطاء كل الادوات أسماء وأنا اعطيته الفهرس

الاسم=الفهرس

لكني اريدها فقط مع label

For Each MyLab As Label In

وهنا المشكله

-------------------------------------------------------------------------

ثالثا: أريد تركيب اسم كائن هل من الممكن

.[Label&i].Text =

حتى يتسنا لي عملها داخل تكرار بزيادة

i=i+1

وشكرا B)

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل</span>

#415 نوفمبر 2005 في 16:52

السلام عليكم

الكود يكون بهذا الشكل

Dim strArray As String() = {"add", "search", "edit", "delete"}
        For Each lbl As Control In Me.Controls
            If TypeOf lbl Is Label Then
                lbl.Text = strArray(lbl.TabIndex)
            End If

        Next

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#515 نوفمبر 2005 في 20:16

وعليكم السلام

جعله الله في ميزان حسناتك ورفع درجتك :lol:

وأدخلك فسيح جناته ووفقك لكل مايحب ويرضاه

أثابك الله أخيـ SOLO.NET :lol: دنيا وأخره

<< CLICK TO START>>

post-41869-046528000%201305052277.jpg

ليس أن تجد حلا بل أن تجد الافضل

أن تصـــنع الخـيال هذا هوا الأفضل</span>

#615 نوفمبر 2005 في 23:07

اميـــــــن

جزاك الله خيرا

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#715 نوفمبر 2005 في 23:12

اميـــــــن

جزاك الله خيرا

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

مشكله مع نوع label وتقسيم اسم الكائن و المصفوفةstr

مواضيع مشابهة

عدد الزوار حالياً