Je crée par Koda un form, qui contient un label. Ce label contient plus de texte que le form ne peut en contenir.
Il n'apparait pas de barre verticale / ascenseur pour pouvoir lire l'ensemble du texte.
Comment pouvoir parcourir (scroller) ce texte ?
Merci d'avance
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=U:\myTools\$bin\testGuiScroll.kxf
$Form1 = GUICreate("Form1", 420, 220, 192, 114)
$Label1 = GUICtrlCreateLabel("Je suis le label du haut", 40, 24, 111, 17)
$Button1 = GUICtrlCreateButton("Fermer", 272, 24, 97, 17)
GUICtrlSetOnEvent(-1, "Button1Click")
$Label2 = GUICtrlCreateLabel("Label2", 40, 56, 333, 444)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData($Label2, "Sed ut perspiciatis, " _
& @CRLF & "unde omnis iste natus error sit voluptatem accusantium doloremque laudantium," _
& @CRLF & " totam rem aperiam eaque ipsa, quae ab illo inventore veritatis" _
& @CRLF & " et quasi architecto beatae vitae dicta sunt, explicabo. " _
& @CRLF & "Nemo enim ipsam voluptatem, quia voluptas sit, aspernatur aut odit aut fugit, " _
& @CRLF & "sed quia consequuntur magni dolores eos, qui ratione voluptatem sequi " _
& @CRLF & "nesciunt, neque porro quisquam est, qui dolorem ipsum, quia dolor sit, " _
& @CRLF & "amet, consectetur, adipisci velit, sed quia non numquam eius modi tempora incidunt, " _
& @CRLF & "ut labore et dolore magnam aliquam quaerat voluptatem. Ut enim ad minima veniam, " _
& @CRLF & "quis nostrum exercitationem ullam corporis suscipit laboriosam, " _
& @CRLF & "nisi ut aliquid ex ea commodi consequatur? Quis autem vel eum iure reprehenderit, " _
& @CRLF & "qui in ea voluptate velit esse, quam nihil molestiae consequatur, " _
& @CRLF & "vel illum, qui dolorem eum fugiat, quo voluptas nulla pariatur? [33] " _
& @CRLF & "At vero eos et accusamus et iusto odio dignissimos ducimus, qui blanditiis praesentium " _
& @CRLF & "voluptatum deleniti atque corrupti, quos dolores et quas molestias excepturi sint, " _
& @CRLF & "obcaecati cupiditate non provident, similique sunt in culpa, qui officia deserunt mollitia animi, " _
& @CRLF & "id est laborum et dolorum fuga. Et harum quidem rerum facilis est et expedita " _
& @CRLF & "distinctio. Nam libero tempore, cum soluta nobis est eligendi optio, cumque nihil impedit, " _
& @CRLF & "quo minus id, quod maxime placeat, facere possimus, omnis voluptas assumenda est, omnis dolor repellendus. " _
& @CRLF & "Temporibus autem quibusdam et aut officiis debitis aut rerum necessitatibus saepe eveniet, " _
& @CRLF & "ut et voluptates repudiandae sint et molestiae non recusandae. " _
& @CRLF & "Itaque earum rerum hic tenetur a sapiente delectus, ut aut reiciendis voluptatibus " _
& @CRLF & "maiores alias consequatur aut perferendis doloribus asperiores repellat.")
While 1
Sleep(100)
WEnd
Func Button1Click()
Exit
EndFunc