请问我想做一个窗体，不要标题栏（想自己做仿XP样式），但还要在windows任务栏上显示该窗口的Icon及标题栏名称，请问如何实现！

Question

难度很大，不如用第三方控件，比如ActiveBar。

Answer 1

用 API
改变窗口的 Style

Answer 2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_SYSMENU = &H80000Private Const GWL_STYLE = (-16)Private Sub Form_Load()
    Dim TempLng As Long
    
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
    TempLng = TempLng Or WS_SYSMENU '图标
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng
    
End Sub====================================================================
为什么一定不要标题栏呢？拦截WM_NCPAINT，自绘标题栏
那样的效果好多了可以看看http://zyl910vb.51.net/another/中的vbskin

Answer 3

TO ：zyl910(910：分儿，我来了！) 你还是没有解决他的问题啊。我试过你的方法了。行不通，在windows任务栏上，还是没有显示图标和窗口名。

Answer 4

昏……问问题之前至少应该把窗体的属性看一看吧ShowInTaskbar设为True！
非常弱智的东西！

Answer 5

干脆在窗体启动时加载XP Style的ActiveX吗。
比如Windows Blinds就是用的这种方法，先取得窗体句柄，在通过Win32 API更改窗体Skin。网上有很多类似的东西，自己找找吧。

Answer 6

1.检查窗体的ShowInTaskbar属性是否已经设为True，没有则要设为True。
2.用CreateRectRgn创建矩形区域，将窗体的标题栏排斥在此矩形区域外，再用函数SetWindowRgn设置窗体的区域。

Answer 7

错！
Windows Blinds是通过全局Hook实现的！

Answer 8

TO ：zyl910(910：分儿，我来了！)     对不起，我知道问题的所在了。谢谢你的提醒。不过，我们在这里只是为了讨论问题，不是么？不要有情绪在里面嘛。

Answer 9

http://www.csdn.net/cnshare/soft/11/11385.shtm
看看我的软件，就是你的要求！要原码可详谈，但20分是否出手太少?? ^_^ ???

Answer 10

http://skinart.y365.com/myprogram/gt.zip

Answer 11

TO ：zyl910(910：分儿，我来了！) 
    用你的方法,,在任務欄上只可以看到圖標,沒有標題,因為要實現窗口沒有標題欄,Form.caption是不能有值的,,所以...還有什麼好的方法嗎??

Answer 12

TO:GLAY(Micromort (C) 2002)http://www.csdn.net/cnshare/soft/11/11385.shtm,你的软件很好，用VB做的吗，真是太漂亮的，我学VB不久，早想做类似的界面，但一直以为VB做不出来，今天看到真是让我太开眼戒，能不能给源代码让我学习学习，万分感谢！！！！

Answer 13

我曾经实现的XP格式的窗口，我只能说我实现的思路，程序这目前没有在这。
我用的方法：
1.作一个XP风格的标题控件。在控件中实现最大小，最小化，关闭等一系统标题应有的功能。
2.利用程序将窗口四面要一个边。
3.如果需要在任务栏中存在窗口，就用API函数将标题栏去掉，不是有一个可以要窗口的形状的吗？使用那个将标题样去掉。并且还可以实现横纵向平铺等。如果自己真正的去使用API函数去画，可以麻烦一些。

Answer 14

----------------------------------------------------------------
http://www.csdn.net/cnshare/soft/11/11385.shtm,你的软件很好，用VB做的吗，真是太漂亮的，我正想学VB不久，早想做类似的界面，但一直以为VB做不出来，今天看到真是让我太开眼戒，能不能给源代码让我学习学习，万分感谢！！！！____________________________________由于软件有版权问题，这样吧，我把你要的功能的部份代码给你ok?
你e-mail 多少？

Answer 15

你是怎么去掉标题栏的？把BorderStyle属性设为0就能去掉标题栏了
这是可以任意设置caption属性

Answer 16

其实GLAY(Micromort (C) 2002)那样的界面很容易实现：
计算好坐标，把图片BitBlt到窗体，再处理一下鼠标事件

Answer 17

先看看 《旋风进程管理》 wy_xl.y365.com如果觉得能够满足要求，请 EmiTo:[email protected] ，索取代码！！！！！！

Answer 18

zyl910(910：分儿，我来了！)  
 
  其实GLAY(Micromort (C) 2002)那样的界面很容易实现：
计算好坐标，把图片BitBlt到窗体，再处理一下鼠标事件
  
------------------------------------------------------同意zyl910(910：分儿，我来了！)  的看法！！
话说回来zyl910以前还帮了我不少！！在这里说声谢谢！！