ليست باكس

[MALEK_mybb1.2_import12520]

با عرض خسته نباشيد خدمت تمام عزيزان

من ميخام اطلاعات رو داخل يك ليست باكس نشن بدم كه البته لين طلاعات دارداي چدين ستون ميباشند
مخواستم ببينم اين اين كار رو بايد با چه اكتيوكسي انجام بدم

مثل قسمت سرچ ويندوز كه اطلاعات را روي چنديدن ستون نشون ميده

يا اكتيوكس ديتا گريد كه به ديتا بيس متصل ميشه اگر هم بشه داخل ديتا گريد بدون اتصال به ديتا بيس اطلاعات ريخت خيلي خوب ميشه

لطفا راهنمايي كنيد
با تشكر

[ha_60]

اين چيزي كه شما مي خواي همون ديتا گريده
كه اگه به ديتابيس وصلش كني كه تقريبا هيچ مشكلي نداري فقط ستون ها روانتخاب مي كني و نشون مي ده
البته توي وي بي 6 كه يادمه مي شد بدونه ديتابيس هم باهاش كار كرد

[MALEK_mybb1.2_import12520]

من تا جايي ميدونم نميشه اگه شما ميدونيد بگويد چجوري ميشه توي ديتا گريد بدون ديتا بيس چيزي نوشت

[ha_60]

راست ميگي الان كه كدهاي قبلي رو نگاه مي كردم ديدم يه ديتابيس درست كرده بودم و با اون نشون مي دادم ولي نياز به MSSQL نداري به همين روش زير مي شه البته اين كدها مال دوران جونيه و vb6 اميد وارم به درد بخوره

کد:

Public DB As ADODB.Recordset
Public adr As Integer
Public dis As Integer
Public tp As Integer
Public Dirty As Boolean

Private Sub about_Click()
    frmAbout.Show
End Sub

Private Sub clear_Click()
    DB.MoveFirst
    For i = 1 To DB.RecordCount
        For j = 0 To 15
            DB.Fields(j) = "FF"
        Next
        DB.MoveNext
    Next
    Set MSHFlexGrid1.DataSource = DB
    
    MSHFlexGrid1.Visible = False
    For i = 1 To DB.RecordCount
        MSHFlexGrid1.Row = i
        MSHFlexGrid1.Col = 0
        a = UCase$(Hex$((i - 1) * 16))
        If Len(a <> 4) Then a = String(4 - Len(a), "0") + a
        MSHFlexGrid1.Text = a
    Next i
    MSHFlexGrid1.Visible = True

    
End Sub

[MALEK_mybb1.2_import12520]

متشكر به درد خورد :)

خيلي ممنون