Changeset 17819

Timestamp:

08/18/08 08:30:56 (5 years ago)

Author:

syo68k

Message:

リストボックスでのダブルクリック時の処理が正しく動いていなかったので修正

Location:

lang/vb2005/Tween/Tween

Files:

• OpenURL.vb (modified) (1 diff)
• TabDialog.vb (modified) (1 diff)

lang/vb2005/Tween/Tween/OpenURL.vb

@@ -50 +50 @@
         End If
 
-        If UrlList.IndexFromPoint(UrlList.PointToClient(MousePosition)) = -1 Then
+        If UrlList.IndexFromPoint(UrlList.PointToClient(Control.MousePosition)) = ListBox.NoMatches Then
             Exit Sub
         End If
 
-        If UrlList.Items(UrlList.IndexFromPoint(UrlList.PointToClient(MousePosition))) = Nothing Then
+        If UrlList.Items(UrlList.IndexFromPoint(UrlList.PointToClient(Control.MousePosition))) = Nothing Then
             Exit Sub
         End If

lang/vb2005/Tween/Tween/TabDialog.vb

@@ -467 +467 @@
         End If
 
-        If ListFilters.IndexFromPoint(ListFilters.PointToClient(MousePosition)) = -1 Then
+        If ListFilters.IndexFromPoint(ListFilters.PointToClient(Control.MousePosition)) = -1 Then
             Exit Sub
         End If
 
-        If ListFilters.Items(ListFilters.IndexFromPoint(ListFilters.PointToClient(MousePosition))) = Nothing Then
+        If ListFilters.Items(ListFilters.IndexFromPoint(ListFilters.PointToClient(Control.MousePosition))) = Nothing Then
             Exit Sub
         End If