سوال در مورد combobox

[alireza1919]

سلام
من چند تا مشکل دارم
1. من تو فرم دو تا کمبوباکس دارم که می خوام بین آنها ارتباط ایجاد کنم (مثلا وقتی از کمبو اول iran رو انتخاب میکنی دو کمبو دوم پایتختو یعنی tehran بنویسه)
2.چطوری میشه یه رشته رو مرتب کنم (مثلا teHRan رو به Tehran تبدیل کنه)
3.وقتی اسم تکراری وارد میکنه پیغام خطا نشون بده.

[محسن واژدی]

1. من تو فرم دو تا کمبوباکس دارم که می خوام بین آنها ارتباط ایجاد کنم (مثلا وقتی از کمبو اول iran رو انتخاب میکنی دو کمبو دوم پایتختو یعنی tehran بنویسه)

میتوانید از آرایه ها استفاده بشه اما بهتر این است که از بانک اطلاعاتی استفاده کنید



2.چطوری میشه یه رشته رو مرتب کنم (مثلا teHRan رو به Tehran تبدیل کنه)

کد زیر بررسی کنید:
MsgBox StrConv("teHRan", vbProperCase)



3.وقتی اسم تکراری وارد میکنه پیغام خطا نشون بده.

روال زیر در ماژول کد قرار بدهید:
Public Sub AddItem(lList As Object, sItem$)
On Error Resume Next
Dim i
With lList
For i = 0 To .ListCount - 1
If LCase$(.List(i)) = LCase$(sItem$) Then
.ListIndex = i
Exit Sub
End If
Next
.AddItem sItem$
End With
End Sub


به عنوان مثال:
Private Sub Command1_Click()
AddItem Combo1, "NewItem"
End Sub

اگه تعداد آیتم های کامبو/لیست باکس خیلی زیاد هستند میتوانید از کدهای پست زیر استفاده کنید:
http://barnamenevis.org/showthread.php?378700-%D8%AC%D9%84%D9%88%DA%AF%DB%8C%D8%B1%DB%8C-%D8%A7%D8%B2-%D8%AA%DA%A9%D8%B1%D8%A7%D8%B1-%D8%AF%D8%B1-%DB%8C%DA%A9-%D9%84%DB%8C%D8%B3%D8%AA&p=1674997&viewfull=1#post1674997

موفق باشید

[alireza1919]

ممنون از پاسخ گویی
لطفا اگه میشه روش ساخت دیتابیس رو توضیح بدید (آخه من تو vb تازه کارم)

[محسن واژدی]

سلام علیکم
در مورد دیتابیس و کاربا کوئری ها آموزش های مختلفی داخل انجمن هست، البته برای مورد فعلی میتوانیم از آرایه ها هم استفاده کنیم

ضمیمه زیر بررسی کنید

موفق باشید

[alireza1919]

ولی این برنامه کمبوباکس نیست که label هست.

[alireza1919]

یه سوال دیگه :من یه برنامه فاکتوریل نوشتم می خوام برای ورودی اعشاری پیام خطا بده باید چیکار کنم ؟

[محسن واژدی]

ولی این برنامه کمبوباکس نیست که label هست.
برای کامبوباکس، کدی مشابه زیر بنویسید:
Combo2.AddItem arrCapital(Combo1.ListIndex)

البته برای مورد فعلی بیشتر Label پیشنهاد میشه


یه سوال دیگه :من یه برنامه فاکتوریل نوشتم می خوام برای ورودی اعشاری پیام خطا بده باید چیکار کنم ؟


این سوال در تاپیک جداگانه مطرح کنید (قانون شماره 8 انجمن) همینطور در صورت امکان با جزئیات بیشتری توضیح دهید

موفق باشید