Question

vb6有相应于delphi的TBitmap这样的东西吗？

比如说这几句，在VB6中怎么处理？
begin
bit.Canvas.Brush.Color := clBlack;
bit.Canvas.FillRect(Bounds(0, 0, bit.Width, bit.Height));
bit.Canvas.Pen.Color := clLime;

for i := 0 to Length(Data) - 1 do
begin
L := LoWord(Data[i]);
R := HiWord(Data[i]);
bit.Canvas.MoveTo(i, ch - Trunc(L/32768*ch));
bit.Canvas.LineTo(i, ch + Trunc(R/32768*ch));
end;
end;

Answer 1

Dim picPicture As IPictureDisp
Set picPicture = stdole.StdFunctions.LoadPicture( _
"c:\1.bmp")
MsgBox "h:" & picPicture.Height & ", w:" & picPicture.Width
用这个吧。

Answer 2

用API函数吧 bitblt
可以百度HI 我

Answer 3

学习。。。