コメント |
@HTML
<a href="http://winofsql.jp/download/show_dialog.zip"><img src="http://winofsql.jp/image/lightbox_download.jpg" style='border:solid 0px #000000' /></a>
@HEND
@DIV
Imports System.Windows.Forms
Module Module1
Sub Main()
' 「ファイルを開く」用オブジェクト作成
Dim ofd As OpenFileDialog = New OpenFileDialog()
' ダイアログが返す結果の型( 列挙体 )
Dim result As DialogResult
' ダイアログを開く
result = ofd.ShowDialog
' OK ボタンが押された処理
if result = System.Windows.Forms.DialogResult.OK Then
Console.Out.WriteLine(ofd.FileName)
End If
ofd.Dispose()
' 処理終了
Console.WriteLine("処理が終了しました")
' 一時停止
Console.Write("Enterキーを押して下さい : ")
Console.ReadLine()
End Sub
End Module
@END
※ 参考
http://dobon.net/vb/dotnet/form/openfiledialog.html(「ファイルを開く」ダイアログボックスを表示する: .NET Tips: C#, VB.NET, Visual Studio)
http://dobon.net/vb/dotnet/form/savefiledialog.html(「名前を付けて保存」ダイアログボックスを表示する: .NET Tips: C#, VB.NET, Visual Studio) |