Ereig b Verla eines Bilds md Maus i.e. Userform

Private Sub Etiketten8_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Etiketten8.SpecialEffect = fmSpecialEffectRaised Etiketten8.Top = 6.8 Etiketten8.Left = 12.75 Etiketten8.Height = 119 Etiketten8.Width = 87 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) chkControl = "Image1" Me.Image1.SpecialEffect = fmSpecialEffectRaised Me.Image1.Top = 6.8 Me.Image1.Left = 12.75 Me.Image1.Height = 119 Me.Image1.Width = 87 End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If chkControl = "" Then Exit sub Me.Controls(chkControl).SpecialEffect = fmSpecialEffectSunken Me.Controls(chkControl).Top = 11.8 Me.Controls(chkControl).Left = 17.75 Me.Controls(chkControl).Height = 124 Me.Controls(chkControl).Width = 92 chkControl = "" End Sub

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If chkControl <> "" Then Exit Sub chkControl = "Image1" chkControlTop = Me.Image1.Top chkControlLeft = Me.Image1.Left chkControlHeight = Me.Image1.Height chkControlWidth = Me.Image1.Width Me.Image1.SpecialEffect = fmSpecialEffectRaised Me.Image1.Top = 6.8 Me.Image1.Left = 12.75 Me.Image1.Height = 119 Me.Image1.Width = 87 End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If chkControl = "" Then Exit Sub Me.Controls(chkControl).SpecialEffect = fmSpecialEffectSunken Me.Controls(chkControl).Top = chkControlTop Me.Controls(chkControl).Left = chkControlLeft Me.Controls(chkControl).Height = chkControlHeight Me.Controls(chkControl).Width = chkControlWidth chkControl = "" End Sub

Hallo
Vielleicht zu gebrauchen:

' Wenn der Mauszeiger auf das Bildobjekt Image 'imgBild' kommt, verändert sich
' die Größe je nach Einstellung der Konstanten 'expFaktor'. Werte kleiner als 1
' bewirken eine Verkleinerung (dabei kann ein Flattereffekt auftreten, da sich
' durch die Verkleinerung der Mauszeiger außerhalb des Bildes befinden kann).
' Werte größer als 1 bewirken eine Vergrößerung.
'
' Die Konstante 'expStyle' legt den Stil der Größenänderung fest. Dieser Wert
' (wie auch der Wert 'expFaktor' für Größenänderung) kann aber auch im Programm-
' code festgelegt werden, um z.B. verschiedene Effekte zu erreichen.
'       1   linke obere Ecke behält seine Position
'       2   rechte obere Ecke behält seine Position
'       3   linke untere Ecke behält seine Position
'       4   rechte obere Ecke behält seine Position
'       5   Bildzentrum behält seine Position
'
' Das Prinzip funktioniert auch mit anderen Steuerelementen

Option Explicit
Dim indBild             As Boolean
Dim indForm             As Boolean
Const expFaktor         As Single = 2.5     'kann auch im Code festgelegt werden
Const expStyl           As Integer = 5      'kann auch im Code festgelegt werden
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
                               ByVal Shift As Integer, _
                               ByVal X As Single, _
                               ByVal Y As Single)

If indBild = True Then
    With imgBild
        .Height = .Height / expFaktor: .Width = .Width / expFaktor
    Select Case expStyl
        Case 1              'von linker oberen Ecke expandieren
        Case 2              'von rechter oberen Ecke expandieren
            .Left = .Left + (expFaktor - 1) * .Width
        Case 3              'von linker unteren Ecke expandieren
            .Top = .Top + (expFaktor - 1) * .Height
        Case 4              'von rechter unteren Ecke expandieren
            .Left = .Left + (expFaktor - 1) * .Width
            .Top = .Top + (expFaktor - 1) * .Height
        Case 5              'zentriert expandieren
            .Left = .Left + (expFaktor - 1) * .Width / 2
            .Top = .Top + (expFaktor - 1) * .Height / 2
    End Select
    End With
End If

    indForm = True: indBild = False
End Sub
Private Sub imgBild_MouseMove(ByVal Button As Integer, _
                              ByVal Shift As Integer, _
                              ByVal X As Single, _
                              ByVal Y As Single)
If indForm = True Then

    With imgBild
    Select Case expStyl
        Case 1              'von linker oberen Ecke expandieren
        Case 2              'von rechter oberen Ecke expandieren
            .Left = .Left - (expFaktor - 1) * .Width
        Case 3              'von linker unteren Ecke expandieren
            .Top = .Top - (expFaktor - 1) * .Height
        Case 4              'von rechter unteren Ecke expandieren
            .Left = .Left - (expFaktor - 1) * .Width
            .Top = .Top - (expFaktor - 1) * .Height
        Case 5              'zentriert expandieren
            .Left = .Left - (expFaktor - 1) * .Width / 2
            .Top = .Top - (expFaktor - 1) * .Height / 2
    End Select
        .Height = .Height * expFaktor: .Width = .Width * expFaktor
    End With

End If
    indForm = False: indBild = True

End Sub

Code eingefügt mit Syntaxhighlighter 2.5

mfg, GraFri

Beliebteste Forumthreads (12 Monate)

Ereig b Verla eines Bilds md Maus i.e. Userform

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ereig b Verla eines Bilds md Maus i.e. Userform

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread