pictureboxta resimler otomatik ilerleme

[styleworld]

Visual basic te butona tıkladığımızda picturebox ta resimler kendi kendine değişicek bunun kodunu bilen ??

örneğin listbox 1 de cafer,kazım falan yazıyo cafere tıklayıp butona bastığımızda picturebox1 de caferin fotoğrafı kazımı seçip butona bastığımızda picturebox1 de kazımın fotoğrafı çıkmasını istiyorum.....

bunun kodunu bilen çok acil yazsın =((

 

[cakir]

Sanırım AşağıdaKi Gibi Birşey

​

Buyur Buda Kodları Keşke Biraz ÇalışdıkTan Sonra Takıldığın Yeri Yazsa İdin Yardımcı Olurduk Hazır Kodlar İle Bir Yere Kadar Gidebilirsin ( :



Imports c_Manager = VISUAL_BASIC_WINDOWS_1.My.MySettings
Imports System.Data.SqlClient

Public Class frm_DataBindings


Public ds As New DataSet()
Public Shared ReadOnly _ConnectionString As String = c_Manager.Default.North


Private Sub frm_DataBindings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Doldur_PageLoad()
End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

If Me.BindingContext(ds.Tables("Categories")).Position <= 0 Then
MessageBox.Show("Zaten İlk Kayıtdasınız ?", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Me.BindingContext(ds.Tables("Categories")).Position = 0
End If

End Sub

Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click

Me.BindingContext(ds.Tables("Categories")).Position -= 1
End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
Me.BindingContext(ds.Tables("Categories")).Position += 1
End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

Dim myPosition As Integer = Me.BindingContext(ds.Tables("Categories")).Position
Dim myCount As Integer = Me.BindingContext(ds.Tables("Categories")).Count

If myPosition >= myCount - 1 Then
MessageBox.Show("Zaten Son Kayıtdasınız ?", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Me.BindingContext(ds.Tables("Categories")).Position = ds.Tables("Categories").Rows.Count - 1
End If

End Sub



Public Sub Doldur_PageLoad()

Using cn As New SqlConnection(_ConnectionString)

Dim strSELECT As String = "SELECT CategoryID,CategoryName,Description,Picture FROM Categories"

Using da As New SqlDataAdapter(strSELECT, cn)

If da.SelectCommand.Connection.State <> ConnectionState.Open Then
da.SelectCommand.Connection.Open()
End If

da.Fill(ds, "Categories")
da.SelectCommand.Connection.Close()

txtCategoryID.DataBindings.Add("Text", ds.Tables("Categories"), "CategoryID")
txtCategoryName.DataBindings.Add("Text", ds.Tables("Categories"), "CategoryName")
txtDescription.DataBindings.Add("Text", ds.Tables("Categories"), "Description")
pcbPicture.DataBindings.Add("Image", ds.Tables("Categories"), "Picture", True)

End Using

End Using

End Sub

End Class

 

[styleworld]

Biz bu konulara gelmedik daha o yüzden bilmiyorum kendi kafamdan program yapıyorum o yüzden arıyorum. Mesela şu örnek verdiğim gibi birşey ??