主题：[求助]如何在功能区实现天气实况+插入图片+当前时间

basemainform.text ="操作流程图"

If User.Type <> UserTypeEnum.Developer

    TableCaptionVisible = False

End If

Forms("序").Open(260,126)'窗口坐标宽x高

Dim C1Ribbon2 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim d As New system.Windows.Forms.WebBrowser

d.Navigate("http://i.tianqi.com/index.php?c=code&id=12&icon=1&num=5&site=12")'天气预报

Dim c As New C1Ribbon.RibbonControlHost(d)

c.name = "自定义项2"

c.width = 300

c.height = 120

 C1Ribbon2 .tabs("engga").Groups("功能组3").Items.add(c)

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New system.Windows.Forms.picturebox

a.BackgroundImage = getimage("F:\管理项目1\Images\01.png")'图片

a.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch

Dim b As New C1Ribbon.RibbonControlHost(a)

b.name = "自定义项1"

b.width = 300

b.height = 120

C1Ribbon1.tabs("engga").Groups("功能组4").Items.Insert(0,b)

RibbonTabs("engga").Groups("功能组5").Items("标签1").text = "今天是:" & format(Date.now, "G")