Visual Basic te resim gösterme

empedoCles · #1 07-03-2006, 09:27 AM

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;*.cu r;*"
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

ahmet_dogan31 · #2 17-07-2006, 06:31 PM

EmeĞİne SaĞlik KardŞ SaĞol

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç