如果是主菜单
Dim r As object = BaseMainForm.controls("C1Ribbon1")r.font = new font("宋体", 12)
如果是窗口菜单
Dim r As object = e.form.strips("C1Ribbon1").basecontrolr.font = new font("宋体", 12)
加好友 
发短信
Post By：2018/5/29 18:10:00 [显示全部帖子]
