以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  状态显示标栏能设置得长一些吗？（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63201)
--  作者：瞩望星空
--  发布时间：2015/1/15 22:42:00
--  状态显示标栏能设置得长一些吗？（已解决）
在项目中需要通过状态栏来显示一些数据，现在发现其长度有限，当窗口设置为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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:test-状态栏提醒.foxdb


[此贴子已经被作者于2015-1-15 22:53:55编辑过]
--  作者：有点甜
--  发布时间：2015/1/15 22:47:00
--  
 若超过了其长度，就是会显示有问题的
--  作者：瞩望星空
--  发布时间：2015/1/15 22:54:00
--  
刚刚在论坛中找到解决问题办法了：
Dim obj As Object
obj = Basemainform.Controls("C1StatusBar1")
obj.RightPaneWidth = 0

加入这几行，就可以把右边的状态栏长度缩小，就相当于处长了左边状态栏。