svnno****@sourc*****
svnno****@sourc*****
2011年 1月 21日 (金) 19:11:52 JST
Revision: 1395
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1395
Author: f_swallow
Date: 2011-01-21 19:11:52 +0900 (Fri, 21 Jan 2011)
Log Message:
-----------
ダブルクリックでノードを閉じた後クリックでノードが展開できなくなっていたのを展開できるように
Modified Paths:
--------------
trunk/Tween/AppendSettingDialog.vb
-------------- next part --------------
Modified: trunk/Tween/AppendSettingDialog.vb
===================================================================
--- trunk/Tween/AppendSettingDialog.vb 2011-01-21 05:22:21 UTC (rev 1394)
+++ trunk/Tween/AppendSettingDialog.vb 2011-01-21 10:11:52 UTC (rev 1395)
@@ -141,11 +141,7 @@
Private _MyEventSoundFile As String
Private Sub TreeView1_BeforeSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeSelect
- If _curPanel IsNot Nothing Then
- _curPanel.Enabled = False
- _curPanel.Visible = False
- _curPanel = Nothing
- End If
+ If _curPanel IsNot Nothing Then Exit Sub
If Me.TreeView1.SelectedNode Is Nothing Then Exit Sub
Dim pnl = DirectCast(Me.TreeView1.SelectedNode.Tag, Panel)
If pnl Is Nothing Then Exit Sub
@@ -155,19 +151,27 @@
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
If e.Node Is Nothing Then Exit Sub
+ Dim pnl = DirectCast(e.Node.Tag, Panel)
+ If pnl Is Nothing Then Exit Sub
+ If _curPanel IsNot Nothing Then
+ If pnl.Name = _curPanel.Name Then Exit Sub
+ _curPanel.Enabled = False
+ _curPanel.Visible = False
+ _curPanel = Nothing
+ End If
If FirstExpandNode Then
FirstExpandNode = False
Else
e.Node.Expand()
+ _curPanel = pnl
+ TreeView1.SelectedNode = Nothing
End If
- Dim pnl = DirectCast(e.Node.Tag, Panel)
- If pnl Is Nothing Then Exit Sub
pnl.Enabled = True
pnl.Visible = True
End Sub
Private Sub TreeView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TreeView1.KeyDown
- If e.KeyCode = Keys.Down OrElse e.KeyCode = Keys.Up Then
+ If e.KeyCode = Keys.Down OrElse e.KeyCode = Keys.Up OrElse e.KeyCode = Keys.Left OrElse e.KeyCode = Keys.Right Then
FirstExpandNode = True
End If
End Sub