چند سوال در مورد ListView و Enum و ReturnValue

ما یه لیست ویو داریم که 6 ستون داره . و 10 سطر مقدار . من میخوام وقتی توی یکی از سطر های لیست ویو کلیک میکنم مقدار های اون
سطر بره توی چند تا تکست باکس . چه جوری ؟ البته یه کد خودم دارم . ولی وقتی چند بار این کار رو میکنم خطا میده :

کد:

---

TextBox1.Text = StList.Items.Item(StList.SelectedIndices(0)).Text
        TextBox2.Text = StList.Items.Item(StList.SelectedIndices(0)).SubItems(1).Text
        TextBox3.Text = StList.Items.Item(StList.SelectedIndices(0)).SubItems(2).Text
        TextBox4.Text = StList.Items.Item(StList.SelectedIndices(0)).SubItems(3).Text
        TextBox5.Text = StList.Items.Item(StList.SelectedIndices(0)).SubItems(4).Text
        TextBox6.Text = StList.Items.Item(StList.SelectedIndices(0)).SubItems(5).Text

---

و اینکه ما یه Sub مثل زیر داریم :

کد:

---

Public Sub Load_ListView(ByRef Type As String, ByRef ListV As System.Windows.Forms.ListView)

---

میخواستم بدونم میشه کاری کرد که وقتی در هنگام فراخوانی نوشتیم Load_ListView و پرانتز را باز کردیم سه گزینه پیش فرض برای Type باز بشه که ما از توی اون منو یکی رو انتخاب کنیم .
و من یه کد Functions دارم مثل زیر :

کد:

---

    Public Function Event_Shamsi(ByVal Date1 As String) As String
        Dim i As Integer
        For i = 0 To SH_XDate.Count - 1
            If SH_XDate.Item(i) = Date1 Then
                Event_Shamsi = SH_XEvent.Item(i)
                PicPath_SH = System.Windows.Forms.Application.StartupPath & SH_XPicture.Item(i)
                Holiday_SH = SH_XHoliday.Item(i)
            End If
        Next
    End Function

---

ولی زیر End Function یه خط سبز میکشه . چیکار کنم . البته برنامه کار میکنه . یه نفر بهم گفته بود اولش Return Nothing بنویس . درست میشه ولی برنامه کار نمیکنه .
متن خطا در قسمت Error List :

کد:

---

Function 'Event_Shamsi' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used.

---

نقل قول:

---

ما یه لیست ویو داریم که 6 ستون داره . و 10 سطر مقدار . من میخوام وقتی توی یکی از سطر های لیست ویو کلیک میکنم مقدار های اون
سطر بره توی چند تا تکست باکس . چه جوری ؟ البته یه کد خودم دارم . ولی وقتی چند بار این کار رو میکنم خطا میده :

---

من کد شمارو امتحان کردم و هیچ خطایی نداد.خطایی که برای شما میده احتمالا مربوط به وقتی میشه که شما روی یکی از سطر هایی کلیک میکنی که یک یا چندتا از SubItem های اون خالی هست و هیچ مقداری نداره.
راه حل ساده اینکار اینه که سطر هایی که خالی هستندرو با " " یا همون Space (فضای خالی) مقدار بدی.

نقل قول:

---

میخواستم بدونم میشه کاری کرد که وقتی در هنگام فراخوانی نوشتیم Load_ListView و پرانتز را باز کردیم سه گزینه پیش فرض برای Type باز بشه که ما از توی اون منو یکی رو انتخاب کنیم .

---

من منظورتو خوب متوجه نشدم ولی برای اینکار باید برای هر مقدار متفاوت یک Sub با همان نام ایجاد کنی و فقط در لیست پارامتر هاش نوع Type رو عوض کنی.

نقل قول:

---

زیر End Function یه خط سبز میکشه . چیکار کنم . البته برنامه کار میکنه

---

Function شما در تعریفش یک مقدار از نوع String رو برگشت میده اما شما در بدنه هیچ مقداریو برگشت ندادی!!
شما باید یک مقدار از نوع String و بصورت Return varName برگشت بدی (بجای varName اسم متغییرتو بنویس که میخوای برگشت بدی)
اگر هم تابع شما هیچ مقداریو برگشت نمیده میتونی بجاش از یک Sub استفاده کنی.
موفق باشید.

در مورد سوال اول باید بگم که درسته بعضی مقدار ها رو خالی گذاشتم .

اما منظورتون رو درمورد سوال دوم نفهمیدم . میشه یه کد Sun بزارید که همون طور که من میگم باشه

نقل قول:

---

میشه یه کد Sub بزارید که همون طور که من میگم باشه

---

به نوع Type ها توجه کن.
شما با این کار این Sub رو سربار گزاری میکنی و موقع فراخوانی دارای 4 حالت متفاوت هست(البته در متغییر Type)

کد:

---


PublicSub Load_ListView(ByRef Type AsString, ByRef ListV As System.Windows.Forms.ListView)
EndSub
PublicSub Load_ListView(ByRef Type AsInteger, ByRef ListV As System.Windows.Forms.ListView)
EndSub
PublicSub Load_ListView(ByRef Type AsByte, ByRef ListV As System.Windows.Forms.ListView)
EndSub
PublicSub Load_ListView(ByRef Type AsDouble, ByRef ListV As System.Windows.Forms.ListView)
EndSub


---

اگر منظورتون از سوالتون چیز دیگه ای هست که من متوجه نشدم یکم واضح تر توضیح بدید.

نه اصلا منظورم این نیود .شما چهار بار یه Sub رو درست کردید.مثل اینکه درست سوال من رو نخوندید

کد:

---

Public Sub Load_ListView(ByRef Type As String, ByRef ListV As System.Windows.Forms.ListView)

---

اگه به کد خوب نگاه کنید کلمه Type رو میبینید که از نوع String هست .

میخواستم بدونم میشه کاری کرد که وقتی در هنگام فراخوانی نوشتیم Load_ListView و پرانتز را باز کردیم سه گزینه پیش فرض برای Type باز بشه که ما از توی اون منو یکی رو انتخاب کنیم .

نقل قول:

---

میخواستم بدونم میشه کاری کرد که وقتی در هنگام فراخوانی نوشتیم Load_ListView و پرانتز را باز کردیم سه گزینه پیش فرض برای Type باز بشه که ما از توی اون منو یکی رو انتخاب کنیم

---

فکر کنم شما منظورتون استفاده از یک Enum هست.

کد:

---


PublicEnum TypeMod AsByte
Mod1 = 0
Mod2 = 1
Mod3 = 2
'.......
EndEnum
PublicSub Load_ListView(ByRef Type As TypeMod, ByRef ListV As System.Windows.Forms.ListView)
EndSub


---

بله دقیقا
ممنونم.

نقل قول:

---

نوشته شده توسط god of war 2 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

Function شما در تعریفش یک مقدار از نوع String رو برگشت میده اما شما در بدنه هیچ مقداریو برگشت ندادی!!
شما باید یک مقدار از نوع String و بصورت Return varName برگشت بدی (بجای varName اسم متغییرتو بنویس که میخوای برگشت بدی)
اگر هم تابع شما هیچ مقداریو برگشت نمیده میتونی بجاش از یک Sub استفاده کنی.
موفق باشید.

---

نه مقدار بر میگردونه . و میخوام که مقدار جواب رو توی خود فانکشن برگردونه .

شما میتونی هر جایی از تابع که خواستی هر مقداریو از نوع String برگردونی البته یه نکته هم هست که باید رعایت کنی اینه که هرجا مقدارو برگردونی دیگه اجرای برنامه از تابع خارج میشه و کدهایی که بعد از خط برگشت نوشته شده دیگه اجرا نمیشن.در اصل مقدار برگشتی باید همون نتیجه نهایی تایع باشه.
اینم نمونه کد.
من یک متغییر برای نمونه تعریف کردم و درآخر هم اونو برگشت دادم.
ولی شما باید اون مقداری که مدنظرته رو برگشت بدی.

کد:

---


PublicFunction Event_Shamsi(ByVal Date1 AsString) AsString
Dim i AsInteger
''retValue For Test
Dim retValue AsString
For i = 0To SH_XDate.Count - 1
If SH_XDate.Item(i) = Date1 Then
Event_Shamsi = SH_XEvent.Item(i)
PicPath_SH = System.Windows.Forms.Application.StartupPath & SH_XPicture.Item(i)
Holiday_SH = SH_XHoliday.Item(i)
EndIf
Next
''For Example Return retValue
Return retValue
EndFunction


---

موفق باشید.

اگه از این کد استفده کنیم اونوقت زیر retValue رو خط میکشه .
توجه کنید که جواب اصلی که قراره برگردونه رو توی حلقه فور در قسمت Event_Shamsi نوشتم و میخوام که جواب اصلی اون باشه .