以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在菜单设计中，如何设计动态（不断移动的）菜单标题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86569)
--  作者：wendude
--  发布时间：2016/6/20 21:08:00
--  [求助]在菜单设计中，如何设计动态（不断移动的）菜单标题？
[求助]在菜单设计中，如何设计动态（不断移动的）菜单标题？
--  作者：大红袍
--  发布时间：2016/6/20 21:11:00
--  
 窗口顶部的标题，跑马灯的效果？
--  作者：wendude
--  发布时间：2016/6/20 21:15:00
--  跑马灯效果怎么实现呢。
是了，跑马灯效果怎么实现呢，谢谢。
--  作者：大红袍
--  发布时间：2016/6/20 21:32:00
--  

做一个计划管理，输入代码

 

CType(BaseMainForm,C1Ribbon.C1RibbonForm).Ribbon.CaptionAlignment = 1
Dim gc As Graphics = BaseMainform.CreateGraphics()
Dim f As new font("宋体", 8)
Dim size As SizeF = gc.MeasureString("".PadLeft(Encoding.Default.GetBytes(basemainform.Text).length, "a"), f)
If size.width > basemainform.width Then
    basemainform.Text = basemainform.text.trim
Else
    basemainform.Text = basemainform.Text & "  "
End If

 

http://www.foxtable.com/help/topics/0657.htm

 
--  作者：wendude
--  发布时间：2016/6/20 21:46:00
--  谢谢，请问菜单中的标准按钮的名称怎么实现这个效果呢
谢谢，请问菜单中的标准按钮的名称怎么实现这个效果呢
--  作者：大红袍
--  发布时间：2016/6/20 22:18:00
--  
 做不到。