Commit: 30 - pdfSecondMonitor (svn)

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

Commit MetaInfo

• Revision: 30 (tree)
• Time: 2017-11-13 11:23:10
• Author: bellyoshi

Log Message

Change Summary

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

Incremental Difference

--- pdfsecondmonitor/frmOperation.Designer.vb	(revision 29)
+++ pdfsecondmonitor/frmOperation.Designer.vb	(revision 30)
@@ -52,7 +52,7 @@
         Me.cmbPDFView = New System.Windows.Forms.ComboBox()
         Me.btnPDFLast = New System.Windows.Forms.Button()
         Me.btnPDFFirst = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
         Me.GroupBox1.SuspendLayout()
         CType(Me.nudWidth, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.nudHeight, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -133,6 +133,9 @@
         Me.Label3.TabIndex = 13
         Me.Label3.Text = "高さ"
         '
+        'Timer1
+        '
+        '
         'tpMediaPlayer
         '
         Me.tpMediaPlayer.Controls.Add(Me.btnOpenMediaFile)
@@ -334,14 +337,8 @@
         Me.btnPDFFirst.Text = "最初へ"
         Me.btnPDFFirst.UseVisualStyleBackColor = True
         '
-        'Button1
+        'BackgroundWorker1
         '
-        Me.Button1.Location = New System.Drawing.Point(695, 60)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 13
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
         '
         'frmOperation
         '
@@ -348,7 +345,6 @@
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(782, 465)
-        Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.tbcFileOpes)
         Me.Controls.Add(Me.GroupBox1)
         Me.Name = "frmOperation"
@@ -395,5 +391,5 @@
     Friend WithEvents btnInsert As Button
     Friend WithEvents lstPDFFiles As ListBox
     Friend WithEvents btnDelete As Button
-    Friend WithEvents Button1 As Button
+    Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
 End Class

--- pdfsecondmonitor/frmOperation.vb	(revision 29)
+++ pdfsecondmonitor/frmOperation.vb	(revision 30)
@@ -205,12 +205,9 @@
         'If backFileName = txtPDFFileName.Text Then
         '    Return
         'End If
-
-        frmView.LoadFile(txtPDFFileName.Text)
-        '        'todo : pdfが開けなかったときの処理
-        '        backFileName = txtPDFFileName.Text
-        'axPDF.setShowToolbar(False)
-        'axPDF.setShowScrollbars(False)
+        If Not BackgroundWorker1.IsBusy Then
+            BackgroundWorker1.RunWorkerAsync()
+        End If
     End Sub
 
 
@@ -285,10 +282,8 @@
         frmView.Width = nudWidth.Value
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        axPDF.LoadFile("C:\Users\bellm\Downloads\CA-brpgm18_J.pdf")
-    End Sub
 
+
 #Region "リストボックス処理"
 
     Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
@@ -328,6 +323,40 @@
         txtPDFFileName.Text = fileviewinfo.fileName
         nudPdfZoom.Value = fileviewinfo.zoom
     End Sub
+
+
+
+    Delegate Sub simpleDelegate()
+
+    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
+        Dim loadfuunc As simpleDelegate = AddressOf loadFile
+        Me.Invoke(loadfuunc)
+        Threading.Thread.Sleep(5000)
+
+        Dim func As simpleDelegate = AddressOf hideToolBar
+        Me.Invoke(func)
+        Threading.Thread.Sleep(100)
+
+        Dim func2 As simpleDelegate = AddressOf hideScrollbars
+        Me.Invoke(func2)
+        Threading.Thread.Sleep(100)
+
+
+    End Sub
+
+    Sub hideScrollbars()
+        axPDF.setShowScrollbars(False)
+    End Sub
+    Sub loadFile()
+        frmView.LoadFile(txtPDFFileName.Text)
+    End Sub
+    Sub hideToolBar()
+        axPDF.setShowToolbar(False)
+    End Sub
+
+
+
+
 #End Region
 
 End Class
\ No newline at end of file

--- pdfsecondmonitor/frmView.vb	(revision 29)
+++ pdfsecondmonitor/frmView.vb	(revision 30)
@@ -34,6 +34,7 @@
             Exit Sub
         End If
         Me.zoom = zoom
+
         AxAcroPDF1.setZoom(zoom)
     End Sub
 End Class