arsalansalar
دوشنبه 30 دی 1387, 10:21 صبح
من یک برنامه نوشتم که میاد عکسها را به صورت slide نمایش میدهد.
اما هر دفعه فقط یک عکس را نمایش می دهد.
در آن قسمتی که قرمز کردم.می خواهم تمامی عکسهای در FileListBox1 را نمایش دهد ولی فقط اولین آیتم لیست باکس را show می کند:
اینم کدم:
Imports System.Windows.Forms
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Public Class Form4
Dim k As Integer
Dim n As Integer = 0
Dim u As Integer
Public Shared stringID As String
Public Shared ADD_edit_STATE As Boolean
Private Adapter As New OleDbDataAdapter()
Private DS As New DataSet
Dim CN As OleDbConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OpenFileDialog1
.Filter = "jpg|*.jpg"
.FileName = ""
.Multiselect = True
.Title = "entekhab koon ax moredenazareto"
.InitialDirectory = "C:\my pictures"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
Dim javad() As String = OpenFileDialog1.FileNames
Dim j As String
For Each j In javad
Me.FileListBox1.Items.Add(j)
Next
k = FileListBox1.Items.Count.ToString
Label1.Text = k & " ta ax entekhabshod "
Timer1.Enabled = True
End If
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
''''''''''''''
For i As Integer = 0 To FileListBox1.Items.Count - 1
Try
PictureBox1.Image = Image.FromFile(FileListBox1.Items(0))
Catch jj As Exception
End Try
Next
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
n = n + 1
Me.PictureBox1.Height = n
Select Case Me.PictureBox1.Height = n
Case Me.PictureBox1.Height = 398
n = 150
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileListBox1.Items.Clear()
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
End Sub
اما هر دفعه فقط یک عکس را نمایش می دهد.
در آن قسمتی که قرمز کردم.می خواهم تمامی عکسهای در FileListBox1 را نمایش دهد ولی فقط اولین آیتم لیست باکس را show می کند:
اینم کدم:
Imports System.Windows.Forms
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Public Class Form4
Dim k As Integer
Dim n As Integer = 0
Dim u As Integer
Public Shared stringID As String
Public Shared ADD_edit_STATE As Boolean
Private Adapter As New OleDbDataAdapter()
Private DS As New DataSet
Dim CN As OleDbConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OpenFileDialog1
.Filter = "jpg|*.jpg"
.FileName = ""
.Multiselect = True
.Title = "entekhab koon ax moredenazareto"
.InitialDirectory = "C:\my pictures"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
Dim javad() As String = OpenFileDialog1.FileNames
Dim j As String
For Each j In javad
Me.FileListBox1.Items.Add(j)
Next
k = FileListBox1.Items.Count.ToString
Label1.Text = k & " ta ax entekhabshod "
Timer1.Enabled = True
End If
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
''''''''''''''
For i As Integer = 0 To FileListBox1.Items.Count - 1
Try
PictureBox1.Image = Image.FromFile(FileListBox1.Items(0))
Catch jj As Exception
End Try
Next
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
n = n + 1
Me.PictureBox1.Height = n
Select Case Me.PictureBox1.Height = n
Case Me.PictureBox1.Height = 398
n = 150
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FileListBox1.Items.Clear()
PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
End Sub