看了一下,我提个建议。
新建一个控件。
该控件的外观就是一个标准的正方形的格子。
该控件内部包括一个 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做自己的简单控件,还是很简单的,属性,事件什么都可以直接用向导生成,然后自己再补一些代码进去就可以了。