HX-PGS-ERP-SYS-SIU/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
    End Sub
    Private Sub 圖片清單讀取1()
        圖片1_pb.Image = Nothing
        PA3 = 圖片清單1_dgv("Item", DGVX).Value.ToString : SQL_合約清單_簽回存檔_圖片讀取()
        If 圖片清單1_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            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
        Else : 圖片1_pb.Image = My.Resources.PDF : 圖片1_pb.SizeMode = 4 : End If
    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
        If 系統語言 = "繁體中文" Then : Me.Text = "文件查閱視窗"
        ElseIf 系統語言 = "English" Then : Me.Text = "Document Viewer Window"
        ElseIf 系統語言 = "Indonesian" Then : Me.Text = "Jendela Pemeriksa Dokumen" : End If
        風格() : 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

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.Linen : Me.BackgroundImage = My.Resources._62951168976601486
            圖片清單1_dgv.EnableHeadersVisualStyles = True : 圖片清單1_dgv.BackgroundColor = Color.White : 圖片清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            圖片清單1_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單1_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : Me.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            圖片清單1_dgv.EnableHeadersVisualStyles = False : 圖片清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            圖片清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單1_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class