FREE VB.NET SOURCE CODE

Showing posts with label visual studio 2008. Show all posts
Showing posts with label visual studio 2008. Show all posts

24 April, 2012

[SNP] Convert Bytes array to String and String to Bytes array [VB.NET]

Firstly:

Imports System.Text

And then add the functions:

   Private Function ConvertBytesToString(ByVal bytes As Byte()) As String
        Return ASCIIEncoding.ASCII.GetString(bytes)
    End Function
    Private Function ConvertStringToBytes(ByVal str As String) As Byte()
        Return ASCIIEncoding.ASCII.GetBytes(str)
    End Function

You can use it as this:

      'This is how you convert string to bytes array
        Dim Data() As Byte = ConvertStringToBytes("String to be converted")
        'And this is the reverse one
        Dim STR As String = ConvertBytesToString(Data)
     

27 March, 2012

[SNP] ListBox Remove item / Clear / Display / Add [VB.NET]

Some useful ListBox codes/examples:

Adding an item:
ListBox1.Items.Add("TEST ITEM")

Remove all items from a ListBox:
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
'using the clear method to clear the list box
End Sub 

Remove particular item from a ListBox:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button1.Click
ListBox1.Items.RemoveAt(4)
'removing an item by specifying it's index
End Sub 

Display selected ListBox item, to a TextBox:
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
TextBox1.Text = ListBox1.SelectedItem
'using the selected item property
End Sub 

Count all items in a ListBox:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e _
As System.EventArgs) Handles Button1.Click
TextBox1.Text = ListBox1.Items.Count
'counting the number of items in the ListBox with the Items.Count
End Sub

Display ListBox item index:
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
TextBox1.Text = ListBox1.SelectedIndex
'using the selected index property of the list box to select the index
End Sub 

The default ListBox event - selected index changed:
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub