Anasayfa > Kodlar > Visual Basic ile Slayt gösteriyormuş gibi yapmak

Visual Basic ile Slayt gösteriyormuş gibi yapmak


Drive ,dir ,file nesnelerinin kullanımı resim gösterimi,dosya yolunu bulma, ileri geri kontrolu

 

Dim i
Private Sub Command1_Click()
If File1.ListCount = 0 Then
MsgBox "bulunduğunuz klasörde resim bulunmamaktadır.."
Else
If i = 0 Then
i = File1.ListCount
Else
i = i - 1
File1.ListIndex = i
End If
End If
End Sub

Private Sub Command2_Click()
If File1.ListCount = 0 Then
MsgBox "bulunduğunuz klasörde resim bulunmamaktadır.."
Else
If File1.ListCount > 1 Then
If i = File1.ListCount - 1 Then
i = 1
Else
i = i + 1
File1.ListIndex = i
End If
End If
End If
End Sub

Private Sub Dir1_Change()
File1.FileName = Dir1.Path

End Sub

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

Private Sub File1_Click()
Text1.Text = File1.Path + "\" + File1
Image1.Picture = LoadPicture(File1.Path + "\" + File1)
i = File1.ListIndex

End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg"
File1.Pattern = "*.bmp"
File1.Pattern = "*.BMP"
File1.Pattern = "*.JPG"
i = 1

End Sub

{
yeni bir form açın ve aşağıdaki nesneleri ekleyin.

1adet drivelistbox
1adet dirlistbox
1adet filelistbox
1adet textbox
1adet image
2adet button
}

Reklamlar
  1. asd
    17/11/2012, 11:28

    teşekkürler işime yaradı

    Beğen

  1. No trackbacks yet.

Bir Yanıt Bırakı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: