Autre convertisseur(pixel, twips, points).

Télécharger le projet
Commenter

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 :)
Télécharger le projet

Codes Sources

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)