Contrôle boîtes de dialogue standard (niveau 2) je pense...

Télécharger le projet
Commenter

Description

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!!!
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 (cs_steven007)