سوال: ردیف در لیست باکس [بایگانی]

dadsara

چهارشنبه 04 دی 1387, 16:14 عصر

سلام و خسته نباشید
من یک لیست باکس دارم که به هیچ منبع داده ای متصل نیست آیا این امکان وجود دارد که یک ستوان بعنوان ردیف برای آن ایجاد کرد

مهدی قربانی

چهارشنبه 04 دی 1387, 16:34 عصر

سلام
کد موجود روی کامند باتون ADD نمونه موجود در پست آخر این تاپیک (http://barnamenevis.org/forum/showthread.php?t=138387) رو به صورت زیر اصلاح کنید تا ردیف رو داشته باشید :

Private Sub CmdAdd1_Click()
Dim LstCount As Integer
LstCount = Me.List0.ListCount
Me.List0.AddItem (IIf(LstCount = 0, 1, LstCount + 1) & ";" & Me.CmbField & ";" & Me.CmbGroup & ";" & Me.Text56)
End Sub