PR
キーワードサーチ
▼キーワード検索
カレンダー
コメント新着
2019.01.10
カテゴリ： UWSC
uwscの組み込みインプットボックス関数「input」は機能豊富ですが、入力ダイヤログのタイトルは自由に設定できません。
Option DlgTitleで値を設定すればその文字列、無指定なら "UWSC - "+Get_Uwsc_Nameがタイトルに表示されます。Option DlgTitleはinputのみならずmsgboxなどほかのUWSC組み込みダイヤログのタイトルと共用なので、使い勝手はよくありません。確か、途中で値を変更することもできません。
検証スクリプト
//option dlgtitleは何回も書けるが効果があるのは最後の１回だけ。
//下のmsgboxは３回ともt「itle 2」
msgbox("aaa")
option dlgtitle="title 1"
msgbox("aaa")
option dlgtitle="title 2"
そこで、タイトル付きインプットボックス関数「inputbox」を作ってみました。
＜ポイント＞
inputbox.uws
if GET_UWSC_NAME = "inputbox.uws"
a=inputbox( "入力してください", "input_テスト中" )
msgbox(a)
endif
function inputbox( msg="", title=GET_UWSC_NAME )
src ="[void][Reflection.Assembly]::LoadWithPartialName(<#DBL>Microsoft.VisualBasic<#DBL>);"
src =src+"[Microsoft.VisualBasic.Interaction]::InputBox(<#DBL>@@@msg@@@<#DBL>,<#DBL>@@@ittle@@@<#DBL>);"
thread inputbox_sub( title )
fend
procedure inputbox_sub(title)
while true
for id in getallwin()
if status( id, st_title ) <> title then continue
if pos( "powershell.exe", status( id, st_path ) ) = 0 then continue
break 2
next
wend
ctrlwin( id, show )
ctrlwin( id, activate )
ctrlwin( id, normal )
fend
20190320追記
えらく手間をかけていますが、uwscからSTAモードでpowershellを起動すれば、別スレッドで表示させなくてもウインドウが出てくれます。
そこで関数をこうすれば簡単。
function inputbox( msg="", title=GET_UWSC_NAME )
src="powershell -sta -command <#dbl>"
src =src + "[void][Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic');"
src =src + "[Microsoft.VisualBasic.Interaction]::InputBox('@@@msg@@@','@@@ittle@@@');<#dbl>"
result=powershell( replace( replace( src, "@@@msg@@@", msg ), "@@@ittle@@@", title ) )
fend
Option DlgTitleで値を設定すればその文字列、無指定なら "UWSC - "+Get_Uwsc_Nameがタイトルに表示されます。Option DlgTitleはinputのみならずmsgboxなどほかのUWSC組み込みダイヤログのタイトルと共用なので、使い勝手はよくありません。確か、途中で値を変更することもできません。
検証スクリプト
//option dlgtitleは何回も書けるが効果があるのは最後の１回だけ。
//下のmsgboxは３回ともt「itle 2」
msgbox("aaa")
option dlgtitle="title 1"
msgbox("aaa")
option dlgtitle="title 2"
そこで、タイトル付きインプットボックス関数「inputbox」を作ってみました。
＜ポイント＞
- VB.NETのinputboxはタイトルを付けられるので、powershell経由で呼びます。
- ただし、UWSCのpowershell関数からwindows.forms出力しても（VB.NETのinputboxもwindows.formらしい）、出力が隠されてしまいます。powershell関数の第三引数をtrueにすると表示できるがpowershellの出力を受け取れなくなってしまいます。
- そのため、inputboxを実行したらそのウインドウをctrlwin(id,show)してやります。
- 同時並行処理となるのでスレッド展開します。
- ウインドウIDはinputboxのタイトル名とウインドウクラス名（先述の通り「WindowsFormsほにゃらら」）で指定します。念のため実行ファイルがpowershell.exeであることも確認しています。
inputbox.uws
if GET_UWSC_NAME = "inputbox.uws"
a=inputbox( "入力してください", "input_テスト中" )
msgbox(a)
endif
function inputbox( msg="", title=GET_UWSC_NAME )
src ="[void][Reflection.Assembly]::LoadWithPartialName(<#DBL>Microsoft.VisualBasic<#DBL>);"
src =src+"[Microsoft.VisualBasic.Interaction]::InputBox(<#DBL>@@@msg@@@<#DBL>,<#DBL>@@@ittle@@@<#DBL>);"
thread inputbox_sub( title )
fend
procedure inputbox_sub(title)
while true
for id in getallwin()
if status( id, st_title ) <> title then continue
if pos( "powershell.exe", status( id, st_path ) ) = 0 then continue
break 2
next
wend
ctrlwin( id, show )
ctrlwin( id, activate )
ctrlwin( id, normal )
fend
20190320追記
えらく手間をかけていますが、uwscからSTAモードでpowershellを起動すれば、別スレッドで表示させなくてもウインドウが出てくれます。
そこで関数をこうすれば簡単。
function inputbox( msg="", title=GET_UWSC_NAME )
src="powershell -sta -command <#dbl>"
src =src + "[void][Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic');"
src =src + "[Microsoft.VisualBasic.Interaction]::InputBox('@@@msg@@@','@@@ittle@@@');<#dbl>"
result=powershell( replace( replace( src, "@@@msg@@@", msg ), "@@@ittle@@@", title ) )
fend
お気に入りの記事を「いいね！」で応援しよう
[UWSC] カテゴリの最新記事
-
デバッグ中かどうか自動判定 2020.12.19
-
UWSCダイアログのタイトル変更 2020.11.25
-
XMLでなんちゃってDB 2019.12.23
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
