Changeset 545 for trunk/ab5.0/ablib/src/Classes/ActiveBasic
- Timestamp:
- Jul 13, 2008, 2:09:01 PM (16 years ago)
- Location:
- trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI
- Files:
-
- 1 added
- 6 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab
r544 r545 1 1 'Classes/ActiveBasic/Windows/UI/Control.ab 2 2 3 #require <Classes/ActiveBasic/Windows/UI/ Forms/EventArgs.ab>3 #require <Classes/ActiveBasic/Windows/UI/EventArgs.ab> 4 4 5 5 Namespace ActiveBasic 6 6 Namespace Windows 7 7 Namespace UI 8 Namespace Forms9 8 10 9 'Namespace Detail … … 252 251 If Not IsNothing(a) Then 253 252 If Not IsNothing(messageMap) Then 254 Dim msg = Nothing As Object : msg = New System.UInt32(message)253 Dim msg = Hex$(message) 255 254 Dim m = messageMap.Item[msg] 256 255 If Not IsNothing(m) Then … … 439 438 End Class 440 439 441 End Namespace 'Forms442 440 End Namespace 'UI 443 441 End Namespace 'Widnows 444 442 End Namespace 'ActiveBasic 445 443 446 447 444 '---------- 448 445 'テスト実行用 449 446 450 Imports ActiveBasic.Windows.UI .Forms447 Imports ActiveBasic.Windows.UI 451 448 452 449 'OleInitialize() … … 456 453 Inherits Form 457 454 Public 458 Sub t()455 Sub MyForm() 459 456 Dim f = This 460 457 f.AddMessageEvent(WM_DESTROY, AddressOf (f.Destory)) … … 473 470 474 471 Dim f = New MyForm 475 f.t()476 472 f.Create() 477 473 ShowWindow(f.Handle, SW_SHOW) -
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/EventArgs.ab
r544 r545 7 7 Namespace Windows 8 8 Namespace UI 9 Namespace Forms10 9 11 10 TypeDef EventArgs = System.EventArgs … … 511 510 Delegate Sub FormClosingEventHandler(sender As Object, e As FormClosingEventArgs) 512 511 513 End Namespace 'Forms514 512 End Namespace 'UI 515 513 End Namespace 'Widnows -
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/MakeControlEventHandler.ab
r542 r545 78 78 79 79 MakeControlEvent("Control") 80 MakeControlEvent("Form") 80 81 End -
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/WindowHandle.sbp
r544 r545 1 'Classes/ActiveBasic/Windows/ WindowHandle.sbp1 'Classes/ActiveBasic/Windows/UI/WindowHandle.sbp 2 2 3 3 #ifdef _WIN64 … … 49 49 Namespace ActiveBasic 50 50 Namespace Windows 51 Namespace UI 51 52 52 53 Class WindowHandle … … 797 798 End Class 798 799 800 End Namespace 'UI 799 801 End Namespace 'Widnows 800 802 End Namespace 'ActiveBasic
Note:
See TracChangeset
for help on using the changeset viewer.