Post: Visual Basic Help !
10-16-2011, 06:39 AM #1
MelestedRabbit
Ultimate Sex God
(adsbygoogle = window.adsbygoogle || []).push({}); i am making a program with Visual Basic,
i have button1 conected with textbox1
im tryingn to have a list
eg;
-a
-b
-c
but when i enter and start a new line it doesnt work

can someone fix the code for me please ?

--------------------------------------------------------------------------------------------------------------------------------
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "bind BUTTON_start (Recommend Using) Could you any "

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = "bind BUTTON_ or DPAD_(toggle mods on/off)"
End Sub
End Class
----------------------------------------------------------------------------------------------------------------------------------

-MelestedRabbit
(adsbygoogle = window.adsbygoogle || []).push({});
10-28-2011, 04:56 AM #11
Pichu
RIP PICHU.
Originally posted by Epic
First off, you need to learn to use the CODE tag, that will make it a lot more organized and easy to read.

Also, what do you mean by "i add a notification icon", as I don't see any code pertaining to a notification icon?

Furthermore, how can you have all those errors? It looks like all you're doing is changing the text in TextBox1, and I really don't get how that could cause an error (unless you have failed to escape certain chars or something).

What you really need to do is repost your code with the errors and the code in CODE tags, or, first learn to program, then try to make a program. Perhaps you're taking on a project that's way over your head, and that's your problem. Visual Studio really is exceptionally easy to debug in, and has a ton of tools to help you, so it really should be a cake walk to make a simple program like what you currently seem to have.

EDIT/UPDATE:

I just found your error, and this further leads me to my point of learn to program before you attempt to program. All your Subs need to go within a class. As a general rule of thumb, pretty much everything belongs in a class. This error would have been a lot easier to solve had you used CODE tags.

Basically, where it says "Public Class Form1" and "End Class", all your code needs to go IN BETWEEN those two lines:
    
[B]Public Class Form1[/B]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "bind BUTTON_start (recommended), bind BUTTON_back bind BUTTON_RSHLDR bind BUTTON_LSHLDR bind BUTTON_LSTICK bind BUTTON_RSTICK bind BUTTON_A bind BUTTON_B bind BUTTON_X bind BUTTON_Y "
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = "bind DPAD_UP bind DPAD_DOWN bind DPAD_RIGHT bind DPAD_LEFT"
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = "toggle cg_fov 80 105 54 65 (Pro Mod) toggle cg_thirdperson (Third Person) toggle r_fullbright 1 0 (Cartoon Mode) toggle timescale 1 5 10 0.2 (Game Speed) toggle g_speed 100 200 450 (Sprint Speed) toggle r_colorMap 1 2 3 0 (Snow Visions) toggle arcademode 1 0 (Arcade Mode) toggle r_flameFX_enable 1 0 (Flame) toggle g_gravity 99 200 500 (Gravity) toggle jump_height 100 500 999 (Jump Height) cg_laserForceOn 1 0 (Laser Sight) toggle r_specularMap 2 0 (Chrome Vision) toggle R_Fog 0 1 (Fog)"
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = "arcademode_score_revive 100000 arcademode_score assist 1000 arcademode_score_kill 10000 arcademode_score_headshot 1000 arcademode_score_laststand 10000 arcademode_score_suicide 10000 arcademode_score_morphine 100000000"
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = "perk_altMeleeDamage 10000 (Bowie Knife) perk_altMeleeLerpTime 5 (Fast Knife React) perk_weapRateMultiplier 0.001 (Triple Tap) perk_armorvest 0 (Increased Jugernaught) perk_weapReloadMultiplier 0.001 (Speed Cola)"
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = "clientkick1 (Kicks Player 2) clientkick2 (Kicks Player 3) clientkick3 (Kicks Player 4) kick all (Kicks All Players)"
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = "party_(Your Gamertag Here) (Host's Name) party_iamhost 1 (Force Host) party_host 1 (Force Host) party_connectToOthers 0 (New Party)"
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = "bg_fallDamageMaxHeight 9999 (Needed) bg_fallDamageMinHeight 9998 (Needed)"
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = "collectible_add collectible_paintball (Paintball) collectible_add collectible_morphine (Revive) collectible_add collectible_dirtyharry (Explve Colt) To remove, Change add to 'remove'"
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = "put these with bind BUTTON's or DPAD binds god (God Mode) give all (Give's All Weapons) dropweapon (Drops Current Weapon) developeruser 1 (Dev ClanTags/ RAIN, MOVE) r_znear 35 (Wallhack) demigod (Half God Mode)"
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = "player_sustainAmmo 1 (Unlimited Ammo) revive_trigger_radius 99999 (Far Revive) player_meleeRange 999 (Far Revive) phys_gravity 99 (Zombies Float When Dead) ai axis delete (Delete All Zombies on Map)magic_chest_movable 0 (Magic Box Dont Move) player_lastStandBleedoutTime 250 (Bleed Out) bullet_penetrationEnabled 1 (Penetrate Bullets) revive_time_taken 1 (Revive Faster)"
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
TextBox1.Text = "player_strafeSpeedScale1 1.5 (Side Movement) player_sprintSpeedScale 4.0 (Fast Sprint) player_sprintunlimited 1 (Unlimited Sprint) player_backSpeedScale 2.0 (Fast Back Walk) G_SPEED 600 (Player Speed)"
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
TextBox1.Text = "r_fullbright 1 (Cartoon Mode) r_specularMap 2 (Chrome Mode) r_colormap 2 (Christmas) r_revivefx_debug 1 (Black & White) sf_use_invert (Thermal) sf_bwself (Black & White) sf_use_chaplin (Old Time) sf_use_contrast (Contrast)"
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
TextBox1.Text = "Put these with bind BUTTONS or DPAD binds toggle r_fullbright 1 0 (Cartoon) toggle r_colorMap 1 2 3 0 (Snow) toggle r_flameFX_enable 1 0 (Flame) toggle r_specularMap 2 0 (Chrome) toggle r_poisonFX_debug_enable 1 0 (Gas) toggle r_watersheetingfx_enable 1 0 (Water)"
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = "toggle G_Ai 0 1 (Freeze Zombies) toggle g_speed 0 (Freeze Player) toggle jump_height 0 (Freeze Jump)"
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
TextBox1.Text = "zombiemode 1 (Default Zombie Mode)"
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
TextBox1.Text = "give ray_gun (Give's Ray Gun) give tesla_gun (Give's Tesla Gun) give m2_flamethrower_zombie (Flamethrower) give zombie_mg42 (Give's MG42) give zombie_ppsh (Give's PPSH) give zombie_stg44 (Give's STG44) give zombie_thompson (Give's Thompson)"
End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
TextBox1.Text = "aim_autoaim_enabled 1 aim_autoaim_lerp 100 aim_autoaim_region_height 120 aim_autoaim_region_width 99999999 aim_autoAimRangeScale 2 aim_lockon_debug 1 aim_lockon_enabled 1 aim_lockon_region_height 1386 aim_lockon_region_width 0 aim_lockon_strength 1 aim_lockon_deflection 0.05 aim_input_graph_debug 0 aim_input_graph_enabled 1 auto_aim_enabled 1;aim_slowdown_yaw_scale 0;aim_slowdown_yaw_scale_ads 0"
End Sub

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
TextBox1.Text = "cg_tracerchange 0.2 cg_tracerlength 160 cg_tracerscale 1"
End Sub
[B]End Class[/B]


The above code should work fine for you.

And please, please, please, PUH-LEEZE read a tutorial or book prior to attempting another program, or just use Google (as I'm sure you could've easily found a resource to solve your problem). I already linked you to a perfectly fine, easy to read, tutorial, had you read it, from the beginning to the end, you'd not run into stupid, time-wasting errors like this.


I agree with the tutorial or book part...

He could even use YouTube but it seems like he saw a line of code and is now attempting to make things by following a similar pattern of code design.

Copyright © 2026, NextGenUpdate.
All Rights Reserved.

Gray NextGenUpdate Logo