Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何在功能区实现天气实况+插入图片+当前时间


  共有5275人关注过本帖树形打印复制链接

主题：[求助]如何在功能区实现天气实况+插入图片+当前时间
帅哥哟，离线，有人找我吗？
lhfu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		[求助]如何在功能区实现天气实况+插入图片+当前时间  发帖心情 Post By：2021/4/13 14:22:00 [显示全部帖子]

各位老师，我在想功能区实现这三样场景，但我考了论坛相关帮助后，代码如下：
功能区插入图片：
Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim a As New system.Windows.Forms.picturebox
a.BackgroundImage = getimage("D:\用户目录\Desktop\管理项目1\管理项目1\Images\001.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("功能区1").Groups("功能组2").Items.Insert(0,b)
------------------------------------------------------------------------------------------

天气预报：

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

Dim a As New system.Windows.Forms.WebBrowser
a.Navigate("http://i.tianqi.com/index.php?c=code&id=12&icon=1&num=5&site=12")
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 800
b.height = 120
C1Ribbon1.tabs("功能区1").Groups("功能组2").Items.add(b)
-----------------------------------------------------------------
当前时间显示：

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

但把以上三段代码输入，它是提示变量错误的，请各位老师指导一下，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/13 15:00:00 [显示全部帖子]

蓝老师，我这是修改，好像变量也是行不能的，能指导一下我吗？
功能区插入图片
Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim a As New system.Windows.Forms.picturebox
a.BackgroundImage = getimage("D:\用户目录\Desktop\管理项目1\管理项目1\Images\001.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("功能区1").Groups("功能组2").Items.Insert(0,b)'须在菜单项目增加对应组

天气预报
Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )

Dim a As New system.Windows.Forms.WebBrowser
a.Navigate("http://i.tianqi.com/index.php?c=code&id=12&icon=1&num=5&site=12")
Dim b As New C1Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 800
b.height = 120
C1Ribbon1.tabs("功能区1").Groups("功能组3").Items.add(b)


图片点击可在新窗口打开查看此主题相关图片如下：snipaste20210413_145624.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip



[此贴子已经被作者于2021/4/13 15:01:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/13 16:03:00 [显示全部帖子]



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

Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim a As New system.Windows.Forms.picturebox
a.BackgroundImage = getimage("D:\用户目录\Desktop\管理项目1\管理项目1\Images\001.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("功能区1").Groups("功能组2").Items.Insert(0,b)'须在菜单项目增加对应组



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

Dim a As New system.Windows.Forms.WebBrowser
a.Navigate("http://i.tianqi.com/index.php?c=code&id=12&icon=1&num=5&site=12")
Dim b As New C2Ribbon.RibbonControlHost(a)
b.name = "自定义项1"
b.width = 800
b.height = 120
C2Ribbon1.tabs("功能区1").Groups("功能组4").Items.add(b)
但我这样改了变量名后，

图片点击可在新窗口打开查看此主题相关图片如下：0512.jpg
图片点击可在新窗口打开查看
它也这样提示类型，我有点搞不定啊，请蓝老师指教一下呀

图片点击可在新窗口打开查看此主题相关图片如下：05112.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/13 16:45:00 [显示全部帖子]

唉，实际磨不透这段代码应该怎么写，应该我改不变量，其它又报错了，请蓝老师指导一下，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/13 17:27:00 [显示全部帖子]

蓝老师，我稍为改动一下，第二段天气预报不会显示出来，我是哪里改错了吗？
Dim C1Ribbon1 As C1Ribbon.C1Ribbon  = Ctype(BaseMainForm.controls("C1Ribbon1"),C1Ribbon.C1Ribbon )
Dim a As New system.Windows.Forms.picturebox
a.BackgroundImage = getimage("D:\用户目录\Desktop\管理项目1\管理项目1\Images\001.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("功能区1").Groups("功能组2").Items.Insert(0,b)


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(a)
c.name = "自定义项2"
c.width = 300
c.height = 120
 C1Ribbon2 .tabs("功能区1").Groups("功能组4").Items.add(c)


图片点击可在新窗口打开查看此主题相关图片如下：snipaste20210413_150226.jpg
图片点击可在新窗口打开查看

重启软件后，打开是这样子的


图片点击可在新窗口打开查看此主题相关图片如下：02.jpg
图片点击可在新窗口打开查看

是不是第二段天气代码我改错哪里了呢，请指正一下，谢谢.
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:202104131726.zip
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/13 18:44:00 [显示全部帖子]

蓝老师，这里有还有一个小小问题

图片点击可在新窗口打开查看此主题相关图片如下：656232.jpg
图片点击可在新窗口打开查看
功能区不同组的尺寸应该怎么调成一致的呢？
窗口的关闭我在列窗口设置不可以关闭，但是还是可以关闭的


图片点击可在新窗口打开查看此主题相关图片如下：01.jpg
图片点击可在新窗口打开查看
这索引报错了，我看不出是哪里的问题
麻烦解答一下，谢谢.
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/13 20:30:00 [显示全部帖子]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：项目,AfterOpenProject
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: index
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/13 21:22:00 [显示全部帖子]

项目属性--AfterOpenProject事件
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")
 回到顶部
帅哥哟，离线，有人找我吗？
lhfu
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：198 积分：2190 威望：0 精华：0 注册：2013/5/10 15:59:00 		  发帖心情 Post By：2021/4/14 19:54:00 [显示全部帖子]

谢谢，但另外一个问题出现了.

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 7 次数据查询