الإخوة الأعزاء
السلام عليكم ورحمة الله وبركاتة
أريد إسناد قيمة SelectedValue لعنصر في قائمة ListBox1 إلى متغير من نوع integer ؟
الكود التالي لم يعمل بالشكل المطلوب
Public Class Form1
Dim adpa As New OleDb.OleDbDataAdapter
Dim dsa As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
If CON.State = ConnectionState.Closed Then
CON.Open()
End If
adpa = New OleDb.OleDbDataAdapter("select * from area", CON)
dsa = New DataSet
adpa.Fill(dsa, "area")
If dsa.Tables("area").Rows.Count > 0 Then
ListBox1.DataSource = dsa.Tables("area")
ListBox1.DisplayMember = "name_area"
ListBox1.ValueMember = "no_area"
ListBox1.SelectedItem = 0
CON.Close()
End If
If CON.State = ConnectionState.Open Then
CON.Close()
End If
Catch
End Try
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
'لا أريدها هكذا أريدها في متغير
'TextBox1.Text = ListBox1.SelectedValue.ToString
' هنا تظهر المشكلة
Dim x As Integer
x = CInt(ListBox1.SelectedValue)
TextBox1.Text = x
End Sub
End Classالمشكلة واضحة في الملف المرفق