又来打扰大家了，问一个vb窗体的问题，解决就结贴

[kujiaku]

现在要做一个窗体，没有标题部，但是要求在taskbar上面的按钮上有窗体图标和窗体标题文字的显示，大家有什么好办法？

[射天狼]

设置窗口的 ShowInTaskbar 属性为 True,不过是只读的,要在设计模工下设置~~
图标不太可能吧~~

[davidlv]

好象不可能吧

[kujiaku]

这个属性能在程序中控制么？

[kujiaku]

那先不管图标如何也行，那个属性能由程序动态控制么？

[kangqing]

cuizm(射天狼) 我天天都能看到你
你可真的是高手 什么问题都能回答别人

[captainivy]

同意楼上

[kujiaku]

射天狼是高手，大家对我来说也是高手啊

[kujiaku]

大家帮我忙，我给大家分分

[kujiaku]

要求是在窗体没有标题栏的情况下，而在任务栏上的按钮有文字说明，射天狼的办法不合意
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[zjmkxy]

在窗体没有标题栏的情况下,ShowInTaskbar 属性自动设为为 false，将其改为True，form的caption设为你需要的窗体标题文字就ok了。

[海牛]

Option Explicit
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim lRgn As Long

Me.ScaleMode = 3
lRgn = CreateRectRgn(0, 30, Me.ScaleWidth, Me.ScaleHeight)
Call SetWindowRgn(Me.hwnd, lRgn, True)
End Sub

[海牛]

要将ShowInTaskbar设为True

[li_ping]

完全可以的,只要设置一下窗体的位置就可以了.

[zjmkxy]

将Form的Borderstyle设为0-None,窗体自然就没有标题条了，这时,窗体的ShowInTaskbar 属性自动设为为 false，将其改为True，form的caption设为你需要的窗体标题文字就ok了。

[kujiaku]

海牛珠珠和zjmkxy接分，方法可行
zjmkxy的方法保留，虽然最后没有用上，但是按照方法，样子也非常神似了。
提过方案的大家都有分，来顶的也有分

[kujiaku]

希望的是窗体运行时候，窗体上面没有标题栏，但是在任务栏上有标题说明，有没有办法？

[kujiaku]

可行的话我再加分，请求大家帮帮忙啦