Jump to content
Sign in to follow this  

How You Play Text in a About Tab?

Recommended Posts



for example this is my Program which have a About Tab.

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 387, 227, 200, 152)
$Tab1 = GUICtrlCreateTab(8, 8, 369, 209)
$TabSheet1 = GUICtrlCreateTabItem("Tools")
$TabSheet2 = GUICtrlCreateTabItem("About")
$Label1 = GUICtrlCreateLabel("Program Name: XXXX", 56, 48, 108, 17)
$Label2 = GUICtrlCreateLabel("Version: X>X>X>X", 56, 72, 91, 17)
$Label3 = GUICtrlCreateLabel("Website: www.MyWebSite.Com", 56, 96, 155, 17)
$Label4 = GUICtrlCreateLabel("Contact: MyMail@Test.com", 56, 120, 135, 17)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE


now how can i play the text in my about Tab with a cool sound of *.WAV or *.MP3?

i think it is called marquee but i don't know how it works.


Left > Right

Right > Left

Up > Down

Up < Down


i searched the forum and there were some examples but i could not understand them all.

Share this post

Link to post
Share on other sites

If you use a label just move its position and when it moves out of the gui simply reset its position outside the gui on the other side by the label length.

Share this post

Link to post
Share on other sites

can you use my code and give a example? i tried as you said but other controls are not working when i moves my Labels in a While Loop of my GUI.

Share this post

Link to post
Share on other sites

It would probably be better to use a function than to move the label . Here's an example from the helpfile.

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)


Func Example()
    Local $right, $label, $button, $msg
    GUICreate("My GUI position") ; will create a dialog box that when displayed is centered

    $right = 0
    $label = GUICtrlCreateLabel("my moving label", 10, 20)
    $button = GUICtrlCreateButton("Click to close", 50, 50)
    GUICtrlSetState(-1, $GUI_FOCUS) ; the focus is on this button


    While 1
        $msg = GUIGetMsg()

        If $msg = $button Or $msg = $GUI_EVENT_CLOSE Then Exit
        If $right = 0 Then
            $right = 1
            GUICtrlSetPos($label, 20, 20)
            $right = 0
            GUICtrlSetPos($label, 10, 20)
EndFunc  ;==>Example

That moves the label,just edit the code a bit to scroll it. As for playing the sound use either SoundPlay() or _SoundPlay().

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  


Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.