在项目中需要通过状态栏来显示一些数据，现在发现其长度有限，当窗口设置为1024宽度时，
只能显示这个长度：
StatusBar.Message1 = Str1 & " 12345678901234567890"
请看项目中“SystemIdle”的代码：
With CurrentTable
Dim Str1 As String = "用户名: " & User.Name
Str1 = Str1 & " 表名: " & .Name & " 总行数: "
Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
'StatusBar.Message1 = Str1 & " 12345678901234567890123456789012345678901234567890" '太长,不能显示
'StatusBar.Message1 = Str1 & " 1234567890123456789012345678901234567890" '太长,不能显示
'StatusBar.Message1 = Str1 & " 123456789012345678901234567890" '刚进入主窗口时,能显示.但是,点击其他窗口时,又不能显示
StatusBar.Message1 = Str1 & " 12345678901234567890" '显示正常
End With
[此贴子已经被作者于2015-1-15 22:53:55编辑过]
加好友 
发短信
Post By：2015/1/15 22:42:00 [只看该作者]
