Question

VB怎样只去掉窗体右侧的控制按钮而保留窗体标题和左侧的图标

左侧是默认的，右侧是我现在正在用的。
现在我只想让窗体的标题栏上显示一个图标而。
但是鼠标点击图标或标题栏都不应该产生动作。

下面这样，鼠标点击这个图标，它就弹出菜单了，不行。

望大神能完成我的心愿，我先在此谢过了





Answer 1

我试验了几个方法，目前最好的效果就是把关闭“禁用”了，

似乎只要有图标在，至少就得有“关闭”按钮。

可能要完美的达到楼主的效果，只有自绘窗体来实现的了。

Option Explicit

Private Declare Function RemoveMenu Lib "user32" ( _
                           ByVal hMenu As Long, _
                           ByVal nPosition As Long, _
                           ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" ( _
                           ByVal hWnd As Long, _
                           ByVal bRevert As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
                           ByVal hObject As Long) As Long

Private Sub Command1_Click()
   Unload Me
End Sub

Private Sub Form_Initialize()
   Dim hMenu As Long
   BorderStyle = 3
   Me.Caption = Caption
   hMenu = GetSystemMenu(Me.hWnd, 0)
   Call RemoveMenu(hMenu, 6, &H400)
   Call RemoveMenu(hMenu, 5, &H400)
   Call RemoveMenu(hMenu, 4, &H400)
   Call RemoveMenu(hMenu, 3, &H400)
   Call RemoveMenu(hMenu, 0, &H400)
   Call CloseHandle(hMenu)
End Sub

追问

还是不太满意，你能否想想办法通过API的DC手动绘制标题栏？谢谢啦

据说要用到GetWindowDC和ReleaseDC等API，我对API不太熟练，麻烦啦！

追答

都这样了，还要去“手动绘标题栏”，你还不如直接用自绘窗体算了。
这样还省事些。

Answer 2

自己查看窗体的属性，把里面的菜单去掉

追问

目测需要API，VB自身没法做

追答

拉倒，以前我还自己做过菜单替换它的呢

再说，就算要api，vb也是可以做的，无非就是用hook得到句柄，然后用系统函数更改。而且vb连上dll还能直接控制端口呢。我觉得是不是你连vb的部件那里的功能都没用到过，我以前都vb调用word,excel,数据库 就是那样编出来的

Answer 3

去掉标题 自己做一个, .

追问

我希望能跟跟系统保持一致

Answer 4

追问

你好，我希望能跟跟系统保持一致

追答

愿望是美好的，现实是残酷的。你的愿望是VB所做不到的。

追问

我知道，但是API能做到