Assistant Animation
18.09.2003 14:36:46
Armin
ich habe bei mir eine Animation mit dem Assistant gebaut. Wie ihr unten erkennen könnt, sollte wenn die TextBox59 kleiner als die TextBox19 ist, der Assistant mit einer Sprechblase erscheinen "Vorsicht Ihr Betriebsergebnis hat sich verschlechtert. In umgekehrtem Fall sollte erscheinen "Sehr gut Ihr Betriebsergebnis hat sich verbessert!".
Das Problem ist nun, dass das bei negativen Werten nicht stimmt. Da steht dann wenn die TextBox19 = - 19000 und
TextBox59 = - 5000 ist die Aussage: "Vorsicht ihr Betriebsergebnis hat sich verschlechtert"
Ich glaube der Assistant erkennt das Vorzeichen nicht, sondern nur die Zahl. Was kann ich tun?
Danke für die Hilfe!!!
Hier ist mein Code:
Private Sub TextBox59_Change()
Dim SB As Balloon
If TextBox59.Value < TextBox19.Value Then
Application.Assistant.Visible = True
Assistant.Animation = msoAnimationIdle
Set SB = Assistant.NewBalloon
SB.Animation = msoAnimationCheckingSomething
SB.BalloonType = msoBalloonTypeButtons
SB.Heading = " VORSICHT "
SB.Text = _
"Ihr Betriebsergebnis hat sich verschlechtert"
If SB.Show = msoBalloonButtonOK Then
Assistant.Visible = False
End If
Set SB = Nothing
Else
If TextBox59.Value > TextBox19.Value Then
Application.Assistant.Visible = True
Assistant.Animation = msoAnimationCharacterSuccessMajor
Set SB = Assistant.NewBalloon
SB.Animation = msoAnimationGetWizardy
SB.BalloonType = msoBalloonTypeNumbers
SB.Heading = " SEHR GUT "
SB.Text = _
"Ihr Betriebsergebnis hat sich verbessert!!!"
If SB.Show = msoBalloonButtonOK Then
Assistant.Visible = False
End If
Set SB = Nothing
End If
End If
End Sub