Foxtable(狐表)用户栏目专家坐堂 → [求助]日曆問題


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

主题:[求助]日曆問題

美女呀,离线,留言给我吧!
JoyGum
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3654 威望:0 精华:0 注册:2013/12/5 7:40:00
[求助]日曆問題  发帖心情 Post By:2014/1/19 16:34:00 [只看该作者]

附上例子。謝謝!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日历.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/1/19 19:53:00 [只看该作者]

 第二点未理解,显示图片,是显示在日历上面吗?

 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日历.table


 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3654 威望:0 精华:0 注册:2013/12/5 7:40:00
  发帖心情 Post By:2014/1/19 20:09:00 [只看该作者]

感恩啊!謝謝有點甜老費心了。顯示图片部分應該說是在同一個窗口也就是把導覽窗口右邊拉長裡邊是否加個面板控件讓圖片顯示。再次謝謝老師!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/1/19 20:30:00 [只看该作者]

 你加入一个pictureBox控件,然后设置对应的文件名就行了


 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3654 威望:0 精华:0 注册:2013/12/5 7:40:00
  发帖心情 Post By:2014/1/19 22:13:00 [只看该作者]

感恩啊!再次謝謝有點甜老師!

 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3654 威望:0 精华:0 注册:2013/12/5 7:40:00
回复:(有点甜) 你加入一个pictureBox控件,然...  发帖心情 Post By:2014/1/20 15:06:00 [只看该作者]

不好意思,再請教老師,我看了幫助我用以下代碼是ok,我想再學的是資料夾裡有10張圖檔,代碼如何可以隨機顯示其中一張,不是固定一張。

Dim pbx As WinForm.PictureBox
pbx = Forms("导航").Controls("PictureBox1")
pbx.Image = GetImage("D:\Joy data\Pictures\01.jpg")


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/1/20 15:09:00 [只看该作者]

pbx.Image = GetImage("D:\Joy data\Pictures\" & Format(Rand.Next(1,11),"00") & ".jpg")

 回到顶部
美女呀,离线,留言给我吧!
JoyGum
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:505 积分:3654 威望:0 精华:0 注册:2013/12/5 7:40:00
  发帖心情 Post By:2014/1/20 15:23:00 [只看该作者]

以下是引用Bin在2014-1-20 15:09:00的发言:
pbx.Image = GetImage("D:\Joy data\Pictures\" & Format(Rand.Next(1,11),"00") & ".jpg")

真是太感恩了,再次謝謝老師賜教。


 回到顶部