Changeset 18441 for lang

Show
Ignore:
Timestamp:
08/30/08 00:40:52 (3 months ago)
Author:
syo68k
Message:

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

Location:
lang/vb2005/Tween/Tween
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • lang/vb2005/Tween/Tween/Setting.Designer.vb

    r18440 r18441  
    12911291        'Button3 
    12921292        ' 
    1293         Me.Button3.Enabled = False 
    12941293        Me.Button3.Location = New System.Drawing.Point(301, 239) 
    12951294        Me.Button3.Name = "Button3" 

  • lang/vb2005/Tween/Tween/Setting.vb

    r18356 r18441  
     1 
    12Public Class Setting 
    23    Private _MyuserID As String 
    … …  
    897898    End Property 
    898899 
     900    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
     901        Dim filedlg As New OpenFileDialog() 
     902 
     903        filedlg.Filter = "��s�`���t�@�C��(*.exe)|*.exe|���ׂẴt�@�C��(*.*)|*.*" 
     904        filedlg.FilterIndex = 1 
     905        filedlg.Title = "�u���E�U��肵�Ă�������" 
     906        filedlg.RestoreDirectory = True 
     907 
     908        If filedlg.ShowDialog() = Windows.Forms.DialogResult.OK Then 
     909            BrowserPathText.Text = filedlg.FileName 
     910 
     911        End If 
     912    End Sub 
    899913End Class