'[color=#32CD32]comment [/color]
Dim int as integer = "5"
Dim str as string = "Sample Text"
txtResult.text = int
Dim int as integer = 5
txtResult.text = txtResult.text + int
txtResult.text += int
Dim str as IO.Streamreader = New Streamreader("C:\test.txt")
txtResult.text = str.readtoend
str.dispose
Using str as new Io.Streamreader("C:\test.txt")
txtResult.text = str.readtoend
End Using
If txtResult.text = "a" Then
Msgbox("Newb")
End if
If txtResult.Text = "b" Then
Msgbox("Newbie")
End if
If txtResult.text = "c" Then
Msgbox("Noob")
End if
Select Case txtresult.Text
Case "a"
Msgbox("Newb")
Case "b"
Msgbox("Newbie")
Case "c"
Msgbox("PM Me xD")
End Select
If textbox1.text = "HakerDz"
'do something
elseif Textbox1.text = "HakerDz"
'do something else
else 'if it's neither HakerDz nor HakerDz
'something
end if
Select Case Textbox1.Text
Case "meh"
'do something
Case "Duh"
'do something else
Case Else
'something
end select
If Textbox1.text <> "" then 'if it's not empty
end if
If not textbox1.text = "" then
end if
Dim firstPos as point
Dim firstDir as string
Dim firstFrame as integer
Dim secondPos as point
Dim secondDir as string
Dim secondFrame as integer
Dim thirdPos as point
Dim thirdDir as string
Dim thirdFrame as integer
Structure meh
Dim Pos As Point
Dim Dir As String
Dim Frame As Integer
end structure
dim first as meh
dim second as meh
dim third as meh
Dim b as boolean 'by default the boolean is FALSE
If b = true then
'do something
end if
If b = false Then
'do something
end if
if b then 'true
'do something
else 'false
'do something
end if
Try
Timer.Value = txtResult.Text 'user may enter a letter instead of a number
Catch ex as exception
Msgbox(ex.Tostring) 'optional
End try
Try
Timer.Value = nudValue.Value 'NumericUpDown
Catch ex as exception
end try
#Region "Settings"
Private Sub spStartup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles spStartup.CheckedChanged
if spstartup then
my.settings.spStartup = true 'run singleplayer on startup
my.settings.save
end if
End sub
Private Sub mpStartup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpStartup.CheckedChanged
if spstartup then
my.settings.mpStartup = true 'run multiplayer on startup
my.settings.save
end if
End sub
#End region
Copyright © 2024, NextGenUpdate.
All Rights Reserved.