Changeset 388 for trunk/Include/Classes/System/Windows/Forms/misc.ab

Timestamp:

Nov 25, 2007, 4:31:35 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Stringなどで例外を投げるようにした。
#147の解決。
CType ASCII文字判定関数群の追加。

File:

• trunk/Include/Classes/System/Windows/Forms/misc.ab (modified) (3 diffs)

trunk/Include/Classes/System/Windows/Forms/misc.ab

@@ -9 +9 @@
 
 Interface IWin32Window
-    /*Const*/ Function Handle() As HWND
+    Function Handle() As HWND
 End Interface
 
+TypeDef BoundsSpecified = Long
+/*
 Enum BoundsSpecified
     None = &h0
@@ -22 +24 @@
     All = BoundsSpecified.Location Or BoundsSpecified.Size
 End Enum
-
+*/
+
+/*
 Enum Keys
     LButton = VK_LBUTTON
@@ -208 +212 @@
 End Enum
 
+Enum MouseButtons
+    None = 0
+    Left = &h00100000
+    Right = &h00200000
+    Middle = &h00400000
+    XButton1 = &h00800000
+    XButton2 = &h01000000
+End Enum
+*/
+
+TypeDef DialogResult = DWord
+TypeDef MouseButtons = DWord
+
+Class MouseEventArgs
+    Inherits System.EventArgs
+Public
+
+    Sub MouseEventArgs(button As MouseButtons, clicks As Long, x As Long, y As Long, delta As Long)
+        MouseButton = button
+        Clicks = clicks
+        X = x
+        Y = y
+        Delta = delta
+    End Sub
+
+    Const MouseButton As MouseButtons
+    Const Clicks As Long
+    Const X As Long
+    Const Y As Long
+    Const Delta As Long
+End Class
+
 End Namespace 'Forms
 End Namespace 'Widnows