ファイル選択画面を使う場合

[いとちゃん]

いとちゃんといいます。いつも皆様のレスポンスには助けられております。

ＡＢ４２４にて、１つのＤＡＴファイルの内容を書き換えるプログラムができました。そこでは、Ｃドライブの直下にある特定のファイルについてのみ機能が確認されたのですが

Windowsで、よくあるファイル参照画面のようなものを今後組み込みたいと
思います。
ＡＰＩの組み込みということになるのでしょうが、初歩的で恐れ入りますが
設定方法などご教示願えれば幸いです。

[ゲスト]

OPENFILENAMEで検索してみてください。

[いとちゃん]

Type OPENFILENAME

みてみました。

具体的に使用方法をご教授いただける方、サンプルコードのようなものを
お願いいたします。

＞
ファイル選択画面が出てくる
１個のファイルを選択する
＞
選択されたファイルネームを変数に格納する
その変数を使ってＯＰＥＮする・・・・

にしたいのです。

[konisi]

今学校から適当に打ってるのですが、こんな感じでどうでしょう？

コード: 全て選択

Function OpenFileName() As *Byte
    Dim ofn As OPENFILENAME
    OpenFileName=calloc(MAX_PATH)
    
    'OPENFILENAME構造体の初期化
    FillMemory(VarPtr(ofn),Len(ofn),0)
    ofn.lStructSize=Len(ofn)
    ofn.lpstrFilter=Ex"(all file)\0*.*\0\0"
    ofn.nFilterIndex=1
    ofn.lpstrFile=OpenFileName
    ofn.nMaxFile=MAX_PATH
    ofn.lpstrTitle="ファイルを開く"
    ofn.Flags=OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_EXPLORER
    ofn.lpstrDefExt="*"

    '「ファイルを開く」ダイアログボックスを表示
    If GetOpenFileName(ofn)=0 Then
        free(OpenFileName)
        OpenFileName=0
        Exit Sub
    End If
End Function


Dim FileName As *Byte

FileName=OpenFileName()
If FileName=0 then ExitProcess(0)
Open MakeStr(FileName) As #1
'  ...
Close #1
free(FileName)

[ゲスト]

公式ヘルプのプログラミング講座にもサンプルがあります。
一度、目を通しておくとよいです。

"「開く」メニューイベント"のところです。

[いとちゃん]

Ｋｏｎｉｓｈｉさんへ

すばらしい！こういうことです。
おかげさまでできそうです。

誠にありがとうございます。


いとちゃん

[いとちゃん]

ウインドウが開けたのはいいのですが・・・・・

メインのプログラムの後ろにウインドウが開いてしまいます。

実行の順番がいけないのかと思いましたが変えても、裏画面にひっこんで
表示されてしまいます。

ふつつかものですが、どなたかお分かりの方よろしくお願いいたします。

[7]

> メインのプログラムの後ろにウインドウが開いてしまいます。
>
> 実行の順番がいけないのかと思いましたが変えても、裏画面にひっこんで
> 表示されてしまいます。
メインウィンドウが「最前面」で、OPENFILENAME構造体の hwndOwner が NULL になっていないでしょうか？
OPENFILENAME構造体の hwndOwner にはメインウィンドウのウィンドウハンドルを指定します。

[いとちゃん]

７様

ご指摘いただきありがとうございます。

しかし
＞メインウィンドウが「最前面」で、OPENFILENAME構造体の hwndOwner が NULL になっていないでしょうか？
＞OPENFILENAME構造体の hwndOwner にはメインウィンドウのウィンドウハンドルを指定します。


なのですが、メインウインドウのウインドウハンドルは、特に指定していない
状態です。

こんな場合、具体的にどうすればいいのでしょうか？

[konisi]

上のOpenFileName関数で言うところの、
FillMemory関数以降If文以前の位置(ofnがたくさん書いてあるあたり）に
ofn.hwndOwner=hMainWnd
などと書いてみてはどうでしょう？

[いとちゃん]

Konishiさんへ

そういうことですか。
できるみなさんから見れば当たり前のことなのですが
以外にわからないものです。

不明だけど、コードを入れてみて、少しかえてみて、ああなるほどという連続ですが今後ともよろしくお願い申し上げます。
私も早くいろいろ覚えて、細かく初心者が理解できる文章が書けるようになりたいなあと思います。
Ｋｏｎｉｓｈｉさんのような方の具体的記載のおかげで、この質問板が生きいると思います。

ｂｙ　いとちゃん

[konisi]

都合三回、konishiと間違えて呼ばれている件について。
どうでもいい事なんですが、何故か拘ってしまいます。

[いとちゃん]

konisiさんへ

いままで間違いに気づきませんでした。どうもすみませんでした。
他意はございませんのでお許しください。

他に比べて具体的かつ正しいメッセージを書いて
くださるkonisiさんには大変感謝しております。

ありがとうございます。

草々

いとちゃん