以下是引用susu312在2018/12/14 13:02:00的发言:
还有别的办法,把这个图片放上去么?现在是放了一个按钮?
你试试这样
Dim C1Ribbon1 As C1Ribbon.C1Ribbon = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim a As New Windows.Forms.picturebox
a.image = getimage("d:\test.jpg")
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 300
C1Ribbon1.tabs("功能区1").Groups("功能组1").Items.Add(b)