close
先來Po我寫的範例吧(請自行寫出一個呼叫這個副常式的程式):
sub clicked_me(){
my $msgbox=$main->messageBox(
-message=>"Oh? Hi~",
-title=>"Test",
-type=>"yesno",
-icon=>"warning",
-default=>"no"
);
}
我們先宣告一個變數,用來當作是MessageBox的widget
然後,我們把他新增到$main底下(之前就宣告好的主視窗widget)
底下是他的options
-default
這個就是當Message Box跳出來後,按紐焦點在哪個按鈕上
-icon
sub clicked_me(){
my $msgbox=$main->messageBox(
-message=>"Oh? Hi~",
-title=>"Test",
-type=>"yesno",
-icon=>"warning",
-default=>"no"
);
}
我們先宣告一個變數,用來當作是MessageBox的widget
然後,我們把他新增到$main底下(之前就宣告好的主視窗widget)
底下是他的options
-default
這個就是當Message Box跳出來後,按紐焦點在哪個按鈕上
-icon
在X11下(也就是*nix or BSD)可以使用Tk內建的bmp圖片,但是在Windows下只能用error、info、question跟warning(也就是錯誤、資訊、問題跟警告)
而且我發現到一件很有趣的事情,error、info、question跟warning這四種在MessageBox跳出來時聲音都不一樣!自己去玩看看吧^^
印出來的訊息
-title就是標題拉
-type按鈕的形式,像是 確定、確定 取消、重試 取消、放棄 重試 略過、是 否、是 否 取消
形式:
- OK
- OkCancel
- RetryCancel
- AbortRetryIgnore
- YesNo
- YesNoCancel
全站熱搜
留言列表