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