【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2016/12/24(土) 12:22:27.77

FreeBasic
ttp://www.freebasic.net/

建てたいって人がいたので勝手に建てた
後はご自由にどうぞ
俺は知らん
過去スレ
http://echo.2ch.net/test/read.cgi/tech/1139379786/

**デフォルトの名無しさん** · 2017/07/03(月) 12:41:35.66

http://makoto-watanabe.main.jp/freebasic/tipsFileDialog.html
がエラーで動かないことは前スレに記載した。
一部変更して動くようになったので、記載する。障害(コンパイルエラー)が発生したのは、Function FileSelectFolder ()内で、ここの変更を記載する。

「 Dim fp As FOLDER_PROPS」行後に「Dim ppidl as LPITEMIDLIST」行を追記する。
「@bi.pidlRoot」という文字を見つけて「@ppidl」と変更、３か所。
挿入１行と変更が３か所。

Fun SHBrowseForFolder() での影響がわからない。
.pidlRootに値を定義していない影響がわからないから。何を定義するのかがわからないから。
コンパイルを通っただけだから、さらなる検証が必要。

**デフォルトの名無しさん** · 2017/07/04(火) 22:53:08.02

>>159　つづき。
ＦｂＥｄｉｔで
ファイル、新規プロジェクト、DialogAsMain.tplを選択
プロジェクト、Add Existing、モジュールで、Sub01.Bas を作成
Sub01.Bas に、
http://makoto-watanabe.main.jp/freebasic/tipsFileDialog.html
をこぴー、既に上げた変更を行って、緑の▽をクリック、
がやった内容なんだが、
どういうわけが、起動モジュール以外の部分が初回で実行される。
'********************* Usage: *****************************
以後が実行された。

最後に END を書き加えたら、秀良したのだが、なぜが常駐している。
タスクマネージャーを起動して止めたけど、Winが不安定になって、再起動する羽目にあった。

マルチモジュールで開発する時には注意してくれ。
現在は、引数合わせを行っている。
このまま使ってもよいのだが、頭の悪いソースチェックルーチンが引数を理解できない、等の障害が出ている。
ソースチェックルーチンがわかりやすいように、引数を変更する(PTR引数をByRef引数に、Return (値)やFunction=(値)を(ルーチン名)=(値)に等)必要がある。
このあたりが理解できる変数表作成ルーチンはないのだろうか。
解読する必要がある人ならば
C:\tool\FreeBASIC\inc\win\commdlg.bi
を見てくれ。動くには動くのだが、
何か変更しようとすることを前提の描き方ではないので、
どのような変更ができるのか、定義値と参照値はどれか等、内容がよく理解できないでいる。