Un petit pas en arrière

Commenter

Contenu du snippet

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 :)

@+

A voir également

S'inscrire maintenant

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.

Du même auteur (VicoLaChips2)