怎么能够去掉系统菜单和图标

[小王]

怎么能够去掉系统菜单和图标

[海牛]

1、置窗体的属性BorderStyle=0
2、使用API函数。

[海牛]

试试！！^_^

Private Declare Function DeleteMenu 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 Sub Form_Load()
Dim lM As Long

lM = GetSystemMenu(Me.hwnd, 0)

Call DeleteMenu(lM, 0, &H400)
Call DeleteMenu(lM, 0, &H400)
Call DeleteMenu(lM, 0, &H400)
Call DeleteMenu(lM, 0, &H400)
Call DeleteMenu(lM, 0, &H400)
Call DeleteMenu(lM, 0, &H400)
Call DeleteMenu(lM, 0, &H400)
End Sub

[小王]

To Rick110AAA
系统菜单现在没有了，图标有什么方法能去掉呢？

[lxcc]

form的属性设置controlbox=false

[小王]

To lxcc(虫子)
我只想要controlbox中的关闭按钮其他的去掉.

[kmzs]

minbutton & maxbutton =false

[lxcc]

up

[abcd110948]

minbutton & maxbutton =false