Visual Basic

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

My Blog

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

My Blog

Private Sub MyPictureBox_FormatImage(ByVal sender As Object, ByVal e As ConvertEventArgs)
Try
    ' Check to see if this is a valid conversion.
    If Not e.DesiredType Is GetType(Image) Then
        MsgBox("FormatImage was called with the DesiredType of " & _
               e.DesiredType.ToString, , "MyPictureBox_FormatImage")
        Exit Sub
    End If
 
    ' Check if the file exists (assumes "Imports System.IO").
    ' Uses the Static version of the Exists method.
    Try
        If Not File.Exists(e.Value.ToString) Then
            MsgBox("File not found: " & e.Value.ToString, , "MyPictureBox_FormatImage")
            Exit Sub
        Else
            ' The file exists, try to create an Image object out of it.
            e.Value = Image.FromFile(e.Value.ToString)
        End If
    Catch ex As Exception
        MsgBox(ex.Message, , "MyPictureBox_FormatImage")
    End Try
End Sub

Imports System.IO
Imports System.Drawing
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    ' Windows Form Designer code not included...
 
    Private myImage As myImageClass
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myImage = New myImageClass
        myImage.Path = "D:\Pepper.JPG"
        BindFields()
    End Sub
 
    Private Sub BindFields()
        Try
            Dim b As Binding = New Binding("Image", myImage, "Path")
            AddHandler b.Format, AddressOf MyPictureBox_FormatImage
            PictureBox1.DataBindings.Add(b)
        Catch ex As Exception
            MsgBox(ex.Message, , "BindFields")
        End Try
    End Sub
 
    Private Sub MyPictureBox_FormatImage(ByVal sender As Object, ByVal e As ConvertEventArgs)
        Try
            ' Check to see if this is a valid conversion.
            If Not e.DesiredType Is GetType(Image) Then
                MsgBox("FormatImage was called with the DesiredType of " & _
                    e.DesiredType.ToString, , "MyPictureBox_FormatImage")
                Exit Sub
            End If
            ' Check if the file exists (assumes "Imports System.IO").
            ' Uses the Static version of the Exists method.
            Try
                If Not File.Exists(e.Value.ToString) Then
                    MsgBox("File not found: " & e.Value.ToString, , "MyPictureBox_FormatImage")
                    Exit Sub
                Else
                    ' The file exists, try to create an Image object out of it.
                    e.Value = Image.FromFile(e.Value.ToString)
                End If
            Catch
            End Try
        Catch ex As Exception
            MsgBox(ex.Message, , "MyPictureBox_FormatImage")
        End Try
    End Sub
End Class
 
Public Class myImageClass
    Private m_Path As String = ""
 
    Public Property Path() As String
        Get
            Return m_Path
        End Get
        Set(ByVal Value As String)
            m_Path = Value
        End Set
    End Property
End Class