VB中无标题的窗体，怎样在任务栏显示???

Question

把form1.showInTaskbar=true就可以了

Answer 1

Form1:BorderStyle = 2
在运行时修改窗口样式即可

Answer 2

To phf:确实可以在任务栏上显示出来，不过不能单击使窗口最小化，右键菜单也不起作用。
To jifeng:没有用处啊？一点反应都没有。

Answer 3

Form1:BorderStyle = 0
然后自己 加几个 commandButton 模拟 最小化，最大化，关闭按纽

Answer 4

要没有标题栏，可以设置 form1.ControlBox＝false

Answer 5

按照Jackyin说的，还是无法通过鼠标右键点击任务栏上的按钮弹出系统菜单
现在的问题是：怎样得到鼠标点击了 ‘任务栏上程序对应的按钮’的消息？
又没有其它办法？

Answer 6

这个问题,我写过这样一个mp3播放机,又不能有标题栏,又要在任务栏上显示窗口的caption属性,不能设置form1.minibutton,maxbutton,cotrolbox 为false 来实现,这样任务栏上一条白块,什么也没有.只有用api来实现.用form的mouse_down mouse_move来解决,窗口的移动问题.
Option Explicit
Dim leaveLeft As Integer
Dim leaveTop As Integer
private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
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  sub form_load()dim rgn as long
rgn = CreateRectRgn(3, 22, 305, 183) '设定显示区域,把窗口的标题栏放在显示区外.
Call SetWindowRgn(Form1.hWnd, rgn, True) '显示end subPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    leaveLeft = X
    leaveTop = Y
End IfEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    Me.Left = X + Me.Left - leaveLeft
    Me.Top = Y + Me.Top - leaveTop
End IfEnd Sub

Answer 7

我是说窗口边框设为2，在Form_Load中使用SetWindowLong修改窗口样式，清除WS_Captionw位，再用SetWindowPos调整窗口尺寸即可

Answer 8

用feiying_bao(飞鹰)的方法是要注意，万一用户改了标题栏大小，你的程序能适应吗？

Answer 9

   关于bobbyxby讲的.我想一般想要做这样一个窗口的人,不希望用户修改窗口的大小.如果非要修改窗口的大小,可以将原form_load的代码移到form_resize处,当窗口大小变化时,取得窗口现在的大小,然后设置前面两个参数为0,22(这个数要根据不同窗口样式改变,如工具窗口和固定单线窗口就不一样),后面两个参数为form.width,form.heigh.
   如要改变显示区域的大小,标题栏的大小在运行时除了随窗口增宽变化外,我不知道有没有办法增高.如果有,那倒是存在另想办法取得工作区左上座标的问题.