dX Software Systems

'set a reference to system drawing
Class MainWindow
    Private Sub Button1_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles Button1.Click
        Using memst As New IO.MemoryStream
            Dim bmpImage As New BitmapImage
            My.Resources.Edj345.Save(memst, System.Drawing.Imaging.ImageFormat.Jpeg)
            bmpImage.BeginInit()
            bmpImage.StreamSource = New IO.MemoryStream(memst.ToArray)
            bmpImage.EndInit()
            Image1.Source = bmpImage
        End Using
    End Sub
End Class

This is Tip is meant to show the use of the keyword “Using”, the Try and Catch, the ExecuteScalar and how to concatenate first name and last name to a full name.

To test it you need only a new project with one button and a textbox on a windows form.
And to set your Server name in the connectionstring.

Imports System.Data.SqlClient
'Code for versions starting with VB10SP1 for earlier versions add the Byval's in the method
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Using Con As New SqlConnection("Data Source=YourServer;Initial Catalog=Northwind;Integrated Security=True")
                Con.Open()
                Using com As New SqlCommand("Select FirstName + ' ' + Lastname Picture from Employees where EmployeeID =1", Con)
                    Dim textObj = com.ExecuteScalar
                    If Not textObj Is Nothing AndAlso Not textObj Is DBNull.Value Then
                        TextBox1.Text = CStr(textObj)
                    End If
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

'Set a reference to Windows BAse
'Set a reference to Presentation Core
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim sp As New System.Windows.Media.MediaPlayer
        sp.Open(New System.Uri("C:\wavs\wav1.wav"))
        sp.Play()
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim sp As New System.Windows.Media.MediaPlayer
        sp.Open(New System.Uri("C:\wavs\wav2.wav"))
        sp.Play()
    End Sub
End Class

Public Class Form1
    Private Lblvalue1 As Integer
    Private Lblvalue2 As Integer
    Private WithEvents bgw As New System.ComponentModel.BackgroundWorker
    Private WithEvents tm As New Timer With {.Enabled = True, .Interval = 100}
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        bgw.RunWorkerAsync()
    End Sub
    Private Sub bgw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
        For i = 0 To 1000
            Lblvalue1 += 1
            Lblvalue2 += 100
            Threading.Thread.Sleep(500)
        Next
    End Sub
    Private Sub tm_Tick(sender As Object, e As System.EventArgs) Handles tm.Tick
        Label1.Text = CStr(Lblvalue1)
        Label2.Text = CStr(Lblvalue2)
    End Sub
End Class

'Be aware later than VB10SP1 code is used for older versions add byval in the methods
Imports System.ComponentModel
Imports System.Windows.Media
'Set a reference to WindowsBase
'Set a reference to PresentationCore
Public Class Form1
    Private WithEvents tm As New Timer With {.Enabled = False}
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim Songs As New BindingList(Of Song) From {New Song With {.Title = "C:\Test\Wav1.wav"},
                                                    New Song With {.Title = "C:\Test\Wav2.wav"},
                                                    New Song With {.Title = "C:\Test\MP1.mp3"}}
        DataGridView1.DataSource = Songs
    End Sub
    Public Class Song
        Public Property Title As String
    End Class
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        tm.Interval = 100
        tm.Start()
    End Sub
    Private Sub tm_Tick(sender As Object, e As System.EventArgs) Handles tm.Tick
        tm.Stop()
        Static position As Integer = 0
        Dim time As Integer
        If position < DataGridView1.SelectedRows.Count Then
            'Because the DataGridView returns selectedrows reverse
            Dim toPlay = DataGridView1.SelectedRows.Count - 1 - position
            time = PlayMedia(CStr(DataGridView1.SelectedRows(toPlay).Cells(0).Value))
            position += 1
            tm.Interval = time
            tm.Start()
        End If
    End Sub
    Private Function PlayMedia(Title As String) As Integer
        Dim sp As New System.Windows.Media.MediaPlayer
        sp.Open(New System.Uri(Title))
        System.Threading.Thread.Sleep(3000) 'to give the media time to load
        Dim duration = sp.NaturalDuration.TimeSpan
        Dim time As Integer
        time = CInt(duration.TotalMilliseconds)
        sp.Play()
        Return time
        sp.Close()
    End Function
End Class