Hej

Vad kan man använda för komponent om man vill ha checkboxar och text samnt visa detta i en list eller dyligt, värden skall hämntas från databas.

Har testar med Listview och Flexgrid samt dbgrid men med minna bristande kunskaper
får jag inte till det.

Tips!!

Använder vb6 och access97.

Hälsningar
Tobbe

Sätt egenskapen checkbox till sant på Listboxen.

Hej

Får likt_banat bara kryssrutorna i en column vill ha en i varje column.

ex: [] Klar [] På börjad [] Räknad [] Lev Object 1 typ
[] Klar [] På börjad [] Räknad [] Lev Object 1 typ
[] Klar [] På börjad [] Räknad [] Lev Object 1 typ

Hälsningar
Tobbe

Hej

Man kan göra en lösning där man skapar en kalss vilket innehåller det du vill
visa på varje rad.

Ett embryo:

Class1.cls:
Option Explicit

Dim WithEvents mChdone As CheckBox
Dim WithEvents mChStarted As CheckBox

Dim mName As Label
Dim mMyForm As Form
Dim mContainer As Control


Public Sub init(ByRef name As String, ByRef formRef As Form, _
ByVal count As Long, ByRef container As Control, _
ByVal X As Single, ByVal Y As Single)
Set mContainer = container
Set mChdone = formRef.Controls.Add("VB.checkbox", "chDone" & CStr(count), mContainer)
Set mChStarted = formRef.Controls.Add("VB.checkbox", "chStarted" & CStr(count), mContainer)
Set mName = formRef.Controls.Add("VB.label", "lblName" & CStr(count), mContainer)
Set mMyForm = formRef

mChdone.Left = X
mChdone.Top = Y
mChdone.Visible = True
mChdone.Caption = "Done"

mChStarted.Left = mChdone.Left + mChdone.Width + 10
mChStarted.Top = Y
mChStarted.Visible = True
mChStarted.Caption = "Started"

mName.Left = mChStarted.Left + mChStarted.Width + 10
mName.Top = mChdone.Top + 160
mName.Caption = name
mName.Visible = True

End Sub
Fomr1:
Option Explicit

Dim row1(0 To 1) As New Class1

Private Sub Form_Load()
Dim ii As Long

For ii = 0 To UBound(row1)
row1(ii).init "Object" & CStr(ii), Me, ii, Frame1, 100, 200 + 450 * ii
Next ii

End Sub

Hej

Testade ditt förslag

Hälsningar
Tobbe

Hej
Det var inte riktigt vad jag är ute efter

Det som jag vill kunna göra är som t,ex griden i Access, om man använder ett fält som
True/false (Ja/Nej) kommer det att visas som kryssrutor.

Det verkar som en omöjlighet med dom komponenter som jag känner till
Listbox, Listview får jag bara kryssrutor i första columnen vertikalt.
Jag vill ha krysrutorna horisontalt lite blandat mellan text columner.


Hälsningar
Tobbe