デュアルディスプレイのセカンドモニターにPDF、動画、画像を表示。
@@ -113,6 +113,18 @@ | ||
113 | 113 | Me("nudWidth") = value |
114 | 114 | End Set |
115 | 115 | 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 | |
116 | 128 | End Class |
117 | 129 | End Namespace |
118 | 130 |
@@ -38,6 +38,7 @@ | ||
38 | 38 | Me.txtMediaFileName = New System.Windows.Forms.TextBox() |
39 | 39 | Me.tbcFileOpes = New System.Windows.Forms.TabControl() |
40 | 40 | Me.tpAdobePDF = New System.Windows.Forms.TabPage() |
41 | + Me.btnNavigateHide = New System.Windows.Forms.Button() | |
41 | 42 | Me.btnDelete = New System.Windows.Forms.Button() |
42 | 43 | Me.btnInsert = New System.Windows.Forms.Button() |
43 | 44 | Me.lstPDFFiles = New System.Windows.Forms.ListBox() |
@@ -53,7 +54,8 @@ | ||
53 | 54 | Me.btnPDFLast = New System.Windows.Forms.Button() |
54 | 55 | Me.btnPDFFirst = New System.Windows.Forms.Button() |
55 | 56 | 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() | |
57 | 59 | Me.GroupBox1.SuspendLayout() |
58 | 60 | CType(Me.nudWidth, System.ComponentModel.ISupportInitialize).BeginInit() |
59 | 61 | CType(Me.nudHeight, System.ComponentModel.ISupportInitialize).BeginInit() |
@@ -61,6 +63,7 @@ | ||
61 | 63 | Me.tbcFileOpes.SuspendLayout() |
62 | 64 | Me.tpAdobePDF.SuspendLayout() |
63 | 65 | CType(Me.nudPdfZoom, System.ComponentModel.ISupportInitialize).BeginInit() |
66 | + CType(Me.nudSleep, System.ComponentModel.ISupportInitialize).BeginInit() | |
64 | 67 | Me.SuspendLayout() |
65 | 68 | ' |
66 | 69 | 'OpenFileDialog1 |
@@ -188,6 +191,8 @@ | ||
188 | 191 | ' |
189 | 192 | 'tpAdobePDF |
190 | 193 | ' |
194 | + Me.tpAdobePDF.Controls.Add(Me.Label11) | |
195 | + Me.tpAdobePDF.Controls.Add(Me.nudSleep) | |
191 | 196 | Me.tpAdobePDF.Controls.Add(Me.btnNavigateHide) |
192 | 197 | Me.tpAdobePDF.Controls.Add(Me.btnDelete) |
193 | 198 | Me.tpAdobePDF.Controls.Add(Me.btnInsert) |
@@ -211,6 +216,15 @@ | ||
211 | 216 | Me.tpAdobePDF.Text = "PDFの表示" |
212 | 217 | Me.tpAdobePDF.UseVisualStyleBackColor = True |
213 | 218 | ' |
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 | + ' | |
214 | 228 | 'btnDelete |
215 | 229 | ' |
216 | 230 | Me.btnDelete.Location = New System.Drawing.Point(450, 159) |
@@ -342,15 +356,24 @@ | ||
342 | 356 | 'BackgroundWorker1 |
343 | 357 | ' |
344 | 358 | ' |
345 | - 'btnNavigateHide | |
359 | + 'nudSleep | |
346 | 360 | ' |
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}) | |
353 | 367 | ' |
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 | + ' | |
354 | 377 | 'frmOperation |
355 | 378 | ' |
356 | 379 | Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!) |
@@ -370,6 +393,7 @@ | ||
370 | 393 | Me.tpAdobePDF.ResumeLayout(False) |
371 | 394 | Me.tpAdobePDF.PerformLayout() |
372 | 395 | CType(Me.nudPdfZoom, System.ComponentModel.ISupportInitialize).EndInit() |
396 | + CType(Me.nudSleep, System.ComponentModel.ISupportInitialize).EndInit() | |
373 | 397 | Me.ResumeLayout(False) |
374 | 398 | |
375 | 399 | End Sub |
@@ -404,4 +428,6 @@ | ||
404 | 428 | Friend WithEvents btnDelete As Button |
405 | 429 | Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker |
406 | 430 | Friend WithEvents btnNavigateHide As Button |
431 | + Friend WithEvents Label11 As Label | |
432 | + Friend WithEvents nudSleep As NumericUpDown | |
407 | 433 | End Class |
@@ -35,6 +35,7 @@ | ||
35 | 35 | cmbDisplay.SelectedIndex = My.Settings.cmbDisplaySelectedIndex |
36 | 36 | cmbPDFView.SelectedIndex = My.Settings.cmbView |
37 | 37 | nudPdfZoom.Value = My.Settings.nupPDFZoom |
38 | + nudSleep.Value = My.Settings.nudSleep | |
38 | 39 | Try |
39 | 40 | Dim fvinfos As New List(Of fileviewInfo) |
40 | 41 |
@@ -65,6 +66,7 @@ | ||
65 | 66 | My.Settings.nupPDFZoom = nudPdfZoom.Value |
66 | 67 | My.Settings.nudHeight = nudHeight.Value |
67 | 68 | My.Settings.nudWidth = nudWidth.Value |
69 | + My.Settings.nudSleep = nudSleep.Value | |
68 | 70 | My.Settings.Save() |
69 | 71 | |
70 | 72 | Dim fvinfos As New List(Of fileviewInfo) |
@@ -340,18 +342,22 @@ | ||
340 | 342 | |
341 | 343 | Dim loadfuunc2 As simpleDelegate = AddressOf Loadfile2 |
342 | 344 | Me.Invoke(loadfuunc2) |
343 | - Threading.Thread.Sleep(5000) | |
345 | + Threading.Thread.Sleep(nudSleep.Value) | |
344 | 346 | |
347 | + Dim hidedele As simpleDelegate = AddressOf hideNabi | |
348 | + Me.Invoke(hidedele) | |
349 | + Threading.Thread.Sleep(100) | |
350 | + | |
345 | 351 | Me.Invoke(func3) |
346 | 352 | Threading.Thread.Sleep(100) |
347 | 353 | |
348 | 354 | Dim func As simpleDelegate = AddressOf hideToolBar |
349 | 355 | Me.Invoke(func) |
350 | - Threading.Thread.Sleep(1000) | |
356 | + Threading.Thread.Sleep(200) | |
351 | 357 | |
352 | 358 | Dim func2 As simpleDelegate = AddressOf hideScrollbars |
353 | 359 | Me.Invoke(func2) |
354 | - Threading.Thread.Sleep(1000) | |
360 | + Threading.Thread.Sleep(200) | |
355 | 361 | |
356 | 362 | |
357 | 363 | End Sub |
@@ -369,14 +375,19 @@ | ||
369 | 375 | |
370 | 376 | Sub Loadfile2() |
371 | 377 | frmView.LoadFile(txtPDFFileName.Text) |
372 | - Threading.Thread.Sleep(500) | |
373 | - frmView.Activate() | |
374 | - SendKeys.Send("+{F4}") | |
375 | 378 | End Sub |
379 | + | |
380 | + | |
376 | 381 | Sub hideToolBar() |
377 | 382 | axPDF.setShowToolbar(False) |
378 | 383 | End Sub |
379 | 384 | |
385 | + Sub hideNabi() | |
386 | + frmView.Activate() | |
387 | + Threading.Thread.Sleep(100) | |
388 | + SendKeys.Send("+{F4}") | |
389 | + End Sub | |
390 | + | |
380 | 391 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnNavigateHide.Click |
381 | 392 | axPDF.setShowToolbar(False) |
382 | 393 | frmView.Activate() |