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