Bezeichnungsfeld animieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 98
nach unten

Betrifft: Bezeichnungsfeld animieren
von: Markus
Geschrieben am: 14.05.2002 - 20:08:57

Hi Folks

Mit welchem Code kann ich in VBA ein Bezeichnungsfeld animieren ( Schrift läuft auf Userform von rechts nach links, oder von oben nach unten )?


Danke für eure Hilfe

Markus


nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Michael Scheffler
Geschrieben am: 14.05.2002 - 20:29:20

Hallo,

wozu, dann mussst Du ja das, was Du bezeichnest, mitlaufen lassen. Ansonsten muusst Du haltin einer Schleife, "Left"- bzw. "Top"-Koordinate verändern, aber ob das sinnvoll ist...?

Micha


nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Hajo
Geschrieben am: 14.05.2002 - 20:35:59

Hallo Markus

hier mal ein Beispiel für die Titelzeile von GraFri


Option Explicit
' von GraFri
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Text        As String
Dim Stopped     As Integer

Private Sub UserForm_Initialize()
  Text = "   Das ist der Lauftext für die Titelleiste   "     'Text für die Titelleiste
  Stopped = 1
End Sub

Private Sub UserForm_Layout()
  Call Scroll_Text
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Stopped = 1
End Sub

Private Sub Scroll_Text()
Dim LeftChar    As String
  
  Stopped = 0
  
  Do
    LeftChar = Left$(Text, 1)
    Text = Right$(Text, Len(Text) - 1) & LeftChar
    Me.Caption = Text
    Call Pause(100, 1)  'Tempo der Laufschrift
  Loop Until Stopped = 1
End Sub


Private Sub Pause(ByVal Pau As Single, ByVal DoEv As Integer)
  Call Sleep(Pau)
  If DoEv = 1 Then DoEvents
End Sub

Gruß Hajo


nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Markus
Geschrieben am: 14.05.2002 - 22:28:17

Hi Micha

Es geht um ein Logo das einfach so mitlaufen soll.

Gruß Markus


nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Markus
Geschrieben am: 14.05.2002 - 22:58:47

Hi Hajo

geht leider nicht!?!?!? Code ist fast ausschliesslich in Rot markiert. Was muß wohin. Kannst du mir nocheinmal helfen und mir vieleicht ein Beispiel mailen?

Gruß MArkus


nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Hajo
Geschrieben am: 15.05.2002 - 05:49:08

Hallo Markus

der gesamte Code komt in eine Userform.

Gruß Hajo


nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Michael Scheffler
Geschrieben am: 15.05.2002 - 08:28:36

Hallo Markus,

Du kannst doch eine animierte Gif einsetzen, dann kannst Du Dir den gesamten Kram sparen., Dazu gibt es estwas im Netz:
Gif89.dll

Gruß

Micha

nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Markus
Geschrieben am: 15.05.2002 - 08:42:25

Hi Hajo

wann schläfst du eigentlich? du bist ja schon wieder im Netz.
sorry das ich schon wieder nerve, aber es geht trotzdem nicht. Habe nach Anweisung den Code in Userform kopiert der Code ist immer noch rot invertiert.

zum Ablauf: Ich habe eine Userform erstellt ein Bezeichnungfeld mit dem Txt der im Code vorgeschrieben war eingeben. Ist da vieleicht schon etwas falsch?.

Danke nochmals Markus

nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Markus
Geschrieben am: 15.05.2002 - 08:47:03

Morgen auch

Danke ersteinmal. Was ist gif89.dll ,habe über Suchmaschine nichts finden können.

Bitte nochmal helfen
Danke Markus


nach oben   nach unten

Re: Bezeichnungsfeld animieren
von: Hajo
Geschrieben am: 15.05.2002 - 09:23:35

Hallo Markus

der laufende Text ist in meinem Beispiel in der Titelzeile.

Ich habe Dir doch meine Beispiele geschickt??? Laufen die etwa auch nicht???


Gruß Hajo


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Bezeichnungsfeld animieren"