当前位置:编程学习 > VB >>

VB 如何实现 畸形 界面???

--------------------编程问答-------------------- 搜索前几年人家发的一个通讯录的小程序⋯⋯
里面就处理过了
虽然有点慢,基本符合要求
--------------------编程问答-------------------- 应该叫什么 不规则窗体 --------------------编程问答-------------------- 用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
--------------------编程问答-------------------- 异形窗体.
--------------------编程问答-------------------- http://www.skincrafter.com/ --------------------编程问答-------------------- 谢谢各位的帮忙,但我还未解决,希望高人能做个教程................ --------------------编程问答-------------------- eNet.com 找找都有视频教程。 --------------------编程问答-------------------- 给你发的代码已经实现你的要求了.

还有什么问题? --------------------编程问答--------------------
引用 10 楼 myjian 的回复:
给你发的代码已经实现你的要求了.

还有什么问题?

要现成的,完整的,兼容所有平台的,调试好的,能运行的,不报错的,万能的,拿来可以直接双击的,一行代码也不用写就可以实现任何需求的 --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 我是要用图片控件来实现,但试过使用以上几位兄台的方法不行,研究了下,还没能实现,我正在找相关的教程,也许是本人技术真的不太好,不过我学东西从不灰心,呵呵,不管如何,谢谢各位兄弟给小弟的支持,让小弟也学到了你们的闪光点........ --------------------编程问答-------------------- 看到上面有个下载例子。。。很实用 --------------------编程问答-------------------- Look: http://download.csdn.net/detail/WallesCai/795601
补充:VB ,  多媒体
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,