こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

SAVEダイアログを使用する場合の保存名の指定

下記のとおり、SAVEダイアログを使用してデータを保存するプログラムを使用したのですが、保存の際に予めファイル名称を指定したいと考えています。
ネットで色々調べたのですが、どれもうまくいかなかったので教えて下さい。
環境はVB2008、windosXP(SP3)です。


Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
 Dim nFilter As String
 Dim Ret As String
 Dim ReadData As String
 'フィルターの設定
 nFilter = "データファイル(*.dat)" & Chr(0) & "*.dat" & Chr(0)
 Ret = SaveDlg(Me.Handle.ToInt32, nFilter)
 'ファイルを保存する
 FileOpen(1, Ret, OpenMode.Output)
 WriteLine(1, Text1.Text)
 WriteLine(1, Text2.Text)
 WriteLine(1, Text3.Text)
 FileClose(1)
End Sub

投稿日時 - 2011-08-14 15:44:58

QNo.6942379

困ってます

質問者が選んだベストアンサー

手元のはVS2005なので、VBのバージョンが違うのかも知れませんが…
SaveDlg()とはナニモノですかね?
Win32APIのGetSaveFileName()を使用するモノと推測されますが…実装が不明では……。

投稿日時 - 2011-08-14 16:12:37

お礼

SaveDlg()はあるサイトを見て作ったモジュールを呼び出しているものでした。
お手数をお掛けしてすいませんでした。

投稿日時 - 2011-08-14 19:34:04

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問