For i = 1 To ListView1.ColumnHeaders.Count
If (x - ListView1.ColumnHeaders(i).Left >= 0) And (x - ListView1.ColumnHeaders(i + 1).Left < 0) Then
Text5.Text = ListView1.SelectedItem.SubItems(i - 1)
Text5.Height= ListView1.SelectedItem.Height
Text5.Width = ListView1.ColumnHeaders(i).Width
Text5.Top = ListView1.SelectedItem.Top + ListView1.Top
Text5.Left = ListView1.ColumnHeaders(i).Left + ListView1.Left
Exit For
End If
Next iText5.Height= ListView1.SelectedItem.Height 语句无法实现,在listview和textbox字体相同的情况下,Text5.Height无法缩小到ListView1.SelectedItem.Height,但是如果通过改小textbox的字体又显得字体实在太小,看不清了各位大虾有什么解决方法吗?另外我的textbox左上角的定位有一点偏差,差的不多,总是在listview,subitem(i)的左上一点点,这个是为什么呢?
If (x - ListView1.ColumnHeaders(i).Left >= 0) And (x - ListView1.ColumnHeaders(i + 1).Left < 0) Then
Text5.Text = ListView1.SelectedItem.SubItems(i - 1)
Text5.Height= ListView1.SelectedItem.Height
Text5.Width = ListView1.ColumnHeaders(i).Width
Text5.Top = ListView1.SelectedItem.Top + ListView1.Top
Text5.Left = ListView1.ColumnHeaders(i).Left + ListView1.Left
Exit For
End If
Next iText5.Height= ListView1.SelectedItem.Height 语句无法实现,在listview和textbox字体相同的情况下,Text5.Height无法缩小到ListView1.SelectedItem.Height,但是如果通过改小textbox的字体又显得字体实在太小,看不清了各位大虾有什么解决方法吗?另外我的textbox左上角的定位有一点偏差,差的不多,总是在listview,subitem(i)的左上一点点,这个是为什么呢?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货