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

Soyez le premier à donner votre avis sur cette source.

Vue 2 714 fois - Téléchargée 202 fois

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!!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
5
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
24 octobre 2003

Un bon script très utile. Et le niveau 2 est mérité (pour ceux qui en douté).

Bonne prog.
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007

cool AtomikTopinambour,

Lolux, c'est quoi le niveau 2 pour toi? un débutant te fait pas ça...
Messages postés
159
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
15 septembre 2005

niveau 2 ... t'y va fort mon vieux ... soit un peu objectif; ya effectivement pas de bugs, mais avec un code de 50 lignes ya pas de risque ...
A plouch ! ;-)
Messages postés
17
Date d'inscription
mercredi 26 juin 2002
Statut
Membre
Dernière intervention
27 juin 2002

On ne l'arrête plus aujourd'hui celui la ! 8-O

Sympa le changement de police de caractère, ça va me servir. Merci.

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.