mahnaz_tbe
یک شنبه 17 آذر 1387, 09:04 صبح
سلام
خواهش می کنم یکی جواب سوال منو بده.
اول اینکه می خوام کنار گزینه هام تو Listview یک Textbox بزارم و کنار Listview هم یک گزینه "انتخاب همه" که وقتی روی "انتخاب همه" کلیک میشه همه گزینه ها انتخاب بشه و برعکس.
همچنین وقتی روی یه گزینه ای کلیک میشه هم انتخاب بشه و هم CheckBox کنارش تیک بخوره و اگر تیک خورده، تیکش برداشته بشه و از حالت انتخاب هم خارج بشه.
الان با کدی که نوشتم این اتفاقا می افته ولی دو تا مشکل وجود داره. اول اینکه وقتی کنار گزینه ها کلیک می کنم و چند تا رو انتخاب می کنم، وقتی چک یکی از گزینه ها رو بر میدارم،همه گزینه ها از حالت انتخاب خارج می شن نه فقط همون یک گزینه.
دوم اینکه وقتی روی خود گزینه کلیک می کنم (نه رو روی چک کنارش) و چند تا رو می خوام انتخاب کنم، گزینه های قبلی از حالت انتخاب خارج می شن، در حالیکه من می خوام در حالت انتخاب بمونن و وقتی دوباره روشون کلیک می کنم، فقط همون گزینه از حالت انتخاب خارج بشه.
اینم کدی که نوشتم.
Private Sub ChkAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkAll.Click
If Me.ChkAll.Checked = True Then
Dim i As Integer
For i = 0 To ListView1.Items.Count.ToString - 1
Me.ListView1.Items(i).Selected = True
Me.ListView1.Items(i).Checked = True
ListView1.Select()
Next
End If
If Me.ChkAll.Checked = False Then
Dim j, i As Integer
j = ListView1.Items.Count.ToString - 1
For i = 0 To j
Me.ListView1.Items(i).Checked = False
Next
Me.ListView1.SelectedItems.Clear()
End If
End Sub
************************************************** *
Private Sub ListView1_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
If (e.Item.Checked) Then
Me.ListView1.Items(e.Item.Index).Selected = True
Me.ListView1.Items(e.Item.Index).Checked = True
End If
If Not (e.Item.Checked) Then
Me.ListView1.Items(e.Item.Index).Selected = False
Me.ListView1.Items(e.Item.Index).Checked = False
End If
End Sub
************************************************** *
Private Sub ListView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim j As Integer
j = ListView1.Items.Count.ToString - 1
If (Me.ListView1.SelectedItems.Count > 0) And (Me.ListView1.SelectedItems.Count < j) Then
Dim i As Integer
For i = 0 To j
If Me.ListView1.Items.Item(i).Selected = False Then
Me.ListView1.Items.Item(i).Checked = False
Else
Me.ListView1.Items.Item(i).Checked = True
End If
Next
End If
End Sub
مشکل بعدی اینه که من می خوام یک سری پارامتر به پراسیجر ارسال کنم.قبلش پارامترها رو Clear کردم، ولی پارامترهای دیگه ای رو به پراسیجر ارسال می کنه.اینم کدش.هر بار یه چیزی توی پارامترهام هست.مثلاً تو پارامتر Name محتویات آدرس قرار می گیره.
'*************** فردی ویرایش مشخصات ***************
Dim arrFilename() As String = Split(lblFilePath.Text, "\")
Array.Reverse(arrFilename)
Dim ms As New IO.MemoryStream
Pic.Image.Save(ms, Pic.Image.RawFormat)
Dim arrImage() As Byte = ms.GetBuffer
ms.Close()
Dim filename As String = arrFilename(0)
Dim picture() As Byte = arrImage
Dim cmdsq As New SqlClient.SqlCommand
cmdsq.CommandType = CommandType.StoredProcedure
cmdsq.CommandText = "update_SabteNam"
cmdsq.Parameters.Clear()
cmdsq.Connection = SqlCn
SqlCn.Open()
Dim param As New SqlClient.SqlParameter("@codestu_Sabt_1", Me.txtcode.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@namefather_sabt", Me.txtfather.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@code_melli_sabt", Me.txtmellicode.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@code_shenasname_sabt", Me.txtshenasname.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@sodoor_sabt", Me.txtsodoor.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@bithday_day_sabt", Me.cmbbirth_day.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@bithday_mnd_sabt", Me.cmbbirth_mnd.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@bithday_year_sabt", Me.cmbbirth_year.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@tahsilat_sabt", Me.cmbtahsilat.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@job_sabt", Me.txtjob.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@Address_sabt", Me.txtaddress.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@postcode_sabt", Me.txtpostcode.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@FileName", filename.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@FilePath", lblFilePath.Text)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@Picture", picture)
cmdsq.Parameters.Add(param)
Try
cmdsq.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
SqlCn.Close()
خواهش می کنم یکی جواب سوال منو بده.
اول اینکه می خوام کنار گزینه هام تو Listview یک Textbox بزارم و کنار Listview هم یک گزینه "انتخاب همه" که وقتی روی "انتخاب همه" کلیک میشه همه گزینه ها انتخاب بشه و برعکس.
همچنین وقتی روی یه گزینه ای کلیک میشه هم انتخاب بشه و هم CheckBox کنارش تیک بخوره و اگر تیک خورده، تیکش برداشته بشه و از حالت انتخاب هم خارج بشه.
الان با کدی که نوشتم این اتفاقا می افته ولی دو تا مشکل وجود داره. اول اینکه وقتی کنار گزینه ها کلیک می کنم و چند تا رو انتخاب می کنم، وقتی چک یکی از گزینه ها رو بر میدارم،همه گزینه ها از حالت انتخاب خارج می شن نه فقط همون یک گزینه.
دوم اینکه وقتی روی خود گزینه کلیک می کنم (نه رو روی چک کنارش) و چند تا رو می خوام انتخاب کنم، گزینه های قبلی از حالت انتخاب خارج می شن، در حالیکه من می خوام در حالت انتخاب بمونن و وقتی دوباره روشون کلیک می کنم، فقط همون گزینه از حالت انتخاب خارج بشه.
اینم کدی که نوشتم.
Private Sub ChkAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ChkAll.Click
If Me.ChkAll.Checked = True Then
Dim i As Integer
For i = 0 To ListView1.Items.Count.ToString - 1
Me.ListView1.Items(i).Selected = True
Me.ListView1.Items(i).Checked = True
ListView1.Select()
Next
End If
If Me.ChkAll.Checked = False Then
Dim j, i As Integer
j = ListView1.Items.Count.ToString - 1
For i = 0 To j
Me.ListView1.Items(i).Checked = False
Next
Me.ListView1.SelectedItems.Clear()
End If
End Sub
************************************************** *
Private Sub ListView1_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
If (e.Item.Checked) Then
Me.ListView1.Items(e.Item.Index).Selected = True
Me.ListView1.Items(e.Item.Index).Checked = True
End If
If Not (e.Item.Checked) Then
Me.ListView1.Items(e.Item.Index).Selected = False
Me.ListView1.Items(e.Item.Index).Checked = False
End If
End Sub
************************************************** *
Private Sub ListView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim j As Integer
j = ListView1.Items.Count.ToString - 1
If (Me.ListView1.SelectedItems.Count > 0) And (Me.ListView1.SelectedItems.Count < j) Then
Dim i As Integer
For i = 0 To j
If Me.ListView1.Items.Item(i).Selected = False Then
Me.ListView1.Items.Item(i).Checked = False
Else
Me.ListView1.Items.Item(i).Checked = True
End If
Next
End If
End Sub
مشکل بعدی اینه که من می خوام یک سری پارامتر به پراسیجر ارسال کنم.قبلش پارامترها رو Clear کردم، ولی پارامترهای دیگه ای رو به پراسیجر ارسال می کنه.اینم کدش.هر بار یه چیزی توی پارامترهام هست.مثلاً تو پارامتر Name محتویات آدرس قرار می گیره.
'*************** فردی ویرایش مشخصات ***************
Dim arrFilename() As String = Split(lblFilePath.Text, "\")
Array.Reverse(arrFilename)
Dim ms As New IO.MemoryStream
Pic.Image.Save(ms, Pic.Image.RawFormat)
Dim arrImage() As Byte = ms.GetBuffer
ms.Close()
Dim filename As String = arrFilename(0)
Dim picture() As Byte = arrImage
Dim cmdsq As New SqlClient.SqlCommand
cmdsq.CommandType = CommandType.StoredProcedure
cmdsq.CommandText = "update_SabteNam"
cmdsq.Parameters.Clear()
cmdsq.Connection = SqlCn
SqlCn.Open()
Dim param As New SqlClient.SqlParameter("@codestu_Sabt_1", Me.txtcode.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@namefather_sabt", Me.txtfather.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@code_melli_sabt", Me.txtmellicode.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@code_shenasname_sabt", Me.txtshenasname.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@sodoor_sabt", Me.txtsodoor.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@bithday_day_sabt", Me.cmbbirth_day.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@bithday_mnd_sabt", Me.cmbbirth_mnd.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@bithday_year_sabt", Me.cmbbirth_year.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@tahsilat_sabt", Me.cmbtahsilat.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@job_sabt", Me.txtjob.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@Address_sabt", Me.txtaddress.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@postcode_sabt", Me.txtpostcode.Text.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@FileName", filename.Trim)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@FilePath", lblFilePath.Text)
cmdsq.Parameters.Add(param)
param = New SqlClient.SqlParameter("@Picture", picture)
cmdsq.Parameters.Add(param)
Try
cmdsq.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
SqlCn.Close()