処理経過を表示する

画面表示 - プログレスバー

処理経過を表示する

ProgressBarクラスやProgressPopupクラスを使用することで、
処理の進捗状況がどの程度完了したのかを視覚的・直感的に表示することができます。

【実行結果①】

【実行結果②】

【実行結果③】

【実行結果④】

【実行結果⑤】

【実行結果⑥】

########################################
# プログレスバー、プログレスポップアップ
# 処理経過を表示する
########################################
Form ScD0211 {
 X = 0;
 Y = 0;
 Width = 700;
 Height = 500;
 
 #画面タイトル
 Label lb_formTitle {
  X = 10;
  Y = 10;
  Width = 680;
  Height = 40;
  Value = "プログレスバーを使用して処理経過を表示する";
  Font = new Font( "メイリオ", 20 );
 }
 
 ############################
 # プログレスバー機能
 ############################
 ProgressBar ProgressBar_1 {
  x = 21;
  y = 155;
  width = 531;
  height = 30;
  barColor = COLOR.BLUE;
  barStyle = BARSTYLE_PLAINCOLOR;
  Value = 0;
  maximum = 100;
  TabIndex = 1;
 }
 
 #プログレスバー説明
 Label label1 {
  x = 7;
  y = 75;
  width = 530;
  height = 25;
  Value = "プログレスバー";
 }

 
 #プログレスバー表示ボタン
 Button btn_pb1start {
  x = 561;
  y = 155;

  width = 50;
  height = 30;
  Title = "表示";
  TabIndex = 10;
  Function OnTouch( e ) {
   #プログレスバーの進行を表示する
   ^.ProgressBar_1.autoStep(5,TRUE);
   
  }
 }
 
 #プログレスバー初期化ボタン
 Button btn_pb1clear {
  x = 612;
  y = 155;
  width = 50;
  height = 30;
  Title = "初期化";
  TabIndex = 11;
  Function OnTouch( e ) {
   #プログレスバーを初期状態へ戻す
   ^.ProgressBar_1.value = 0;
  }
 }
 
 #######################################
 # プログレスポップアップ
 #######################################
 
 #プログレスポップアップ説明
 Label label4 {
  x = 7;
  y = 285;
  width = 530;
  height = 25;
  Value = "プログレスポップアップ";
 }  
 
 #プログレスポップアップ
 ProgressPopup ProgressPopup_1 {
  x = 525;
  y = 290;
  width = 400;
  height = 200;
  title = "プログレスポップアップ";
  barColor = COLOR.BLUE;
  barStyle = BARSTYLE_PLAINCOLOR;
  autoClose = TRUE;
  message = "しばらくお待ち下さい。";
  cancelCaption = "キャンセル";
  Value = 0;
  maximum = 100;
  TabIndex = 3;
 }
 
 #プログレスポップアップ表示ボタン
 Button btn_pop1start {
  x = 560;
  y = 340;
  width = 50;
  height = 30;
  Title = "表示";
  TabIndex = 30;
  Function OnTouch( e ) {
   
   #プログレスポップアップを表示する
   ^.ProgressPopup_1.popup(2,TRUE);
   ^.ProgressPopup_1.autostep(5,TRUE);
   
  }
 }
 
 #プログレスポップアップ初期化ボタン
 Button btn_pop1clear {
  x = 612;
  y = 340;
  width = 50;
  height = 30;
  Title = "初期化";
  TabIndex = 31;
  Function OnTouch( e ) {
   
   #プログレスポップアップを初期状態へ戻す
   ^.ProgressPopup_1.value = 0;

  }
 }
 
 #補足コメント
 Label label5 {
  x = 310;
  y = 443;
  width = 376;
  height = 50;
  FgColor = COLOR.RED;
  Value = "※表示ボタンを押下するとプログレスバーが表示されます。\n　 初期化ボタンを押下することで、プログレスバーを初期状態に戻します。";
 }
 
 #プログレスバー枠
 GroupBox groupbox1 {
  x = 3;
  y = 69;
  width = 682;
  height = 205;
  TabIndex = 500;
 }
 #プログレスポップアップ枠
 GroupBox groupbox3 {
  x = 3;
  y = 278;
  width = 682;
  height = 160;
  TabIndex = 700;
  Label label1 {
   x = 165;
   y = 67;
   width = 362;
   height = 30;
   Value = "ここではプログレスバーがポップアップで表示されます。";
  }
 }
 
 #########################################################
 # プログレスオブジェクトから呼び出されるタイマーイベント
 #########################################################
 Function OnTimer( e ) {
  
  #プログレスバーから発生したイベントの場合
  if( e.from.name == "ProgressBar_1" ) {
   
   #デバッグ確認用メッセージ
   print( "[呼出元オブジェクト名：" + str( e.from.name ) + "]" + "[オブジェクトValue値：" + str( e.from.value ) + "]" );
   
  }
  #プログレスポップアップから発生したイベントの場合
  else if( e.from.name == "ProgressPopup_1" ) {
   
   #デバッグ確認用メッセージ
   print( "[呼出元オブジェクト名：" + str( e.from.name )  + "]" + "[オブジェクトValue値：" + str( e.from.value ) + "]" );

  } 
 } 
}


		Biz-Collections Bizの宝箱トップへ
		Biz/Browser DT・Biz/Designer DT TIPS集トップへ