新しく発言する EXIT インデックスへ
たびたびです。

  たびたびです。 H,O 2004/09/04 19:04:52 
  最初に書いたとおり、 shino 2004/09/04 19:51:59 
   ├たびたびありがとうございました。大変参考... H,O 2004/09/04 21:50:50 
   └filegetnamefilename$ 青木太一 2004/09/05 02:38:27 
    └確かに shino 2004/09/05 14:18:57 
     └BASIC.EXEをコマンドラインから起動するとき... 白石 和夫 2004/09/05 17:44:09 
      └確かに変更をしたら、編集できるようになり... H,O 2004/09/05 20:38:03 

  たびたびです。 H,O 2004/09/04 19:04:52  ツリーへ

たびたびです。 返事を書く
H,O 2004/09/04 19:04:52
shinoさんに聞きたいのですか。basファイルを開くときにメモ帳でひらくのをBASICで開くようには出来ないのですか?あと、リストにあるファイルを実行したときにファイルリストのbasファイルのbmp画面を小さくするにはどうすればよいのですか?

  最初に書いたとおり、 shino 2004/09/04 19:51:59  ツリーへ

Re: たびたびです。 返事を書く
shino 2004/09/04 19:51:59
最初に書いたとおり、
このプログラムはBASプログラムの編集が不可能である
という欠点があります。
ゆえにあまり役に立たないのですが。

私も色々試してはみたのですが、
十進BASICプログラム中から
編集画面を開くことはできませんでした。
そのような方法はあるのでしょうか。

実行時にbmp画面を小さくすることは可能です。
まず、プログラムの上の方にある
DECLARE NUMERIC n,hwnd を
PUBLIC NUMERIC hwnd
DECLARE NUMERIC n のように宣言して下さい。

次に、Event Sub の先頭に
DECLARE EXTERNAL NUMERIC hwnd を追加します。

最後に、
Event Sub のCASE 8,9,10中の
ELSEIF i=9 THEN ! 実行
の括りの中のexecute文を
LET n=ShowWnd(hwnd,6)
execute name$
LET n=ShowWnd(hwnd,3)
のようにすれば、実行直前に最小化、
終了後に元の大きさまで戻ります。
メモ帳を開く方でも同様にできます。

   ├たびたびありがとうございました。大変参考... H,O 2004/09/04 21:50:50  ツリーへ

Re: 最初に書いたとおり、 返事を書く
H,O 2004/09/04 21:50:50
たびたびありがとうございました。大変参考になりました。
あまりBASICに慣れていないというか分かっていないので
勉強になりました。

   └filegetnamefilename$ 青木太一 2004/09/05 02:38:27  ツリーへ

Re: 最初に書いたとおり、 返事を書く
青木太一 2004/09/05 02:38:27
file getname filename$
execute "c:\basicw32\basic.exe" with(filename$)
END

じゃダメですか?(十進BASICのパスが違うときは、それにあわせて書き換えてください。)
新しい十進BASICが立ち上がるので
「既に立ち上がっている十進BASICの新しい編集ウィンドウで出したい」
ということだったら要求を満たしませんがね...

また、BASIC.INIでNoRun=1をやってないといけないかもしれません。
BASIC.INIの詳細は
ヘルプ-目次-システム情報-BASIC.INI
でご覧下さい

    └確かに shino 2004/09/05 14:18:57  ツリーへ

Re: filegetnamefilename$ 返事を書く
shino 2004/09/05 14:18:57
確かに
BASIC.INIにNoRun=1を加えると
編集画面を開くことができました。

プログラムの書き換えは必要ありません。
「実行」の部分がそのまま「開く」になります。

     └BASIC.EXEをコマンドラインから起動するとき... 白石 和夫 2004/09/05 17:44:09  ツリーへ

Re: 確かに 返事を書く
白石 和夫 2004/09/05 17:44:09
BASIC.EXEをコマンドラインから起動するとき,第1引数に/NR ,第2引数にファイル名を指定すると,編集画面になります。
参照 ヘルプの「起動時オプション(コマンドライン引数)」

FILE GETNAME filename$
EXECUTE "c:\basicw32\basic.exe" WITH("/NR",filename$)
END

      └確かに変更をしたら、編集できるようになり... H,O 2004/09/05 20:38:03  ツリーへ

Re: BASIC.EXEをコマンドラインから起動するとき... 返事を書く
H,O 2004/09/05 20:38:03
確かに変更をしたら、編集できるようになりました。ありがとうございます。


インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。