ホーム > カテゴリ > Visual Basic >

URLを実行する

URLを実行するサンプルです。

サンプルの実行画面

ソースコード

[URL.frm]

'ShellExecute　＝＞システムの時間、日付を変更する

'＜引数＞
'hWnd:           ウインドウのハンドル
'lpOperation$：  「Open｣
'lpFile:         拡張子のファイル名
'lpParameters:   ディレクトリパス
'lpDirectory:    無視
'nShowCmd&：     定数（SW_××参照）

'＠戻り値＠
' アプリケーションのインスタンスハンドル


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

Const SW_SHOW = 5     'ウインドウをアクティブにする



Private Sub Command1_Click()
 End
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 Label1.ForeColor = vbBlue
 Label1.Font.Size = 9
End Sub

Private Sub Label1_Click()

Call ShellExecute(Form1.hwnd, "open", Label1.Caption, "", "", SW_SHOW)

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.ForeColor = &H800080
  Label1.Font.Size = 10
End Sub

ソースコード一式のダウンロード

vbapi_url.zip 1.17 KB (1,207 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事


前の記事：タスクバーの状態を設定する
次の記事：壁紙を変更する

公開日：2015年03月05日
記事NO：00396


プチモンテ ※この記事を書いた人

💻 ITスキル・経験
サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。

画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ
🎵 音楽制作
BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は抒情詩、抒情的な楽曲が多い。楽曲制作は🔰2023年12月中旬 ～

オリジナル曲を始めました✨

背徳の遊牧民 feat. オペラさん (2025/9/1 新曲)