Calling Win32 API Functions in VB 2010 - Listing 4

Public Class ShellExecute

    Public Declare Function ShellExecute Lib "shell32" _
        Alias "ShellExecuteA" (ByRef hwnd As Integer, ByVal Operation As String,
                               ByVal Filename As String, ByVal Parameters As String,
                               ByVal Directory As String, ByVal ShowCommand As Integer) _
                                As Integer

    Private Declare Function GetDesktopWindow Lib "user32" () As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles Button1.Click
        Dim ParentHandle As Integer = GetDesktopWindow()
        Dim ShowMode As Integer = 1 'Normal

        Dim result As Integer = ShellExecute(ParentHandle, "Open", "Sample.txt", "", ".", ShowMode)
    End Sub
End Class

About the Author

Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].

comments powered by Disqus

Featured

  • Java on Visual Studio Code Going Cloud Native

    Cloud-native development figures prominently in a new roadmap published by Microsoft's Java on Visual Studio Code dev team.

  • Speed Lines Graphic

    Quantum-Inspired Annealing Using C# or Python

    Dr. James McCaffrey of Microsoft Research explains a new idea that slightly modifies standard simulated annealing by borrowing ideas from quantum mechanics.

  • Visual Studio 2022 v17.1 Preview 3 Improves Web Tools

    Microsoft quietly shipped Visual Studio 2022 v17.1 Preview 3 with enhancements to web tools.

  • Progress Telerik Adds 20-Plus Components for Blazor, .NET MAUI and WinUI

    The R1 2022 release of Progress Telerik development tooling adds more than 20 new components to the Blazor, .NET MAUI and WinUI offerings.

Upcoming Events