تيديل برنامه cبه vb

[karim orooji]

اين برنامه انتخاب ركورد رو به وسيله چك باكس رو گيرش آوردم
ولي زبانش C
متاسفانه من C ياد ندارم
از دوستان بررسيكنه ميتونه اين برنامه رو به vb تبديل كنه
اون سايت تبديل c به vb رو هم زدم يك جاهايي رو مشكل ميگيره

با تشكر

[karim orooji]

يك چيز ديگه توي اين برنامه زماني چك رو انتخاب ميكنيد بايد دكمه رو بزني بعد كار رو انجام بده
من ميخوام هم زماني چك خورده شد كار رو انجام بده

[milade]

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports DataGridControls
Namespace DataGridCheckbox
''' <summary>
''' Summary description for _default.
''' </summary>
Public Class _default
Inherits System.Web.UI.Page
Protected dgTestGrid As System.Web.UI.WebControls.DataGrid

Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
'Only bind the data once
If Not IsPostBack Then
BindData()
End If
End Sub
Private Sub BindData()
'Create a simple DataTable to add our Test Data to.
Dim dtTestData As New DataTable()

dtTestData.Columns.Add(New DataColumn("ID", GetType(Int32)))
dtTestData.Columns.Add(New DataColumn("Name", GetType(String)))

For i As Integer = 0 To 4
Dim drNewRow As DataRow = dtTestData.NewRow()

drNewRow("ID") = i
drNewRow("Name") = "Item " & (i + 5).ToString()

dtTestData.Rows.Add(drNewRow)
Next

'Make the DataKeyField the ID column from our dataset, the Name column will also work
dgTestGrid.DataKeyField = "ID"
dgTestGrid.DataSource = dtTestData
'Bind the Data

dgTestGrid.DataBind()
End Sub
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs)
'Get our checkboxcolumn, we know it's position is 0
Dim chkbox As CheckBoxColumn = DirectCast(dgTestGrid.Columns(0), CheckBoxColumn)

For Each datakeyfield As Object In chkbox.SelectedDataKeys
Response.Write(datakeyfield.ToString() & "<br>")


Next
End Sub
#Region "Web Form Designer generated code"
Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
'
' CODEGEN: This call is required by the ASP.NET Web Form Designer.
'
InitializeComponent()
MyBase.OnInit(e)
End Sub

''' <summary>
''' Required method for Designer support - do not modify
''' the contents of this method with the code editor.
''' </summary>
Private Sub InitializeComponent()

AddHandler Me.Load, AddressOf Me.Page_Load
End Sub
#End Region
End Class
End Namespace