Anasayfa > Kodlar > Visual Basic 6 ile resim göstermek

Visual Basic 6 ile resim göstermek


Gerekenler :1 DriveListBox,1 DirListBox,1 FileListBox,5 command butonu,2 TextBox,1 PictureBox



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

 


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: