Listbox

Hi everyone! :wave: :wave:

I am making a twisted version of who wants to be a millionaire, for school, but you know how I've got to display what you are up to e.g "$32,000". I thought about using a listbox but this is very boring :o.

Any other ways to do this? thanks

just ideas are good

A control array of label or textbox might be a good alternative...

any1 else?

Actually dee-u's suggestion of labels is not a bad idea.

You could have a label for each level, all of which have their visible property set to false when the program started.

At each level, the corresponding label would be made visible, and at each level you could set the font size to one bigger than the previous label, and change the forecolor for each until the top has been achieved.

I wouldn't set the visible property to false, you'd loose the affect of "levels". Just set the all the fonts and sizes in an incrementing fashion and then make the current level BOLD.

or use a Textboxes, a Shape and a Timer and change font color and the background colors for the active level giving you a nice effect (See Image):

VB Code:

Option Explicit
 
' At least two Textboxes arranged in a Control Array
' Add One ComboBox, One Timer and One Shape
' Use default names for all controls
 
Dim blnBackgroundMode As Boolean
Dim lngTextBoxIndex As Long
Dim a As Long
 
Private Sub Combo1_Click()
 
lngTextBoxIndex = Combo1.Text
    
With Text1
    For a = .LBound To .UBound
        With .Item(a)
            .BackColor = vbWhite
            .ForeColor = vbBlack
            .FontBold = False
            blnBackgroundMode = True
        End With
    Next a
End With
 
 
End Sub
 
Private Sub Form_Load()
    
    With Text1
        For a = .LBound To .UBound
            With .Item(a)
                .Text = "Level " & a + 1
                .Alignment = 2
                .Appearance = 0
                .FontBold = False
                Combo1.AddItem a
            End With
        Next a
        
        Combo1.ListIndex = 0
    End With
 
    With Timer1
        .Interval = 250
        .Enabled = True
    End With
    
End Sub
 
Private Sub Timer1_Timer()
 
    With Text1.Item(lngTextBoxIndex)
        Shape1.Move .Left - 50, .Top - 50, .Width + 100, .Height + 100
        Shape1.Visible = True
 
        If blnBackgroundMode Then
            .BackColor = vbWhite
            .ForeColor = vbBlack
            Shape1.BorderColor = vbRed
            blnBackgroundMode = False
        Else
            .BackColor = vbRed
            .ForeColor = vbWhite
            Shape1.BorderColor = vbBlack
            blnBackgroundMode = True
        End If
       
       .FontBold = Not (.FontBold)
    End With
End Sub

Or if you want to keep a similar design, the listview control gives you more options for font alterations for each item than a listbox.

Or a flexgrid/mshflexgrid...