VISUAL BASIC 6 - TUTORIAL FOR NEWBIE (TOOL BOX LIST)

Hi... Now You at Site WE ARE KNOWLEDGE... Having Knowledge in here... Let's Read it...

This time I want giving you tutorial about conditional VISUAL BASIC 6 is "LIST"
I make program of "SEELING BOOK"
And you can too input quality of book and want to appear total Cost..

using "LIST" likely "COMBO BOX"....

First open VISUAL BASIC 6 program...

And make like this
You can use facility "TOOLBOX"

You can change name in PROPERTIES

"CAPTION" for COMMAND BUTTON

"TEXT"         for TEXT

"LIST"          for LIST

Then you must input program code with method :

click menu view >> code..

OR

Double Click in text1, text 2 or command1...

And you can COPY This program and PASTE in CODE..

Privat sub command1_click()

If list1.text = “BOOK OF COMPUTER” then

Text1.text = “1100”

End if

If list1.text = “BOOK OF MANAGEMENT” then

Text1.text = “950”

End if 

If list1.text = “BOOK OF ACCOUNTANCY” then

Text1.text = “950”

End if

If list1.text = “BOOK OF LANGUAGE INDONESIAN” then

Text1.text = “750”

End if

If list1.text = “BOOK OF PHYSICS” then

Text1.text = “600”

End if

If list1.text = “BOOK OF CHEMISTRY” then

Text1.text = “590”

End if

Text2.setfocus

Text3.text = val(text2.text) * val(text1.text)

End sub

Private sub form_load()

List1. Additem “book of computer”

List1. Additem “book of management” 

List1. Additem “book of accountancy”

List1. Additem “book of language indonesian”

List1. Additem “book of physics”

List1. Additem “book of chemistry”

And result

And if done..

you can execution this program...


Click Knop play or press "F5"


First in my program.. I input "book of management" and How many = 5...
and then total is 4750

Second in my program.. I input "book of Language indonesian" and How many = 9...

and then total is 6750

Third in my program.. I input "book of chemistry" and How many = 2...

and then total is 1180

Ok.. Just it...

Don't forget... Came back to my Site....

If you like this press "CTRL +D" this for bookmark my page.....

Thanks For you... See you.....