Commit: 29 - pdfSecondMonitor (svn)

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

Commit MetaInfo

• Revision: 29 (tree)
• Time: 2017-11-12 21:50:15
• Author: bellyoshi

Log Message

Change Summary

• modified: pdfsecondmonitor/App.config
• modified: pdfsecondmonitor/My Project/Settings.Designer.vb
• modified: pdfsecondmonitor/My Project/Settings.settings
• modified: pdfsecondmonitor/frmOperation.vb

Incremental Difference

--- pdfsecondmonitor/My Project/Settings.Designer.vb	(revision 28)
+++ pdfsecondmonitor/My Project/Settings.Designer.vb	(revision 29)
@@ -92,15 +92,27 @@
         
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
-        Public Property 設定() As String
+         Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
+        Public Property nudHeight() As Integer
             Get
-                Return CType(Me("設定"),String)
+                Return CType(Me("nudHeight"),Integer)
             End Get
             Set
-                Me("設定") = value
+                Me("nudHeight") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("0")>  _
+        Public Property nudWidth() As Integer
+            Get
+                Return CType(Me("nudWidth"),Integer)
+            End Get
+            Set
+                Me("nudWidth") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

--- pdfsecondmonitor/frmOperation.vb	(revision 28)
+++ pdfsecondmonitor/frmOperation.vb	(revision 29)
@@ -27,8 +27,11 @@
     End Sub
 
 #Region "設定値"
+    Private loading As Boolean
     Private Sub AppSettingLoad()
-
+        loading = True
+        nudHeight.Value = My.Settings.nudHeight
+        nudWidth.Value = My.Settings.nudWidth
         cmbDisplay.SelectedIndex = My.Settings.cmbDisplaySelectedIndex
         cmbPDFView.SelectedIndex = My.Settings.cmbView
         nudPdfZoom.Value = My.Settings.nupPDFZoom
@@ -52,7 +55,7 @@
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
-
+        loading = False
     End Sub
 
     Private Sub AppSettingSave()
@@ -60,6 +63,8 @@
         My.Settings.cmbDisplaySelectedIndex = cmbDisplay.SelectedIndex
         My.Settings.cmbView = cmbPDFView.SelectedIndex
         My.Settings.nupPDFZoom = nudPdfZoom.Value
+        My.Settings.nudHeight = nudHeight.Value
+        My.Settings.nudWidth = nudWidth.Value
         My.Settings.Save()
 
         Dim fvinfos As New List(Of fileviewInfo)
@@ -97,6 +102,7 @@
 
 #Region "フォームをセカンドディスプレイに表示"
     Private Sub cmbDisplay_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbDisplay.SelectedIndexChanged
+
         If cmbDisplay.SelectedIndex < 0 Then
             Exit Sub
         End If
@@ -108,9 +114,11 @@
         '        'フォームの開始位置をディスプレイの左上座標に設定する
         frmView.StartPosition = FormStartPosition.Manual
         frmView.Location = s.Bounds.Location
-        frmView.Size = s.Bounds.Size
-        nudHeight.Value = frmView.Size.Height
-        nudWidth.Value = frmView.Size.Width
+        If Not loading OrElse nudHeight.Value = 0 Then
+            nudHeight.Value = s.Bounds.Size.Height
+            nudWidth.Value = s.Bounds.Size.Width
+        End If
+
     End Sub