Program for names of color in vb

Private Sub CmbColor_Click()
For i = 0 To CmbColor.ListCount - 1
    If CmbColor.ListIndex = i Then
        If CmbColor.List(i) = "Red" Then
            Label1.BackColor = vbRed
        ElseIf CmbColor.List(i) = "Green" Then
            Label1.BackColor = vbGreen
        ElseIf CmbColor.List(i) = "Blue" Then
            Label1.BackColor = vbBlue
        ElseIf CmbColor.List(i) = "White" Then
            Label1.BackColor = vbWhite
        Else
            Label1.BackColor = vbYellow
        End If
    End If
Next
End Sub

Private Sub CmbNames_Click()
 For i = 0 To CmbNames.ListCount - 1
    If CmbNames.ListIndex = i Then
        Label1.Caption = CmbNames.List(i)
    End If
 Next
End Sub

Private Sub Form_Load()
CmbNames.AddItem "Red Color"
CmbNames.AddItem "Green Color"
CmbNames.AddItem "Blue Color"
CmbNames.AddItem "White Color"
CmbNames.AddItem "Yellow Color"

CmbColor.AddItem "Red"
CmbColor.AddItem "Green"
CmbColor.AddItem "Blue"
CmbColor.AddItem "White"
CmbColor.AddItem "Yellow"

End Sub




Popular posts from this blog

Solve

Solved practical slips of 12th Computer Science journal

SOLVE QUESTION ANSWERS ON OPERATING SYSTEM .