My.Application 对象

项目
08/18/2008

更新：2007 年 11 月

提供与当前应用程序相关的属性、方法和事件。

备注

My.Application 对象公开的属性返回只与当前应用程序或 DLL 关联的数据。无法利用 My.Application 更改任何系统级别的信息。

一些成员仅对 Windows 窗体或控制台应用程序可用。

示例

本示例使用 My.Application.CommandLineArgs 属性来检查应用程序的命令行参数。如果发现某个参数以 /input= 开头，则将显示该参数的其余部分。

Private Sub ParseCommandLineArgs()
    Dim inputArgument As String = "/input="
    Dim inputName As String = ""

    For Each s As String In My.Application.CommandLineArgs
        If s.ToLower.StartsWith(inputArgument) Then
            inputName = s.Remove(0, inputArgument.Length)
        End If
    Next

    If inputName = "" Then
        MsgBox("No input name")
    Else
        MsgBox("Input name: " & inputName)
    End If
End Sub