Nix ton site il foire de temps en temps... cette source je l'ai ajoutée 2 fois avant qu'elle soit affichée...
Ce prog permet d'ouvrir des images de types: *.BMP;*.gif;*.jpg;*.wmf;*.ico et il permet de modifier la police d'un caractère d'un richtextbox
NIVEAU 2
Source / Exemple :
Option Explicit
Dim mstrFilt As String
Private Sub Form_Load()
mstrFilt = "Fichiers image|*.BMP;*.gif;*.jpg;*.wmf;*.ico|" _
& "Bitmaps (*.BMP)|*.BMP|" _
& "Images GIF (*.gif)|*.gif|" _
& "Images JPEG (*.jpg)|*.jpg|" _
& "Symbole (*.ico)|*.ico"
rtfDemo.Span ".!?:", True, True
rtfDemo.SelLength = rtfDemo.SelLength + 1
End Sub
Private Sub mnufichierimage_Click()
Dim blnAnnuler As Boolean
On Error GoTo traitementErreur
blnAnnuler = False
'L'utilisateur ne peut passer que des noms
'de fichiers existants
dlgDemo.Flags = cdlOFNFileMustExist
dlgDemo.Filter = mstrFilt
dlgDemo.ShowOpen
If Not blnAnnuler Then
imgdemo.Picture = LoadPicture(dlgDemo.FileName)
End If
Exit Sub
traitementErreur:
If Err.Number = cdlCancel Then
blnAnnuler = True
Resume Next
Else
MsgBox Err.Description
End If
End Sub
Private Sub mnufichierquitter_Click()
Unload Me
End Sub
Private Sub mnuformatpolice_Click()
Dim blnAnnuler As Boolean
On Error GoTo traitementErreur
blnAnnuler = False
'Affiche les polices d'écran et d'imprimante
'qui sont des polices TrueType, avec effets
dlgDemo.Flags = cdlCFBoth Or cdlCFTTOnly Or cdlCFEffects
dlgDemo.ShowFont
If Not blnAnnuler Then
With rtfDemo
.SelFontName = dlgDemo.FontName
.SelFontSize = dlgDemo.FontSize
.SelBold = dlgDemo.FontBold
.SelItalic = dlgDemo.FontItalic
.SelStrikeThru = dlgDemo.FontStrikethru
.SelUnderline = dlgDemo.FontUnderline
.SelColor = dlgDemo.Color
End With
End If
Exit Sub
traitementErreur:
If Err.Number = cdlCancel Then
blnAnnuler = True
Resume Next
Else
MsgBox Err.Description
End If
End Sub
Conclusion :
y a pas de bug,
http://www.steven007.fr.st
merci de laisser vos commentiares!!!
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.