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
0 comentários:
Postar um comentário