Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all articles
Browse latest Browse all 27189
↧

Is there any way to make this smaller or simpler?

May 16, 2013, 7:57 am
$
0
0
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add(TextBox1.Text)
        ElseIf RadioButton2.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("cyan:" & TextBox1.Text)
        ElseIf RadioButton3.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("green:" & TextBox1.Text)
        ElseIf RadioButton4.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("purple:" & TextBox1.Text)
        ElseIf RadioButton5.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("red:" & TextBox1.Text)
        ElseIf RadioButton6.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("white:" & TextBox1.Text)
        ElseIf RadioButton7.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash1:" & TextBox1.Text)
        ElseIf RadioButton8.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash2:" & TextBox1.Text)
        ElseIf RadioButton9.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash3:" & TextBox1.Text)
        ElseIf RadioButton10.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow1:" & TextBox1.Text)
        ElseIf RadioButton11.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow2:" & TextBox1.Text)
        ElseIf RadioButton12.Checked AndAlso RadioButton13.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow3:" & TextBox1.Text)
        ElseIf RadioButton1.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("scroll:" & TextBox1.Text)
        ElseIf RadioButton1.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("shake:" & TextBox1.Text)
        ElseIf RadioButton1.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("slide:" & TextBox1.Text)
        ElseIf RadioButton1.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("wave:" & TextBox1.Text)
        ElseIf RadioButton1.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("wave2:" & TextBox1.Text)
        ElseIf RadioButton2.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("cyan:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton2.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("cyan:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton2.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("cyan:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton2.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("cyan:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton2.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("cyan:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton3.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("green:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton3.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("green:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton3.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("green:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton3.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("green:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton3.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("green:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton4.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("purple:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton4.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("purple:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton4.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("purple:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton4.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("purple:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton4.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("purple:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton5.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("red:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton5.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("red:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton5.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("red:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton5.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("red:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton5.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("red:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton6.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("white:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton6.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("white:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton6.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("white:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton6.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("white:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton6.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("white:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton7.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash1:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton7.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash1:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton7.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash1:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton7.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash1:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton7.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash1:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton8.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash2:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton8.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash2:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton8.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash2:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton8.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash2:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton8.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash2:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton9.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash3:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton9.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash3:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton9.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash3:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton9.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash3:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton9.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("flash3:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton10.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow1:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton10.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow1:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton10.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow1:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton10.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow1:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton10.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow1:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton11.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow2:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton11.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow2:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton11.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow2:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton11.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow2:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton11.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow2:" & "wave2:" & TextBox1.Text)
        ElseIf RadioButton12.Checked AndAlso RadioButton14.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow3:" & "scroll:" & TextBox1.Text)
        ElseIf RadioButton12.Checked AndAlso RadioButton15.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow3:" & "shake:" & TextBox1.Text)
        ElseIf RadioButton12.Checked AndAlso RadioButton16.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow3:" & "slide:" & TextBox1.Text)
        ElseIf RadioButton12.Checked AndAlso RadioButton17.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow3:" & "wave:" & TextBox1.Text)
        ElseIf RadioButton12.Checked AndAlso RadioButton18.Checked AndAlso TextBox1.Text <> Nothing Then
            ListBox1.Items.Add("glow3:" & "wave2:" & TextBox1.Text)
        End If

        If TextBox1.Text <> Nothing Then
            RadioButton1.Checked = True
            RadioButton13.Checked = True
            TextBox1.Text = ""
            TextBox1.Select()
        Else
            MessageBox.Show("Box contains no characters.")
        End If
↧
Search
Viewing all articles
Browse latest Browse all 27189

Trending Articles

Scunthorpe teen jailed for raping woman as she slept & taking...

October 12, 2014, 11:00 pm

OEM CNH Case New Holland AUB163272 87775821 Serrated Blade Rotary Cutter Mower

July 22, 2016, 8:18 am

Little Mix – Glory Days (Deluxe Concert Film Edition) – 2016 – iTunes Plus...

October 21, 2016, 10:28 pm

A/L Technology Stream – Subject combinations, Syllabuses and Teacher guides

December 17, 2013, 6:12 pm

Throw Back: Samini — Where My Baby Dey (Prod by Kaywa)

May 14, 2015, 11:18 am

Re: Revit 2022 download trial

February 6, 2025, 7:48 am

The Kim Kardashian sex tape: An oral history

March 27, 2017, 8:12 pm

Ndebele counting

August 13, 2012, 2:19 pm

[MP3] Okpo Recordz Virus & Texzy –“Raba Raba” (Prod. by Exy Pro)

July 29, 2016, 8:17 am

MJP Rohilkhand University Result 2017-18 BA B.Sc B.Com Private/ Regular

June 5, 2017, 9:14 pm

Isilon CLI Command Reference

May 9, 2017, 9:25 am

मतलबी दोस्त स्टेट्स | Matlabi Dost Status in Hindi – Selfish Friends Status

February 13, 2020, 3:12 am

KFC (South Africa) - Supa Strikas Clash Cards (2016)

July 14, 2017, 1:30 am

31 Division’s “Takedown Thursday,” Oumer Bekri, 21, Update,...

February 22, 2018, 8:23 am

SANIDAPA LIVE IN GADAMBUWANA 2017

September 3, 2021, 5:56 pm

Practice Sheet of Right form of verbs for HSC Students

September 22, 2019, 11:40 pm

Arrest logs for Sunday, October 4, 2020

October 4, 2020, 3:05 am

SCOTT BRANTNER Arrested by DeKalb County Sheriff's Office on Nov 01, 2016

November 1, 2016, 5:22 pm

Reading LZ4 log files

August 22, 2017, 11:15 am

Chittoor District Police Officers Mobile Numbers

November 11, 2018, 9:40 pm
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>