Discussion :

[kleine05]

Bonjour,

je suis debutante en Vb! je suis entrai de faire une petite application, et dans une forme, je veux telecharger une image, j'ai reussi à faire ça, mais je veux faire un contrôle sur la taille de cette image! si la taille est différente d'une taille précise x/y je dois avoir un message d'erreur!

comment faire ça svp

Merci d'avance

[SilkyRoad]

bonjour


j'espere que cet exemple pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub dimensionsImage()
'necessite d'activer reference
'Microsoft Shell Controls and Automation
Dim objShell As Shell
Dim objFolder As Folder
Dim strFileName As FolderItem
Dim Chemin As String, Fichier As String
 
Chemin = "C:\le repertoire\"
Fichier = "nomImage.bmp"
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Chemin)
Set strFileName = objFolder.Items.Item(Fichier)
 
MsgBox objFolder.GetDetailsOf(strFileName, 26) & _ 
vbCrLf & _
objFolder.GetDetailsOf(strFileName, 27) & vbCrLf & _
objFolder.GetDetailsOf(strFileName, 28)
End Sub

bonne journée
michel

[jmfmarques]

Quand tu auras passé ce premier cap grâce à ce que vient de te montrer SilkY Road, Kleine, n'ésite pas à revenir vers nous (avec ton code) pour que nous puissions voir ensemble comment faire, si l'image est d'une taille (voire de proportions) différente, pour l'afficher malgré tout correctement sans dépasser les bornes de l'espace dédié à cet affichage.