Changeset 611 for trunk/ab5.0/ablib/TestCase/UI_Sample/mouse_watcher_dlg.ab

Timestamp:

Aug 22, 2008, 11:41:40 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

ListBox.Itemsを実装。サンプルも修正。

File:

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

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

@@ -68 +68 @@
     Sub OnClearClick(sender As Object, e As Args)
         LockWindowUpdate(list)
-        While list.SendMessage(LB_DELETESTRING, 0, 0) > 0
-        Wend
+        list.Items.Clear()
         LockWindowUpdate(0)
     End Sub
@@ -116 +115 @@
 
     Sub OnMouseEvent(kind As String, e As MouseArgs)
+        Dim items = list.Items
         Dim s = kind + ": X = " + Str$(e.X) + " Y = " + Str$(e.Y)
-        Dim lr = list.SendMessage(LB_ADDSTRING, 0, ToTCStr(s) As LPARAM)
-        If lr <> LB_ERR And lr <> LB_ERRSPACE Then
-            list.SendMessage(LB_SETCURSEL, lr As WPARAM, 0)
-        End If
+        items.Add(s)
+        list.SetSelected(items.Count - 1, True)
     End Sub