Bir Sanal Site Paylaşımı - Visual basicte resim gösterme

Visual basicte resim gösterme

(GEREKENLER )
1 DriveListBox
1 DirListBox
1 FileListBox
5 command butonu
2 TextBox
1 PictureBox

Kod Alanı:

Option Explicit
Private Sub Command1_Click( )
    On Error Resume Next
    Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &H550009
End Sub

Private Sub Command2_Click( )
        On Error Resume Next
        Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020
End Sub
Private Sub Command3_Click( )
        On Error Resume Next
        Picture1.PaintPicture Picture1.Picture, 0, Picture1.ScaleHeight, Picture1.ScaleWidth, -Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020
End Sub

Private Sub Command4_Click( )
        On Error Resume Next
        Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, Picture1.ScaleHeight, -Picture1.ScaleWidth, -Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020
End Sub

Private Sub Command5_Click( )
        On Error Resume Next
        Text2 = Val(Text2 )
        Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth * Text2 / 100, Picture1.ScaleWidth * Text2 / 100, 0, 0, Picture1.ScaleHeight, Picture1.ScaleHeight, &HCC0020
End Sub

Private Sub Dir1_Change( )
        File1.Path = Dir1.Path
        ChDir File1.Path
End Sub

Private Sub Drive1_Change( )
        Dir1.Path = Drive1.Drive
        ChDrive Dir1.Path
End Sub

Private Sub File1_Click( )
        On Error Resume Next
        Picture1.Picture = LoadPicture(File1.filename )
End Sub

Private Sub Form_Load( )
        Text1 = "*.bmp;*.wmf;*.ico;*.dib;*.gif;*jpg;*.emf;*.cur;*"
        Picture1.AutoSize = True
        Picture1.AutoRedraw = True
        Text2 = 50
End Sub

Private Sub Picture1_Click( )

End Sub

Private Sub Text1_Change( )
        On Local Error Resume Next
        File1.Pattern = Text1
End Sub