DorukTR.com Kişiselleştir-->

Site İçi Arama

Site Anket

Dost Siteler

www.azedizayn.com
www.sinemay.com
www.google.com
www.e-devlet.com
www.kelebek.cc
www.sevgisohbet.net
www.askialem.net
www.turkchat.biz
www.turkchat.in
www.sultangazi.info
www.pespembe.net
www.ischat.net

Visual Basic'te Resim Gösterme | Hit : 93

Visual Basic'te 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

Yorumlar

İsminiz
Yorumunuz

Henüz bu içeriğe yorum yazılmamış.
İlk yazan siz olun

Doruktr.Com, Bu sayfada yer alan bilgilerin her hakkı, aksi ayrıca belirtilmediği sürece Doruktr.Com'a aittir. Sitemizde yer alan içerik ilgili telif hakları şiirler bölümü için şairlerin kendilerine, diğer bölümler için içeriği ekleyen kişiye aittir. Sitemiz hiç bir şekilde kâr amacı gütmemektedir ve sitemizde yer alan tüm materyaller yalnızca bilgilendirme ve eğitim amacıyla sunulmaktadır.Hiçbir şekilde sorumluluk kabul edilmez.