Autre convertisseur(pixel, twips, points).

Soyez le premier à donner votre avis sur cette source.

Vue 4 377 fois - Téléchargée 272 fois

Description

Peut être améliorer et contenir tout le reste (vbinches...) etc !
@ bientôt VIC !

Source / Exemple :


Option Explicit
'--------------

Private mvarUnite As Integer

Private Sub btnConvert_Click()
    Dim i As Integer, blnErreur As Boolean
    ' ----
    blnErreur = True
    
    For i = 0 To text.UBound    'Vérifie le contenu
        If text(i) <> "" Then
            If IsNumeric(text(i)) Then
                blnErreur = False
                Exit For
            End If
        End If
    Next
    ' ----
    If blnErreur Then
        MsgBox "Pas de chiffre saisie !", vbExclamation, "ERREUR"
        Exit Sub
    End If
    ' ----
    mvarUnite = i
    pData
End Sub

Private Sub btnQuit_Click()
    Unload Me
End Sub

Private Sub pData()
    Dim i As Integer
    picCalcul.ScaleMode = mvarUnite + 1
    picCalcul.Width = text(mvarUnite)
    
    For i = 0 To text.UBound
        text(i) = picCalcul.ScaleX(text(mvarUnite), mvarUnite + 1, i + 1)
    Next
End Sub

Private Sub Text_Click(Index As Integer)
    Dim i As Integer
    For i = 0 To text.UBound
        text(i) = ""
    Next
End Sub

Conclusion :


Voir le zip pour le fonctionnement.

L'astuce c'est d'utiliser un pictureBox non visible qui est modifié en conséquence du choix de l'utilisateur.

bonne prog :)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
119
Date d'inscription
lundi 15 avril 2002
Statut
Membre
Dernière intervention
28 novembre 2008

Salut vico qu'est ce que tu fais de beau...
Joli source

A plus
Messages postés
28
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
10 mars 2004

Merci pour ce code, preuve que tu fais partie des bons et que je n'ai pas compris ton approche dans l'intro. La fatigue ?
Cordialement.

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.