デュアルディスプレイのセカンドモニターにＰＤＦ、動画、画像を表示。
pdfsecondmonitor/ctlPdf.vb (diff) pdfsecondmonitor/frmOperation.vb (diff)| @@ -38,6 +38,9 @@ | ||
| 38 | 38 | Private _fileViewParam As FileViewParam |
| 39 | 39 | Public Sub SetFileInfo(f As FileViewParam) |
| 40 | 40 | Me._fileViewParam = f |
| 41 | + If _fileViewParam Is Nothing Then | |
| 42 | + Return | |
| 43 | + End If | |
| 41 | 44 | _viewer = _dispacher.ShowPdfViewer() |
| 42 | 45 | _viewer.OpenFile(f.FileName) |
| 43 | 46 | End Sub |
| @@ -174,17 +174,22 @@ | ||
| 174 | 174 | End If |
| 175 | 175 | txtPDFFileName.Text = fileviewinfo.FileName |
| 176 | 176 | 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 | |
| 177 | 180 | If IsPDFExt(ext) Then |
| 178 | 181 | tbcFileOpes.SelectTab(tpAdobePDF.TabIndex) |
| 179 | - CtlPdf1.SetFileInfo(fileviewinfo) | |
| 180 | - | |
| 182 | + pdfFileViewInfo = fileviewinfo | |
| 181 | 183 | ElseIf IsImageExt(ext) Then |
| 182 | 184 | tbcFileOpes.SelectTab(tpImage.TabIndex) |
| 183 | - CtlImage1.SetFileInfo(fileviewinfo) | |
| 185 | + imageFileViewInfo = fileviewinfo | |
| 184 | 186 | ElseIf IsMovieExt(ext) Then |
| 185 | 187 | tbcFileOpes.SelectTab(tpMediaPlayer.TabIndex) |
| 186 | - CtlMovie1.SetFileInfo(fileviewinfo) | |
| 188 | + movieFileViewInfo = fileviewinfo | |
| 187 | 189 | End If |
| 190 | + CtlImage1.SetFileInfo(imageFileViewInfo) | |
| 191 | + CtlMovie1.SetFileInfo(movieFileViewInfo) | |
| 192 | + CtlPdf1.SetFileInfo(pdfFileViewInfo) | |
| 188 | 193 | ControlEnable() |
| 189 | 194 | End Sub |
| 190 | 195 |
bellyoshi