GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/10、背景程式與對話�.../文件查閱視窗.vb

Imports System.IO
Public Class 文件查閱視窗
    Dim DGVX As Integer
    Private Sub Set_工程日報圖片1()
        Dim ds6 As New DataSet
        圖片清單1_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單1_dgv.ColumnHeadersHeight = 25 : 圖片清單1_dgv.AllowUserToAddRows = False : 圖片清單1_dgv.RowTemplate.Height = 35
        SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
        da.Fill(ds6) : 圖片清單1_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單1_dgv.Columns(0).ReadOnly = True
        If 圖片清單1_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取1() : Else : 圖片1_pb.Image = Nothing : End If
        Dim mycol As DataGridViewImageColumn = 圖片清單1_dgv.Columns("IMG") : mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub 圖片清單讀取1()
        圖片1_pb.Image = Nothing
        PA3 = 圖片清單1_dgv("Item", DGVX).Value.ToString : SQL_合約清單_簽回存檔_圖片讀取()
        While dr.Read() = True
            Dim unused As Byte() = New Byte(-1) {}
            Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
            Dim oStream As New MemoryStream(bytes)
            圖片1_pb.Image = Bitmap.FromStream(oStream)
        End While
        conn.Close() : 圖片1_pb.SizeMode = 4
    End Sub
    Private Sub 文件查閱視窗_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 文件查閱視窗_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_工程日報圖片1()
    End Sub
    Private Sub 圖片清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 圖片清單讀取1() : End If
    End Sub
    Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
        圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4
    End Sub
    Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
        圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4
    End Sub
    Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
        圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4
    End Sub
    Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
        圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4
    End Sub
End Class