Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Label fungující jako hyperlink ve VB |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 30.10.2003
| Publikováno: 2.11.2003
| Čtenářů: 2556
| Unikátních: 2543
|
Pořebujete kliknutím na Label zobrazit www stránku?
Postupujte podle návodu:
Do modulu vložte tento kód:
'API deklarace
Public 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
Public Const SW_SHOWNORMAL = 1
'Funkce pro zobrazeni URL
Public Function LabelHyperlink _
(ByRef cntrl As Label) As Boolean
If cntrl.Tag = "" Then
cntrl.Tag = cntrl.Caption
End If
ShellExecute cntrl.Parent.hwnd, "open", _
cntrl.Tag, "", "", SW_SHOWNORMAL
End Function
Jak to funguje, na událost labelu dejte volání funkce LabelHyperlink s parametrem jmeno labelu.
Pokud mate Caption labelu nastavenu jako URL, není nutné vyplnovat i vlastnost TAG, v opačném případě (Caption je jen text) do vlastnosti TAG vložte URL odkazu.
Na formulář vložte Label (Label1) a následující kód, poté je vše funkční.
Private Sub Form_Load()
With Label1
.Caption = "http://www.swit.cz"
'Pokud je caption URL adresa
'Neni nutne vyplnovat TAG
.Tag = "http://www.swit.cz"
.Font.Underline = True
.ForeColor = vbBlue
End With
End Sub
Private Sub Label1_Click()
LabelHyperlink Label1
End Sub
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu