• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

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

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythongamewindowsbathyscaphephpguic翻訳omegattwitterframeworktestbtronarduinovb.net計画中(planning stage)directxpreviewerゲームエンジンdom

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


コミットメタ情報

リビジョン55 (tree)
日時2018-12-21 12:35:06
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- pdfsecondmonitor/ctlPdf.vb (revision 54)
+++ pdfsecondmonitor/ctlPdf.vb (revision 55)
@@ -38,6 +38,9 @@
3838 Private _fileViewParam As FileViewParam
3939 Public Sub SetFileInfo(f As FileViewParam)
4040 Me._fileViewParam = f
41+ If _fileViewParam Is Nothing Then
42+ Return
43+ End If
4144 _viewer = _dispacher.ShowPdfViewer()
4245 _viewer.OpenFile(f.FileName)
4346 End Sub
--- pdfsecondmonitor/frmOperation.vb (revision 54)
+++ pdfsecondmonitor/frmOperation.vb (revision 55)
@@ -174,17 +174,22 @@
174174 End If
175175 txtPDFFileName.Text = fileviewinfo.FileName
176176 Dim ext = IO.Path.GetExtension(fileviewinfo.FileName)
177+ Dim imageFileViewInfo As FileViewParam = Nothing
178+ Dim pdfFileViewInfo As FileViewParam = Nothing
179+ Dim movieFileViewInfo As FileViewParam = Nothing
177180 If IsPDFExt(ext) Then
178181 tbcFileOpes.SelectTab(tpAdobePDF.TabIndex)
179- CtlPdf1.SetFileInfo(fileviewinfo)
180-
182+ pdfFileViewInfo = fileviewinfo
181183 ElseIf IsImageExt(ext) Then
182184 tbcFileOpes.SelectTab(tpImage.TabIndex)
183- CtlImage1.SetFileInfo(fileviewinfo)
185+ imageFileViewInfo = fileviewinfo
184186 ElseIf IsMovieExt(ext) Then
185187 tbcFileOpes.SelectTab(tpMediaPlayer.TabIndex)
186- CtlMovie1.SetFileInfo(fileviewinfo)
188+ movieFileViewInfo = fileviewinfo
187189 End If
190+ CtlImage1.SetFileInfo(imageFileViewInfo)
191+ CtlMovie1.SetFileInfo(movieFileViewInfo)
192+ CtlPdf1.SetFileInfo(pdfFileViewInfo)
188193 ControlEnable()
189194 End Sub
190195