Commit: 31 - pdfSecondMonitor (svn)

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

Commit MetaInfo

• Revision: 31 (tree)
• Time: 2017-11-13 18:08:09
• Author: bellyoshi

Log Message

Change Summary

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

Incremental Difference

--- pdfsecondmonitor/frmOperation.Designer.vb	(revision 30)
+++ pdfsecondmonitor/frmOperation.Designer.vb	(revision 31)
@@ -53,6 +53,7 @@
         Me.btnPDFLast = New System.Windows.Forms.Button()
         Me.btnPDFFirst = New System.Windows.Forms.Button()
         Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         CType(Me.nudWidth, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.nudHeight, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -340,11 +341,21 @@
         'BackgroundWorker1
         '
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(695, 70)
+        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
         '
         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"
@@ -392,4 +403,5 @@
     Friend WithEvents lstPDFFiles As ListBox
     Friend WithEvents btnDelete As Button
     Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
+    Friend WithEvents Button1 As Button
 End Class

--- pdfsecondmonitor/frmOperation.vb	(revision 30)
+++ pdfsecondmonitor/frmOperation.vb	(revision 31)
@@ -329,21 +329,37 @@
     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(1)
+
+        Dim func3 As simpleDelegate = AddressOf setzoom
+        Me.Invoke(func3)
+        Threading.Thread.Sleep(100)
+
+        Dim loadfuunc2 As simpleDelegate = AddressOf Loadfile2
+        Me.Invoke(loadfuunc2)
         Threading.Thread.Sleep(5000)
 
+        Me.Invoke(func3)
+        Threading.Thread.Sleep(100)
+
         Dim func As simpleDelegate = AddressOf hideToolBar
         Me.Invoke(func)
-        Threading.Thread.Sleep(100)
+        Threading.Thread.Sleep(1000)
 
         Dim func2 As simpleDelegate = AddressOf hideScrollbars
         Me.Invoke(func2)
-        Threading.Thread.Sleep(100)
+        Threading.Thread.Sleep(1000)
 
 
     End Sub
 
+    Sub setzoom()
+        frmView.SetZoom(nudPdfZoom.Value)
+    End Sub
+
     Sub hideScrollbars()
         axPDF.setShowScrollbars(False)
     End Sub
@@ -350,13 +366,25 @@
     Sub loadFile()
         frmView.LoadFile(txtPDFFileName.Text)
     End Sub
+
+    Sub Loadfile2()
+        frmView.LoadFile(txtPDFFileName.Text)
+        Threading.Thread.Sleep(500)
+        frmView.Activate()
+        SendKeys.Send("+{F4}")
+    End Sub
     Sub hideToolBar()
         axPDF.setShowToolbar(False)
     End Sub
 
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        frmView.Activate()
+        SendKeys.Send("+{F4}")
+    End Sub
 
 
 
+
 #End Region
 
 End Class
\ No newline at end of file

--- pdfsecondmonitor/frmView.vb	(revision 30)
+++ pdfsecondmonitor/frmView.vb	(revision 31)
@@ -27,12 +27,12 @@
 
     Private zoom As Single = 100
     Public Sub SetZoom(ByVal zoom As Single)
-        If Not loaded Then
-            Exit Sub
-        End If
-        If Math.Abs(Me.zoom - zoom) < 0.1 Then
-            Exit Sub
-        End If
+        'If Not loaded Then
+        '    Exit Sub
+        'End If
+        'If Math.Abs(Me.zoom - zoom) < 0.1 Then
+        '    Exit Sub
+        'End If
         Me.zoom = zoom
 
         AxAcroPDF1.setZoom(zoom)