getOpenFilenameの使い方

質問

VB2005において下記のようなサンプルプログラムを書いていますが、
'GetOpenFilename'は'System.Windows.Forms.Application'のメンバーではありません。
というエラーメッセージが出ます。
要はファイルを読み込む前にファイル選択用のウィンドウを開きたいのですが、
どのような書き方をしたらいいのでしょうか。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim filename As VariantType
filename = Application.GetOpenFilename("Text Files (*.txt), *.txt")

End Sub
End Class

回答No.1

noname#187541 · ベストアンサー

こんばんは。
オープンファイルダイアログコントロールを使うといいです。
使い方は下記URLを参考にどうぞ。

参考URL：

http://vbdotnet.fc2web.com/vbnet/control/OpenFileDialog01.htm

お礼

ご回答ありがとうございます。
OpenFileDialog1　は宣言する必要があると思うのですが、
型はどうしたらいいのでしょうか？

回答No.5

temtecomai2

> OpenFileDialog1　は宣言する必要があると思うのですが、
> 型はどうしたらいいのでしょうか？

コントロール一覧から OpenFileDialog コントロールを貼り付けず、
コード中、自分で宣言して使用するなら必要ですね。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dlg As New System.Windows.Forms.OpenFileDialog
If dlg.ShowDialog(Me) = DialogResult.OK Then
MessageBox.Show(dlg.FileName)
End If
dlg.Dispose()
End Sub

お礼

ありがとうございました。

回答No.4

dsuekichi

解決法は、他の方が書かれているので、アドバイスを・・・

> VB2005において下記のようなサンプルプログラムを書いていますが、
そのサンプル（or元になる情報）は、どこからもって来ました？

> Application.GetOpenFilename
って、事は、ExcelVBA（Excelマクロ）とかの「VBA用」ですね。
VBA用のサンプルは、VB2005では使えません。

サンプル探すときには「VB2005用」を探してください。

＃百歩譲って「VB.NET用」を。
＃「VB6用」とか「VBA用」とか「VBS用」とかは、そのままでは使えませんので。

お礼

ありがとうございます。

回答No.3

noname#187541

「オープンファイルダイアログ」コントロールをフォームに配置しましたか？

お礼

配置していませんでした。
これによってエラーは出なくなりましたが、
「インスタンスを経由する共有メンバ、定数メンバ、列挙型メンバ、または入れ子にされたメンバへのアクセスです。
正規の式は評価されません。」という警告が出ます。
これはいいのでしょうか？

回答No.2

noname#187541

No.1です。
提示のURLにあるサンプルを試してみましたか?
宣言しなくても大丈夫です。
strFileNameをメッセージボックス等に出力させて見てみると、選んだファイル(ファイル名)がきちんと取得されていることも分かります。

お礼

試しました。
サンプルをFormにコピペしたら、先述のエラーが出ました。