تابع

[Mahnazmh]

با عرض سلام و خسته نباشید :flower:
من در نوشتن یک تابع خاص مشکل پیدا کرده ام
آن هم این است
که می خواهم زمان صدازدن تابع مقادیر به صورت انتخابی بشوند مانند زمانی که متغییر را از نوع بولین انتخاب کنید فالس و ترو به صورت انتخابی جلوی شما قرار می گیرند.
Mahnaz_mhakbari@yahoo.comاین هم میل من با تشکر فراوان از شما دوستان
:flower: :flower: :oops: :flower: :flower:

[Behrouz_Rad]

سلام.
باید از ساختار Enum استفاده کنید.
در زیر، کدی ساده برای شما نوشتم که با ایجاد یک تابع و خواندن یکی از رنگ های قرمز، سبز یا آبی، رنگ فرم را به آن رنگ تغییر می دهد.
در هنگام وارد کردن آرگومان، مقادیر لیست می شوند و کاربر قادر به انتخاب کردن یکی از آنها می باشد.
کد زیر را در یک فرم، کپی کنید:


Public Enum T_Colors
vbRed = 1
vbGreen = 2
vbBlue = 3
End Enum

Public Function SetBKColor(ByVal ColorX As T_Colors)
Select Case ColorX
Case 1
Me.BackColor = RGB(255, 0, 0)
Case 2
Me.BackColor = RGB(0, 255, 0)
Case 3
Me.BackColor = RGB(0, 0, 255)
End Select
End Function

Private Sub Form_Load()
SetBKColor 3
End Sub

موفق باشید.
:wise1:

[Mahnazmh]

فدای شما
از جواب کاملتون ممنونم
با آرزوی موفقیت :flower: :flower: :flower: :flower: :flower: