• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

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

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

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


コミットメタ情報

リビジョン15 (tree)
日時2015-01-31 15:48:03
作者bellyoshi

ログメッセージ

エラーチェックの追加など

変更サマリ

差分

--- ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 14)
+++ ShogiWarsKifuDownloader/ShogiWarsKifuDownloader/frmCondtion.vb (revision 15)
@@ -75,25 +75,29 @@
7575 SettingLoad()
7676 End Sub
7777
78- Private Sub btn10minSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btn10minSelectDirectory.Click
78+ Private Sub btn10minSelectDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn10minSelectDirectory.Click
79+ FolderBrowserDialog1.SelectedPath = txt10minSaveDirectory.Text
7980 If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
8081 txt10minSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
8182 End If
8283 End Sub
8384
84- Private Sub btnAnimalSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btnAnimalSelectDirectory.Click
85+ Private Sub btnAnimalSelectDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnimalSelectDirectory.Click
86+ FolderBrowserDialog1.SelectedPath = txtAnimalSaveDirectory.Text
8587 If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
8688 txtAnimalSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
8789 End If
8890 End Sub
8991
90- Private Sub btn10secSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btn10secSelectDirectory.Click
92+ Private Sub btn10secSelectDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn10secSelectDirectory.Click
93+ FolderBrowserDialog1.SelectedPath = txt10secSaveDirectory.Text
9194 If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
9295 txt10secSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
9396 End If
9497 End Sub
9598
96- Private Sub btn3minSelectDirectory_Click(sender As System.Object, e As System.EventArgs) Handles btn3minSelectDirectory.Click
99+ Private Sub btn3minSelectDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3minSelectDirectory.Click
100+ FolderBrowserDialog1.SelectedPath = txt3minSaveDirectory.Text
97101 If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
98102 txt3minSaveDirectory.Text = FolderBrowserDialog1.SelectedPath
99103 End If