请问VB.net 关于ListView的操作
关于VB.net(版本是2013)ListView的问题。我想要的功能1、点击ListView1任意行并在TextBox1中显示A-01第一列的数值;2、在TextBox...
关于VB.net (版本是2013) ListView的问题。
我想要的功能
1、点击ListView1任意行并在TextBox1中显示A-01第一列的数值;
2、在TextBox1编辑完后回车将数值放回所在行(如:将当前TextBox1中的数值 52 改成 25后回车,在ListView1中的第2行应该变成 25 ;
3、在TextBox1中回车后ListView1指针指向下一行(图中TextBox2显示的是当前行号2,回车后要指向并选择第3行),在TextBox1显示当前行的数值(回到第1的操作)。
谢谢!!!!!
谢谢!我的问题不急,可继续有效。 展开
我想要的功能
1、点击ListView1任意行并在TextBox1中显示A-01第一列的数值;
2、在TextBox1编辑完后回车将数值放回所在行(如:将当前TextBox1中的数值 52 改成 25后回车,在ListView1中的第2行应该变成 25 ;
3、在TextBox1中回车后ListView1指针指向下一行(图中TextBox2显示的是当前行号2,回车后要指向并选择第3行),在TextBox1显示当前行的数值(回到第1的操作)。
谢谢!!!!!
谢谢!我的问题不急,可继续有效。 展开
展开全部
Public Class Form1
Dim lindex As Integer
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
lindex = ListView1.FocusedItem.Index
TextBox1.Text = ListView1.Items(lindex).SubItems(0).Text
TextBox2.Text = ListView1.Items(lindex).SubItems(1).Text
End Sub
Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
lindex = ListView1.FocusedItem.Index
ListView1.Items(lindex).SubItems(0).Text = TextBox1.Text
ListView1.Items(lindex).SubItems(1).Text = TextBox2.Text
End Sub
Private Sub TextBox2_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
lindex = ListView1.FocusedItem.Index
ListView1.Items(lindex).SubItems(0).Text = TextBox1.Text
ListView1.Items(lindex).SubItems(1).Text = TextBox2.Text
End Sub
End Class
Dim lindex As Integer
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
lindex = ListView1.FocusedItem.Index
TextBox1.Text = ListView1.Items(lindex).SubItems(0).Text
TextBox2.Text = ListView1.Items(lindex).SubItems(1).Text
End Sub
Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
lindex = ListView1.FocusedItem.Index
ListView1.Items(lindex).SubItems(0).Text = TextBox1.Text
ListView1.Items(lindex).SubItems(1).Text = TextBox2.Text
End Sub
Private Sub TextBox2_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
lindex = ListView1.FocusedItem.Index
ListView1.Items(lindex).SubItems(0).Text = TextBox1.Text
ListView1.Items(lindex).SubItems(1).Text = TextBox2.Text
End Sub
End Class
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询