AllSyntax.com: » Code » Visual Basic » 8 » Flag Viewer


	If at first you don't succeed, redefine success. - Anon.

[login] | [Register]

Flag Viewer

by: bs0d

Description:

You will need some images for the flags and name them appropriately to the code. The program will display them if you select the designated flag.- (4 images[flags], 4 option buttons, 2 frames, 2 check boxes, 2 command buttons, 1 image base, 1 label).

See Full Size

Code:

Private Sub chkCoutryName_Click()
'Will make the country name disappear/re-appear

If chkCoutryName.Value = 1 Then
        lblName.Visible = True
    Else
        lblName.Visible = False
    End If

End Sub

Private Sub chkTitle_Click()
'Will make the title disappear

If chkTitle.Value = 1 Then
        lblFlagViewer.Visible = True
    Else
        lblFlagViewer.Visible = False
    End If
End Sub

Private Sub cmdExit_Click()
'Will Terminate the program
    
    End
End Sub

Private Sub cmdPrint_Click()
'Will print the program

PrintForm
End Sub

Private Sub Form_Load()
chkTitle.Value = 1
chkCoutryName.Value = 1

End Sub

Private Sub optCanada_Click()
'Will change flag to canada
'will change text to canada

imgBase.Picture = ImgCanada.Picture
    lblName = "Canada"
    lblName.ForeColor = vbWhite
End Sub

Private Sub optJapan_Click()
'Will change flag to the Japan flag
'Will change text to say Japan

imgBase.Picture = ImgJapan.Picture
lblName = "Japan"
lblName.ForeColor = vbRed
End Sub

Private Sub optMexico_Click()
'Will change flag to Mexican flag
'Will change text to say Mexico

imgBase.Picture = ImgMexico.Picture
    lblName = "Mexico"
    lblName.ForeColor = vbGreen
End Sub

Private Sub optUS_Click()
'Will change flag to US flag
'Will change text to United States

imgBase.Picture = imgUS.Picture
    lblName = "United States of America"
    lblName.ForeColor = vbBlue
End Sub

Comments:

elbey

Subject: "That will look good" Date: Mar 07 2007 at 7:18 pm

That is good but what about if someone is new in VB and does not know how to declare the buttons like:

Error 2 Name 'chkCoutryName ' is not declared. C:\D ocuments and Settings\Youss ef\My Documents\Visu al Studio 2005\Projects Flag Viewer\Flag Viewer\Form1.v b 7 12 Flag Viewer

You Must be signed in or a member to comment.

	Code Stats
12,248	Views
1	Total Comments
0	Rating of 5 (6 Votes)

	Code Options
· Login to Rate This Code
· Login to Post a Comment
· Read more by this author

	Related
· RGB Color Fader
· Adder
· Math Problems
· Cut and Paste
· Combo Box Colors

Flag Viewer

Description:

Comments:

Code Stats

Code Options

Related