Friday, April 20, 2012

Memanggil ".exe" dengan Visual Basic .Net


Pada kali ini saya akan mencoba untuk membuat bagaimana memamnggil .exe dengan VB.NET, sedikit susah juga dan menguras konsentrasi yang saya baca dari buku-buku tentang VB .NET dan kemudian mencoba mempraktekannya. awaaaasss, jangan salahkan saya kalau saja tiba-tiba marah :). Silahkan di paste, formnya kemudian anda buat sendiri sesuai dengan tampilan yang ada pada gambar di atas. Ketikan kata notepad untuk sebagai contoh, apakah jalan atau tidaknya. Selamat mencoba.
Berikut adalah codingnya:
Public Class Form6

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Run As New System.Diagnostics.Process
        Run.StartInfo.FileName = "" + TextBox1.Text + ".exe"
        Run.Start()
    End Sub

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                Button1.Focus()
        End Select
    End Sub

End Class

0 komentar:

Post a Comment