آره دقیقا مشکل عجیبی هست معلوم نیست مشکل کجای کاره و از چیهنقل قول:
این عکس کپی میشه و بعد آپدیت میشه ولی فرقی نمیکنه حتی 10 ثانیه هم صبر کنی بازم مشکل هست برای بار اول که کلیک میکنی روشنقل قول:
Printable View
آره دقیقا مشکل عجیبی هست معلوم نیست مشکل کجای کاره و از چیهنقل قول:
این عکس کپی میشه و بعد آپدیت میشه ولی فرقی نمیکنه حتی 10 ثانیه هم صبر کنی بازم مشکل هست برای بار اول که کلیک میکنی روشنقل قول:
تو این رویداد امکان استفاده از پارامتر برای دریافت مقادیر نیست و با ارور مواجه میشه کارنقل قول:
e.Item.SubItems(5).Text قایل استفاده نیست که بخوام تو PictureBox2.ImageLocation مقدار بدم
یک پیشنهادی شاید جواب داد .. در انتهای دکمه ی ادیت فکوس رو روی لیست و اولین گزینه بده به این صورت شاید اون رویداد بموقع اتقاق بیفته..
اینم جالبه :n09:نقل قول:
با دستورنقل قول:
ListView1.Items(0).Selected = True
این کار رو انجام دادم ولی باز هم فایده ای نداشت متاسفانه
با دستور .FocusedItem امتحان بکن ..
اگر برات امکان داره دستور های edit رو هم بگذار شاید کلید این مشکل عجیب اونجا باشه
با این دستورنقل قول:
listView1.FocusedItem = listView1.Items.Item(0)
هم تست کردم نشد
الان کد دکمه edit رو هم قرار میدم
کد دکمه Edit :
کد:Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
On Error Resume Next
ListView1.Items.Clear()
If ImgPaths <> Nothing Then
System.IO.File.Delete(pics)
Dim rnds As New Random
Dim temps As String
temps = rnds.Next(100000, 999999).ToString()
File.Copy(ImgPaths, Environment.CurrentDirectory & "\CustomerPictures\" & temps & ".JPG")
Dim stream As New FileStream(Environment.CurrentDirectory & "\CustomerPictures\" & temps & ".JPG", FileMode.Open)
If (RadioButton4.Checked = True) Then
ss = "Male"
ElseIf (RadioButton3.Checked = True) Then
ss = "Female"
End If
Dim con As New SqlConnection()
con.ConnectionString = "Data Source=.\SQLExpress;AttachDbFilename=|DataDirectory|\Automation.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True;"
con.Open()
Dim com As New SqlCommand()
com.Connection = con
Dim sql As String
sql = "UPDATE Login SET UserName = '" & TextBox8.Text & "', Password='" & TextBox7.Text & "', Gender='" & ss & "', BirthYear='" & ComboBox2.SelectedItem & "', Picture='" & temps & "', Phone='" & TextBox6.Text & "', Email='" & TextBox5.Text & "' WHERE (ID = '" & Label12.Text & "')"
com.CommandText = sql
com.ExecuteNonQuery()
MsgBox("User Edited Successfully")
Me.Refresh()
Else
If (RadioButton4.Checked = True) Then
ss1 = "Male"
ElseIf (RadioButton3.Checked = True) Then
ss1 = "Female"
End If
Dim con As New SqlConnection()
con.ConnectionString = "Data Source=.\SQLExpress;AttachDbFilename=|DataDirectory|\Automation.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True;"
con.Open()
Dim com As New SqlCommand()
com.Connection = con
Dim sql As String
sql = "UPDATE Login SET UserName = '" & TextBox8.Text & "', Password='" & TextBox7.Text & "', Gender='" & ss1 & "', BirthYear='" & ComboBox2.SelectedItem & "', Phone='" & TextBox6.Text & "', Email='" & TextBox5.Text & "' WHERE (ID = '" & Label12.Text & "')"
com.CommandText = sql
com.ExecuteNonQuery()
MsgBox("User Edited Successfully")
Me.Refresh()
End If
Dim Lst As ListViewItem
PubSqlCon.ConnectionString = PubStrConString
PubSqlCom.CommandText = "SELECT * FROM Login "
PubSqlCom.Connection = PubSqlCon
If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()
PubSqlDR = PubSqlCom.ExecuteReader()
If PubSqlDR.HasRows Then
While PubSqlDR.Read()
Lst = ListView1.Items.Add(PubSqlDR("ID"))
Lst.SubItems.Add(1).Text = (PubSqlDR("UserName"))
Lst.SubItems.Add(2).Text = (PubSqlDR("Password"))
Lst.SubItems.Add(3).Text = (PubSqlDR("Gender"))
Lst.SubItems.Add(4).Text = (PubSqlDR("BirthYear"))
Lst.SubItems.Add(5).Text = (PubSqlDR("Picture"))
Lst.SubItems.Add(6).Text = (PubSqlDR("Phone"))
Lst.SubItems.Add(7).Text = (PubSqlDR("Email"))
End While
End If
If PubSqlCon.State = ConnectionState.Open Then PubSqlCon.Close()
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
RadioButton3.Checked = False
RadioButton4.Checked = False
PictureBox2.Image = My.Resources.Pictures_Canon_icon
ComboBox2.SelectedIndex = -1
GroupBox6.Enabled = False
GroupBox1.Enabled = False
End Sub
راستش آلان واقعا شرایط درست فکر کردن رو ندارم .. اما چرا نوشتی :
شما بجای خالی کردن همون اطلاعات ویرایش شده به بدید .. با این کار کلا این مشکل حل می شه(البته بشتر مثل پاک کردن صورت مسله می مونه اما به هرحال مثل اسپرین می مونه)کد:
TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" RadioButton3.Checked = False RadioButton4.Checked = False PictureBox2.Image = My.Resources.Pictures_Canon_icon ComboBox2.SelectedIndex = -1 GroupBox6.Enabled = False GroupBox1.Enabled = False
نقل قول:
این قسمت که فقط جهت خالی کردن مقدارهای داخل textbox ها و بقیه ابزارهای روی فرم یعد از ویرایش هست (برگشت به حالت اول)