[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)
     

[SNP] Convert Image / PictureBox Image / Bitmap to string / text [VB.NET]

I am sorry for the long delay, but here we go again !

A code to convert your bitmap/picturebox image to string and another one to reverse it.

But you must: Imports System.IO first ;)

 Public Function BitmapToString(ByVal bImage As Bitmap) As String
        Try
            Dim data As String
            Dim ms As MemoryStream = New MemoryStream
            bImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
            data = Convert.ToBase64String(ms.ToArray())

            Return data
        Catch ex As Exception
            Return String.Empty
        End Try
    End Function

Use it as this:

        Dim STR As String = BitmapToString(BITMAPIMAGE)

Or like this:

  Dim STR As String = BitmapToString(PictureBox1.Image)

The next post will be about a function, to convert it back to image/bitmap

[SNP] Convert Base64 string to BItmap / Image / Picturebox.Image [VB.NET]

[SNP] Take Screenshot / Save Screenshot [VB.NET]

  Public Sub TakeScreenshot()  
     Try  
       Dim filename As String = System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache) & "\SS.gif", ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height), screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height), g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)  
       g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)  
       If My.Computer.FileSystem.FileExists(System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache) & "\SS.gif") Then  
         My.Computer.FileSystem.DeleteFile(System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache) & "\SS.gif")  
       End If  
       screenGrab.Save(filename, System.Drawing.Imaging.ImageFormat.Gif)  
     Catch  
     End Try  
   End Sub  

This is the sub, that will get your screenshot, afterwards use this

TakeScreenshot()  
 My.Computer.FileSystem.MoveFile(System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache) & "\SS.gif", System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\SS.gif")  

to save your screenshot on your desktop with the name SS.gif

[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