کمک

[alishah]

من می خواهم بر روی فرم چک باکس بگذارم که کپشن آن فعال باشد در صورتی که انتخاب شده بود نام فرد در لیست های دیگر نشان داده شود و در صورتی که فعال نباشد نام کار آموز در لیست نشان داده نشود.
برای مثال در فرم اول مشخصات کار آموز را می گیرد و تیک فعال را می زند پس نام کار آموز در کمبو باکس افزوده می شود حال در صورتی که تیک فعال نزده شده باشد در فرم دوم در لیست نام کارآموز نباشد

[arashrj]

سلام
سوالات واضح نبود ، به هر حال تا جایی که متوجه شدم می خوای زمانی که روی یه چک باکس کلیک می کنی (و چک دار میشه ) برنامه بره تو لیست دنبال یه اسم (که اسم خود چک باکس هست ) بگرده اگه پیدا نکرد به لیست اضافه کنه در غیر این صورت هم ...

اگه سوالت این بود با این کد ساده می تونی مشکلت رو حل کنی
در غیر این صورت سوال رو واضح مطرح کن

کد:

Dim RJ As Boolean
    Dim KRJ As Integer
    Dim IndexRJ As Integer
    RJ = False
    For KRJ = 0 To Combo1.ListCount - 1
        If Combo1.List(KRJ) = Check1.Caption Then
            RJ = True
            IndexRJ = KRJ
        End If
    Next
    
    If RJ = True Then
        If Check1.Value = 0 Then
            Combo1.RemoveItem IndexRJ
        End If
    Else
        If Check1.Value = 1 Then
            Combo1.AddItem Check1.Caption
        End If
    End If

موفق باشی

[amelakarajtanha]

من سورس برنامه مشاوره املاک را با برنامه ویژوال بیسیک می خواستم
ممنون می شم که زودتر جوابم رو به ایمیل یا توسایت بگذارید
emil : amelakarajtanha@yahoo.com