自動化ツールUWSC使いよ集まれ27at SOFTWARE自動化ツールUWSC使いよ集まれ27 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト600:最後に定義した方で統一されてしまう、、 Option Defaultfont = "メイリオ,12",DLGTITLE="メイリオ" Msgbox("これはメイリオです。") Option Defaultfont = "ＭＳ 明朝,12",DLGTITLE="ＭＳ 明朝" Msgbox("これはＭＳ 明朝です。") 601:名無しさん＠お腹いっぱい。 23/07/03 00:08:03.23 lSO+hW8W0.net Optionだもの・・・ OPTION指定「スクリプトファイル毎にオプションを指定します。」 602:名無しさん＠お腹いっぱい。 23/07/03 10:11:03.38 lINP21/90.net 力技だけど MsgBox2("これはメイリオです。", "メイリオ,12", "メイリオ") MsgBox2("これはＭＳ 明朝です。", "ＭＳ 明朝,12", "ＭＳ 明朝") Procedure MsgBox2(str, DefaultFont, DlgTitle) script ="__msgbox2.uws" fid =Fopen(script, F_WRITE) Fput(fid, "Option Defaultfont = <#DBL>" +DefaultFont+ "<#DBL>,DLGTITLE=<#DBL>" +DlgTitle+ "<#DBL>") Fput(fid, "Msgbox(<#DBL>" +str+ "<#DBL>)") Fclose(fid) DosCmd(script) Fend 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch