' Easy programming for Visual Basic 6.0 or Visual Basic .NET The code methods should work for both of them. ' Detect one single password. Private Sub PasswordCheck() If Me.Textbox1.Text = "mypasswordhere" Then Msgbox("Yes the secret password is correct.", vbInformation, "My mesagebox Title Correct!") Else Msgbox("The password is incorrect, please try again.", vbCritical, "My messagebox Title Incorrect!" End If End Sub ' Detect two different passwords. Private Sub PasswordCheck() If Me.Textbox1.Text = "mypasswordhere-1" Or Me.Textbox1.Text = "mypasswordhere-2" Then Msgbox("Yes the secret password is correct.", vbInformation, "My mesagebox Title Correct!") Else Msgbox("The password is incorrect, please try again.", vbCritical, "My messagebox Title Incorrect!" End If End Sub ' Listbox add items rapidly to Listbox Private Sub AddToListBox() Dim X As Integer = "0" Do Until X = "1000" X = X + 1 ListBox1.Items.Add("Your Item #" & " " & X) Loop End Sub ' Make a Button on Form1, and make a Form2 ' Add code into Form1 under your new button double click the button to add a Call like this Call Hide_or_Show_Form2 ' When you build the program in Form1 you can click the button over, and over again, and it will just toggle hide or show of Form2. ' This method is really good to use if you have a Icon in the icon tray when people double click the Icon for your main application. Private Sub Hide_or_Show_Form2() If Form2.Visible = True Then Form2.Visible = False Else Form2.Visible = True End If End Sub
' More Easy codes for Visual Basic 6.0 or Visual Basic . NET. ' It's a good idea to make a recyle your methods so your application is not so massive in file size. Public EXEPATH As String = Application.StartupPath & "\" ' This is used for .NET this is a good method to recyle and to shorten the name. ' Now you can use EXEPATH instead of Application.StartupPath for everything. ' This command is used for when targeting where the EXE is located. Private Sub WhereISMyProgram() Msgbox(EXEPATH, vbinformation, "EXE Location title" ' Please remember it has & "\" the last backslash it's good to have because some people forget to add a backslash End Sub ' Loading picture method for VB.NET Private Sub LoadImages(MyPictureBoxName As Object, LocationToPicture As String) On Error Resume Next ' Good to catch a crash, and continue MyPictureBoxName.Image = Image.FromFile(LocationToPicture) End Sub Private Sub Button1_Click(!!<ChangeThis!!) ' <--- this option may need changed from VB6 & .NET Call LoadImages(PictureBox1,EXEPATH & "Images\MyPicture.png" ' <-- note I didn't use \ at the start "\Images\MyPicture.png" because I already did that above. End Sub ' Open EXE Path Private Sub FindMyEXELocatioN() On Error Goto SkipPathError ' This is used to avoid a crash of anything or even launching a application if it's not found. Process.Start("explorer.exe", EXEPATH) SkipPathError: ' The error was jumped to here, and end's sub. End Sub Private Sub AddtoListBox(YourListBoxName As Object, YourListBoxText As String) YourListBoxName.Items.Clear ' Good to add to clear the listbox before adding anything again. Dim X As Integer X = "0" Do Until X = "1000" X = X + 1 YourListBoxName.Items.Add(YourListBoxText) Loop End Sub