Changeset 561 for trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab

Timestamp:

Jul 21, 2008, 6:31:41 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

EditBox, TaskMsgの追加。

File:

• trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab (modified) (2 diffs)

trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab

@@ -1 @@
-'「Win32プログラミング講座 ～ Step5. ボタン コントロールを使う ～」のAB5移植版
-'http://www.activebasic.com/help_center/articles/win32/step05/
+/*!
+@file
+@brief 「Win32プログラミング講座 ～ Step5. ボタン コントロールを使う ～」のAB5移植版
+http://www.activebasic.com/help_center/articles/win32/step05/
 
-'2008/07/20 Egtra
+@date 2008/07/20
+@auther Egtra
+*/
 
 #require <Classes/ActiveBasic/Windows/UI/Form.ab>
 #require <Classes/ActiveBasic/Windows/UI/Application.ab>
 #require <Classes/ActiveBasic/Windows/UI/Button.ab>
+#require <Classes/ActiveBasic/Windows/UI/TaskMsg.ab>
 
 Imports ActiveBasic.Windows.UI
 Imports System
+
+#resource "UI_Sample.rc"
 
 Class DayTimeCheckForm
@@ -51 +58 @@
 
     Sub ButtonDate_Click(sender As Object, e As Args)
-        MessageBox(This, ToTCStr(DateTime.Today.GetDateTimeFormats("yyyy/MM/dd")), "今日の日付", MB_OK)
+        TaskMsg(This, "今日の日付", DateTime.Today.GetDateTimeFormats("yyyy/MM/dd"), Nothing, MB_OK)
     End Sub
 
     Sub ButtonTime_Click(sender As Object, e As Args)
-        MessageBox(This, ToTCStr(DateTime.Now.GetDateTimeFormats("H:mm:ss")), "今日の日付", MB_OK)
+        TaskMsg(This, "今日の日付", DateTime.Now.GetDateTimeFormats("H:mm:ss"), Nothing, MB_OK)
     End Sub