Soyez le premier à donner votre avis sur cette source.
Vue 9 546 fois - Téléchargée 1 619 fois
Private Sub Form_Load() TailleReel.AutoSize = True Picture1.AutoRedraw = True End Sub Private Sub Command1_Click() Dim NewLargeur As Integer Dim NewHauteur As Integer Dim Coeff As Integer Dim x As Integer Dim y As Integer Picture1.Cls With CommonDialog1 .Filter = "(*.Jpg;*.bmp)|*.bmp;*.jpg" .ShowOpen End With TailleReel.Picture = LoadPicture(CommonDialog1.FileName) 'si la taille est plus petite que la picturebox If TailleReel.Width < Picture1.Width And TailleReel.Height < Picture1.Height Then Coeff = 1 x = (Picture1.Width - TailleReel.Width) / 2 y = (Picture1.Height - TailleReel.Height) / 2 GoTo Affiche_image End If 'definition du coefficient selon l'orientation de l'image If TailleReel.Width > TailleReel.Height Then Coeff = TailleReel.Width / Picture1.Width x = 0 y = (Picture1.Height - (TailleReel.Height / Coeff)) / 2 Else Coeff = TailleReel.Height / Picture1.Height x = (Picture1.Width - (TailleReel.Width / Coeff)) / 2 y = 0 End If Affiche_image: NewLargeur = TailleReel.Width / Coeff NewHauteur = TailleReel.Height / Coeff Picture1.PaintPicture TailleReel.Picture, x, y, NewLargeur, NewHauteur End Sub
18 sept. 2008 à 03:46
On Error Resume Next
' index 0 pas utilisé
ReDim Pbox(Count)
For i = 1 To Count
Set Pbox(i) = New StdPicture
Set Pbox(i) = LoadPicture(Prefix & Format(i, "0000") & "." & picType)
Next i
End Sub
22 mai 2007 à 18:15
merci pour le code mais je suis archi debutant et je ne sais pas si je peux l'intégrer sous vb6? si oui comment faire dans une form existante.
Merci d'avance
29 août 2005 à 18:13
15 août 2003 à 00:58
Dim Image As Picture
Set Image=Loadpicture(.....)
et là tu as les prop Image.Width et Height.... le tout sans controle
@++
8 août 2003 à 09:34
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.