Page 1 sur 1
[R] GUICtrlCreateList et Scroll horizontal
Posté : lun. 17 déc. 2007 21:13
par Vins83
Salut les jeunes,sa fart?
Voilà mon petit souci,un peu bete,mais y a un truc qui m'échappe sur un :
Code : Tout sélectionner
GUICtrlCreateList ( "" , 5 , 80 , 790 , 495 , BitOR ( $WS_VSCROLL , $WS_HSCROLL , $LBS_DISABLENOSCROLL ) )
Le Scroll ne fonctionne pas en horizontal.... et seulement en vertical... une idée?
Posté : lun. 17 déc. 2007 21:44
par MiXS
Ben ca va super
Mais le script ?
Posté : mar. 18 déc. 2007 05:35
par Vins83
Hello ,ben je pensé que c'était pas forcement important le reste a vrai dire...
► Afficher le texte
Code : Tout sélectionner
#include <GUIConstants.au3>
;Variables
Global $Titre = "LiveCD"
Global $version = "0.0.1"
Global $7z = "7z.exe"
$CreateurISO = GUICreate ( "LiveCD" , 800 , 600 , - 1 , - 1 )
GUICtrlSetFont ( - 1 , 20 , 400 , 0 , "Arial" )
GUISetIcon ( @ScriptDir & "\LiveCD.exe" , 0 )
; dossier source
GUICtrlCreateLabel ( "Sélectionner le dossier Source I386 ( CD Microsoft Windows XP ) :" , 10 , 13 , 315 , 25 )
$InputDossierI386 = GUICtrlCreateInput ( "" , 325 , 10 , 440 , 20 , - 1 , $WS_EX_CLIENTEDGE )
$BouttonDossierI386 = GUICtrlCreateButton ( "..." , 770 , 9 , 25 , 22 )
; Créer le LiveCD
$BouttonCreerliveCD = GUICtrlCreateButton ( "Créer le LiveCD" , 5 , 40 , 260 , 30 )
; Vue de la Copie en cour
$livecd = GUICtrlCreateList ( "" , 5 , 80 , 790 , 495 , BitOR ( $WS_VSCROLL , $WS_HSCROLL , $LBS_DISABLENOSCROLL ) )
GUISetState ( @SW_SHOW )
While 1
$msg = GUIGetMsg ( )
Select
; Exit
Case $msg = $GUI_EVENT_CLOSE
Exit
; Boutton Dossier Source I386
Case $msg = $BouttonDossierI386
choisissezledossiersources ( )
; Créer le LiveCD
Case $msg = $BouttonCreerliveCD
creationdulivecd ( )
GUICtrlSetState ( $BouttonCreerliveCD , $gui_disable )
EndSelect
WEnd
; Choisissez le dossier Sources
Func choisissezledossiersources ( )
Local $ChoixDossier = FileSelectFolder ( "Choisissez le dossier Sources I386 de votre CD Windows XP" , "" )
If StringRight ( $ChoixDossier , 4 ) <> "I386" Then
MsgBox ( 4096 , "" , "Vous n'avez pas choisi le dossier nommé I386" , 3 )
choisissezledossiersources ( )
Else
GUICtrlSetData ( $InputDossierI386 , $ChoixDossier )
GUICtrlSetState ( $BouttonCreerliveCD , $gui_enable )
EndIf
EndFunc ; == >choisissezledossiersources
; Fonction de création du liveCD
Func creationdulivecd ( )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Extraction des Drivers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ADM8511.SYS
If Not FileExists ( GUICtrlRead ( $InputDossierI386 ) & "\driver.cab" ) Then
GUICtrlSetData ( $livecd , 'Extraction de "' & GUICtrlRead ( $InputDossierI386 ) & '\driver.cab\ADM8511.SYS" a échoué' )
Else
RunWait ( '"' & @ScriptDir & '\7z.exe" - y x "' & GUICtrlRead ( $InputDossierI386 ) & '\driver.cab" - o"' & @ScriptDir & '\LiveCD\i386\system32\DRIVERS\" ADM8511.SYS ADPTSF50.SYS - r' , '' , @SW_HIDE )
GUICtrlSetData ( $livecd , 'Extraction de "' & GUICtrlRead ( $InputDossierI386 ) & '\driver.cab\ADM8511.SYS" vers "' & @ScriptDir & '\LiveCD\i386\system32\DRIVERS\ADM8511.SYS"' )
EndIf
EndFunc ; == >creationdulivecd
Voilà les jeunes,et merci pour votre aide.
Posté : mar. 18 déc. 2007 12:06
par MiXS
Ben j'ai essayé chez moi et c'est pareil !
J'ai cherché un peu sur le net et j'ai pas trouvvé grand chose a ce sujet (peut-etre qu'il y a quelque chose mais j'ai pas vu) !
Enfin bon j'aimerais bien savoir moi aussi car la c'est bizarre !
Posté : mar. 18 déc. 2007 12:10
par arrkhan
Plop,
le sujet à déja été abordé sur ce forum il me semble (ou sur l'ancien)
Allez donc faire un tour par ici =
http://www.autoitscript.com/forum/index ... opic=34433
Posté : mer. 19 déc. 2007 11:50
par ani
bonjour,
Alors je vais vous donner une petite aide supplémentaire, lors d'un problème simple ou complexe, rien ne sert de faire des recherches sur le web, les solution se trouve dans l'aide, rien ne vous empeche d'y faire une recherche sur les mots clé comme $WS_VSCROLL , $WS_HSCROLL , $LBS_DISABLENOSCROLL, vous y trouverez divers exemple et des fonction dont vous n'utilisez pas, si ca ne fonctionne toujours pas, aller sur le site de l'éditeur faite une recherche avec les mots clé, si la recherche n'amène à rien, faite la demande ici :p
déclare le dim
Code : Tout sélectionner
dim $livecd
$livecd=GUICtrlCreateList ( "" , 5 , 80 , 790 , 495 , $WS_VSCROLL + $WS_HSCROLL)
ou
Code : Tout sélectionner
$livecd = GUICtrlCreateList ( "" , 5 , 80 , 790 , 495 , BitOR ( $WS_VSCROLL , $LBS_DISABLENOSCROLL , $WS_HSCROLL ) )
ou bien utiliser un GUICtrlCreateEdit a la place du GUICtrlCreateList .
regarder l'include GuiEdit.au3 qui dispose de pas mal d'ajout, ma version n'est pas ajour
