| |
せっかくお知り合いになった機会なので、クリッカブルURLの別実装方法をトラックバックしておきます。 マシンにInternetExplorerが入っていないとダメですが、FindWindowAPIを使えば 結構簡単にできます(簡単なのがウリ(笑))。 下の例ではlblURLからマウスを離した時にナビゲートします。
Public
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As
Long
Private Sub lblURL_MouseUp(Button As Integer, Shift As
Integer, X As Single, Y As
Single) '左クリック時はホームページを表示 If
Button = 1
Then Call
Go_URL End If End Sub
Private
Sub Go_URL() Dim objIE As
Object Dim lngRet As
Long
'IEがインストールされているかチェックする lngRet
= FindWindow("IEFrame",
vbNullString)
If lngRet = 0
Then Set objIE =
CreateObject("InternetExplorer.Application") objIE.Visible
=
True objIE.Navigate
"http://www.hogehoge.htm" End
If End Sub
http://hp.vector.co.jp/authors/VA016550/index.htm |
|