コミット: 53 - pdfSecondMonitor (svn)

デュアルディスプレイのセカンドモニターにＰＤＦ、動画、画像を表示。

コミットメタ情報

• リビジョン: 53 (tree)
• 日時: 2018-12-21 12:24:17
• 作者: bellyoshi

ログメッセージ

変更サマリ

• modified: pdfsecondmonitor/CtlImage.vb
• modified: pdfsecondmonitor/ctlMovie.vb
• modified: pdfsecondmonitor/ctlPdf.vb
• modified: pdfsecondmonitor/frmOperation.vb

差分

--- pdfsecondmonitor/CtlImage.vb	(revision 52)
+++ pdfsecondmonitor/CtlImage.vb	(revision 53)
@@ -42,5 +42,10 @@
 
     End Sub
 
+    Public Sub ControlEnabled()
 
+        Me.Enabled = Not (_fileViewParam Is Nothing)
+
+    End Sub
+
 End Class

--- pdfsecondmonitor/ctlMovie.vb	(revision 52)
+++ pdfsecondmonitor/ctlMovie.vb	(revision 53)
@@ -41,11 +41,16 @@
     End Sub
 
 
+    Public Sub ControlEnabled()
 
+        Me.Enabled = Not (_fileViewParam Is Nothing)
 
+    End Sub
 
 
 
 
+
+
 #End Region
 End Class

--- pdfsecondmonitor/ctlPdf.vb	(revision 52)
+++ pdfsecondmonitor/ctlPdf.vb	(revision 53)
@@ -26,8 +26,14 @@
     End Sub
 #End Region
 
+    Public Sub ControlEnabled()
 
+        Me.Enabled = Not (_fileViewParam Is Nothing)
 
+    End Sub
+
+
+
     Private _backFileName As String
     Private _fileViewParam As FileViewParam
     Public Sub SetFileInfo(f As FileViewParam)

--- pdfsecondmonitor/frmOperation.vb	(revision 52)
+++ pdfsecondmonitor/frmOperation.vb	(revision 53)
@@ -1,9 +1,26 @@
 Public Class frmOperation
 
+    ''' <summary>
+    ''' 開ける動画の拡張子
+    ''' </summary>
+    Private movieExts = {"avi", "mpeg", "mp4", "wmv", "mov"}
+
+    ''' <summary>
+    ''' 開ける画像の拡張子
+    ''' </summary>
+    Private ImageExts = {"jpeg", "jpg", "bmp", "png", "gif", "tiff", "tif"}
+
+    ''' <summary>
+    ''' PDFの拡張子
+    ''' </summary>
+    Private PDFExts = {"pdf"}
+
 #Region "初期処理"
 
     Private Sub ControlEnable()
-        'todo
+        CtlPdf1.ControlEnabled()
+        CtlMovie1.ControlEnabled()
+        CtlImage1.ControlEnabled()
     End Sub
     Private Sub frmOperation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         screenDetect()
@@ -182,7 +199,7 @@
         End If
         txtPDFFileName.Text = fileviewinfo.FileName
         Dim ext = IO.Path.GetExtension(fileviewinfo.FileName)
-        If IsContain(ext, {".pdf"}) Then
+        If IsPDFExt(ext) Then
             tbcFileOpes.SelectTab(tpAdobePDF.TabIndex)
             CtlPdf1.SetFileInfo(fileviewinfo)
 
@@ -196,6 +213,7 @@
         ControlEnable()
     End Sub
 
+
     Private Function IsContain(ext As String, exts As String()) As Boolean
         For Each target In exts
             If String.Compare($".{target}", ext, True) = 0 Then
@@ -205,9 +223,11 @@
         Return False
     End Function
 
-    Private movieExts = {"avi", "mpeg", "mp4", "wmv"}
 
-    Private ImageExts = {"jpeg", "jpg", "bmp", "png", "gif", "tiff", "tif"}
+    Private Function IsPDFExt(ext) As Boolean
+        Return IsContain(ext, PDFExts)
+    End Function
+
     Private Function IsImageExt(ext) As Boolean
         Return IsContain(ext, ImageExts)
     End Function
@@ -261,6 +281,7 @@
     Private Sub btnUnSelect_Click(sender As Object, e As EventArgs) Handles btnUnSelect.Click
         lstPDFFiles.SelectedItem = Nothing
         _dispacher.CloseViewers()
+        ControlEnable()
     End Sub
 
     Private Sub lstPDFFiles_DragEnter(sender As Object, e As DragEventArgs) Handles lstPDFFiles.DragEnter