【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






ショートカットを作成する

.NET でも、ショートカットを作成することが可能です。

この機能を使えば、簡単に、
ショートカットを作成するようなウィザードを
作成するといったことが実現します。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、ボタンコントロールを配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

              ┏━━━━┓
              ┃Button1 ┃
              ┗━━━━┛

2.ボタンコントロールの
    Button1 text プロパティに「メモ帳作成」と記述します。
  ※説明用のためです。必須ではありません。

              ┏━━━━━━┓
              ┃メモ帳作成  ┃
              ┗━━━━━━┛


3.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
  次のコードを記述します。

    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click


        Dim objShell As Object = CreateObject("WScript.Shell")
        Dim strPath As String   'ショートカットパス
        Dim objLink As Object   'リンクオブジェクト

        'デスクトップに作成するので、デスクトップのパスを取得しています
        strPath = _
        System.Environment.GetFolderPath( _
        System.Environment.SpecialFolder.DesktopDirectory)

        'ショートカットの場所です
        objLink = _
        objShell.CreateShortcut( _
        strPath & "\メモ帳へのショートカット.lnk")

        'ショートカットを作成しています
        'この場合は、メモ帳を作成しています
        With objLink
            .targetpath = _
            System.Environment.GetFolderPath( _
            System.Environment.SpecialFolder.System) & _
            "\notepad.exe"

            .description = _
            "ウィザードで作成したメモ帳へのショートカット"

            .iconlocation = "notepad.exe"

            .workingdirectory = strPath
            .save()


        End With

    End Sub






4.ビルドして実行します。

5.フォームに表示された
    「メモ帳作成」ボタンを押すと、「メモ帳へのショートカット」
   がデスクトップに作成されます。




-----------VB.NETコーディングここまで-------------------


上記をカスタマイズして、任意の場所にショートカットを作成させたり、
コマンドライン引数を与えた、ショートカットを作成する事が可能です。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=O73

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2018/10/21(日)00:05 更新