Başlangıç > Kodlar > VB.NET ile Seçtiğiniz resimler arasında geçişler yapmak

VB.NET ile Seçtiğiniz resimler arasında geçişler yapmak


2 Tane button ekleyin ve kodları yapıştırın(hata yok)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 1000
PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
OpenFileDialog1.ShowHelp = True
OpenFileDialog1.Filter = "Resimler|*.GIF;*.BMP;*.JPG;*.WMF;*.PNG;*.ICO"
OpenFileDialog1.Title = "Gösterilecek Resimleri Seçiniz"
OpenFileDialog1.Multiselect = True
OpenFileDialog2.ShowHelp = True
OpenFileDialog2.Filter = "Geçici dosyalar|*.TMP;*.~*;~*.*|" & _
"Bütün dosyalar|*.*"
OpenFileDialog2.Title = "Sileceğniz Dosyaları Seçiniz"
OpenFileDialog2.Multiselect = True
OpenFileDialog2.ShowReadOnly = True

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Timer1.Enabled = True
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As DialogResult
c = MsgBox("Dikkat! Seçtiğiniz bütün dosyalar silinecek", _
MsgBoxStyle.Critical + MsgBoxStyle.OkCancel + MsgBoxStyle.DefaultButton2, _
"Dikkat")
If c = Windows.Forms.DialogResult.OK Then
Dim i
For i = 0 To OpenFileDialog2.FileNames.Length - 1
Try
Kill(OpenFileDialog2.FileNames(i))
Catch
MsgBox(OpenFileDialog2.FileNames(i) & " Bu dosya silinemedi")
End Try
Next
End If
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i
i += 1
i = i Mod OpenFileDialog1.FileNames.Length()
Try
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileNames(i))
Me.Text = OpenFileDialog1.FileNames(i)
Catch
Me.Text = OpenFileDialog1.FileNames(i) & " dosyası geçersiz"
End Try
End Sub

Private Sub OpenFileDialog1_HelpRequest(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFileDialog1.HelpRequest
MsgBox("Gösterilecek resimleri seçiniz. Birden fazla resmi seçmek için Shift veya Ctrl tuşlarını basılı tutunuz")
End Sub

Private Sub OpenFileDialog2_HelpRequest(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFileDialog2.HelpRequest
MsgBox("Silinecek dosyaları seçiniz. Birden fazla resmi seçmek için Shift veya Ctrl tuşlarını basılı tutunuz")
End Sub


TD Software


Reklamlar
  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: