vb如何直接用代码创建一个text到指定位置?
vb吧
全部回复
仅看楼主
level 1
vb入门,也就信息课的水平
想试一下编一个贪吃蛇,用text的框当地图,就想知道能不能直接在开始时批量生成text的框,顺便赋个值
2021年04月18日 05点04分 1
level 11
两种方式。
一个是独立控件
二个是数组控件
以第二种为例,在设计阶段,先制作一个textbox,假设其默认名称为text1,将其index属性改为0,可见性为假
在代码中,假设需要100个textbox,需要加载这些文本框的地方写代码:
text1(0).visible=ture
for i=1 to 99
load text1(i)
text1(i).visible=ture
text1(i).move…………'具体地方你自己确定
next i
就可以了
2021年04月18日 06点04分 2
level 13
游戏可以用PaintPicture绘图,Print绘制文字,这样比控件容易控制,因为你写游戏最终还是要向无控件方向过渡,所以直接过渡过去也可以的
CurrentX = 10 '指定X、Y坐标
CurrentY = 10
Print "游戏名" '游戏名可以改成任意字符串
Dim pic As StdPicture
Set pic = LoadPicture("c:\11.bmp") '加载图片c:\11.bmp到pic图片对象中
PaintPicture pic,10,10,100,100 '将pic图片对象绘制出来
第1个参数是图片对象
第2、3参数指定X、Y坐标,第4、5指定宽度、高度 (这是绘制出来的大小)
第6、7参数指定X、Y坐标,第8、9指定宽度、高度(这里指定绘制加载的图片的一部分或全部)
一般就用到这些
贪吃蛇估计要用到的API函数GdiTransparentBlt透明度指定颜色(比如黑边),或者做掩码图实现,这算高级编程,目前可以忽略
2021年04月18日 06点04分 3
1