[R] Besoin d'aide pour une Scrollbar

[Bayo]

Bonjour,

J'ai besoin d'un peu d'aide pour réaliser une ScrollBar
Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>



Global $creationetape2 = GUICreate("Classement", 800, 600)

Global $labelclass = GUICtrlCreateLabel("Classement", 410, 40)

Global $suivant2 = GUICtrlCreateButton("Suivant >", 300, 550, 200)
GUISetState(@SW_HIDE)
$nbparticipant = 10
$ajoutclassement = 150



For $i = 1 To $nbparticipant

    Assign("labelclassement" & $i, GUICtrlCreateLabel($i, 150, $ajoutclassement + 2, 20))
    Assign("classement" & $i, GUICtrlCreateInput("" & $i, 180, $ajoutclassement, 150))
    $ajoutclassement = $ajoutclassement + 40
Next
GUISetState(@SW_SHOW, $creationetape2)
While 1
    $aMsg = GUIGetMsg(1)
    Switch $aMsg[1]
        Case $creationetape2
            Switch $aMsg[0]

                Case $GUI_EVENT_CLOSE

                    Exit

            EndSwitch
    EndSwitch
WEnd

Mon soucis, c'est que si $nbparticipant est plus grand comme 15 ou 25, ça ne fonctionne plus, j'aurai voulu faire une scrollbar soit sur la fenêtre et encore mieux que sur la zone des Input. Quand j'en fait une, ça ne défile pas.

Merci d'avance

[orax]

Est-ce que t'avais regardé les fonctions _GUIScrollBars* ? Elles devraient faire ce que tu cherches.

[Bayo]

J'avais essayé une autre solution, je viens d'essayer celle-ci. J'arrive bien à afficher la scrollbar mais elle ne fonctionne pas non plus.

j'ai rajouté ça _GUIScrollBars_Init($creationetape2) à la fin de la création de la GUI.

et ça après avoir générer les inputs _GUIScrollBars_ShowScrollBar($creationetape2, $SB_VERT)

mais j'ai beau mettre 25 input, la scrollbar ne fonctionne pas.

Merci de ton aide

[mikell]

Perso j'utilise (encore, parce que c'est vieux...) cette udf :

GUIScrollbars_Ex.au3

(23.76 Kio) Téléchargé 104 fois

Exemple de script :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "GUIScrollbars_Ex.au3"

$hGUI = GUICreate("Test", 500, 500)
$header = GUICtrlCreateLabel("header", 0, 0, 500, 100)
GUISetState()

$hGUI2 = GUICreate("Test2", 500, 400, 0, 100, $WS_CHILD, -1, $hGUI)
GUICtrlCreateLabel("", 0, 0, 500, 2000)
GUICtrlSetBkColor(-1, 0xffFFff)
    For $i = 0 To 10
        GUICtrlCreateLabel($i, 10, $i * 50+10, 300, 45)
        GUICtrlSetBkColor(-1, 0xFF8080)
    Next

GUISetState()

; Generate scrollbars 
_GUIScrollbars_Generate($hGUI2, 0, 2000)


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
 

[Bayo]

OK merci pour ton aide, ça fonctionne