OSDN Git Service

・コントロール名変更
authorsyo68k <syo68k@users.sourceforge.jp>
Sat, 22 Jan 2011 15:57:35 +0000 (15:57 +0000)
committerKimura Youichi <kim.upsilon@bucyou.net>
Sat, 18 Feb 2012 14:18:44 +0000 (23:18 +0900)
・TreeView_MouseDownコード見直し

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1398 e39ad16e-3079-482e-bb30-4b4d378143b6

Tween/AppendSettingDialog.Designer.vb
Tween/AppendSettingDialog.en.resx
Tween/AppendSettingDialog.resx
Tween/AppendSettingDialog.vb
Tween/Tween.vbproj

index 27fed34..09e871c 100644 (file)
@@ -24,7 +24,7 @@ Partial Class AppendSettingDialog
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AppendSettingDialog))
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.TreeView1 = New System.Windows.Forms.TreeView()
+        Me.TreeViewSetting = New System.Windows.Forms.TreeView()
         Me.ActionPanel = New System.Windows.Forms.Panel()
         Me.CheckOpenUserTimeline = New System.Windows.Forms.CheckBox()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
@@ -293,7 +293,7 @@ Partial Class AppendSettingDialog
         '
         'SplitContainer1.Panel1
         '
-        Me.SplitContainer1.Panel1.Controls.Add(Me.TreeView1)
+        Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewSetting)
         '
         'SplitContainer1.Panel2
         '
@@ -316,14 +316,14 @@ Partial Class AppendSettingDialog
         Me.SplitContainer1.Panel2.Controls.Add(Me.ActionPanel)
         Me.SplitContainer1.TabStop = False
         '
-        'TreeView1
+        'TreeViewSetting
         '
-        Me.TreeView1.Cursor = System.Windows.Forms.Cursors.Hand
-        resources.ApplyResources(Me.TreeView1, "TreeView1")
-        Me.TreeView1.HideSelection = False
-        Me.TreeView1.Name = "TreeView1"
-        Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {CType(resources.GetObject("TreeView1.Nodes"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeView1.Nodes1"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeView1.Nodes2"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeView1.Nodes3"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeView1.Nodes4"), System.Windows.Forms.TreeNode)})
-        Me.TreeView1.ShowLines = False
+        Me.TreeViewSetting.Cursor = System.Windows.Forms.Cursors.Hand
+        resources.ApplyResources(Me.TreeViewSetting, "TreeViewSetting")
+        Me.TreeViewSetting.HideSelection = False
+        Me.TreeViewSetting.Name = "TreeViewSetting"
+        Me.TreeViewSetting.Nodes.AddRange(New System.Windows.Forms.TreeNode() {CType(resources.GetObject("TreeViewSetting.Nodes"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeViewSetting.Nodes1"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeViewSetting.Nodes2"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeViewSetting.Nodes3"), System.Windows.Forms.TreeNode), CType(resources.GetObject("TreeViewSetting.Nodes4"), System.Windows.Forms.TreeNode)})
+        Me.TreeViewSetting.ShowLines = False
         '
         'ActionPanel
         '
@@ -1951,7 +1951,7 @@ Partial Class AppendSettingDialog
 
     End Sub
     Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
-    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
+    Friend WithEvents TreeViewSetting As System.Windows.Forms.TreeView
     Friend WithEvents BasedPanel As System.Windows.Forms.Panel
     Friend WithEvents AuthBasicRadio As System.Windows.Forms.RadioButton
     Friend WithEvents AuthOAuthRadio As System.Windows.Forms.RadioButton
index c2540a8..e690f4d 100644 (file)
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <data name="TreeView1.Nodes" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         ZWFtTm9kZQD/////CQUAAAD/////CQUAAAAAAAAACw==
 </value>
   </data>
-  <data name="TreeView1.Nodes1" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes1" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         AAD/////CQUAAAAAAAAACw==
 </value>
   </data>
-  <data name="TreeView1.Nodes2" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes2" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         /wkFAAAAAAAAAAs=
 </value>
   </data>
-  <data name="TreeView1.Nodes3" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes3" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         BQAAAAAAAAAL
 </value>
   </data>
-  <data name="TreeView1.Nodes4" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes4" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         TAYQAAAADFNob3J0VXJsTm9kZQD/////CQUAAAD/////CQUAAAAAAAAACw==
 </value>
   </data>
-  <data name="TreeView1.Nodes5" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes5" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
index e81296f..9cf192a 100644 (file)
   <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="TreeView1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
+  <data name="TreeViewSetting.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
   </data>
-  <data name="TreeView1.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="TreeViewSetting.Location" type="System.Drawing.Point, System.Drawing">
     <value>0, 0</value>
   </data>
-  <data name="TreeView1.Nodes" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         clN0cmVhbQYUAAAADlVzZXJTdHJlYW1Ob2RlAP////8JBQAAAP////8JBQAAAAAAAAAL
 </value>
   </data>
-  <data name="TreeView1.Nodes1" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes1" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         DFR3ZWV0QWN0Tm9kZQD/////CQUAAAD/////CQUAAAAAAAAACw==
 </value>
   </data>
-  <data name="TreeView1.Nodes2" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes2" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         /////wkFAAAA/////wkFAAAAAAAAAAs=
 </value>
   </data>
-  <data name="TreeView1.Nodes3" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes3" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         BQAAAP////8JBQAAAAAAAAAL
 </value>
   </data>
-  <data name="TreeView1.Nodes4" mimetype="application/x-microsoft.net.object.binary.base64">
+  <data name="TreeViewSetting.Nodes4" mimetype="application/x-microsoft.net.object.binary.base64">
     <value>
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
         TAYQAAAADFNob3J0VXJsTm9kZQD/////CQUAAAD/////CQUAAAAAAAAACw==
 </value>
   </data>
-  <data name="TreeView1.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="TreeViewSetting.Size" type="System.Drawing.Size, System.Drawing">
     <value>169, 368</value>
   </data>
-  <data name="TreeView1.TabIndex" type="System.Int32, mscorlib">
+  <data name="TreeViewSetting.TabIndex" type="System.Int32, mscorlib">
     <value>0</value>
   </data>
-  <data name="&gt;&gt;TreeView1.Name" xml:space="preserve">
-    <value>TreeView1</value>
+  <data name="&gt;&gt;TreeViewSetting.Name" xml:space="preserve">
+    <value>TreeViewSetting</value>
   </data>
-  <data name="&gt;&gt;TreeView1.Type" xml:space="preserve">
+  <data name="&gt;&gt;TreeViewSetting.Type" xml:space="preserve">
     <value>System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;TreeView1.Parent" xml:space="preserve">
+  <data name="&gt;&gt;TreeViewSetting.Parent" xml:space="preserve">
     <value>SplitContainer1.Panel1</value>
   </data>
-  <data name="&gt;&gt;TreeView1.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;TreeViewSetting.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
   <data name="&gt;&gt;SplitContainer1.Panel1.Name" xml:space="preserve">
index 0e4da4b..85c6ec2 100644 (file)
@@ -130,7 +130,6 @@ Public Class AppendSettingDialog
     Private _MyOpenUserTimeline As Boolean
 
     Private _ValidationError As Boolean = False
-    Private FirstExpandNode As Boolean = True
     Private _curPanel As Panel = Nothing
     Private _MyEventNotifyEnabled As Boolean
     Private _MyEventNotifyFlag As EVENTTYPE
@@ -140,9 +139,8 @@ Public Class AppendSettingDialog
     Private _soundfileListup As Boolean = False
     Private _MyEventSoundFile As String
 
-
-    Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown
-        Dim Node As TreeNode = TreeView1.GetNodeAt(e.X, e.Y)
+    Private Sub TreeViewSetting_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeViewSetting.MouseDown
+        Dim Node As TreeNode = TreeViewSetting.GetNodeAt(e.X, e.Y)
         If Node Is Nothing Then Exit Sub
         Dim pnl = DirectCast(Node.Tag, Panel)
         If pnl Is Nothing Then Exit Sub
@@ -150,7 +148,10 @@ Public Class AppendSettingDialog
             If pnl.Name <> _curPanel.Name Then
                 _curPanel.Enabled = False
                 _curPanel.Visible = False
-                _curPanel = Nothing
+
+                _curPanel = pnl
+                pnl.Enabled = True
+                pnl.Visible = True
             End If
         End If
 
@@ -159,72 +160,8 @@ Public Class AppendSettingDialog
         Else
             Node.Expand()
         End If
-        If _curPanel Is Nothing Then
-            _curPanel = pnl
-            pnl.Enabled = True
-            pnl.Visible = True
-        End If
     End Sub
 
-    'Private Sub TreeView1_BeforeSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeSelect
-    '    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 e.Action = TreeViewAction.ByMouse Then
-    '        If e.Node.IsExpanded Then
-    '            e.Node.Collapse()
-    '        Else
-    '            e.Node.Expand()
-    '        End If
-    '        TreeView1.SelectedNode = Nothing
-    '    End If
-    '    _curPanel = pnl
-    '    pnl.Enabled = True
-    '    pnl.Visible = True
-    'End Sub
-
-    'Private Sub TreeView1_BeforeSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeSelect
-    '    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
-    '    pnl.Enabled = False
-    '    pnl.Visible = False
-    'End Sub
-
-    '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
-    '    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 OrElse e.KeyCode = Keys.Left OrElse e.KeyCode = Keys.Right Then
-    '        FirstExpandNode = True
-    '    End If
-    'End Sub
-
     Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
         If TweenMain.IsNetworkAvailable() AndAlso _
             (ComboBoxAutoShortUrlFirst.SelectedIndex = UrlConverter.Bitly OrElse ComboBoxAutoShortUrlFirst.SelectedIndex = UrlConverter.Jmp) AndAlso _
@@ -232,7 +169,7 @@ Public Class AppendSettingDialog
             If Not BitlyValidation(TextBitlyId.Text, TextBitlyPw.Text) Then
                 MessageBox.Show(My.Resources.SettingSave_ClickText1)
                 _ValidationError = True
-                TreeView1.SelectedNode.Name = "TweetActNode" ' 動作タブを選択
+                TreeViewSetting.SelectedNode.Name = "TweetActNode" ' 動作タブを選択
                 TextBitlyId.Focus()
                 Exit Sub
             Else
@@ -446,7 +383,7 @@ Public Class AppendSettingDialog
     End Sub
 
     Private Sub Setting_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
-        If TreeView1.SelectedNode IsNot Nothing Then _curPanel = CType(TreeView1.SelectedNode.Tag, Panel)
+        If TreeViewSetting.SelectedNode IsNot Nothing Then _curPanel = CType(TreeViewSetting.SelectedNode.Tag, Panel)
         If tw IsNot Nothing AndAlso tw.Username = "" AndAlso e.CloseReason = CloseReason.None Then
             If MessageBox.Show(My.Resources.Setting_FormClosing1, "Confirm", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
                 e.Cancel = True
@@ -718,7 +655,7 @@ Public Class AppendSettingDialog
         ListTextCountApi.Enabled = UseChangeGetCount.Checked
         CheckOpenUserTimeline.Checked = _MyOpenUserTimeline
 
-        With Me.TreeView1
+        With Me.TreeViewSetting
             .Nodes("BasedNode").Tag = BasedPanel
             .Nodes("BasedNode").Nodes("PeriodNode").Tag = GetPeriodPanel
             .Nodes("BasedNode").Nodes("StartUpNode").Tag = StartupPanel
@@ -745,7 +682,7 @@ Public Class AppendSettingDialog
         _curPanel = BasedPanel
         _curPanel.Enabled = True
         _curPanel.Visible = True
-        TreeView1.SelectedNode = Nothing
+        TreeViewSetting.SelectedNode = Nothing
         ActiveControl = Username
     End Sub
 
index db1a599..1c5df4d 100644 (file)
   <ItemGroup>
     <EmbeddedResource Include="AppendSettingDialog.en.resx">
       <DependentUpon>AppendSettingDialog.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="AppendSettingDialog.resx">
       <DependentUpon>AppendSettingDialog.vb</DependentUpon>