Örnek Uygulama Kodları

Örnek uygulama kodları

Public Class Form1
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mciExecute("Set CDAudio door Open")
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        mciExecute("Set CDAudio door closed")
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Beep()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Call Shell("notepad.exe", 1)
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Call Shell("calc.exe", 1)
    End Sub
End Class

Paylaş :