Jump to content

Slider notification code unknown for TRBN_THUMBPOSCHANGING

Recommended Posts


I would like to use a WM_NOTIFY function to manage a slider thumb position change, according this MSN trackbar link TRBN_THUMBPOSCHANGING .

Does somebody know why the notification code "TRBN_THUMBPOSCHANGING" for the slider control seems ignored in "WindowsConstants.au3" include file ?

Searching in AutoIt or MSN forum , or googling this code, I don't succeed to catch any code info !!! Is it obsolete ?



Share this post

Link to post
Share on other sites


I have never used that message for detecting thumb movement on a slider - I always use $SB_THUMBTRACK via a $WM_H/VSCROLL message like this:

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

$hGUI = GUICreate("Test", 500, 500)

$cSlider = GUICtrlCreateSlider(10, 10, 200, 20)
$hSlider = GUICtrlGetHandle($cSlider)



While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE

Func _WM_HSCROLL($hWnd, $iMsg, $wParam, $lParam)

    If $lParam = $hSlider Then
        If _WinAPI_LoWord($wParam) = 5 Then ;$SB_THUMBTRACK

            ConsoleWrite(GUICtrlRead($cSlider) & " - " & @MSEC & @CRLF)




Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:


ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area


Share this post

Link to post
Share on other sites

Thx Melba23:

I have logged all notification codes received on a slider using "WM_NOTIFY" function, it seems that only 2 codes are handled:

-16 == $NM_RELEASEDCAPTURE (when mouse click)

-12 == $NM_CUSTOMDRAW (using arrows left, right, up, doown)

So, I suppose that the MSN link is now out of age ...

That's a pity, as the corresponding "NMTRBTHUMBPOSCHANGING" structure would get me lot of interesting info (position and type of movement) ...

Anyhow, thanks for your time passed to help me.

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

  • Similar Content

    • Elzie
      By Elzie
      Hi I am trying to make a gui that uses a slide to change pictures and uses internet-read from  guinness function.
      Thanks for your help.
      Ok found the issue
      #include <GUIConstantsEx.au3> #include <SliderConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> #include <WinAPIRes.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 229, 165, 2392, 436) $Slider = GUICtrlCreateSlider(32, 128, 150, 29) GUICtrlSetLimit($Slider, 2, 1) GUICtrlSetData($Slider, 1) GUICtrlSetBkColor($Slider, 0x0099FF) GUICtrlSetColor(-1, 0xA6CAF0) $hSlider_Handle = GUICtrlGetHandle(-1) $sFile1 = _GetURLImage("http://www.pendriveapps.com/wp-content/uploads/autoit.jpg ", @TempDir) $sFile2 = _GetURLImage("http://domoticx.com/wp-content/uploads/autoit-logo-200x154.jpg ", @TempDir) $Hpic1 = GUICtrlCreatePic($sFile1, 56, 8, 108, 108, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Slider $a = GUICtrlRead($Slider) If $a = 2 Then GUICtrlDeleteImage($Hpic1) $Hpic2 = GUICtrlCreatePic($sFile2, 56, 8, 108, 108, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) ElseIf $a = 1 Then GUICtrlDeleteImage($hpic2) $Hpic1 = GUICtrlCreatePic($sFile1, 56, 8, 108, 108, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) EndIf EndSwitch WEnd Func _GetURLImage($sURL, $sDirectory = @ScriptDir) ; Author ........: guinness Local $hDownload, $sFile $sFile = StringRegExpReplace($sURL, "^.*/", "") If @error Then Return SetError(1, 0, $sFile) EndIf If StringRight($sDirectory, 1) <> "\" Then $sDirectory = $sDirectory & "\" EndIf $sDirectory = $sDirectory & $sFile If FileExists($sDirectory) Then Return $sDirectory EndIf $hDownload = InetGet($sURL, $sDirectory, 17, 1) While InetGetInfo($hDownload, 2) = 0 If InetGetInfo($hDownload, 4) <> 0 Then InetClose($hDownload) Return SetError(1, 0, $sDirectory) EndIf Sleep(105) WEnd InetClose($hDownload) Return $sDirectory EndFunc ;==>_GetURLImage Func GUICtrlDeleteImage($iCtrlID) ; Author ........: guinness Local Const $STM_SETIMAGE = 0x0172 Local $aSetImage = 0, _ $bReturn = True, _ $iMsg = 0 Switch _WinAPI_GetClassName($iCtrlID) Case 'Button' ; button, checkbox, groupbox, radiobutton. Local $aButton = [$IMAGE_BITMAP, $IMAGE_ICON] $aSetImage = $aButton $aButton = 0 Case 'Static' ; icon, label, picture. Local $aStatic = [$IMAGE_BITMAP, $IMAGE_CURSOR, $IMAGE_ICON] $aSetImage = $aStatic $aStatic = 0 $iMsg = $STM_SETIMAGE Case Else $bReturn = False EndSwitch If $bReturn Then $bReturn = False Local $hImage = 0 For $i = 0 To UBound($aSetImage) - 1 $hImage = GUICtrlSendMsg($iCtrlID, $iMsg, $aSetImage[$i], 0) If $hImage <> 0 Then Switch $aSetImage[$i] Case $IMAGE_BITMAP $bReturn = _WinAPI_DeleteObject($hImage) Case $IMAGE_CURSOR $bReturn = _WinAPI_DeleteObject($hImage) If Not $bReturn Then $bReturn = _WinAPI_DestroyCursor($hImage) > 0 EndIf Case $IMAGE_ICON $bReturn = _WinAPI_DeleteObject($hImage) If Not $bReturn Then $bReturn = _WinAPI_DestroyIcon($hImage) > 0 EndIf EndSwitch ExitLoop EndIf Next If Not $bReturn Then $bReturn = GUICtrlSetImage($iCtrlID, 'shell32.dll', -50) > 0 EndIf EndIf Return $bReturn EndFunc ;==>GUICtrlDeleteImage  
    • GroovyMan8750
      By GroovyMan8750
      I am attempting to use sliders to create a Q&A report that outputs a log/txt  file on a PC/Server...at least I got that to work.
      I have the sliders set, however I cannot get the number range to show on the GUI correctly. Could use some guidance here.
      When I output the value of each slider into a log file, the values are really goofed. Could use some more guidance here too.
      Any help would be greatly appreciated. I am a noob, take pity. I have self abused already!
    • Kanashius
      By Kanashius
      This UDF can be used to create a slider with an imagebackground and an image to move.
      If you like it, please leave me a comment, also if you have any suggestions to make it better or if you found bugs.
      Edit: Its now possible to set the value of the Slider (__GDIPlusSlider_set($Slider,$value))
    • careca
      By careca
      Hi, found a post about something like this, but didn't quite get it.

      The problem here is that i have a slider, and when i click somewhere in the slider,
      the thingy starts jumping in the direction of the mouse press, but doesn't quite stay where im clicking.

      Then it seemed like using "_GUICtrlSlider_Create" instead of "GUICtrlCreateSlider" would be a good option,
      but it messed up everything, as the "GUICtrlSetData" doesn't work with it.

      What are my options?
    • MrVietA2
      By MrVietA2
      Hello !
      I tried to create 2 slider to set the state of video in my script :

      #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <SliderConstants.au3> #include <DSEngine.au3> Global $MovieGUI, $VideoPlay, $VideoStop, $VideoOpen, $VideoPos, $VideoVol, $ViewerVideo, $VideoPos2 Global $mVol, $mLength, $mVideoPlaying $MovieGUI = GUICreate("Movie Player", 740, 590, -1, -1, -1) $VideoPlay = GUICtrlCreateButton("PLAY", 20, 520, 100, 50) $VideoStop = GUICtrlCreateButton("STOP", 140, 520, 100, 50) $VideoOpen = GUICtrlCreateButton("OPEN", 260, 520, 100, 50) $VideoSlow = GUICtrlCreateButton("SLOW", 380, 520, 100, 50) $VideoSpeed = GUICtrlCreateButton("SPEED", 500, 520, 100, 50) $VideoPos = GUICtrlCreateSlider(20, 490, 660, 25, $TBS_ENABLESELRANGE) $ViewerVideo = GUICreate("", 660, 400, 20, 70, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_DISABLED, $WS_EX_MDICHILD), $MovieGUI) $VideoPos2 = GUICtrlCreateSlider(0, 380, 660, 25, $TBS_ENABLESELRANGE) GUICtrlSetBkColor(-1, 0x0) GUISetBkColor(0, $ViewerVideo) WinSetTrans($ViewerVideo, "", 220) GUISetState(@SW_SHOW, $ViewerVideo) GUISetState(@SW_SHOW, $MovieGUI) While 1 $MSG = GUIGetMsg() Switch $MSG Case $GUI_EVENT_CLOSE Exit Case $VideoOpen $PathVideo = FileOpenDialog("Open Video", "", "All Video(*.Avi;*.Wmp;*.Mkv;*.Flv;*.Mp4;*.Mpg;*.Ts)|All File(*.*)|Video(*.Avi; *.Wmp)", 1 + 4) PlayVideo($PathVideo) EndSwitch If $mVideoPlaying = True Then ;~ GUICtrlSetState($VideoPos2, $GUI_ONTOP) ; Switch $MSG Case $VideoStop Engine_StopPlayback() GUICtrlSetData($VideoPos, Engine_GetLength()) GUISetBkColor(0x00000, $ViewerVideo) WinSetTrans($ViewerVideo, "", 220) Case $VideoPlay Switch GUICtrlRead($VideoPlay) Case "PLAY" Engine_PausePlayback() GUICtrlSetData($VideoPlay, "PAUSE") Case "PAUSE" Engine_StartPlayback() GUICtrlSetData($VideoPlay, "PLAY") EndSwitch Case $VideoSpeed ; Case $VideoSlow ; EndSwitch ; $mGGCI = GUIGetCursorInfo($MovieGUI) If IsArray($mGGCI) And $mGGCI[4] = $VideoPos And $mGGCI[2] = 1 Then While $mGGCI[2] $mGGCI = GUIGetCursorInfo($MovieGUI) $mPos = GUICtrlRead($VideoPos) Sleep(1) WEnd Engine_SetPosition($mPos) EndIf GUICtrlSetData($VideoPos, Engine_GetPosition()) GUICtrlSetData($VideoPos2, Engine_GetPosition())EndIf WEnd Func PlayVideo($SavePath) If $SavePath <> "" Then Global $mVol = GUICtrlRead($VideoVol) Engine_LoadFile($SavePath, $ViewerVideo) Engine_StartPlayback() $mLength = Engine_GetLength() GUICtrlSetLimit($VideoPos, $mLength, 0) GUICtrlSetLimit($VideoPos2, $mLength, 0)$mVideoPlaying = True EndIf EndFunc ;==>PlayVideo The slider 2 ($VideoPos2) is hidden while the film is screened, but I want it to be shown. Could you tell me how to do this ?
      All answers are welcome.

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.