Keskustelu: Koodit: VB6: ShellExecute-funktio

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
    'avaa autoexec.bat-tiedoston Notepadiin
    ShellExecute 0&, vbNullString, "notepad.exe", "c:\autoexec.bat", vbNullString, vbNormalFocus
End Sub

Private Sub Command2_Click()
    'avaa oletusinternetselaimen Ohjelmointiputkan sivulle
    ShellExecute 0&, vbNullString, "https://www.ohjelmointiputka.net", vbNullString, vbNullString, vbNormalFocus
End Sub

Private Sub Command3_Click()
    'suorittaa DOSin käskyn TREE asemalla c:\
    ShellExecute 0&, vbNullString, "TREE", vbNullString, "c:\", vbNormalFocus
End Sub

Private Sub Form_Load()
    Command1.Width = 2000: Command1.Height = 500
    Command1.Caption = "Muistio - autoexec.bat"

    Command2.Width = 2000: Command2.Height = 500
    Command2.Caption = "Internet - Ohjelmointiputka"

    Command3.Width = 2000: Command3.Height = 500
    Command3.Caption = "DOS - TREE"
End Sub