R语言，values那个框框，数据怎么完全显示

Question

如题所述

Answer 1

1\加宽LIST的宽度,使其能容下最长的那个
2\使用list1.ToolTipText属性,当选中某个记录时,为list1.ToolTipText 属性赋值为这个记录的内容,这样鼠标移上去就会有一个说明,当然也可以用一个LABEL来显示.
3\用API函数
4\list控件一般只放比较短的字符串,您放这么长的干什么?调整您的程序设计.

API的使用

Option Explicit

Private Const LB_SETHORIZONTALEXTENT = &H194
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command1_Click()
Dim max As Long, f As Font, i As Integer

Me.ScaleMode = vbPixels
Set f = Me.Font
Set Me.Font = List1.Font

With List1
For i = 0 To .ListCount
If Me.TextWidth(.List(i)) > max Then
max = Me.TextWidth(.List(i))
End If
Next
End With
max = max + 10

Set Me.Font = f

SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, max, ByVal 0&
End Sub