Unload Form1.VerPic(i) 和 Load Form1.HorPic(i) 请问 Unload Form1.VerPic(i) 和 Load Form1.HorPic(i)是什么意思!在D中如何实现,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 释放一个控件或者数组吧。在D中,可能会自动销毁吧,查查D的help. For I = 1 To 31 Unload GAME.VERPIC(I) Next I YDLT = (GAME.Picture1.Width - 2) / XDOTS XDLT = (GAME.Picture1.Height - 2) / YDOTS I = 1 Load GAME.HORPIC(I) With GAME.HORPIC(I) .Top = 1 .Left = 0 .Height = XDLT / 4 .Width = GAME.HORPIC(I).Width .ZOrder (0) End With GAME.HORPIC(I).Visible = True For I = 2 To YDOTS ' + 1 Load GAME.HORPIC(I) With GAME.HORPIC(I) .Top = ((I - 2) + 3 / 4) * XDLT + 1 .Left = 0 .Height = XDLT / 2 .Width = GAME.HORPIC(I).Width .ZOrder (0) End With GAME.HORPIC(I).Visible = True Next I Load GAME.HORPIC(I) With GAME.HORPIC(I) .Top = ((I - 2) + 3 / 4) * XDLT + 1 .Left = 0 .Height = XDLT / 4 .Width = GAME.HORPIC(I).Width .ZOrder (0) End With GAME.HORPIC(I).Visible = Tru这个是所有代码 问个问题 存储一条定长记录时,位数未满的要求补0怎么做,如FFFFF要求存为8位000FFFFF 新手上路 请教高手 急用!!! 如何向COM1直接发送指令 在vb中如何得到编译程序的日期时间? 连接问题,高分求解!不难,但要完整!!! 如何限制表中记录的数目? VB可不可以直接从Word文档中读取内容? 在vb中如何向mysql中插入图片文件 我新编了一个记事本程序(还有些功能没实现)谁想要原代码..顺便帮我改改错误.. VB怎么响应COM里的事件啊? Unload Form1.VerPic(i) 和 Load Form1.HorPic(i)
在D中,可能会自动销毁吧,查查D的help.
Unload GAME.VERPIC(I)
Next I
YDLT = (GAME.Picture1.Width - 2) / XDOTS
XDLT = (GAME.Picture1.Height - 2) / YDOTS
I = 1
Load GAME.HORPIC(I)
With GAME.HORPIC(I)
.Top = 1
.Left = 0
.Height = XDLT / 4
.Width = GAME.HORPIC(I).Width
.ZOrder (0)
End With
GAME.HORPIC(I).Visible = True
For I = 2 To YDOTS ' + 1
Load GAME.HORPIC(I)
With GAME.HORPIC(I)
.Top = ((I - 2) + 3 / 4) * XDLT + 1
.Left = 0
.Height = XDLT / 2
.Width = GAME.HORPIC(I).Width
.ZOrder (0)
End With
GAME.HORPIC(I).Visible = True
Next I
Load GAME.HORPIC(I)
With GAME.HORPIC(I)
.Top = ((I - 2) + 3 / 4) * XDLT + 1
.Left = 0
.Height = XDLT / 4
.Width = GAME.HORPIC(I).Width
.ZOrder (0)
End With
GAME.HORPIC(I).Visible = Tru
这个是所有代码