vb6 Form Interface. Help

Guys i have this attachment wherein i need to create it for our project.
But i don not know what kind of control will i use. Please see attachment.

Attachment 95505

There is a search button wherein if i entered a word in a textbox and it find a match in the db, that form will be loaded and will automatically shows all the data.
im just confused because i don't think that is a listview.

It looks like some sort of spread or datagrid control to me. I know you can recreate that interface using Farpoint's spread control, but I suspect there are other options out there as well.

Perhaps it can be done with the WebBrowser control and some HTML/JavaScript.

Yep it kinda looks like an HTML table with controls in two of the cells. Not sure if you can add buttons and such to a grid control or not, never tried it.

i will make you a little example in a bit

Edit:
I have a little example now for you have a look

Code:

---

Option Explicit

Private Book(1 To 5) As Books
  Private Type Books
    Title As String
    AuthorName As String
    Quantity As Integer
    Price As Currency
  End Type


Private Sub Form_Load()
Dim i As Integer

  For i = 1 To UBound(Book)
    With Book(i)
      .Title = "Book " & i
      .AuthorName = "Author " & i
      .Quantity = (10 * i)
      .Price = (3 * i)
    End With
  Next
  VScroll1_Scroll
End Sub

Private Sub VScroll1_Change()
VScroll1_Scroll
End Sub

Private Sub VScroll1_Scroll()
On Error GoTo ErrHandler
  With Book(VScroll1.Value)
    lblBookName1.Caption = .Title
    lblBookBy1.Caption = .AuthorName
    txtBookQTY1.Text = .Quantity
    lblBookPrice1.Caption = .Price
    lblBookPrices1.Caption = .Price
  End With
 
  With Book(VScroll1.Value + 1)
    lblBookName2.Caption = .Title
    lblBookBy2.Caption = .AuthorName
    txtBookQTY2.Text = .Quantity
    lblBookPrice2.Caption = .Price
    lblBookPrices2.Caption = .Price
  End With
Exit Sub

ErrHandler:
  If Err.Number = 9 Then
      lblBookName2.Caption = ""
      lblBookBy2.Caption = ""
      txtBookQTY2.Text = ""
      lblBookPrice2.Caption = ""
      lblBookPrices2.Caption = ""
  End If
End Sub

---

Quote:

---

Originally Posted by DataMiser

Yep it kinda looks like an HTML table with controls in two of the cells

---

looks like regular vb controls

Attachment 95511

does this look similar enough jelopy15

thank you for the information guys. @Max187Voucher cool! now i can make my interface thank you alot. i was confused before because of the scroll bar i thought it was a listview.

Thanks to all those who helped me :)