如何在LABEL中加入图片?

Question

如何在LABEL中加入图片?

Answer 1

为什么非要在Label中加图片，有现成的picturebox或Image 控件啊~！vb可不象java,:)

Answer 2

label没有句柄，TextBox可以实现
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private 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 LongPrivate Sub Command1_Click()
    Dim hd As Long
    hd = GetDC(Text1.hwnd)
    BitBlt hd, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hdc, 0, 0, vbSrcCopy
End Sub

Answer 3

把label放在图片框中，将其设为透明，在图片框中加载图片

Answer 4

建议把图片放在一个PICTURE里，再在上面加个LABEL(设置为背景透明)

Answer 5

严重申明：label中不能加入图片

Answer 6

Label如上所说可用 picturebox 实现
你是要又显示文字又显示图片吗？若是可用Picturebox
写字:  picturebox.print
加图:  picturebox.picture属性