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()
'
'SplitContainer1.Panel1
'
- Me.SplitContainer1.Panel1.Controls.Add(Me.TreeView1)
+ Me.SplitContainer1.Panel1.Controls.Add(Me.TreeViewSetting)
'
'SplitContainer1.Panel2
'
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
'
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
<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
<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=">>TreeView1.Name" xml:space="preserve">
- <value>TreeView1</value>
+ <data name=">>TreeViewSetting.Name" xml:space="preserve">
+ <value>TreeViewSetting</value>
</data>
- <data name=">>TreeView1.Type" xml:space="preserve">
+ <data name=">>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=">>TreeView1.Parent" xml:space="preserve">
+ <data name=">>TreeViewSetting.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
- <data name=">>TreeView1.ZOrder" xml:space="preserve">
+ <data name=">>TreeViewSetting.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name=">>SplitContainer1.Panel1.Name" xml:space="preserve">
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
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
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
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 _
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
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
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
_curPanel = BasedPanel
_curPanel.Enabled = True
_curPanel.Visible = True
- TreeView1.SelectedNode = Nothing
+ TreeViewSetting.SelectedNode = Nothing
ActiveControl = Username
End Sub
<ItemGroup>
<EmbeddedResource Include="AppendSettingDialog.en.resx">
<DependentUpon>AppendSettingDialog.vb</DependentUpon>
+ <SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="AppendSettingDialog.resx">
<DependentUpon>AppendSettingDialog.vb</DependentUpon>