Blinkendes Label

**Alina**

Hallo.

Wie mache ich es, das bei dem nachfolgenden Labeltext der Unterstrich (Underline) blinkt?

Spoiler anzeigen

[autoit]

label47 = GUICtrlCreateLabel ('Ich bin ein Text und der Unterstrich hinten soll blinken _', 450, 540, 700, 25)
GUICtrlSetFont($m7, 14, 400, -1, "MS Reference Sans Serif")
GUICtrlSetColor($m7, 0xFFFFFF)

[/autoit]

Gruß, Crazy-A.

blubbstar

Hm Spontan fällt mir nur, ein extra Label für den _ und eine Whileschleife mit der Farbveränderung, oder was auch immer du unter "blinken" verstehst :P.
Wenn du natürlich es nur anzeigen und wieder verschwinden lassen willst, kannst ja auch GuiCtrlSetData verwenden, jeweils mit _ und ohne, immer abwechselnd.

Hab mal was gebastelt, glaube du suchst sowas ;).

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
$text = "Ich bin blubbstar und heute gewinnt Deutschland :)"
$newtext = ""
$sleep = 200
$cxb = GUICreate("xxx", 700, 500)
$label = GUICtrlCreateLabel('', 10, 200, 500, 25)
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To StringLen($text)
$buchstabe = StringMid($text, $i, 1)
$newtext &= $buchstabe
Sleep($sleep)
GUICtrlSetData($label, $newtext & " _")
Sleep($sleep)
GUICtrlSetData($label, $newtext)
Next

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(100)
WEnd

[/autoit]

JoEtHeKiLlEr

Soll der unterstrich farbig blinken?
Reicht das hier nicht schon?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 454, 193, 115)
$Label1 = GUICtrlCreateLabel("blabla", 72, 128, 127, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$time = TimerInit()
$Font = False
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If TimerDiff($time) > 1000 Then
If $Font = False Then
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
$Font = True
Else
GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
$Font = False
EndIf
$time = TimerInit()
EndIf
WEnd

[/autoit]

**Alina**

Hallo blubbstar.

Nur das Underline soll blinken und nicht der ganze Text blinkend "einfahren". So als wenn man im Dos-Modus Enter gedrückt hat und der "Peh-Zeh" wartet das es weiter geht mit einer Eingabe.

Crazy-A

**BugFix**

Hi Alina, probier das mal:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
Global $switch = True, $start = False
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 454, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Label1 = GUICtrlCreateLabel("Mein Text", 64, 32, 51, 17)
$btn_Blink = GUICtrlCreateButton('Blinken an', 150, 29, 120, 20)
GUICtrlSetOnEvent(-1, 'setBlink')
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

AdlibEnable('Blink', 300)

[/autoit] [autoit][/autoit] [autoit]

While 1
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Form1Close()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func setBlink()
$switch = Not $switch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Blink()
If Not $switch Then
GUICtrlSetData($btn_Blink, 'Blinken aus')
If Not $start Then
GUICtrlSetFont($Label1, Default, Default, 4)
Else
GUICtrlSetFont($Label1, Default, Default, 1)
EndIf
$start = Not $start
Else
GUICtrlSetFont($Label1, Default, Default, 1)
GUICtrlSetData($btn_Blink, 'Blinken an')
EndIf
EndFunc

[/autoit]

**Oscar**

Ich glaube, sie meint eher sowas:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $blink = True

[/autoit] [autoit][/autoit] [autoit]

AdlibEnable('blink', 500)

[/autoit] [autoit][/autoit] [autoit]

GUICreate("Test", 800, 200)
$Text = 'Ich bin ein Text und der Unterstrich hinten soll blinken _'
$label47 = GUICtrlCreateLabel ($Text, 10, 40, 700, 25)
GUICtrlSetFont(-1, 14, 400, -1, "MS Reference Sans Serif")
GUICtrlSetColor(-1, 0x000000)

[/autoit] [autoit][/autoit] [autoit]

GUISetState()

[/autoit] [autoit][/autoit] [autoit]

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func blink()
If $blink Then
GUICtrlSetData($label47, StringReplace($Text, '_', Chr(160)))
Else
GUICtrlSetData($label47, StringReplace($Text, Chr(160), '_'))
EndIf
$blink = Not $blink
EndFunc

[/autoit]

**Alina**

So, DANKE an alle.

Habe Oscar sein Script umsetzen können für mein Problem.

LG, Crazy-A.