为什么我在picturebox用API函数drawedge没反映

Question

图片框的appearance属性是0-flat还是1-3D呢

Answer 1

要在 Paint 事件里面绘制才有效。
其他地方使用 autoredraw=true, set picture.picture=picture.image 。

Answer 2

autoredraw=truePrivate Sub Picture1_MouseMove( Button As Integer, Shift As Integer, X As Single, Y As Single) 
picture1.refre '刷新, refre 拼错了，在网吧上的网
End Sub 
Private Sub Picture1_Paint() 
dim a as rect 
GetClientRect Picture1.hwnd
drqwedge picture.hdc,a,BDR_RAISEDINNER, BF_RECT 
End

Answer 3

drqwedge绘制图像的单位是象素！

Answer 4

把 Picture1 的 ScaleMode 设为 3 - vbPixels试试！