Hyperlink verwenden |
|
Bei umfangreichen Projekten empfiehlt es sich, eine Infobox mit einer kurzen Beschreibung des Projektes/Programmes und dem Namen des Entwicklers einzubinden. Wer in dieser Infobox auch einen Hyperlink auf eine bestimme Web-Seite setzen möchte, kann dies mit einem Bezeichnungsfeld und dem API ShellExecute erreichen. Das Bezeichnungsfeld wird zum besseren Erkennen wie ein Standard-Hyperlink formatiert; gleichzeitig wird eine Eigenschaft der Controls verwendet, die es erlaubt, eigene Mauszeiger zu verwenden. Das folgende Beispiel demonstriert die Verwendung eines Bezeichnungsfeldes als Hyperlink (Infolink). Um das Beispiel auszuführen, genügt es den nachstehenden Code in eine leere Userform zu kopieren. In der Prozedur lblInfolink_Click() wird dann das mit einem Hyperlink verknüpfte Programm (normalerweise der Browser) gestartet und die angegebene Seite aufgerufen. Private bHyperlink As Boolean Private Declare Function ShellExecute Lib "Shell32.dll" _ Alias "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal ProgName As String, _ ByVal Parameter As String, _ ByVal Verzeichnis As String, _ ByVal Modus As Long) _ As Long Private WithEvents lblInfolink As MSForms.Label Private WithEvents lblEnde As MSForms.CommandButton Const strCaption = "Hyperlink auf ein Bezeichnungsfeld" ' Der Pfad zum verwendeten Icon oder Cursor Const IconPfad = "C:\WINNT\Cursors\harrow.cur" Bei der Größenanpassung des Bezeichnungsfeldes wird versucht, eine optimale Positionierung in der Mitte der Userform zu erreichen. Leider stehen in VBA nicht viele Möglichkeit der Pixel-Umrechung zur Verfügung, so dass an diesen Stellen auch gut feste Angaben eingetragen werden können.
Bekannte Probleme: |
Besucher: 2 online | 20 heute | 1359 diesen Monat | 683084 insgesamt | Seitenaufrufe: 57 | Letzte Änderung: 24.06.2006 | © 2001-18 Christian Freßdorf | ||||
Ich habe nie einen gesunden Menschen getroffen, der sich über seine Gesundheit Gedanken gemacht hätte, und nie einen guten Menschen, der um seine Seele besorgt wäre. John Burdon Sanderson Haldane, 1894-1964, engl. Biologe und Genetiker |
powered by phpCMS and PAX |