Changeset 545 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab

Timestamp:

Jul 13, 2008, 2:09:01 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

ActiveBasic.Windows.UI.FormsをUIへ移動。UI以下にForms以外置くものが思い浮かばないので。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab (moved) (moved from trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Forms/Control.ab ) (5 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab

@@ -1 +1 @@
 'Classes/ActiveBasic/Windows/UI/Control.ab
 
-#require <Classes/ActiveBasic/Windows/UI/Forms/EventArgs.ab>
+#require <Classes/ActiveBasic/Windows/UI/EventArgs.ab>
 
 Namespace ActiveBasic
 Namespace Windows
 Namespace UI
-Namespace Forms
 
 'Namespace Detail
@@ -252 +251 @@
         If Not IsNothing(a) Then
             If Not IsNothing(messageMap) Then
-                Dim msg = Nothing As Object : msg = New System.UInt32(message)
+                Dim msg = Hex$(message)
                 Dim m = messageMap.Item[msg]
                 If Not IsNothing(m) Then
@@ -439 +438 @@
 End Class
 
-End Namespace 'Forms
 End Namespace 'UI
 End Namespace 'Widnows
 End Namespace 'ActiveBasic
 
-
 '----------
 'テスト実行用
 
-Imports ActiveBasic.Windows.UI.Forms
+Imports ActiveBasic.Windows.UI
 
 'OleInitialize()
@@ -456 +453 @@
     Inherits Form
 Public
-    Sub t()
+    Sub MyForm()
         Dim f = This
         f.AddMessageEvent(WM_DESTROY, AddressOf (f.Destory))
@@ -473 +470 @@
 
 Dim f = New MyForm
-f.t()
 f.Create()
 ShowWindow(f.Handle, SW_SHOW)