• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

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


コミットメタ情報

リビジョン33 (tree)
日時2017-11-14 11:42:50
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- pdfsecondmonitor/My Project/Settings.Designer.vb (revision 32)
+++ pdfsecondmonitor/My Project/Settings.Designer.vb (revision 33)
@@ -113,6 +113,18 @@
113113 Me("nudWidth") = value
114114 End Set
115115 End Property
116+
117+ <Global.System.Configuration.UserScopedSettingAttribute(), _
118+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
119+ Global.System.Configuration.DefaultSettingValueAttribute("5000")> _
120+ Public Property nudSleep() As String
121+ Get
122+ Return CType(Me("nudSleep"),String)
123+ End Get
124+ Set
125+ Me("nudSleep") = value
126+ End Set
127+ End Property
116128 End Class
117129 End Namespace
118130
--- pdfsecondmonitor/frmOperation.Designer.vb (revision 32)
+++ pdfsecondmonitor/frmOperation.Designer.vb (revision 33)
@@ -38,6 +38,7 @@
3838 Me.txtMediaFileName = New System.Windows.Forms.TextBox()
3939 Me.tbcFileOpes = New System.Windows.Forms.TabControl()
4040 Me.tpAdobePDF = New System.Windows.Forms.TabPage()
41+ Me.btnNavigateHide = New System.Windows.Forms.Button()
4142 Me.btnDelete = New System.Windows.Forms.Button()
4243 Me.btnInsert = New System.Windows.Forms.Button()
4344 Me.lstPDFFiles = New System.Windows.Forms.ListBox()
@@ -53,7 +54,8 @@
5354 Me.btnPDFLast = New System.Windows.Forms.Button()
5455 Me.btnPDFFirst = New System.Windows.Forms.Button()
5556 Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
56- Me.btnNavigateHide = New System.Windows.Forms.Button()
57+ Me.nudSleep = New System.Windows.Forms.NumericUpDown()
58+ Me.Label11 = New System.Windows.Forms.Label()
5759 Me.GroupBox1.SuspendLayout()
5860 CType(Me.nudWidth, System.ComponentModel.ISupportInitialize).BeginInit()
5961 CType(Me.nudHeight, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -61,6 +63,7 @@
6163 Me.tbcFileOpes.SuspendLayout()
6264 Me.tpAdobePDF.SuspendLayout()
6365 CType(Me.nudPdfZoom, System.ComponentModel.ISupportInitialize).BeginInit()
66+ CType(Me.nudSleep, System.ComponentModel.ISupportInitialize).BeginInit()
6467 Me.SuspendLayout()
6568 '
6669 'OpenFileDialog1
@@ -188,6 +191,8 @@
188191 '
189192 'tpAdobePDF
190193 '
194+ Me.tpAdobePDF.Controls.Add(Me.Label11)
195+ Me.tpAdobePDF.Controls.Add(Me.nudSleep)
191196 Me.tpAdobePDF.Controls.Add(Me.btnNavigateHide)
192197 Me.tpAdobePDF.Controls.Add(Me.btnDelete)
193198 Me.tpAdobePDF.Controls.Add(Me.btnInsert)
@@ -211,6 +216,15 @@
211216 Me.tpAdobePDF.Text = "PDFの表示"
212217 Me.tpAdobePDF.UseVisualStyleBackColor = True
213218 '
219+ 'btnNavigateHide
220+ '
221+ Me.btnNavigateHide.Location = New System.Drawing.Point(536, 94)
222+ Me.btnNavigateHide.Name = "btnNavigateHide"
223+ Me.btnNavigateHide.Size = New System.Drawing.Size(145, 23)
224+ Me.btnNavigateHide.TabIndex = 13
225+ Me.btnNavigateHide.Text = "ナビツールバーを消す"
226+ Me.btnNavigateHide.UseVisualStyleBackColor = True
227+ '
214228 'btnDelete
215229 '
216230 Me.btnDelete.Location = New System.Drawing.Point(450, 159)
@@ -342,15 +356,24 @@
342356 'BackgroundWorker1
343357 '
344358 '
345- 'btnNavigateHide
359+ 'nudSleep
346360 '
347- Me.btnNavigateHide.Location = New System.Drawing.Point(536, 94)
348- Me.btnNavigateHide.Name = "btnNavigateHide"
349- Me.btnNavigateHide.Size = New System.Drawing.Size(145, 23)
350- Me.btnNavigateHide.TabIndex = 13
351- Me.btnNavigateHide.Text = "ナビツールバーを消す"
352- Me.btnNavigateHide.UseVisualStyleBackColor = True
361+ Me.nudSleep.Location = New System.Drawing.Point(435, 94)
362+ Me.nudSleep.Maximum = New Decimal(New Integer() {60000, 0, 0, 0})
363+ Me.nudSleep.Name = "nudSleep"
364+ Me.nudSleep.Size = New System.Drawing.Size(90, 22)
365+ Me.nudSleep.TabIndex = 22
366+ Me.nudSleep.Value = New Decimal(New Integer() {5000, 0, 0, 0})
353367 '
368+ 'Label11
369+ '
370+ Me.Label11.AutoSize = True
371+ Me.Label11.Location = New System.Drawing.Point(319, 98)
372+ Me.Label11.Name = "Label11"
373+ Me.Label11.Size = New System.Drawing.Size(110, 15)
374+ Me.Label11.TabIndex = 23
375+ Me.Label11.Text = "読込待時間[ms]"
376+ '
354377 'frmOperation
355378 '
356379 Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
@@ -370,6 +393,7 @@
370393 Me.tpAdobePDF.ResumeLayout(False)
371394 Me.tpAdobePDF.PerformLayout()
372395 CType(Me.nudPdfZoom, System.ComponentModel.ISupportInitialize).EndInit()
396+ CType(Me.nudSleep, System.ComponentModel.ISupportInitialize).EndInit()
373397 Me.ResumeLayout(False)
374398
375399 End Sub
@@ -404,4 +428,6 @@
404428 Friend WithEvents btnDelete As Button
405429 Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
406430 Friend WithEvents btnNavigateHide As Button
431+ Friend WithEvents Label11 As Label
432+ Friend WithEvents nudSleep As NumericUpDown
407433 End Class
--- pdfsecondmonitor/frmOperation.vb (revision 32)
+++ pdfsecondmonitor/frmOperation.vb (revision 33)
@@ -35,6 +35,7 @@
3535 cmbDisplay.SelectedIndex = My.Settings.cmbDisplaySelectedIndex
3636 cmbPDFView.SelectedIndex = My.Settings.cmbView
3737 nudPdfZoom.Value = My.Settings.nupPDFZoom
38+ nudSleep.Value = My.Settings.nudSleep
3839 Try
3940 Dim fvinfos As New List(Of fileviewInfo)
4041
@@ -65,6 +66,7 @@
6566 My.Settings.nupPDFZoom = nudPdfZoom.Value
6667 My.Settings.nudHeight = nudHeight.Value
6768 My.Settings.nudWidth = nudWidth.Value
69+ My.Settings.nudSleep = nudSleep.Value
6870 My.Settings.Save()
6971
7072 Dim fvinfos As New List(Of fileviewInfo)
@@ -340,18 +342,22 @@
340342
341343 Dim loadfuunc2 As simpleDelegate = AddressOf Loadfile2
342344 Me.Invoke(loadfuunc2)
343- Threading.Thread.Sleep(5000)
345+ Threading.Thread.Sleep(nudSleep.Value)
344346
347+ Dim hidedele As simpleDelegate = AddressOf hideNabi
348+ Me.Invoke(hidedele)
349+ Threading.Thread.Sleep(100)
350+
345351 Me.Invoke(func3)
346352 Threading.Thread.Sleep(100)
347353
348354 Dim func As simpleDelegate = AddressOf hideToolBar
349355 Me.Invoke(func)
350- Threading.Thread.Sleep(1000)
356+ Threading.Thread.Sleep(200)
351357
352358 Dim func2 As simpleDelegate = AddressOf hideScrollbars
353359 Me.Invoke(func2)
354- Threading.Thread.Sleep(1000)
360+ Threading.Thread.Sleep(200)
355361
356362
357363 End Sub
@@ -369,14 +375,19 @@
369375
370376 Sub Loadfile2()
371377 frmView.LoadFile(txtPDFFileName.Text)
372- Threading.Thread.Sleep(500)
373- frmView.Activate()
374- SendKeys.Send("+{F4}")
375378 End Sub
379+
380+
376381 Sub hideToolBar()
377382 axPDF.setShowToolbar(False)
378383 End Sub
379384
385+ Sub hideNabi()
386+ frmView.Activate()
387+ Threading.Thread.Sleep(100)
388+ SendKeys.Send("+{F4}")
389+ End Sub
390+
380391 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnNavigateHide.Click
381392 axPDF.setShowToolbar(False)
382393 frmView.Activate()