• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

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

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

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


コミットメタ情報

リビジョン54 (tree)
日時2018-12-21 12:27:45
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- pdfsecondmonitor/frmOperation.vb (revision 53)
+++ pdfsecondmonitor/frmOperation.vb (revision 54)
@@ -1,4 +1,5 @@
11 Public Class frmOperation
2+#Region "サポートするファイルの種類"
23
34 ''' <summary>
45 ''' 開ける動画の拡張子
@@ -14,6 +15,7 @@
1415 ''' PDFの拡張子
1516 ''' </summary>
1617 Private PDFExts = {"pdf"}
18+#End Region
1719
1820 #Region "初期処理"
1921
@@ -139,33 +141,6 @@
139141
140142 #End Region
141143
142-
143-
144-
145-
146- Private Sub tbcFileOpes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcFileOpes.SelectedIndexChanged
147- 'If tbcFileOpes.SelectedTab Is tpAdobePDF Then
148- ' frmView.pnlCover.Visible = False
149- ' frmView.UserControl11.Visibility = Windows.Visibility.Hidden
150- ' StopVideo()
151- 'Else
152- ' frmView.pnlCover.Visible = True
153- ' frmView.UserControl11.Visibility = Windows.Visibility.Visible
154- 'End If
155-
156- End Sub
157-
158- 'Private Sub NumericUpDown1_ValueChanged(sender As Object, e As EventArgs) Handles nudHeight.ValueChanged
159- ' frmView.Height = nudHeight.Value
160-
161- 'End Sub
162-
163- 'Private Sub NumericUpDown2_ValueChanged(sender As Object, e As EventArgs) Handles nudWidth.ValueChanged
164- ' frmView.Width = nudWidth.Value
165- 'End Sub
166-
167-
168-
169144 #Region "リストボックス処理"
170145
171146
@@ -284,6 +259,7 @@
284259 ControlEnable()
285260 End Sub
286261
262+#Region "ドラッグアンドドロップ"
287263 Private Sub lstPDFFiles_DragEnter(sender As Object, e As DragEventArgs) Handles lstPDFFiles.DragEnter
288264 'コントロール内にドラッグされたとき実行される
289265 If e.Data.GetDataPresent(DataFormats.FileDrop) Then
@@ -300,11 +276,12 @@
300276 Dim fileName As String() = CType(
301277 e.Data.GetData(DataFormats.FileDrop, False),
302278 String())
303- 'ListBoxに追加する
279+
304280 For Each f In fileName
305281 items.Add(New FileViewParam(f))
306282 Next
307283 End Sub
284+#End Region
308285
309286
310287
@@ -312,6 +289,7 @@
312289
313290
314291
292+
315293 #End Region
316294
317295 End Class
\ No newline at end of file