demo:vb.net 打开记事本、beep、msgbox、取程序路径 ━━━━━━━━━━━━━━━━━━━━━━━━━━ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell("notepad.exe", AppWinStyle.NormalFocus) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a As Integer a = 1 If a < 1 Then MsgBox("ok") Else If MsgBox("no", MsgBoxStyle.OkCancel + 32, "message") = MsgBoxResult.Ok Then End End If Console.Beep() End End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MsgBox(Application.StartupPath) End Sub
|
|