Hotspot-Aktionen Der nachfolgende Tipp zeigt, wie man Hotspot-Aktionen festlegen kann. Hotspots sind Bereiche, bei denen beim "Darüberfahren" und/oder Klicken mit de...
Autor:   Heinz Prelle	Bewertung:     [ Jetzt bewerten ]	Views:  11.022
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 16 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der nachfolgende Tipp zeigt, wie man Hotspot-Aktionen festlegen kann. Hotspots sind Bereiche, bei denen beim "Darüberfahren" und/oder Klicken mit der Maus eine bestimmte Aktion ausgelöst wird. Im nachfolgenden Beispiel wird ein Sound abgespielt, wenn Sie die Maus über einen sogenannten Hotspot-Bereich (Picture-Objekt) bewegen. Klicken Sie auf das Picture-Objekt, so ändert sich das Bild. Um den Tipp besser nachvollziehen zu können, empfehlen wir Ihnen sich das Beispiel "downzuloaden".

' IN FORM:
' Beispiel : HOTSPOT... 
' Begin Code
Option Explicit
Const conNORMALSTATUS = 1
Const conAKTIVERSTATUS = 2
Const conKLICKSTATUS = 3
 
Dim intStaSpot As Integer
Dim intAktSpot As Integer
 
Private Sub Form_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
 
  If intStaSpot = conAKTIVERSTATUS Then
    HotSpot(intAktSpot).Picture = Picture1.Picture
    intStaSpot = conNORMALSTATUS
    intAktSpot = -1
  End If
End Sub
 
Private Sub HotSpot_MouseDown(Index As Integer, _
  Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
 
  Dim intTmp As Integer
 
  If intStaSpot <> conKLICKSTATUS Then
    HotSpot(Index).Picture = Picture3.Picture
    intTmp = sndPlaySound(ByVal (App.Path + _
      "\ding.wav"), SYNC)
    intStaSpot = conKLICKSTATUS
    intAktSpot = Index
  End If
End Sub
 
Private Sub HotSpot_MouseMove(Index As Integer, _
  Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
 
  Dim intTmp As Integer
  If intStaSpot = conNORMALSTATUS Then
    HotSpot(Index).Picture = Picture2.Picture
    intTmp = sndPlaySound(ByVal (App.Path + _
     "\boing.wav"), SYNC)
    intStaSpot = conAKTIVERSTATUS
    intAktSpot = Index
  End If
End Sub
 
Private Sub HotSpot_MouseUp(Index As Integer, _
  Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
 
  If intStaSpot <> conAKTIVERSTATUS Then
    HotSpot(Index).Picture = Picture2.Picture
    intStaSpot = conAKTIVERSTATUS
    intAktSpot = Index
  End If
End Sub
 
Private Sub Form_Initialize()
  Dim intZaehler As Integer
  intStaSpot = 1
  intAktSpot = -1
  For intZaehler = 0 To Me.Controls.Count - 1
    If Me.Controls(intZaehler).Name = "HotSpot" Then
      Me.Controls(intZaehler).Picture = Picture1.Picture
    End If
  Next
End Sub
' End Code Form
 
' In Modul:
' Begin Code
Option Explicit
Declare Function sndPlaySound Lib "winmm" _
  Alias "sndPlaySoundA" ( _
  ByVal lpszSoundName As String, _
  ByVal uFlags As Long) As Long
 
Public Const SYNC = 1
' End Cod