وارد شدن حروف اختصاری در یک تکست باکس

[mreza]

سلام من یه یوزر فرم دارم(فایل پیوست) که دارای کمبو باکسی هست که نام واحدهای یه شرکت تولیدی در اون قرار داره می خوام وقتی نام هر کدوم را انتخاب کردم ،نام اختصاری اون (که در کمبو باکس بعدی ظاهر می شه) بصورت اتوماتیک داخل تکست باکس قرار بگیره ممنون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[misammisam]

سلام
کد کمبوباکس اولو به شکل زیر تغییر بده

Private Sub ComboBox1_Change()

Dim index As Integer
index = ComboBox1.ListIndex

ComboBox2.Clear

Select Case index
    Case Is = 0
        With ComboBox2
            .AddItem "ME"
            .ListIndex = 0
     End With
    Case Is = 1
        With ComboBox2
            .AddItem "PR"
            .ListIndex = 0
     End With
    Case Is = 2
        With ComboBox2
            .AddItem "EL"
            .ListIndex = 0
    End With
End Select

TextBox1.Text = ComboBox2.Text

End Sub 

[mreza]

تشکر مشکل حل شد

[mreza]

با عرض معذرت اگه بخوام کمبو باکس 2 کلا داخل فرم نباشه و فقط با انتخاب نام واحد از کمبو باکس 1 حرف اختصاری در تکست باکس 1 قرار بگیره چکار کنم؟

[misammisam]

کد کمبوباکس 1 رو بنویس

Private Sub ComboBox1_Change()
Dim index As Integer
index = ComboBox1.ListIndex
If ComboBox1.Text = "ã˜Çäí˜" Then
TextBox1.Text = "ME"
ElseIf ComboBox1.Text = "ÊæáíÏ" Then
TextBox1.Text = "PR"
ElseIf ComboBox1.Text = "ÈÑÞ" Then
TextBox1.Text = "EL"
End If
End Sub 

کمبوباکس 2 رو هم حذف کن ، ولی کلا این کار اشتباهه چون وقت بخوای ایتمی بهش اضافه کنی باید بری یکی یکی درستش کنی.
کلا بستگی به احتیاجت داره .