[حل شده] کار با کمبو باکس

[سید مسعود قمی]

سلام دوستان
چطور میشه با کلیک توی لیست کمبوباکس اطلاعاتش به تکس باکس منتقل بشه
امیدوارم واضح باشه

[M_ExceL]

سلام دوستان
چطور میشه با کلیک توی لیست کمبوباکس اطلاعاتش به تکس باکس منتقل بشه
امیدوارم واضح باشه

سلام،
مثال های زیر رو ملاحضه بفرمایید :
انتقال مقدار کامبوباکس به تکست باکس :

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox1.Text = Me.ComboBox1.Text
End Sub

Private Sub ComboBox1_Change()
Me.TextBox1.Text = Me.ComboBox1.Text
End Sub

انتقال مقدار انتخابی لیست باکس به تکست باکس :

Private Sub ListBox1_Click()
Me.TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 0)
End Sub

[سید مسعود قمی]

سلام استاد عزیز
ممنون از راهنماییتون اما این روشتون یک مشکلی داره روی هر اسمی که کلیک میکنم اسم قبلی از داخل تکس باکس پاک میشه
سوالمو بهتر توضیح میدم
من داخل کمبوباکسم حدودا 30 تا اسم دارم میخوام با کلیک روی هر اسم، اون اسم وارد تکس باکس بشه اینجوری رضا، محمد، علی، حمید

[ali.b]

سلام استاد عزیز
ممنون از راهنماییتون اما این روشتون یک مشکلی داره روی هر اسمی که کلیک میکنم اسم قبلی از داخل تکس باکس پاک میشه
سوالمو بهتر توضیح میدم
من داخل کمبوباکسم حدودا 30 تا اسم دارم میخوام با کلیک روی هر اسم، اون اسم وارد تکس باکس بشه اینجوری رضا، محمد، علی، حمید

سلام

Private Sub ComboBox1_Click()
Dim str As String
If str <> vbNullString Then str = str
str = str & ComboBox1.Text
TextBox1.Text = TextBox1.Text & " " & str
End Sub

[M_ExceL]

سلام استاد عزیز
ممنون از راهنماییتون اما این روشتون یک مشکلی داره روی هر اسمی که کلیک میکنم اسم قبلی از داخل تکس باکس پاک میشه
سوالمو بهتر توضیح میدم
من داخل کمبوباکسم حدودا 30 تا اسم دارم میخوام با کلیک روی هر اسم، اون اسم وارد تکس باکس بشه اینجوری رضا، محمد، علی، حمید

از کدی که جناب ali.b قرار دادند استفاده کنید
در صورتی که بخواهید تمام ایتم ها به تکست باکس منتقل شوند کد زیر رو استفاده کنید :

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim arr() As Variant
Me.TextBox1.MultiLine = True
Me.TextBox1.ScrollBars = fmScrollBarsBoth
ss = Me.ComboBox1.ListCount
    ReDim arr(0 To ss)
        For i = LBound(arr) To UBound(arr) - 1
             arr(i) = Me.ComboBox1.List(i, 0)
        Next
Me.TextBox1.Text = Join(arr, vbCrLf)
End Sub

[سید مسعود قمی]

ممنون از داداشا