窗体不要标题栏，BorderStyle = 0 ，但我还想要菜单，可是编辑了菜单后，标题栏又出来了。这样怎么解决呢？

Question

窗体的BorderStyle = 0加菜单后，标题栏就去不掉，我不想要标题栏。

Answer 1

如果你想做自己的界面，你可以自己做菜单阿。
如模仿officexp的菜单。

Answer 2

nik_Amis(Azrael) ：API动态创建吧
=======================================================我真的不懂呀，能说详细些么？我的窗体被我用API变成圆角矩形的了，加标题栏就难看死了。

Answer 3

form1.controlbox=false
form1.BorderStyle = 0

Answer 4

把菜单放在别的窗体上，本窗体上用commandbutton或者toolbar，click时popupmenu 就行了。只是跨窗体过程写的有点麻烦。

Answer 5

呵呵，ZYL都来了
Form1里面放一个 Command1，Form2里面建个菜单Menu1，要有子项目。Form1中：
Private Sub Command1_Click
  Me.Popupmenu Form2.Menu1
End Sub

Answer 6

有没有标题栏与菜单可见不可见没有任何关系！！
  首先如大力水手所说，只需设置
                      form1.controlbox=false
                      form1.BorderStyle = 0
  下来，最重要的是 form1.caption="",这样标题栏自会消失
    

Answer 7

补一句，me.popupmenu form2.menu1,command1.top,command1.left+command1.width。这样规定地方比较好。如果这样的话，跨窗口调用，一些函数就要都写进模块里了。

Answer 8

注意只要修改caption属性,标题栏又会出现,此时重复下面操作即可
BorderStyle 属性默认的就可以了Call SetWindowLong(Me.hWnd, GWL_STYLE, GetWindowLong(Me.hWnd, GWL_STYLE) Xor WS_CAPTION Xor WS_BORDER)
Call SetWindowPos(Me.hWnd, HWND_TOP, 0, 0, Me.Width / 15, Me.Height / 15 + 1, SWP_NOACTIVATE + SWP_SHOWWINDOW + SWP_NOMOVE)
Call SetWindowPos(Me.hWnd, HWND_TOP, 0, 0, Me.Width / 15, Me.Height / 15 - 1, SWP_NOACTIVATE + SWP_SHOWWINDOW + SWP_NOMOVE)