bonjour,
La bible dit :Ces contrôles peuvent servir à créer des ascenseurs pour faire défiler le contenu d'une boite de dialogue,
mais ceci est assez complexe et rarement utile.
Si c'est Bernard et Laurent qui l'écrivent, je veux bien les croire, et j'aurais tendance à chercher une autre solution...
L'exemple donné par la bible pour le controle d'un niveau sonore
Code : Tout sélectionner
'la valeur correspondant à la position du curseur se trouve dans la propriété Value, qui est du type double.
Option Explicit
Sub Main1()
Dim dlg As Object, champReglage As Object, reglage As Double
dlg = CreerDialogue("Reglage", "Dialog1")
if dlg.execute = com.sun.star.ui.dialogs.ExecutableDialogResults.OK then
champReglage = dlg.getControl("ScrollBar1")
reglage = champReglage.Value
Print "Régler le volume à : " & reglage & "%"
end if
dlg.dispose
End Sub
Comme tu as l'exemple de Mr Bronchard sur ton disque dur, pourquoi n'utilise tu pas des boites en cascade, en segmentant les renseignements dont tu as besoins. Elles s'ouvriraientt les unes à la suite des autres, plus simple à créer, plus lisible et plus claire pour l'utilisateur .
Cordialement
Luke
.
