作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] coding习惯
时间Fri Aug 11 20:12:46 2006
※ 引述《gofin (云色)》之铭言:
: ※ 引述《gofin (云色)》之铭言:
: : 想请问一下各位先进!!
: : 我在写VB时用mdi生成八个相同的子form
: : 每个form上面都有128个左右的image(算是64个灯号变化,暗的跟亮的小圆点)
: : 以及64个label(灯号的文字说明)
: : 功能基本跟核取方块的功能一样!!
: : 只因为核取方块前面的图不能改成自己想用的灯号
: : 所以当我在执行时发现form生成速度很慢!!如果电脑不好可能就会看到form再慢慢的长
: : 这样有啥方法可以解决吗??
: : 或者做成物件会比较好吗?
: :推 MaxMan:用 shape 物件取代 image 试试看 08/09 18:20
: 用shape只能用颜色!!我是要放图!!单色有点难看
: :推 colawei:基本上,我认为一个PictureBox就够了.
: 请问要怎做(我要的效果是 "● 文字")
: 那个圈是会变化的VALUE=TRUE是一种图
: 反之=FALSE时是另外一种图
: :→ colawei:要直接画在Form上面也可以... 08/09 19:00
: 还有想问问像IMAGE跟PICTUREBOX里的PICTURE属性能用路径表示吗?
: 直接在画面上改都只会出现(点阵图)!!
基本写法:
Set Picture1.Picture = LoadPicture(档案路径)
绘图方法:
'图片
Picture1.PatinPicture LoadPicture(档案路径), x, y
'点
Picture1.PSet (x, y), color
'线
Picture1.Line (x1, y1) - (x2, y2), color
'座标
Picture1.CurrentX = x
Picture1.CurrentY = y
'文字
Picture1.Print "xxx"
自己去应用,可以达成很多效果
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半点痴情遗留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.184.116.37
1F:推 gofin:感谢!! 08/14 07:52