How to using Checkedlistbox in Visual Basic - Simple Codes

Hi,

Paste codes for using checkedlistbox control in visual basic;

Public Class Form1



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "Checkedlistbox use testing"
        'Buttons names;
        Button1.Text = "A,B,C,D,E"
        Button2.Text = "Hello World"
        Button3.Text = "Remove"
        Button4.Text = "Select"
        Button5.Text = "How is selected"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CheckedListBox1.Items.Clear()
        Dim datas() As String = {"A", "B", "C", "D", "E"}       'data create
        CheckedListBox1.Items.AddRange(datas)                   'inserting
        NumericUpDown1.Minimum = 0                              'adjust value in numericupdown1
        NumericUpDown1.Maximum = 4                              'adjust value in numericupdown1
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        CheckedListBox1.Items.Clear()                           'old lines clear
        CheckedListBox1.Items.Insert(0, "H")                    'lines create
        CheckedListBox1.Items.Insert(1, "E")
        CheckedListBox1.Items.Insert(2, "L")
        CheckedListBox1.Items.Insert(3, "L")
        CheckedListBox1.Items.Insert(4, "O")
        CheckedListBox1.Items.Insert(5, " ")
        CheckedListBox1.Items.Insert(6, "W")
        CheckedListBox1.Items.Insert(7, "O")
        CheckedListBox1.Items.Insert(8, "R")
        CheckedListBox1.Items.Insert(9, "L")
        CheckedListBox1.Items.Insert(10, "D")
        NumericUpDown1.Minimum = 0                              'adjust value in numericupdown1
        NumericUpDown1.Maximum = 10                             'adjust value in numericupdown1
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        CheckedListBox1.Items.RemoveAt(NumericUpDown1.Value)
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        CheckedListBox1.SetSelected(NumericUpDown1.Value, True)
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        MessageBox.Show((CheckedListBox1.SelectedIndex + 1))
    End Sub

   
End Class

By...

Fade In Loading Form Visual Basic 2010 / 2012 - Simple Codes

Hi,

I want to make "auto fade in show form" in vb, here codes;


Insert to 1 timer, 1 label, 1 Trackbar in form1


Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
        Me.Opacity = 0.01                                                               'Minimum Opacity

        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))                                                                         'Label1 Font Size = 24

        Label1.Dock = DockStyle.Fill                                                    'Location for Label1
        TrackBar1.Dock = DockStyle.Bottom                                               'Location for Trackbar

    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Me.Opacity < 1 Then Me.Opacity = Me.Opacity + 0.01 Else Timer1.Stop() 'Adjust Form Opacity
        TrackBar1.Value = 100 * Me.Opacity                                          'Trackbar1 Value = Form Opacity Value
        Label1.Text = "% " & (Me.Opacity * 100)                                     'Opacity Info
    End Sub

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Me.Opacity = TrackBar1.Value / 100                                      'Adjust Opacity With Trackbar
        Label1.Text = "% " & (Me.Opacity * 100)                                 'Opacity Info
    End Sub
End Class



Bye...

Fugitive Buttons in Visual Basic 2010 / 2012 - Simple Codes

Hi,

Fugitive Buttons in Visual Basic, Insert 1 button in form. And paste the code;

Public Class Form1

    Dim try_count, val As Integer
    Dim rndm As New Random

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Size = New Size(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height)
        Me.WindowState = FormWindowState.Maximized      'For fullscreen form
        Me.AcceptButton = Nothing
    End Sub

    Private Sub Button1_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove

        Button1.Location = New Point(rndm.Next(170, Me.Size.Width - 170), rndm.Next(75, Me.Size.Height - 75))
        try_count = try_count + 1
        Me.Text = "Try : " & try_count.ToString

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        MsgBox("congratulations!", MsgBoxStyle.MsgBoxRight, "congratulations")

    End Sub

End Class

Good Bye...

Adjust to Form Background Color in Visual Basic 2010 / 2012 - Simple Codes

Hi,

Make to optional form background color in Visual basic.

Method 1 :

Insert 1 button and 1 color dialogbox in form. And paste the code;



Public Class Form1
    Dim color1 As Color

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ColorDialog1.ShowDialog()
        color1 = ColorDialog1.Color
        MsgBox(color1.ToString)
        Me.BackColor = color1
    End Sub
End Class

Method 2:


Insert 1 Button and 5 radiobutton in form. And paste the code;


Public Class Form1
    Dim color1 As Color
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton1.Checked Then color1 = Color.White
        If RadioButton2.Checked Then color1 = Color.Black
        If RadioButton3.Checked Then color1 = Color.Brown
        If RadioButton4.Checked Then color1 = Color.Pink
        If RadioButton5.Checked Then color1 = Color.Blue
        MsgBox(color1.ToString)
        Me.BackColor = color1
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RadioButton1.Text = "White"
        RadioButton2.Text = "Black"
        RadioButton3.Text = "Brown"
        RadioButton4.Text = "Pink"
        RadioButton5.Text = "Blue"
    End Sub
End Class

Bye ...

Marquee label in visual basic 2010 / 2012 Simple Codes

Hi for new project,

Again open Visual Basic and new project, insert 1 timer, 1 label and 1 trackbar. And code;

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TrackBar1.Maximum = 1000
        TrackBar1.Minimum = 1
        Timer1.Interval = 100
        Timer1.Start()

    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Label1.Text = Label1.Text.Substring(1) + Label1.Text.Substring(0, 1)

    End Sub
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Timer1.Interval = TrackBar1.Value
    End Sub
End Class

By...

Digital Clock in Visual Basic 2010 / 2012 - Simple Codes

Hi,

We make Digital Clock with timer in Visual Basic.

Insert to 1 label and 1 timer in form1 and interval set 100. double click to timer1. paste this code ;


Label1.text=date.now.hour & "." & Date.now.minute & "." & Date.now.Second

ans double click form1. Paste this code ;

timer1.start

Done. F5 (RUN)

By...

Open and close program for cd drive door - Simple Codes

Hi,

Cd door open and close program code in visual basic.

Start to Visual Studio 2012 for Visual Basic. New Project.

Let’s start,

İnsert to 2 button in form1

And paste this code;

---------------------------------------------------------------------------

Public Class Form1

    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        mciExecute("Set CDAudio door Open")

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        mciExecute("Set CDAudio door Closed")

    End Sub

End Class

------------------------------------------------------------------------------

By.