VB 的 DX Load 图 问题
VB 的 DX 问题
Load 外部 图象 加载过程是这样
Set BackGround_A = DD.CreateSurfaceFromFile("1.bmp", BackGroundDesc)
1问：如何 Load 其它控件的图 picture
2问：从一个二进制文件读进来的图文件如何用，非要在输出到文件上吗?
Private Sub Command1_Click()
Dim lngLogoSize As Long
Dim varLogo() As Byte
Dim strTempPath, strTempFileName As String
Dim lResult As Long
Dim FileHandle As Long
strTempFileName = App.Path & "/G1.BMP"
FileHandle = 2 'FreeFile
Open App.Path & "/test.bmp" For Binary Access Write As #3
Open strTempFileName For Binary As #FileHandle
lngLogoSize = FileLen(strTempFileName)
ReDim varLogo(lngLogoSize - 1)
Get #2, , varLogo() '//* 数 组 名 加 ()可 以 代 表 数 组
Close #2
Put #3, 1, varLogo()
Close #3
Beep
End Sub
就是这个 varLogo() 数组不能直接用吗?
都是 DX 的图象问题....
问题点数：0、回复次数：0Top
