BaseMainForm.controls("C1Ribbon1").font = New Font("黑体", 12)RibbonTabs("基本设置").Groups("功能组1").Items("用户名").text = "用户名:" & User.NameRibbonTabs("基本设置").Groups("功能组1").Items("日期").text = "今天是:" & format(Date.now, "yyyy年MM月dd日 dddd")RibbonTabs("基本设置").Groups("功能组1").Items("系统名称").text = "戴威百表汇进销存管理系统"
老师第一句改字体的全部菜单的,,,有没有可以改下面这些用户名单独的改字体,,给一个代码研究研究,谢谢