SftTree/DLL 7.5 - Tree Control
SftBox/OCX 5.0 - Combo Box Control
SftButton/OCX 3.0 - Button Control
SftMask/OCX 7.0 - Masked Edit Control
SftTabs/OCX 6.5 - Tab Control (VB6 only)
SftTree/OCX 7.5 - Tree Control
SftPrintPreview/DLL 2.0 - Print Preview Control (discontinued)
SftTree/DLL 7.5 - Tree Control
SftBox/OCX 5.0 - Combo Box Control
SftButton/OCX 3.0 - Button Control
SftDirectory 3.5 - File/Folder Control (discontinued)
SftMask/OCX 7.0 - Masked Edit Control
SftOptions 1.0 - Registry/INI Control (discontinued)
SftPrintPreview/OCX 1.0 - Print Preview Control (discontinued)
SftTabs/OCX 6.5 - Tab Control (VB6 only)
SftTree/OCX 7.5 - Tree Control
SftTabs/NET 6.0 - Tab Control (discontinued)
SftTree/NET 2.0 - Tree Control
This sample illustrates a simple combo box with fonts, bitmaps.
The source code is located at C:\Program Files (x86)\Softelvdm\SftBox OCX 5.0\Samples\VB6\Features\Form1.frm or C:\Program Files\Softelvdm\SftBox OCX 5.0\Samples\VB6\Features\Form1.frm (on 32-bit Windows versions).
Option Explicit Private Function AddOneItem(ByVal Cell0 As String, ByVal Cell1 As String, ByVal Cell2 As String) As Long AddOneItem = SftBox1.Items.Add(Cell0) SftBox1.Cell(AddOneItem, 1).Text = Cell1 If (AddOneItem Mod 4) = 0 Then Set SftBox1.Cell(AddOneItem, 1).Image.Picture = PictureSpecial.Picture If (AddOneItem Mod 8) = 0 Then SftBox1.Cell(AddOneItem, 1).ImageHAlign = halignSftBoxRight End If End If SftBox1.Cell(AddOneItem, 2).Text = Cell2 If (AddOneItem Mod 5) = 0 Then Set SftBox1.Cell(AddOneItem, 2).Image.Picture = PicturePin.Picture If (AddOneItem Mod 10) <> 0 Then SftBox1.Cell(AddOneItem, 2).ImageHAlign = halignSftBoxRight End If End If If (AddOneItem Mod 3) = 0 Then Set SftBox1.Item(AddOneItem).RowHeader.Image.Picture = PicturePic.Picture If (AddOneItem Mod 6) <> 0 Then SftBox1.Item(AddOneItem).RowHeader.ImageHAlign = halignSftBoxRight End If End If If (AddOneItem Mod 6) = 0 Then SftBox1.Cell(AddOneItem, 0).Font.Bold = True End If If (AddOneItem Mod 7) = 0 Then SftBox1.Cell(AddOneItem, 1).Font.Italic = True End If End Function Private Sub Command1_Click() Unload Form1 End Sub Private Sub Form_Load() Dim Index As Long SftBox1.BulkUpdate = True With SftBox1.Items For Index = 0 To 30 If Index = 4 Then AddOneItem "Item " & Index, "This cell text is very long", "Cell " & Index & ",2" ElseIf Index = 7 Then AddOneItem "Item " & Index, "Cell " & Index & ",1", "This cell text is also very long" Else AddOneItem "Item " & Index, "Cell " & Index & ",1", "Cell " & Index & ",2" End If Next End With SftBox1.BulkUpdate = False SftBox1.Column(0).Width = SftBox1.Width / 4 SftBox1.Column(1).Width = SftBox1.Width / 4 SftBox1.RowHeaders.MakeOptimal 0 SftBox1.Column(2).MakeOptimal 0 SftBox1.Items.RecalcHorizontalExtent 0 End Sub