Cara Membuat gambar di vb.net

 

 

 

 

Imports System.Data.Odbc

Public Class Form1

    Dim conn As New accesdata.koneksi

    Private PathFile As String = Nothing

    Dim sql As String

    Private Sub btnpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpilih.Click

        On Error Resume Next

        OpenFileDialog1.Filter = "JPG Files(*.jpg)|*.jpg|JPEG Files (*.jpeg)|*.jpeg|GIF Files(*.gif)|*.gif|PNG Files(*.png)|*.png|BMP Files(*.bmp)|*.bmp|TIFF Files(*.tiff)|*.tiff"

        OpenFileDialog1.FileName = ""

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage

            pct_gambar.Image = New Bitmap(OpenFileDialog1.FileName)

            btnpilih.Enabled = True

            PathFile = OpenFileDialog1.FileName

            txt_nmgambar.Text = PathFile.Substring(PathFile.LastIndexOf("\") + 1)

            lbl_alamat.Text = OpenFileDialog1.FileName

            pct_gambar.Image = Image.FromFile(lbl_alamat.Text)

        End If

    End Sub

Source code untuk simpan gambar :

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Try

            sql = "Insert into tb_foldergambar (kd_gambar,nama,alamat) values (?,?,?)"

            Dim mycomm As OdbcCommand = New OdbcCommand(sql, conn.buka)

            With mycomm.Parameters

                .Add("?", OdbcType.VarChar, 10).Value = txt_kdgambar.Text.Trim

                .Add("?", OdbcType.VarChar, 50).Value = txt_nmgambar.Text.Trim

                .Add("?", OdbcType.VarChar, 100).Value = lbl_alamat.Text.Trim

            End With

            mycomm.ExecuteNonQuery()

            mycomm = Nothing

            MsgBox("Simpan Data Foto ke database berhasil", MsgBoxStyle.MsgBoxSetForeground, "Simpan")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

Source code untuk Menampilkan gambar :

Private Sub txt_kdgambar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_kdgambar.TextChanged

        Dim sql As String = ("select*from tb_foldergambar where kd_gambar ='" & txt_kdgambar.Text & "'")

        Dim cmd = New OdbcCommand(sql, conn.buka)

        Dim rd As OdbcDataReader

        rd = cmd.ExecuteReader

        rd.Read()

        If rd.HasRows Then

            txt_nmgambar.Text = rd.Item("nama")

            lbl_alamat.Text = rd.Item("alamat")

            pct_gambar.ImageLocation = rd.Item("alamat") 'untuk mencari lokasi gambar pada direktori

            pct_gambar.SizeMode = PictureBoxSizeMode.StretchImage

        End If

    End Sub