Results 1 to 10 of 10

Thread: [RESOLVED] autofit image in multi picturebox and then clicked pop up full size image in VB.NET

Threaded View

  1. #1

    Thread Starter
    Lively Member
    Join Date
    Aug 2021
    Posts
    91

    Resolved [RESOLVED] autofit image in multi picturebox and then clicked pop up full size image in VB.NET

    Dear All master,
    please the solution I want the best autofit image in multi picturebox and then I clicked the picturebox then a full-size pop-up image appeared according to the original image size

    Can pop up be done with the mouse and keyboard keys?.
    for information i use visual studio 2010.

    Thanks
    roy88

    Code:
    Public Class Form1
    
        Dim Path As String = "C:\Users\Administrator\Desktop\DBF"
        Dim Pathimage As String = "C:\Users\Administrator\Desktop\CATALOG"
        Dim cn = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & Path & "; Extended Properties=dBase IV"
    
        Private Sub PopulateDataGridView()
            Try
                Dim dt = New DataTable()
    
                Dim query = "select ITM,ITC,QOH,PRS,FILENAME1,FILENAME2,FILENAME3,FILENAME4 FROM ITEM"
    
                Using adapter As New OleDbDataAdapter(query, cn.ToString)
                    adapter.Fill(dt)
                End Using
    
                Me.DataGridView1.DataSource = dt
    
                For x as integer = 4 to 7
                    Me.DataGridView1.Columns(x).Visible = False 
                Next
    
                exPictureBox1.PrePath = Pathimage & "\" 
                exPictureBox2.PrePath = Pathimage & "\"
                exPictureBox3.PrePath = Pathimage & "\"
                exPictureBox4.PrePath = Pathimage & "\"
    
                exPictureBox1.DataBindings.Add("FileName", dt, "FILENAME1")
                exPictureBox2.DataBindings.Add("FileName", dt, "FILENAME2")
                exPictureBox3.DataBindings.Add("FileName", dt, "FILENAME3")
                exPictureBox4.DataBindings.Add("FileName", dt, "FILENAME4")
    
            Catch myerror As OleDbException
                MessageBox.Show("Error: " & myerror.Message)
            Finally
            End Try
        End Sub
    
    End Class
    Attached Images Attached Images   

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width