Simple Gen Tutorial

[DeJay]

This Is A Tut To Help You With A Simple Gen.

Name: Simple Gen
Author: DeJay
Difficulty: Easy

Ok, Things You Will Need For This Simple Gen..

1 Text Box
3 Command Buttons
1 List Box

This Tutorial Will Teach You How To Make One Gen Option But When You Read This Tutorial You Will Understand How To Make More. Very Soon I Will Release A Gen I Made With 19 Gen Options And Will Post A Source Code And A Tut On How I Did It So I Hope This Help You If Your A Beginner.

Is You Are More Advanced Than I Will Be Posting Mor Stuff For You..Ok, On With The Tut..

Step By Step.

1. Add A Text Box, List Box And 1 Command Button To Form1

2. Next You Will Need To Add The Code Into Your Command Button So I Will Write A Code For An Option On 1 - 1,000

For X = 1 To 1000 'Anywhere X Is Posted It The Code It Will Mean 1 - 1,000
List1.AddItem Text1.Text & (X) 'Text1 Will Be Added To List1 With The Option Of 1 - 1,000
Next

If You Wanted To Add More Options Using That Method It Would Be Very Easy, I Will Show Another Examlpe.

This Is A Bit Harder Than The Last Code So Here Is what You Need To Do.

Add A New List Box
Go To Notpad And Type Down The Pad a - z
Should Look Like This
a
b
c
d
Etc.
Copy That And Go To Your New List And In The Properties Window You Will Scroll Down And See List | (List)
You Will Click On (List) And Paste The a-z Then..

Add Another Command Button And Add This Code

For X = 0 To List2.ListCount - 1
List1.AddItem Text1.Text & List2.List(x)
Next X

That Will Gen a-z After The Text You Have In text Button.
If You Wanted It To Gen Before The Word Than Add This Code In Another Command Button

For X = 0 To List2.ListCount - 1
List1.AddItem List2.List(x) & Text1.Text
Next X

That Will Be It For This Mini Tutorial Hope This Help Those Of You Just Beginning Visual Basic

If You Need A Source/Example Of This Please Lemme Know And I Can Make One

[goDLIKeFIgurE]

if u want to beable to set the number of genned names u'd add another textbox and change the first code to


Dim Fuckhead as Long
For Fuckhead = 1 To text2
List1.AddItem Text1 & (Fuckhead)
DoEvents
Next Fuckhead


also while loading listboxes you should change the code to this


list1.visible = false
Dim Fuckhead as Long
For Fuckhead = 1 To text2
List1.AddItem Text1 & (Fuckhead)
DoEvents
Next Fuckhead
list1.visible = true

doing this loads the listbox faster and doesnt lag ur pc nearly as bad
plus u have less chance of ur program freezing on you

if you wanted to add a item counter to it just add a label to the
form and then change the code to this


list1.visible = false
Dim Fuckhead as Long
For Fuckhead = 1 To text2
List1.AddItem Text1 & (Fuckhead)
DoEvents
Next Fuckhead
label1 = list1.listcount
list1.visible = true