Web ページを開く（ハイパーリンクもどき）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。 　　
Web ページを開く（ハイパーリンクもどき）
　　 Option Explicit　　 'SampleNo=116　WindowsXP VB6.0(SP5) 2002.05.22
'拡張子に関連づけられたプログラムを実行する(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 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


Private Sub Form_Load()
　　Shape1.BorderStyle = 0
　　Label1.ForeColor = QBColor(9)
End Sub


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


Private Sub StopTime(st As Single)
'タイマー関数を使って Sleep 関数と同様の関数を作成
　　Dim sngSt As Single
　　　　sngSt = Timer
　　Do While Timer - sngSt < st
　　　　DoEvents
　　Loop
End Sub


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

　　　　　　　
注意

'WindowsXP は使用不可(サポートされていません）

Call Shell("start.exe " & myURL, vbHide)



2002/05/22