如何在VB,不是VB.net中使用GDI?

[树莓派]

我想给我的窗体加背景图片，在.net中，可以将一幅图片平铺在窗体上面，这个怎样在VB6中实现啊。

[programart_life]

用代码实现。API函数

BitBlt、StretchBlt等等等等，很多这样的函数。

[thirdapple]

Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Public Function FillBlt(frm As Object, Pic As Object)
Dim i As Long, j As Long
frm.ScaleMode = 3
frm.AutoRedraw = True
Pic.AutoRedraw = True
Pic.ScaleMode = 3
Pic.AutoSize = True
For i = 0 To frm.ScaleWidth Step Pic.ScaleWidth
For j = 0 To frm.ScaleHeight Step Pic.ScaleHeight
BitBlt frm.hdc, i, j, Pic.ScaleWidth, Pic.ScaleHeight, Pic.hdc, 0, 0, vbSrcCopy
Next j
Next i
frm.Refresh
End Function

[树莓派]

但是这样的话，我以后动态加载的控件就无法显示了，这个问题怎样解决呢？

[thirdapple]

怎么会呢？不清楚，看看是不是动态加载的控件的问题

[litsnake1]

同意

[holydiablo]

对
没什么比API更实在的了