Il y a quelques années (de + en + !!) on se frappait l'interface d'un prg en partant de ZERO.
Alors je revisite le concept... juste une fois question de savoir ce que suppose Scaleheight et Scalewidth.
J'imagine certain, à faire ouaffff kk c'est ??
alors je plante le décors : c'est un code pour newbie. Et j'espère que ça pourra aider
Source / Exemple :
Private Const LONGUEUR_BARRE = 100
Private Const MARGEHAUT = 10
Private Const MARGEBAS = 5
'----
Private Sub form_load()
ScaleMode = vbPixels
AutoRedraw = True
End Sub
'***********************
Private Sub Form_Resize()
Dim LONGUEUR_TOTAL As Integer 'la règle veut que
Dim LARGEUR_TOTAL As Integer 'seul les constantes
'-------------------------------soient en majuscules...
'-------------------------------mais bon :)
LONGUEUR_TOTAL = ScaleWidth'taille de la feuille
LARGEUR_TOTAL = ScaleHeight'taille de la feuille
'----
Me.Cls'efface tout et
'appel la routine qui déssine la forme en lui
'passant les paramêtres
'----------------------
DrawBar (LONGUEUR_TOTAL / 2) - (LONGUEUR_BARRE / 2), _
(LARGEUR_TOTAL - MARGEHAUT), _
(LONGUEUR_TOTAL / 2) + (LONGUEUR_BARRE / 2), _
(LARGEUR_TOTAL - MARGEBAS)
End Sub
'***********************
Private Sub DrawBar(x1 As Integer, y1 As Integer, _
x2 As Integer, y2 As Integer)
'----
Line (x1, y1)-(x2, y2), vbBlack, BF
'----
Debug.Print x1 & "-" & y1 & "\" & x2 & "-" & y2 & _
" Form : " & ScaleHeight & " \ " & ScaleWidth
'----
End Sub
'***********************
Cut And Past >> CAP !!
Conclusion :
Une remarque : Vaut mieux savoir parler angl.. américain de nos jours :)
@+
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.