实现畸形界面,因为把图放上去之后显示出来是长方形边框,旁边的空白都显示出来了,要怎样才能只显示图,隐藏掉边框和边框中的空白,这才是我最麻烦的问题....
如图:
http://hi.csdn.net/attachment/201110/14/5269501_13185756854toz.jpg大家看得到旁边有透明的边框是吧,编译后还是有,我设成了没边框可边缘还是有长形空白,无奈...技术过低啊!之前发过一贴因图不能显示,内容不详,现重发一下
如图:
http://hi.csdn.net/attachment/201110/14/5269501_13185756854toz.jpg大家看得到旁边有透明的边框是吧,编译后还是有,我设成了没边框可边缘还是有长形空白,无奈...技术过低啊!之前发过一贴因图不能显示,内容不详,现重发一下
Private Sub Command1_Click()
SetWindowLong hwnd, (-20), GetWindowLong(hwnd, (-20)) Or &H80000
SetLayeredWindowAttributes Me.hwnd, &HFFFFFF, 0, &H1 '&HFFFFFF这是背景的颜色,SetLayeredWindowAttributes透明的语句
End SubPrivate Sub Command2_Click()
End
End SubPrivate Sub Form_Load()End Sub模块代码: Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long