توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : وارد شدن حروف اختصاری در یک تکست باکس
سلام من یه یوزر فرم دارم(فایل پیوست) که دارای کمبو باکسی هست که نام واحدهای یه شرکت تولیدی در اون قرار داره می خوام وقتی نام هر کدوم را انتخاب کردم ،نام اختصاری اون (که در کمبو باکس بعدی ظاهر می شه) بصورت اتوماتیک داخل تکست باکس قرار بگیره ممنون
misammisam
2014/11/06, 15:20
سلام
کد کمبوباکس اولو به شکل زیر تغییر بده
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
با عرض معذرت اگه بخوام کمبو باکس 2 کلا داخل فرم نباشه و فقط با انتخاب نام واحد از کمبو باکس 1 حرف اختصاری در تکست باکس 1 قرار بگیره چکار کنم؟
misammisam
2014/11/06, 20:40
کد کمبوباکس 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 رو هم حذف کن ، ولی کلا این کار اشتباهه چون وقت بخوای ایتمی بهش اضافه کنی باید بری یکی یکی درستش کنی.
کلا بستگی به احتیاجت داره .
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.