| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- StatusBar.Message2的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57469) |
| -- 作者：audience68 -- 发布时间：2014/9/25 11:23:00 -- StatusBar.Message2的问题 在另一个项目中用的好好的语句“StatusBar.Message2= "当前用户:" & User.Name ”，但是我直接拷到我现在的项目的AfterOpenProject项下，却出现启动项目大约5秒后，项目状态栏中的信息消失，恢复到只有“就绪”两字。检查程序中也没有用到StatusBar.Reset()。不知问题出在哪里，求指点。 |
| -- 作者：有点甜 -- 发布时间：2014/9/25 11:33:00 -- 输出代码，查找 StutusBar
http://www.foxtable.com/help/topics/1987.htm
|
| -- 作者：audience68 -- 发布时间：2014/9/25 12:03:00 -- 甜版，输出代码后，用word的查找功能，也没有发现StatusBar.Reset()。 |
| -- 作者：有点甜 -- 发布时间：2014/9/25 12:10:00 -- 例子或者代码发上来。 |
| -- 作者：audience68 -- 发布时间：2014/9/25 12:40:00 -- 麻烦甜版了，请帮我看看代码哪里有问题？ |
| -- 作者：audience68 -- 发布时间：2014/9/25 12:42:00 -- 怎么附件传不上去？ |
| -- 作者：audience68 -- 发布时间：2014/9/25 12:45:00 -- AfterOpenProject StatusBar.Message2= "当前用户:" &
User.Name &" 程序开发:*** QQ:1234567 " Forms("导航").open() If User.Type <> UserTypeEnum.Developer \'隐藏表标题(普通登录者不显示表标题,但开发者登录时显示)
TableCaptionVisible = False End If 主窗口_AfterLoad
\'e.Form.TimerInterval = 250 \'Dim lbl As WinForm.Label \'Dim d As Date = Date.Today \'lbl = e.Form.Controls("Label2") \'lbl.Text = "今天是" & d &
"/周" & d.DayOfWeek & ",欢迎使用监造信息管理系统,祝您工作愉快! "
Dim Today As Date = Date.Today Dim Names As String = "日一二三四五六" Dim Result As String Result = "星期" &
Names.Chars(Today.DayOfWeek) e.Form.Controls("Label2").text="今天是:" &
Date.Today.Year & "年"& Date.Today.month & "月" &
Date.Today.day & "日,星期" &
Names.Chars(Today.DayOfWeek) & ",欢迎使用监造信息管理系统,祝您工作愉快! "
主窗口_MouseEnter
e.Form.TimerEnabled = False
主窗口_MouseLeave
e.Form.TimerEnabled = True
主窗口_TimerTick
Dim lab1 As WinForm.Label =
e.Form.Controls("Label1") \'e.Form.StopRedraw If lab1.height + lab1.Top <= 0 Then lab1.Top =
e.Form.height Else lab1.Top =
lab1.Top -2 End If \'e.Form.ResumeRedraw For i As Integer =
0 To 4 Dim pix As
WinForm.PictureBox = e.Form.Controls("PictureBox" & i) Dim l As
Integer = pix.Left - 4 If l + pix.Width <= 4 Then pix.left =
e.Form.Width Else pix.left =
l End If Next
由于附件发布了，就摘了部分代码传上来了 |
| -- 作者：Bin -- 发布时间：2014/9/25 14:05:00 -- 你要放到SystemIdle事件 |
| -- 作者：有点甜 -- 发布时间：2014/9/25 14:08:00 -- 这些代码看不出问题的，把word文件打包成rar发上来。 |