Commit: 54 - pdfSecondMonitor (svn)

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

Commit MetaInfo

• Revision: 54 (tree)
• Time: 2018-12-21 12:27:45
• Author: bellyoshi

Log Message

Change Summary

• modified: pdfsecondmonitor/frmOperation.vb

Incremental Difference

--- pdfsecondmonitor/frmOperation.vb	(revision 53)
+++ pdfsecondmonitor/frmOperation.vb	(revision 54)
@@ -1,4 +1,5 @@
 Public Class frmOperation
+#Region "サポートするファイルの種類"
 
     ''' <summary>
     ''' 開ける動画の拡張子
@@ -14,6 +15,7 @@
     ''' PDFの拡張子
     ''' </summary>
     Private PDFExts = {"pdf"}
+#End Region
 
 #Region "初期処理"
 
@@ -139,33 +141,6 @@
 
 #End Region
 
-
-
-
-
-    Private Sub tbcFileOpes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcFileOpes.SelectedIndexChanged
-        'If tbcFileOpes.SelectedTab Is tpAdobePDF Then
-        '    frmView.pnlCover.Visible = False
-        '    frmView.UserControl11.Visibility = Windows.Visibility.Hidden
-        '    StopVideo()
-        'Else
-        '    frmView.pnlCover.Visible = True
-        '    frmView.UserControl11.Visibility = Windows.Visibility.Visible
-        'End If
-
-    End Sub
-
-    'Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles nudHeight.ValueChanged
-    '    frmView.Height = nudHeight.Value
-
-    'End Sub
-
-    'Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles nudWidth.ValueChanged
-    '    frmView.Width = nudWidth.Value
-    'End Sub
-
-
-
 #Region "リストボックス処理"
 
 
@@ -284,6 +259,7 @@
         ControlEnable()
     End Sub
 
+#Region "ドラッグアンドドロップ"
     Private Sub lstPDFFiles_DragEnter(sender As Object, e As DragEventArgs) Handles lstPDFFiles.DragEnter
         'コントロール内にドラッグされたとき実行される
         If e.Data.GetDataPresent(DataFormats.FileDrop) Then
@@ -300,11 +276,12 @@
         Dim fileName As String() = CType(
                 e.Data.GetData(DataFormats.FileDrop, False),
                 String())
-        'ListBoxに追加する
+
         For Each f In fileName
             items.Add(New FileViewParam(f))
         Next
     End Sub
+#End Region
 
 
 
@@ -312,6 +289,7 @@
 
 
 
+
 #End Region
 
 End Class
\ No newline at end of file