من می خواهم بر روی فرم چک باکس بگذارم که کپشن آن فعال باشد در صورتی که انتخاب شده بود نام فرد در لیست های دیگر نشان داده شود و در صورتی که فعال نباشد نام کار آموز در لیست نشان داده نشود.
برای مثال در فرم اول مشخصات کار آموز را می گیرد و تیک فعال را می زند پس نام کار آموز در کمبو باکس افزوده می شود حال در صورتی که تیک فعال نزده شده باشد در فرم دوم در لیست نام کارآموز نباشد
سلام
سوالات واضح نبود ، به هر حال تا جایی که متوجه شدم می خوای زمانی که روی یه چک باکس کلیک می کنی (و چک دار میشه ) برنامه بره تو لیست دنبال یه اسم (که اسم خود چک باکس هست ) بگرده اگه پیدا نکرد به لیست اضافه کنه در غیر این صورت هم ...
اگه سوالت این بود با این کد ساده می تونی مشکلت رو حل کنی
در غیر این صورت سوال رو واضح مطرح کن
کد:
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
موفق باشی
من سورس برنامه مشاوره املاک را با برنامه ویژوال بیسیک می خواستم
ممنون می شم که زودتر جوابم رو به ایمیل یا توسایت بگذارید
emil : amelakarajtanha@yahoo.com