ventArgs) Handles Button3.Click
If TextBox2.Text <> "" Then
If Me.TextBox2.Text.Trim Like "*.*" Then
Me.ComboBox1.Items.Add(TextBox2.Text.Trim)
Me.ComboBox1.SelectedIndex = Me.ComboBox1.Items.Count - 1
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ofd As New FolderBrowserDialog
If ofd.ShowDialog = DialogResult.OK Then
Me.TextBox1.Text = ofd.SelectedPath
End If
End Sub
Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Dim p As New Process
p.Start(Me.LinkLabel1.Text) End Sub
End Class
上一页 [1] [2] [3] |
