| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 798 人关注过本帖
标题:请问各位高手,VB中的picture控件能同时n个图片么?且每个图片还有特定的位 ...
只看楼主 加入收藏
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:9 
请问各位高手,VB中的picture控件能同时n个图片么?且每个图片还有特定的位置?
我想用VB写个集字系统,就是类似这个http://linzixin.的,但我想要个单机版的,且字库可随时增加的(即字库是开放的),我不知道他这个系统内的字(图片)是用一个控件呢还是每个字一个控件?请高手帮忙解答!在下拜谢了。
搜索更多相关主题的帖子: 图片 单机 
2013-02-06 11:35
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:7 
圖形縮放...記得之前有人問過....

TextBox + PictureBox + ScrollBar + OptionButton + CheckButton + ComboBox + Label + Frame
大致上這幾項吧...
要拆字找圖所以圖片命名用特定格式比較方便
圖片放在指定位置(圖庫)...

生成字帖=>程式對該資料夾For Each搜索圖片檔...
"字库可随时增加"=>加個CcommandButton做Reflash重新搜索...
行数:+列数: =>然後動態增減控件 + 動態縮放 + 設定控件極限大小
版式:=>要用程式內部對控件做排版(控件生成用數組比較方便)
格子类型:=>不懂差別在哪
特效设置=>這要做圖形處理了

他還是有BUG...切換控件時...控件顯示會超出範圍..

等大牛繼續補上...

不要選我當版主
2013-02-06 13:45
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
它顯示前轉圈圈的圖案...估計拿個圖 + Timer來做吧
雖然看起來是像Flash的...VB6硬要模仿它也行..

不要選我當版主
2013-02-06 13:50
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:0 
以下是引用wube在2013-2-6 13:45:12的发言:

圖形縮放...記得之前有人問過....

TextBox + PictureBox + ScrollBar + OptionButton + CheckButton + ComboBox + Label + Frame
大致上這幾項吧...
要拆字找圖所以圖片命名用特定格式比較方便
圖片放在指定位置(圖庫)...

生成字帖=>程式對該資料夾For Each搜索圖片檔...
"字库可随时增加"=>加個CcommandButton做Reflash重新搜索...
行数:+列数: =>然後動態增減控件 + 動態縮放 + 設定控件極限大小
版式:=>要用程式內部對控件做排版(控件生成用數組比較方便)
格子类型:=>不懂差別在哪
特效设置=>這要做圖形處理了

他還是有BUG...切換控件時...控件顯示會超出範圍..

等大牛繼續補上...
您的意思是每个字一个控件?如要缩放还得是picture控件套image控件?
2013-02-06 14:07
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
為什麼要套?他的控件確實是動態加減的.

直接看要做並不難.細節部分要真做才知道.
但是我沒事做這個做啥.提供想法而已.

不要選我當版主
2013-02-06 14:16
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:0 
在论坛上看到说如要缩放图形必须在picture控件容器内放入image控件,但如要放入一组image控件且是要用代码完成时如何放入?请高手指点下,先谢了
2013-02-06 16:46
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:491
专家分:919
注 册:2012-10-26
收藏
得分:7 
https://bbs.bccn.net/thread-348385-1-1.html
图片附件: 游客没有浏览图片的权限,请 登录注册

不要投我
2013-02-06 17:43
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
看了一下,我提个建议。

新建一个控件。
该控件的外观就是一个标准的正方形的格子。
该控件内部包括一个 picturebox 或 image 控件。这个控件用来加载字贴的图片用的。
再包括一个 浮动工具栏组合。该组合由 picturebox 为窗口,上面放一个按钮和一个可以左右移动的控制条。

控件属性:
传进去:图库的文件名。  你图库可以放到一个目录里,如同一个字有好几个样子时,就使用 后来再带序号的办法来保存。
加载时,当同一个字的图片有多个时 如 dir("图*.gif")读到多个时,把文件名都保存下来,然后随机加载。
按钮就是用来手动随机加载,或按顺序循环加载。
如果需要打印,那么还需要把图片传出来。那映射一个 image 的属性出来就是了。

控件内部事件:
鼠标移动。当移到控件的上部 工具栏 高度区域,显示工具栏。否则不显示工具栏。
鼠标移出 控件区域时,也不显示工具栏。
大小改变事件。修改格子大小,然后重新显示图片大小。
----------------------------------
程序里,该控件定义成数组。
每个控件加载一个字。
控件排版,按
1 2
3 4
5 6
排列或
1 4
2 5
3 6
这样排列都可以, 用循环搞定就可以了。
如果一行排多个,那么在循环里判断一下就是了。

y1=0
x1=0
for i=1 to 12    '3*4
z(i).top=y1
z(i).left=x1
x1=x1+ 宽
if x1>页宽 then
x1=0
y1=y1+高
end if
next i

这段代码是按页宽排列12个,不管是不是全部排满了。
=====================
没有编程环境,只能学 wube 的头脑编程。

---------------------------------
程序,就是积木搭起来的,找不到合适的积木,就自己动手做合适的积木就是了。
VB做自己的简单控件,还是很简单的,属性,事件什么都可以直接用向导生成,然后自己再补一些代码进去就可以了。

授人于鱼,不如授人于渔
早已停用QQ了
2013-02-06 21:26
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

發不上貼圖總成吧~

不要選我當版主
2013-02-06 22:28
zhengang1026
Rank: 6Rank: 6
等 级:侠之大者
威 望:1
帖 子:136
专家分:409
注 册:2013-2-6
收藏
得分:0 
谢谢版主,我再试试。
2013-02-09 21:00
快速回复:请问各位高手,VB中的picture控件能同时n个图片么?且每个图片还有特定 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026043 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved