Changeset 575 for trunk/ab5.0/ablib/TestCase
- Timestamp:
- Aug 3, 2008, 3:58:05 AM (16 years ago)
- Location:
- trunk/ab5.0/ablib/TestCase/UI_Sample
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/TestCase/UI_Sample/step11_TextEditoer.ab
r561 r575 22 22 Sub MyForm() 23 23 AddResize(AddressOf(OnResize)) 24 Create ()24 CreateForm() 25 25 myEdit = New EditBox 26 myEdit.Create(This, ES_MULTILINE Or ES_WANTRETURN Or ES_AUTOHSCROLL Or ES_AUTOVSCROLL Or WS_HSCROLL Or WS_VSCROLL, WS_EX_CLIENTEDGE) 27 myEdit.SendMessage(WM_SETFONT, GetStockObject(DEFAULT_GUI_FONT) As WPARAM, 0) 26 With myEdit 27 .Create(This, ES_MULTILINE Or ES_WANTRETURN Or ES_AUTOHSCROLL Or ES_AUTOVSCROLL Or WS_HSCROLL Or WS_VSCROLL, WS_EX_CLIENTEDGE) 28 .SendMessage(WM_SETFONT, GetStockObject(DEFAULT_GUI_FONT) As WPARAM, 0) 29 End With 28 30 Show(SW_SHOWDEFAULT) 29 31 End Sub -
trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab
r561 r575 62 62 63 63 Sub ButtonTime_Click(sender As Object, e As Args) 64 TaskMsg(This, " 今日の日付", DateTime.Now.GetDateTimeFormats("H:mm:ss"), Nothing, MB_OK)64 TaskMsg(This, "現在時刻", DateTime.Now.GetDateTimeFormats("H:mm:ss"), Nothing, MB_OK) 65 65 End Sub 66 66 … … 71 71 Control.Initialize(GetModuleHandle(0)) 72 72 Dim f = New DayTimeCheckForm 73 f.Create ()73 f.CreateForm() 74 74 Application.Run(f)
Note:
See TracChangeset
for help on using the changeset viewer.