En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
2 tane button yapıştırın kodlar aşağıdadır. 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
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