ایجاد کمبو باکس در یوزرفرم با اجرای کامند باتون

**mohammad59** · 2016/07/29

سلام و درود

در یوزر فرم چه کدی بنویسم که با اجرای کامند باتون یک کمبو باکس جدید اضافه بشه
یعنی هر بار که کامند باتون رو اجرا می کنم در صورت پر بودن کنبو باکس 1 کمبو باکس 2 در ردیف زیری ایجاد بشه
باسپاس

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

سیستم تبلیغات اکسل ایران

**امين اسماعيلي** · 2016/07/29

با درود
فرض کن هیچ کمبو باکسی نداریم . این کد رو واسه یه کلید بنویس که تو یوزر فرمت هست و تستش کن. امیدوارم به کارت بیاد من امتحان کردم درست بود

کد:

Private Sub CommandButton1_Click()
Dim cCont As Control

Dim s
s = 0

    For Each cCont In Me.Controls

        If TypeName(cCont) = "ComboBox" Then

           s = s + 1

        End If

     Next cCont
    
     If s >= 1 Then
   
     Dim i
     i = s + 1
  If Me.Controls("Combobox" & i - 1).Value <> "" Then
         Set cCont = Controls.Add("Forms.Combobox.1")
         With cCont
             .Name = "Combobox" & i
             .Height = 20
             .Width = 100
             .Left = 10
             .Top = 20 * i - 10
         End With
    End If
     Else
     Set cCont = Me.Controls.Add _
        ("Forms.Combobox.1")
       
    With cCont
        .Name = "Combobox1"
        .Height = 20
             .Width = 100
             .Left = 10
             .Top = 10
    End With
    
     
         End If
End Sub

**mohammad59** · 2016/07/29

سلام
من از شما خیلی سپاسگزارم بابت وقت که گذاشتید

یه موضوع مهم اینکه کمبو باکس های ایجاد شده ذخیره نمی شن

**امين اسماعيلي** · 2016/07/29

zakhire nemishano nemifahmam, yani mikhi vaghti form dobare load shod. be hamon tedad ghabli combo dashte bashi.agar intori bashe ke shoma ye moteghayero ye ja zakhire mikoni ke tedadae akhain combobox haye ijad shodaro neshon mide va bad o har bar load shodane useform to ye halghe for sari on comobo ha ijad mishan..

**iranweld** · 2016/07/29

با سلام

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