• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javaandroidc++linuxc#objective-ccocoa誰得qtrubybathyscaphegamephpguicwindows翻訳pythonomegattwitterframeworkbtronarduinovb.net計画中(planning stage)directxpreviewertestゲームエンジンdom

将棋ウォーズ棋譜を検索条件を指定して一括でダウンロードする。


コミットメタ情報

リビジョン12 (tree)
日時2015-01-31 14:33:48
作者bellyoshi

ログメッセージ

条件設定を保存

変更サマリ

差分

--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.Designer.vb (revision 11)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.Designer.vb (revision 12)
@@ -46,48 +46,53 @@
4646 'Label1
4747 '
4848 Me.Label1.AutoSize = True
49- Me.Label1.Location = New System.Drawing.Point(147, 33)
49+ Me.Label1.Location = New System.Drawing.Point(196, 41)
50+ Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
5051 Me.Label1.Name = "Label1"
51- Me.Label1.Size = New System.Drawing.Size(17, 12)
52+ Me.Label1.Size = New System.Drawing.Size(21, 15)
5253 Me.Label1.TabIndex = 2
5354 Me.Label1.Text = "vs"
5455 '
5556 'txtName1
5657 '
57- Me.txtName1.Location = New System.Drawing.Point(12, 26)
58+ Me.txtName1.Location = New System.Drawing.Point(16, 32)
59+ Me.txtName1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
5860 Me.txtName1.Name = "txtName1"
59- Me.txtName1.Size = New System.Drawing.Size(129, 19)
61+ Me.txtName1.Size = New System.Drawing.Size(171, 22)
6062 Me.txtName1.TabIndex = 3
61- Me.txtName1.Text = "yoshi55_wata"
6263 '
6364 'txtName2
6465 '
65- Me.txtName2.Location = New System.Drawing.Point(170, 26)
66+ Me.txtName2.Location = New System.Drawing.Point(227, 32)
67+ Me.txtName2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
6668 Me.txtName2.Name = "txtName2"
67- Me.txtName2.Size = New System.Drawing.Size(129, 19)
69+ Me.txtName2.Size = New System.Drawing.Size(171, 22)
6870 Me.txtName2.TabIndex = 3
6971 '
7072 'Label2
7173 '
7274 Me.Label2.AutoSize = True
73- Me.Label2.Location = New System.Drawing.Point(118, 60)
75+ Me.Label2.Location = New System.Drawing.Point(157, 75)
76+ Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
7477 Me.Label2.Name = "Label2"
75- Me.Label2.Size = New System.Drawing.Size(64, 12)
78+ Me.Label2.Size = New System.Drawing.Size(80, 15)
7679 Me.Label2.TabIndex = 2
7780 Me.Label2.Text = "保存フォルダ"
7881 '
7982 'txt10minSaveDirectory
8083 '
81- Me.txt10minSaveDirectory.Location = New System.Drawing.Point(120, 86)
84+ Me.txt10minSaveDirectory.Location = New System.Drawing.Point(160, 108)
85+ Me.txt10minSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
8286 Me.txt10minSaveDirectory.Name = "txt10minSaveDirectory"
83- Me.txt10minSaveDirectory.Size = New System.Drawing.Size(291, 19)
87+ Me.txt10minSaveDirectory.Size = New System.Drawing.Size(387, 22)
8488 Me.txt10minSaveDirectory.TabIndex = 4
8589 '
8690 'btn10minSelectDirectory
8791 '
88- Me.btn10minSelectDirectory.Location = New System.Drawing.Point(417, 84)
92+ Me.btn10minSelectDirectory.Location = New System.Drawing.Point(556, 105)
93+ Me.btn10minSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
8994 Me.btn10minSelectDirectory.Name = "btn10minSelectDirectory"
90- Me.btn10minSelectDirectory.Size = New System.Drawing.Size(53, 23)
95+ Me.btn10minSelectDirectory.Size = New System.Drawing.Size(71, 29)
9196 Me.btn10minSelectDirectory.TabIndex = 5
9297 Me.btn10minSelectDirectory.Text = "参照"
9398 Me.btn10minSelectDirectory.UseVisualStyleBackColor = True
@@ -94,9 +99,10 @@
9499 '
95100 'btnDownload
96101 '
97- Me.btnDownload.Location = New System.Drawing.Point(358, 217)
102+ Me.btnDownload.Location = New System.Drawing.Point(477, 271)
103+ Me.btnDownload.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
98104 Me.btnDownload.Name = "btnDownload"
99- Me.btnDownload.Size = New System.Drawing.Size(112, 23)
105+ Me.btnDownload.Size = New System.Drawing.Size(149, 29)
100106 Me.btnDownload.TabIndex = 5
101107 Me.btnDownload.Text = "ダウンロード"
102108 Me.btnDownload.UseVisualStyleBackColor = True
@@ -103,16 +109,18 @@
103109 '
104110 'txt3minSaveDirectory
105111 '
106- Me.txt3minSaveDirectory.Location = New System.Drawing.Point(120, 118)
112+ Me.txt3minSaveDirectory.Location = New System.Drawing.Point(160, 148)
113+ Me.txt3minSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
107114 Me.txt3minSaveDirectory.Name = "txt3minSaveDirectory"
108- Me.txt3minSaveDirectory.Size = New System.Drawing.Size(291, 19)
115+ Me.txt3minSaveDirectory.Size = New System.Drawing.Size(387, 22)
109116 Me.txt3minSaveDirectory.TabIndex = 4
110117 '
111118 'btn3minSelectDirectory
112119 '
113- Me.btn3minSelectDirectory.Location = New System.Drawing.Point(417, 116)
120+ Me.btn3minSelectDirectory.Location = New System.Drawing.Point(556, 145)
121+ Me.btn3minSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
114122 Me.btn3minSelectDirectory.Name = "btn3minSelectDirectory"
115- Me.btn3minSelectDirectory.Size = New System.Drawing.Size(53, 23)
123+ Me.btn3minSelectDirectory.Size = New System.Drawing.Size(71, 29)
116124 Me.btn3minSelectDirectory.TabIndex = 5
117125 Me.btn3minSelectDirectory.Text = "参照"
118126 Me.btn3minSelectDirectory.UseVisualStyleBackColor = True
@@ -119,16 +127,18 @@
119127 '
120128 'txt10secSaveDirectory
121129 '
122- Me.txt10secSaveDirectory.Location = New System.Drawing.Point(120, 147)
130+ Me.txt10secSaveDirectory.Location = New System.Drawing.Point(160, 184)
131+ Me.txt10secSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
123132 Me.txt10secSaveDirectory.Name = "txt10secSaveDirectory"
124- Me.txt10secSaveDirectory.Size = New System.Drawing.Size(291, 19)
133+ Me.txt10secSaveDirectory.Size = New System.Drawing.Size(387, 22)
125134 Me.txt10secSaveDirectory.TabIndex = 4
126135 '
127136 'btn10secSelectDirectory
128137 '
129- Me.btn10secSelectDirectory.Location = New System.Drawing.Point(417, 145)
138+ Me.btn10secSelectDirectory.Location = New System.Drawing.Point(556, 181)
139+ Me.btn10secSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
130140 Me.btn10secSelectDirectory.Name = "btn10secSelectDirectory"
131- Me.btn10secSelectDirectory.Size = New System.Drawing.Size(53, 23)
141+ Me.btn10secSelectDirectory.Size = New System.Drawing.Size(71, 29)
132142 Me.btn10secSelectDirectory.TabIndex = 5
133143 Me.btn10secSelectDirectory.Text = "参照"
134144 Me.btn10secSelectDirectory.UseVisualStyleBackColor = True
@@ -135,16 +145,18 @@
135145 '
136146 'txtAnimalSaveDirectory
137147 '
138- Me.txtAnimalSaveDirectory.Location = New System.Drawing.Point(120, 172)
148+ Me.txtAnimalSaveDirectory.Location = New System.Drawing.Point(160, 215)
149+ Me.txtAnimalSaveDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
139150 Me.txtAnimalSaveDirectory.Name = "txtAnimalSaveDirectory"
140- Me.txtAnimalSaveDirectory.Size = New System.Drawing.Size(291, 19)
151+ Me.txtAnimalSaveDirectory.Size = New System.Drawing.Size(387, 22)
141152 Me.txtAnimalSaveDirectory.TabIndex = 4
142153 '
143154 'btnAnimalSelectDirectory
144155 '
145- Me.btnAnimalSelectDirectory.Location = New System.Drawing.Point(417, 170)
156+ Me.btnAnimalSelectDirectory.Location = New System.Drawing.Point(556, 212)
157+ Me.btnAnimalSelectDirectory.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
146158 Me.btnAnimalSelectDirectory.Name = "btnAnimalSelectDirectory"
147- Me.btnAnimalSelectDirectory.Size = New System.Drawing.Size(53, 23)
159+ Me.btnAnimalSelectDirectory.Size = New System.Drawing.Size(71, 29)
148160 Me.btnAnimalSelectDirectory.TabIndex = 5
149161 Me.btnAnimalSelectDirectory.Text = "参照"
150162 Me.btnAnimalSelectDirectory.UseVisualStyleBackColor = True
@@ -152,9 +164,10 @@
152164 'chk10min
153165 '
154166 Me.chk10min.AutoSize = True
155- Me.chk10min.Location = New System.Drawing.Point(21, 88)
167+ Me.chk10min.Location = New System.Drawing.Point(28, 110)
168+ Me.chk10min.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
156169 Me.chk10min.Name = "chk10min"
157- Me.chk10min.Size = New System.Drawing.Size(93, 16)
170+ Me.chk10min.Size = New System.Drawing.Size(115, 19)
158171 Me.chk10min.TabIndex = 6
159172 Me.chk10min.Text = "10分切れ負け"
160173 Me.chk10min.UseVisualStyleBackColor = True
@@ -162,9 +175,10 @@
162175 'chk3min
163176 '
164177 Me.chk3min.AutoSize = True
165- Me.chk3min.Location = New System.Drawing.Point(21, 121)
178+ Me.chk3min.Location = New System.Drawing.Point(28, 151)
179+ Me.chk3min.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
166180 Me.chk3min.Name = "chk3min"
167- Me.chk3min.Size = New System.Drawing.Size(87, 16)
181+ Me.chk3min.Size = New System.Drawing.Size(107, 19)
168182 Me.chk3min.TabIndex = 6
169183 Me.chk3min.Text = "3分切れ負け"
170184 Me.chk3min.UseVisualStyleBackColor = True
@@ -172,9 +186,10 @@
172186 'chk10sec
173187 '
174188 Me.chk10sec.AutoSize = True
175- Me.chk10sec.Location = New System.Drawing.Point(21, 149)
189+ Me.chk10sec.Location = New System.Drawing.Point(28, 186)
190+ Me.chk10sec.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
176191 Me.chk10sec.Name = "chk10sec"
177- Me.chk10sec.Size = New System.Drawing.Size(72, 16)
192+ Me.chk10sec.Size = New System.Drawing.Size(90, 19)
178193 Me.chk10sec.TabIndex = 6
179194 Me.chk10sec.Text = "10秒将棋"
180195 Me.chk10sec.UseVisualStyleBackColor = True
@@ -182,9 +197,10 @@
182197 'chkAnimal
183198 '
184199 Me.chkAnimal.AutoSize = True
185- Me.chkAnimal.Location = New System.Drawing.Point(21, 177)
200+ Me.chkAnimal.Location = New System.Drawing.Point(28, 221)
201+ Me.chkAnimal.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
186202 Me.chkAnimal.Name = "chkAnimal"
187- Me.chkAnimal.Size = New System.Drawing.Size(83, 16)
203+ Me.chkAnimal.Size = New System.Drawing.Size(103, 19)
188204 Me.chkAnimal.TabIndex = 6
189205 Me.chkAnimal.Text = "どうぶつ将棋"
190206 Me.chkAnimal.UseVisualStyleBackColor = True
@@ -192,9 +208,10 @@
192208 'chkAll
193209 '
194210 Me.chkAll.AutoSize = True
195- Me.chkAll.Location = New System.Drawing.Point(21, 60)
211+ Me.chkAll.Location = New System.Drawing.Point(28, 75)
212+ Me.chkAll.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
196213 Me.chkAll.Name = "chkAll"
197- Me.chkAll.Size = New System.Drawing.Size(53, 16)
214+ Me.chkAll.Size = New System.Drawing.Size(66, 19)
198215 Me.chkAll.TabIndex = 7
199216 Me.chkAll.Text = "すべて"
200217 Me.chkAll.UseVisualStyleBackColor = True
@@ -201,9 +218,9 @@
201218 '
202219 'frmCondtion
203220 '
204- Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
221+ Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
205222 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
206- Me.ClientSize = New System.Drawing.Size(490, 277)
223+ Me.ClientSize = New System.Drawing.Size(653, 346)
207224 Me.Controls.Add(Me.chkAll)
208225 Me.Controls.Add(Me.chkAnimal)
209226 Me.Controls.Add(Me.chk10sec)
@@ -222,6 +239,7 @@
222239 Me.Controls.Add(Me.txtName1)
223240 Me.Controls.Add(Me.Label2)
224241 Me.Controls.Add(Me.Label1)
242+ Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
225243 Me.Name = "frmCondtion"
226244 Me.Text = "将棋ウォーズ棋譜ダウンローダー"
227245 Me.ResumeLayout(False)
--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 11)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 12)
@@ -50,7 +50,7 @@
5050 End Sub
5151
5252 Private Sub frmCondtion_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
53- chkAll.Checked = True
53+ SettingLoad()
5454 End Sub
5555
5656 Private Sub btn10minSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btn10minSelectDirectory.Click
@@ -85,4 +85,41 @@
8585 chkAnimal.Checked = chkAll.Checked
8686 End Sub
8787
88+ Private Sub frmCondtion_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
89+ SettingSave()
90+ End Sub
91+
92+ Private Sub SettingLoad()
93+ With My.Settings
94+ .Reload()
95+ txtName1.Text = .Name1
96+ txtName2.Text = .Name2
97+ txt10minSaveDirectory.Text = .pathOf10min
98+ txt10secSaveDirectory.Text = .pathOf10sec
99+ txt3minSaveDirectory.Text = .pathOf3min
100+ txtAnimalSaveDirectory.Text = .pathOfAnimal
101+ chkAll.Checked = .chkAll
102+ chk10min.Checked = .chk10min
103+ chk3min.Checked = .chk3min
104+ chk10min.Checked = .chk10min
105+ chkAnimal.Checked = .chkAnimal
106+ End With
107+ End Sub
108+
109+ Private Sub SettingSave()
110+ With My.Settings
111+ .Name1 = txtName1.Text
112+ .Name2 = txtName2.Text
113+ .pathOf10min = txt10minSaveDirectory.Text
114+ .pathOf10sec = txt10secSaveDirectory.Text
115+ .pathOf3min = txt3minSaveDirectory.Text
116+ .pathOfAnimal = txtAnimalSaveDirectory.Text
117+ .chkAll = chkAll.Checked
118+ .chk10min = chk10min.Checked
119+ .chk3min = chk3min.Checked
120+ .chk10min = chk10min.Checked
121+ .chkAnimal = chkAnimal.Checked
122+ .Save()
123+ End With
124+ End Sub
88125 End Class
--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/My Project/Settings.Designer.vb (revision 11)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/My Project/Settings.Designer.vb (revision 12)
@@ -1,7 +1,7 @@
11 '------------------------------------------------------------------------------
22 ' <auto-generated>
33 ' このコードはツールによって生成されました。
4-' ランタイム バージョン:4.0.30319.18444
4+' ランタイム バージョン:4.0.30319.34014
55 '
66 ' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
77 ' コードが再生成されるときに損失したりします。
@@ -53,6 +53,138 @@
5353 Return defaultInstance
5454 End Get
5555 End Property
56+
57+ <Global.System.Configuration.UserScopedSettingAttribute(), _
58+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
59+ Global.System.Configuration.DefaultSettingValueAttribute("")> _
60+ Public Property Name1() As String
61+ Get
62+ Return CType(Me("Name1"),String)
63+ End Get
64+ Set
65+ Me("Name1") = value
66+ End Set
67+ End Property
68+
69+ <Global.System.Configuration.UserScopedSettingAttribute(), _
70+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
71+ Global.System.Configuration.DefaultSettingValueAttribute("")> _
72+ Public Property Name2() As String
73+ Get
74+ Return CType(Me("Name2"),String)
75+ End Get
76+ Set
77+ Me("Name2") = value
78+ End Set
79+ End Property
80+
81+ <Global.System.Configuration.UserScopedSettingAttribute(), _
82+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
83+ Global.System.Configuration.DefaultSettingValueAttribute("False")> _
84+ Public Property chk10min() As Boolean
85+ Get
86+ Return CType(Me("chk10min"),Boolean)
87+ End Get
88+ Set
89+ Me("chk10min") = value
90+ End Set
91+ End Property
92+
93+ <Global.System.Configuration.UserScopedSettingAttribute(), _
94+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
95+ Global.System.Configuration.DefaultSettingValueAttribute("False")> _
96+ Public Property chkAll() As Boolean
97+ Get
98+ Return CType(Me("chkAll"),Boolean)
99+ End Get
100+ Set
101+ Me("chkAll") = value
102+ End Set
103+ End Property
104+
105+ <Global.System.Configuration.UserScopedSettingAttribute(), _
106+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
107+ Global.System.Configuration.DefaultSettingValueAttribute("False")> _
108+ Public Property chk3min() As Boolean
109+ Get
110+ Return CType(Me("chk3min"),Boolean)
111+ End Get
112+ Set
113+ Me("chk3min") = value
114+ End Set
115+ End Property
116+
117+ <Global.System.Configuration.UserScopedSettingAttribute(), _
118+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
119+ Global.System.Configuration.DefaultSettingValueAttribute("False")> _
120+ Public Property chk10sec() As Boolean
121+ Get
122+ Return CType(Me("chk10sec"),Boolean)
123+ End Get
124+ Set
125+ Me("chk10sec") = value
126+ End Set
127+ End Property
128+
129+ <Global.System.Configuration.UserScopedSettingAttribute(), _
130+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
131+ Global.System.Configuration.DefaultSettingValueAttribute("False")> _
132+ Public Property chkAnimal() As Boolean
133+ Get
134+ Return CType(Me("chkAnimal"),Boolean)
135+ End Get
136+ Set
137+ Me("chkAnimal") = value
138+ End Set
139+ End Property
140+
141+ <Global.System.Configuration.UserScopedSettingAttribute(), _
142+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
143+ Global.System.Configuration.DefaultSettingValueAttribute("")> _
144+ Public Property pathOf10min() As String
145+ Get
146+ Return CType(Me("pathOf10min"),String)
147+ End Get
148+ Set
149+ Me("pathOf10min") = value
150+ End Set
151+ End Property
152+
153+ <Global.System.Configuration.UserScopedSettingAttribute(), _
154+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
155+ Global.System.Configuration.DefaultSettingValueAttribute("")> _
156+ Public Property pathOf3min() As String
157+ Get
158+ Return CType(Me("pathOf3min"),String)
159+ End Get
160+ Set
161+ Me("pathOf3min") = value
162+ End Set
163+ End Property
164+
165+ <Global.System.Configuration.UserScopedSettingAttribute(), _
166+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
167+ Global.System.Configuration.DefaultSettingValueAttribute("")> _
168+ Public Property pathOf10sec() As String
169+ Get
170+ Return CType(Me("pathOf10sec"),String)
171+ End Get
172+ Set
173+ Me("pathOf10sec") = value
174+ End Set
175+ End Property
176+
177+ <Global.System.Configuration.UserScopedSettingAttribute(), _
178+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
179+ Global.System.Configuration.DefaultSettingValueAttribute("")> _
180+ Public Property pathOfAnimal() As String
181+ Get
182+ Return CType(Me("pathOfAnimal"),String)
183+ End Get
184+ Set
185+ Me("pathOfAnimal") = value
186+ End Set
187+ End Property
56188 End Class
57189 End Namespace
58190