主题：[求助]在菜单设计中，如何设计动态（不断移动的）菜单标题？

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

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