Commit: 10 - pdfSecondMonitor (svn)

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

Commit MetaInfo

• Revision: 10 (tree)
• Time: 2017-10-22 18:09:03
• Author: bellyoshi

Log Message

Change Summary

• modified: pdfsecondmonitor/frmOperation.Designer.vb
• modified: pdfsecondmonitor/frmOperation.vb

Incremental Difference

--- pdfsecondmonitor/frmOperation.Designer.vb	(revision 9)
+++ pdfsecondmonitor/frmOperation.Designer.vb	(revision 10)
@@ -22,79 +22,87 @@
     'コード エディターを使って変更しないでください。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Me.btnNext = New System.Windows.Forms.Button()
-        Me.btnBack = New System.Windows.Forms.Button()
-        Me.btnFileOpen = New System.Windows.Forms.Button()
-        Me.txtFileName = New System.Windows.Forms.TextBox()
+        Me.btnPDFNext = New System.Windows.Forms.Button()
+        Me.btnPDFBack = New System.Windows.Forms.Button()
+        Me.btnOpenPDFFile = New System.Windows.Forms.Button()
+        Me.txtPDFFileName = New System.Windows.Forms.TextBox()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
-        Me.btnLast = New System.Windows.Forms.Button()
-        Me.btnFirst = New System.Windows.Forms.Button()
+        Me.btnPDFLast = New System.Windows.Forms.Button()
+        Me.btnPDFFirst = New System.Windows.Forms.Button()
         Me.cmbDisplay = New System.Windows.Forms.ComboBox()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.cmbView = New System.Windows.Forms.ComboBox()
+        Me.cmbPDFView = New System.Windows.Forms.ComboBox()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.btnFileClose = New System.Windows.Forms.Button()
+        Me.btnPDFFileClose = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.tbcFileOpes = New System.Windows.Forms.TabControl()
+        Me.tpAdobePDF = New System.Windows.Forms.TabPage()
+        Me.tpMediaPlayer = New System.Windows.Forms.TabPage()
+        Me.btnOpenMediaFile = New System.Windows.Forms.Button()
+        Me.btnStartStop = New System.Windows.Forms.Button()
+        Me.txtMediaFileName = New System.Windows.Forms.TextBox()
         Me.GroupBox1.SuspendLayout()
+        Me.tbcFileOpes.SuspendLayout()
+        Me.tpAdobePDF.SuspendLayout()
+        Me.tpMediaPlayer.SuspendLayout()
         Me.SuspendLayout()
         '
-        'btnNext
+        'btnPDFNext
         '
-        Me.btnNext.Location = New System.Drawing.Point(129, 173)
-        Me.btnNext.Name = "btnNext"
-        Me.btnNext.Size = New System.Drawing.Size(50, 23)
-        Me.btnNext.TabIndex = 2
-        Me.btnNext.Text = "次へ"
-        Me.btnNext.UseVisualStyleBackColor = True
+        Me.btnPDFNext.Location = New System.Drawing.Point(143, 94)
+        Me.btnPDFNext.Name = "btnPDFNext"
+        Me.btnPDFNext.Size = New System.Drawing.Size(50, 23)
+        Me.btnPDFNext.TabIndex = 2
+        Me.btnPDFNext.Text = "次へ"
+        Me.btnPDFNext.UseVisualStyleBackColor = True
         '
-        'btnBack
+        'btnPDFBack
         '
-        Me.btnBack.Location = New System.Drawing.Point(73, 173)
-        Me.btnBack.Name = "btnBack"
-        Me.btnBack.Size = New System.Drawing.Size(50, 23)
-        Me.btnBack.TabIndex = 2
-        Me.btnBack.Text = "前へ"
-        Me.btnBack.UseVisualStyleBackColor = True
+        Me.btnPDFBack.Location = New System.Drawing.Point(87, 94)
+        Me.btnPDFBack.Name = "btnPDFBack"
+        Me.btnPDFBack.Size = New System.Drawing.Size(50, 23)
+        Me.btnPDFBack.TabIndex = 2
+        Me.btnPDFBack.Text = "前へ"
+        Me.btnPDFBack.UseVisualStyleBackColor = True
         '
-        'btnFileOpen
+        'btnOpenPDFFile
         '
-        Me.btnFileOpen.Location = New System.Drawing.Point(12, 95)
-        Me.btnFileOpen.Name = "btnFileOpen"
-        Me.btnFileOpen.Size = New System.Drawing.Size(101, 23)
-        Me.btnFileOpen.TabIndex = 3
-        Me.btnFileOpen.Text = "ファイルを開く"
-        Me.btnFileOpen.UseVisualStyleBackColor = True
+        Me.btnOpenPDFFile.Location = New System.Drawing.Point(26, 16)
+        Me.btnOpenPDFFile.Name = "btnOpenPDFFile"
+        Me.btnOpenPDFFile.Size = New System.Drawing.Size(101, 23)
+        Me.btnOpenPDFFile.TabIndex = 3
+        Me.btnOpenPDFFile.Text = "ファイルを開く"
+        Me.btnOpenPDFFile.UseVisualStyleBackColor = True
         '
-        'txtFileName
+        'txtPDFFileName
         '
-        Me.txtFileName.Location = New System.Drawing.Point(12, 124)
-        Me.txtFileName.Name = "txtFileName"
-        Me.txtFileName.ReadOnly = True
-        Me.txtFileName.Size = New System.Drawing.Size(766, 22)
-        Me.txtFileName.TabIndex = 4
+        Me.txtPDFFileName.Location = New System.Drawing.Point(26, 45)
+        Me.txtPDFFileName.Name = "txtPDFFileName"
+        Me.txtPDFFileName.ReadOnly = True
+        Me.txtPDFFileName.Size = New System.Drawing.Size(655, 22)
+        Me.txtPDFFileName.TabIndex = 4
         '
         'OpenFileDialog1
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
-        Me.OpenFileDialog1.Filter = "PDFファイル (*.pdf) |*.pdf"
         '
-        'btnLast
+        'btnPDFLast
         '
-        Me.btnLast.Location = New System.Drawing.Point(185, 173)
-        Me.btnLast.Name = "btnLast"
-        Me.btnLast.Size = New System.Drawing.Size(49, 23)
-        Me.btnLast.TabIndex = 5
-        Me.btnLast.Text = "最後へ"
-        Me.btnLast.UseVisualStyleBackColor = True
+        Me.btnPDFLast.Location = New System.Drawing.Point(199, 94)
+        Me.btnPDFLast.Name = "btnPDFLast"
+        Me.btnPDFLast.Size = New System.Drawing.Size(49, 23)
+        Me.btnPDFLast.TabIndex = 5
+        Me.btnPDFLast.Text = "最後へ"
+        Me.btnPDFLast.UseVisualStyleBackColor = True
         '
-        'btnFirst
+        'btnPDFFirst
         '
-        Me.btnFirst.Location = New System.Drawing.Point(17, 173)
-        Me.btnFirst.Name = "btnFirst"
-        Me.btnFirst.Size = New System.Drawing.Size(50, 23)
-        Me.btnFirst.TabIndex = 5
-        Me.btnFirst.Text = "最初へ"
-        Me.btnFirst.UseVisualStyleBackColor = True
+        Me.btnPDFFirst.Location = New System.Drawing.Point(31, 94)
+        Me.btnPDFFirst.Name = "btnPDFFirst"
+        Me.btnPDFFirst.Size = New System.Drawing.Size(50, 23)
+        Me.btnPDFFirst.TabIndex = 5
+        Me.btnPDFFirst.Text = "最初へ"
+        Me.btnPDFFirst.UseVisualStyleBackColor = True
         '
         'cmbDisplay
         '
@@ -114,33 +122,33 @@
         Me.Label1.TabIndex = 7
         Me.Label1.Text = "表示するディスプレイ"
         '
-        'cmbView
+        'cmbPDFView
         '
-        Me.cmbView.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cmbView.FormattingEnabled = True
-        Me.cmbView.Items.AddRange(New Object() {"Fit", "FitH", "FitV", "FitB", "FitBH", "FitB"})
-        Me.cmbView.Location = New System.Drawing.Point(83, 220)
-        Me.cmbView.Name = "cmbView"
-        Me.cmbView.Size = New System.Drawing.Size(121, 23)
-        Me.cmbView.TabIndex = 8
+        Me.cmbPDFView.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbPDFView.FormattingEnabled = True
+        Me.cmbPDFView.Items.AddRange(New Object() {"Fit", "FitH", "FitV", "FitB", "FitBH", "FitB"})
+        Me.cmbPDFView.Location = New System.Drawing.Point(97, 141)
+        Me.cmbPDFView.Name = "cmbPDFView"
+        Me.cmbPDFView.Size = New System.Drawing.Size(121, 23)
+        Me.cmbPDFView.TabIndex = 8
         '
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(19, 223)
+        Me.Label2.Location = New System.Drawing.Point(33, 144)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(59, 15)
         Me.Label2.TabIndex = 9
         Me.Label2.Text = "SetView"
         '
-        'btnFileClose
+        'btnPDFFileClose
         '
-        Me.btnFileClose.Location = New System.Drawing.Point(124, 95)
-        Me.btnFileClose.Name = "btnFileClose"
-        Me.btnFileClose.Size = New System.Drawing.Size(105, 23)
-        Me.btnFileClose.TabIndex = 10
-        Me.btnFileClose.Text = "ファイルを閉じる"
-        Me.btnFileClose.UseVisualStyleBackColor = True
+        Me.btnPDFFileClose.Location = New System.Drawing.Point(138, 16)
+        Me.btnPDFFileClose.Name = "btnPDFFileClose"
+        Me.btnPDFFileClose.Size = New System.Drawing.Size(105, 23)
+        Me.btnPDFFileClose.TabIndex = 10
+        Me.btnPDFFileClose.Text = "ファイルを閉じる"
+        Me.btnPDFFileClose.UseVisualStyleBackColor = True
         '
         'GroupBox1
         '
@@ -153,41 +161,111 @@
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "設定"
         '
+        'tbcFileOpes
+        '
+        Me.tbcFileOpes.Controls.Add(Me.tpAdobePDF)
+        Me.tbcFileOpes.Controls.Add(Me.tpMediaPlayer)
+        Me.tbcFileOpes.Location = New System.Drawing.Point(17, 89)
+        Me.tbcFileOpes.Name = "tbcFileOpes"
+        Me.tbcFileOpes.SelectedIndex = 0
+        Me.tbcFileOpes.Size = New System.Drawing.Size(768, 303)
+        Me.tbcFileOpes.TabIndex = 12
+        '
+        'tpAdobePDF
+        '
+        Me.tpAdobePDF.Controls.Add(Me.btnOpenPDFFile)
+        Me.tpAdobePDF.Controls.Add(Me.btnPDFNext)
+        Me.tpAdobePDF.Controls.Add(Me.btnPDFFileClose)
+        Me.tpAdobePDF.Controls.Add(Me.btnPDFBack)
+        Me.tpAdobePDF.Controls.Add(Me.Label2)
+        Me.tpAdobePDF.Controls.Add(Me.txtPDFFileName)
+        Me.tpAdobePDF.Controls.Add(Me.cmbPDFView)
+        Me.tpAdobePDF.Controls.Add(Me.btnPDFLast)
+        Me.tpAdobePDF.Controls.Add(Me.btnPDFFirst)
+        Me.tpAdobePDF.Location = New System.Drawing.Point(4, 25)
+        Me.tpAdobePDF.Name = "tpAdobePDF"
+        Me.tpAdobePDF.Padding = New System.Windows.Forms.Padding(3)
+        Me.tpAdobePDF.Size = New System.Drawing.Size(760, 274)
+        Me.tpAdobePDF.TabIndex = 0
+        Me.tpAdobePDF.Text = "PDFの表示"
+        Me.tpAdobePDF.UseVisualStyleBackColor = True
+        '
+        'tpMediaPlayer
+        '
+        Me.tpMediaPlayer.Controls.Add(Me.btnOpenMediaFile)
+        Me.tpMediaPlayer.Controls.Add(Me.btnStartStop)
+        Me.tpMediaPlayer.Controls.Add(Me.txtMediaFileName)
+        Me.tpMediaPlayer.Location = New System.Drawing.Point(4, 25)
+        Me.tpMediaPlayer.Name = "tpMediaPlayer"
+        Me.tpMediaPlayer.Padding = New System.Windows.Forms.Padding(3)
+        Me.tpMediaPlayer.Size = New System.Drawing.Size(760, 274)
+        Me.tpMediaPlayer.TabIndex = 1
+        Me.tpMediaPlayer.Text = "wmvの再生"
+        Me.tpMediaPlayer.UseVisualStyleBackColor = True
+        '
+        'btnOpenMediaFile
+        '
+        Me.btnOpenMediaFile.Location = New System.Drawing.Point(15, 19)
+        Me.btnOpenMediaFile.Name = "btnOpenMediaFile"
+        Me.btnOpenMediaFile.Size = New System.Drawing.Size(101, 23)
+        Me.btnOpenMediaFile.TabIndex = 13
+        Me.btnOpenMediaFile.Text = "ファイルを開く"
+        Me.btnOpenMediaFile.UseVisualStyleBackColor = True
+        '
+        'btnStartStop
+        '
+        Me.btnStartStop.Location = New System.Drawing.Point(59, 86)
+        Me.btnStartStop.Name = "btnStartStop"
+        Me.btnStartStop.Size = New System.Drawing.Size(82, 23)
+        Me.btnStartStop.TabIndex = 11
+        Me.btnStartStop.Text = "再生する"
+        Me.btnStartStop.UseVisualStyleBackColor = True
+        '
+        'txtMediaFileName
+        '
+        Me.txtMediaFileName.Location = New System.Drawing.Point(15, 48)
+        Me.txtMediaFileName.Name = "txtMediaFileName"
+        Me.txtMediaFileName.ReadOnly = True
+        Me.txtMediaFileName.Size = New System.Drawing.Size(655, 22)
+        Me.txtMediaFileName.TabIndex = 14
+        '
         'frmOperation
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(782, 282)
+        Me.ClientSize = New System.Drawing.Size(782, 465)
+        Me.Controls.Add(Me.tbcFileOpes)
         Me.Controls.Add(Me.GroupBox1)
-        Me.Controls.Add(Me.btnFileClose)
-        Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.cmbView)
-        Me.Controls.Add(Me.btnFirst)
-        Me.Controls.Add(Me.btnLast)
-        Me.Controls.Add(Me.txtFileName)
-        Me.Controls.Add(Me.btnFileOpen)
-        Me.Controls.Add(Me.btnBack)
-        Me.Controls.Add(Me.btnNext)
         Me.Name = "frmOperation"
         Me.Text = "Form2"
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
+        Me.tbcFileOpes.ResumeLayout(False)
+        Me.tpAdobePDF.ResumeLayout(False)
+        Me.tpAdobePDF.PerformLayout()
+        Me.tpMediaPlayer.ResumeLayout(False)
+        Me.tpMediaPlayer.PerformLayout()
         Me.ResumeLayout(False)
-        Me.PerformLayout()
 
     End Sub
 
-    Friend WithEvents btnNext As Windows.Forms.Button
-    Friend WithEvents btnBack As Windows.Forms.Button
-    Friend WithEvents btnFileOpen As Windows.Forms.Button
-    Friend WithEvents txtFileName As Windows.Forms.TextBox
+    Friend WithEvents btnPDFNext As Windows.Forms.Button
+    Friend WithEvents btnPDFBack As Windows.Forms.Button
+    Friend WithEvents btnOpenPDFFile As Windows.Forms.Button
+    Friend WithEvents txtPDFFileName As Windows.Forms.TextBox
     Friend WithEvents OpenFileDialog1 As Windows.Forms.OpenFileDialog
-    Friend WithEvents btnLast As Windows.Forms.Button
-    Friend WithEvents btnFirst As Windows.Forms.Button
+    Friend WithEvents btnPDFLast As Windows.Forms.Button
+    Friend WithEvents btnPDFFirst As Windows.Forms.Button
     Friend WithEvents cmbDisplay As Windows.Forms.ComboBox
     Friend WithEvents Label1 As Windows.Forms.Label
-    Friend WithEvents cmbView As Windows.Forms.ComboBox
+    Friend WithEvents cmbPDFView As Windows.Forms.ComboBox
     Friend WithEvents Label2 As Windows.Forms.Label
-    Friend WithEvents btnFileClose As Windows.Forms.Button
+    Friend WithEvents btnPDFFileClose As Windows.Forms.Button
     Friend WithEvents GroupBox1 As Windows.Forms.GroupBox
+    Friend WithEvents tbcFileOpes As Windows.Forms.TabControl
+    Friend WithEvents tpAdobePDF As Windows.Forms.TabPage
+    Friend WithEvents tpMediaPlayer As Windows.Forms.TabPage
+    Friend WithEvents btnOpenMediaFile As Windows.Forms.Button
+    Friend WithEvents btnStartStop As Windows.Forms.Button
+    Friend WithEvents txtMediaFileName As Windows.Forms.TextBox
 End Class

--- pdfsecondmonitor/frmOperation.vb	(revision 9)
+++ pdfsecondmonitor/frmOperation.vb	(revision 10)
@@ -7,23 +7,24 @@
     Public Property frmView As frmView
     Public Property axPDF As AxAcroPDFLib.AxAcroPDF
 
-    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub frmOperation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         screenDetect()
         AppSettingLoad()
     End Sub
 
 
+
 #Region "設定値"
     Private Sub AppSettingLoad()
 
         cmbDisplay.SelectedIndex = My.Settings.cmbDisplaySelectedIndex
-        cmbView.SelectedIndex = My.Settings.cmbView
+        cmbPDFView.SelectedIndex = My.Settings.cmbView
     End Sub
 
     Private Sub AppSettingSave()
 
         My.Settings.cmbDisplaySelectedIndex = cmbDisplay.SelectedIndex
-        My.Settings.cmbView = cmbView.SelectedIndex
+        My.Settings.cmbView = cmbPDFView.SelectedIndex
         My.Settings.Save()
     End Sub
 
@@ -37,40 +38,95 @@
     End Sub
 #End Region
 
-#Region "ページの移動操作"
+#Region "終了処理"
 
-    Private Sub btnFirst_Click(sender As Object, e As EventArgs) Handles btnFirst.Click
+    Private Sub frmOperation_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
+        AppSettingSave()
+        frmView.Close()
+    End Sub
+#End Region
+
+#Region "フォームをセカンドディスプレイに表示"
+    Private Sub cmbDisplay_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDisplay.SelectedIndexChanged
+        If cmbDisplay.SelectedIndex < 0 Then
+            Exit Sub
+        End If
+        If cmbDisplay.SelectedItem Is Nothing Then
+            Exit Sub
+        End If
+        'フォームを表示するディスプレイのScreenを取得する
+        Dim s As Screen = DirectCast(Me.cmbDisplay.SelectedItem, Screen)
+        'フォームの開始位置をディスプレイの左上座標に設定する
+        frmView.StartPosition = FormStartPosition.Manual
+        frmView.Location = s.Bounds.Location
+        frmView.Size = s.Bounds.Size
+
+    End Sub
+
+
+
+
+
+#End Region
+
+#Region "Adobe PDF Reader の 処理"
+
+#Region "ページ移動"
+
+    Private Sub btnFirst_Click(sender As Object, e As EventArgs) Handles btnPDFFirst.Click
         axPDF.gotoFirstPage()
     End Sub
 
-    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
+    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnPDFNext.Click
         axPDF.gotoNextPage()
     End Sub
 
-    Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
+    Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnPDFBack.Click
         axPDF.gotoPreviousPage()
     End Sub
 
-    Private Sub btnLast_Click(sender As Object, e As EventArgs) Handles btnLast.Click
+    Private Sub btnLast_Click(sender As Object, e As EventArgs) Handles btnPDFLast.Click
         axPDF.gotoLastPage()
     End Sub
 
 #End Region
 
-#Region "ファイルを開く"
+    ''' <summary>
+    ''' ページのおさまり表示の変更
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    Private Sub cmbView_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbPDFView.SelectedIndexChanged
+        axPDF.setView(cmbPDFView.Text)
+    End Sub
+
+    ''' <summary>
+    ''' PDFを閉じる
+    ''' </summary>
+    ''' <param name="sender"></param>
+    ''' <param name="e"></param>
+    Private Sub btnFileClose_Click(sender As Object, e As EventArgs) Handles btnPDFFileClose.Click
+        txtPDFFileName.Text = String.Empty
+    End Sub
+
+
+
+#Region "PDFファイルを開く"
     Private backFileName As String
-    Private Sub btnFileOpen_Click(sender As Object, e As EventArgs) Handles btnFileOpen.Click
+    Private Sub btnFileOpen_Click(sender As Object, e As EventArgs) Handles btnOpenPDFFile.Click
+        OpenFileDialog1.Filter = "PDFファイル (*.pdf) |*.pdf"
+        OpenFileDialog1.Filter = txtPDFFileName.Text
         Dim ret = OpenFileDialog1.ShowDialog()
         If ret = Windows.Forms.DialogResult.Cancel Then
             Exit Sub
         End If
-        'todo : pdfではなかったときの処理
-        txtFileName.Text = OpenFileDialog1.FileName
 
+        txtPDFFileName.Text = OpenFileDialog1.FileName
+
     End Sub
 
-    Private Sub txtFileName_TextChanged(sender As Object, e As EventArgs) Handles txtFileName.TextChanged
-        If txtFileName.Text = String.Empty Then
+    Private Sub txtFileName_TextChanged(sender As Object, e As EventArgs) Handles txtPDFFileName.TextChanged
+        If txtPDFFileName.Text = String.Empty Then
             'ファイルを閉じることはできないので非表示にしている。
             frmView.pnlCover.Visible = True
 
@@ -77,50 +133,44 @@
             Return
         End If
         frmView.pnlCover.Visible = False
-        If backFileName = txtFileName.Text Then
+        If backFileName = txtPDFFileName.Text Then
             Return
         End If
         axPDF.Visible = True
-        axPDF.LoadFile(txtFileName.Text)
-        backFileName = txtFileName.Text
+        axPDF.LoadFile(txtPDFFileName.Text)
+        'todo : pdfが開けなかったときの処理
+        backFileName = txtPDFFileName.Text
         axPDF.setShowToolbar(False)
         axPDF.setShowScrollbars(False)
     End Sub
 
-#End Region
-#Region "フォームをセカンドディスプレイに表示"
-    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDisplay.SelectedIndexChanged
-        If cmbDisplay.SelectedIndex < 0 Then
-            Exit Sub
-        End If
-        If cmbDisplay.SelectedItem Is Nothing Then
-            Exit Sub
-        End If
-        'フォームを表示するディスプレイのScreenを取得する
-        Dim s As Screen = DirectCast(Me.cmbDisplay.SelectedItem, Screen)
-        'フォームの開始位置をディスプレイの左上座標に設定する
-        frmView.StartPosition = FormStartPosition.Manual
-        frmView.Location = s.Bounds.Location
-        frmView.Size = s.Bounds.Size
 
-    End Sub
 
+#End Region
+#End Region
 
+#Region "Media Playerの処理"
 
-    Private Sub cmbView_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbView.SelectedIndexChanged
-        axPDF.setView(cmbView.Text)
-    End Sub
+    Private inPlay As Boolean = False
+    Private Sub btnOpenMediaFile_Click(sender As Object, e As EventArgs) Handles btnOpenMediaFile.Click
+        OpenFileDialog1.Filter = "映像ファイル (*.wmv) |*.wmv"
+        OpenFileDialog1.Filter = txtMediaFileName.Text
+        Dim ret = OpenFileDialog1.ShowDialog()
+        If ret = Windows.Forms.DialogResult.Cancel Then
+            Exit Sub
+        End If
 
-    Private Sub frmOperation_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
-        AppSettingSave()
-        frmView.Close()
+        txtMediaFileName.Text = OpenFileDialog1.FileName
     End Sub
 
-    Private Sub btnFileClose_Click(sender As Object, e As EventArgs) Handles btnFileClose.Click
-        txtFileName.Text = String.Empty
+    Private Sub btnStartStop_Click(sender As Object, e As EventArgs) Handles btnStartStop.Click
+        inPlay = Not inPlay
+        If inPlay Then
+            btnStartStop.Text = "停止する"
+        Else
+            btnStartStop.Text = "再生する"
+        End If
     End Sub
-
-
 #End Region