|
Private Sub Form_Load()
Dim NumPixelsComp As Long, NumPixelsOriz As Long, NumPixelsVert As Long NumPixelsComp = (Picture1.ScaleWidth * Picture1.ScaleHeight) Label1.Caption = Picture1.ScaleWidth & " Numero dei Pixels in orizzontale" Label2.Caption = Picture1.ScaleHeight & " Numero dei Pixels in verticale" Label3.Caption = NumPixelsComp & " Numero dei Pixels complessivi" End Sub Inserire in un form una PictureBox contenente un'immagine e tre Label. Prima di avviare il programma, impostare la proprieta' ScaleMode della PictureBox a 3 - Pixel |