Changeset 18441 for lang/vb2005/Tween/Tween/Setting.vb

Timestamp:

08/30/08 00:40:52 (4 months ago)

Author:

syo68k

Message:

Webブラウザの指定を「参照」ボタンでできるようにした。

Files:

• lang/vb2005/Tween/Tween/Setting.vb (modified) (2 diffs)

lang/vb2005/Tween/Tween/Setting.vb

@@ +1 @@
+
 Public Class Setting
     Private _MyuserID As String
@@ -897 +898 @@
     End Property
 
+    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
+        Dim filedlg As New OpenFileDialog()
+
+        filedlg.Filter = "��s�`���t�@�C��(*.exe)|*.exe|���ׂẴt�@�C��(*.*)|*.*"
+        filedlg.FilterIndex = 1
+        filedlg.Title = "�u���E�U��肵�Ă�������"
+        filedlg.RestoreDirectory = True
+
+        If filedlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
+            BrowserPathText.Text = filedlg.FileName
+
+        End If
+    End Sub
 End Class