VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 インターネット関係のメニュー
１．VB6.0でハイパーリンクを作成するには
２．指定のURLのHTMLファイルをダウンロードする
３．HTMLファイルの内容をテキスト形式及びHTML形式で取得して表示
４．インターネット一時ファイルを削除する
５．InternetExplorer を使っての HTM ファイル内の要素を取得・操作例
６．
７．
８．
９．
10．
11．
12．
13．
14．
15．
16．
17．
18．
19．
20．


１．VB6.0でハイパーリンクを作成するには
１．Webページを開く(ハイパーリンクもどき)
２．メール送信フォーム(メールフォーム)の設定とメールの送信
３．　
４．　
５．　
６．　
　下記プログラムコードに関する補足・注意事項　
動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option　：[Option Explicit]
参照設定：MyWaitDll
使用 API：ShellExecute
その他　：このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。
　　　　：
このページのトップへ移動します。 １．Webページを開く(ハイパーリンクもどき)(116)　　　2002.05.22

Option Explicit　

'拡張子に関連づけられたプログラムを実行する(P699)
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 Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
　　Shape1.BorderStyle = 0
　　Label1.ForeColor = QBColor(9)
　　Set Label1.MouseIcon = LoadPicture("..\hand10.ico")
End Sub

Private Sub Label1_Click()
'Shape コントロールを使ってクリック状態を描画
'別途 Label1.MousePointer =99 と手のアイコンに設定
　　Dim myURL As String
　　myURL = "http://hanatyan.sakura.ne.jp/"
　　'Call Shell("start.exe " & myURL, vbHide)
　　Call Shell(Environ$("ComSpec") & " /c start " & myURL, vbHide)
　　Label1.ForeColor = QBColor(1)
　　Shape1.BorderStyle = 3
　　DoEvents
　　Wait 7000　'7秒後に色を変える
　　Shape1.BorderStyle = 0
End Sub

Private Sub Command1_Click()
　　Dim ret As Long
　　Dim myURL As String
　　'API関数での関連付け起動
　　myURL = "http://hanatyan.sakura.ne.jp/"
　　ret = ShellExecute(Me.hwnd, "open", myURL, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

WEBページ上のリンクのような設定は通常のForm上では出来ませんので擬似的に作成し、関連付けで起動しています。

　上記、実行結果及び使用コントールと配置図
　internet01_01
このページのトップへ移動します。 ２．メール送信フォーム(メールフォーム)の設定とメールの送信
こちらも上記と同様に関連付け起動しているだけです。

Private Sub Command2_Click()
　　Dim ret As Long
　　Dim mail As String
　　mail = "mailto:hogehoge@hanatyan.hoge.ne.jp?Subject=ほげほげの件&body=" & _
　　　　　 "お 名 前: %0D%0A連 絡 先: %0D%0Aメッセージ: %0D%0A"
　　'API関数での関連付け起動
　　ret = ShellExecute(Me.hwnd, "open", mail, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub
このページのトップへ移動します。 ３．


このページのトップへ移動します。 ４．


このページのトップへ移動します。 ５．


このページのトップへ移動します。 ６．


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
mailto スキーム　メールのあて先にもメーラーを起動　VB6でハイパーリンク　VB6.0よりメーラーを起動　メールの送信


このページのトップへ移動します。