VB 如何实现 畸形 界面(不规则窗体)???

[༺彼岸花开༻]

实现畸形界面,因为把图放上去之后显示出来是长方形边框,旁边的空白都显示出来了,要怎样才能只显示图,隐藏掉边框和边框中的空白,这才是我最麻烦的问题....
如图：
http://hi.csdn.net/attachment/201110/14/5269501_13185756854toz.jpg

大家看得到旁边有透明的边框是吧,编译后还是有,我设成了没边框可边缘还是有长形空白,无奈...技术过低啊!之前发过一贴因图不能显示,内容不详,现重发一下

[咸清]

搜索前几年人家发的一个通讯录的小程序⋯⋯
里面就处理过了
虽然有点慢，基本符合要求

[咸清]

应该叫什么 不规则窗体

[dafu2003]

用png格式图片作为背景图。网上有源代码，搜搜吧。

[嗷嗷叫的老马]

vb用任何透明的位图做不规则窗体

欢迎转载，本文转自[田草博客www.tiancao.net] 原文链接：http://tiancao.net/blogview.asp?logID=24

[小允]

Private Sub Command1_Click()
    SetWindowLong hwnd, (-20), GetWindowLong(hwnd, (-20)) Or &H80000
    SetLayeredWindowAttributes Me.hwnd, &HFFFFFF, 0, &H1  '&HFFFFFF这是背景的颜色，SetLayeredWindowAttributes透明的语句
End Sub

Private Sub Command2_Click()
End
End Sub

Private 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

[熊孩子开学喽]

异形窗体.

[crackdung]

http://www.skincrafter.com/

[༺彼岸花开༻]

谢谢各位的帮忙,但我还未解决,希望高人能做个教程................

[蘫人]

eNet.com 找找都有视频教程。

[嗷嗷叫的老马]

给你发的代码已经实现你的要求了.

还有什么问题?

[波导终结者]

[Quote=引用 10 楼 myjian 的回复:]
给你发的代码已经实现你的要求了.

还有什么问题?
[/Quote]
要现成的，完整的，兼容所有平台的，调试好的，能运行的，不报错的，万能的，拿来可以直接双击的，一行代码也不用写就可以实现任何需求的

[嗷嗷叫的老马]

[chinaboyzyq]

[༺彼岸花开༻]

我是要用图片控件来实现,但试过使用以上几位兄台的方法不行,研究了下,还没能实现,我正在找相关的教程,也许是本人技术真的不太好,不过我学东西从不灰心,呵呵,不管如何,谢谢各位兄弟给小弟的支持,让小弟也学到了你们的闪光点........

[m2mocn]

看到上面有个下载例子。。。很实用

[熊孩子开学喽]

Look: http://download.csdn.net/detail/WallesCai/795601

[IamDeane]

使用PNG图片格式，然后使用GDI+绘制出来就可以了

[王二.麻子]

难道图片框的autosize没有设置为true？