quarta-feira, 28 de dezembro de 2011

on


Public Class Form1

    Private Sub rdbEscolhe_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdbEscolhe.CheckedChanged
        If Me.rdbEscolhe.Checked Then
            txtCaminho.Enabled = True
            cmdCaminho.Enabled = True
        Else
            txtCaminho.Enabled = False
            cmdCaminho.Enabled = False
        End If
    End Sub

    Private Sub cmdCaminho_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCaminho.Click
        OpenFileDialog1.ShowDialog()
        txtCaminho.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub cmdOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOk.Click
        If rdbBlocoNotas.Checked = True Then
            Process.Start("notepad.exe")
        Else
            If rdbCalculadora.Checked = True Then
                Process.Start("calc.exe")
            Else
                Process.Start(txtCaminho.Text)
            End If
        End If
    End Sub
End Class


Espero ter ajudado e até mais...

0 comentários:

Postar um comentário