如何去掉窗体上的图标，最小化最大化按钮存在

如何只去掉窗体上的图标：把窗体的ICON设为空。

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

去图标： Icon=(空)
最小化最大化按钮存在：  ControlBox=True
把窗体的ICON设为空是错误的,会出现微软的旗子.还是做一个透明的ICON吧.用安装盘的Imagedit.exe制作.
窗体属性Icon=(None)去图标。
BorderStyle=3去掉最小化最大化按钮。
窗体属性中的icon值设为空
同意： dbcontrols(泰山__抛砖引玉) (  )
把窗体的ICON设为空是错误的,会出现微软的旗子.还是做一个透明的ICON吧.用安装盘的Imagedit.exe制作.
或者做一个和标题颜色一样的的Ico
如果做一个假图标标题栏上的字前会空出来，
set me.icon=nothing
出现了一个windows旗帜图标
请高手再顶顶
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Const WS_SYSMENU = &H80000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000Private Const GWL_STYLE = (-16)Private Sub Form_DblClick()
    Unload Me

End SubPrivate Sub Form_Load()
    Dim TempLng As Long

    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
    TempLng = TempLng And Not WS_SYSMENU '系统菜单（图标）
    TempLng = TempLng And Not WS_MINIMIZEBOX '最小化
    TempLng = TempLng And Not WS_MAXIMIZEBOX '最大化
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng

End Sub
同意zyl910的方法，不过去掉
TempLng = TempLng And Not WS_MINIMIZEBOX '最小化
TempLng = TempLng And Not WS_MAXIMIZEBOX '最大化
两行
To idoloveyou()：
他的问题标题是：如何去掉窗体上的图标，最小化最大化按钮存在
我只不过是完全代码实现的方法！
： zyl910(910：分儿，我来了！)
   我复制了你的代码，好像没有实现耶？？VB6+Windows2000
to zyl910(910：分儿，我来了！) ：
你自己试试，你那么写连最大化、最小化都没有了（我是按照VB最初的默认值，编译你的程序的）
各位，其实没那么麻烦，这样就可以了：
将窗体的一个属性：
Form1.ControlBox=False,就可以了，加分吧，兄弟
各位，其实没那么麻烦，这样就可以了：
将窗体的一个属性：
Form1.ControlBox=False,就可以了，加分吧，兄弟
zhaozhongju(什么都想用，什么都没用好)
Form1.ControlBox=False
这种方式不太合适，因为此属性运行时只读。
哎…这么多人呀，看来现在的分还真难得呀。(UGUESS)
嘻嘻。
对了 win2000对很多API都有问题。所以用些用api实现的现在都有问题。
我就经常遇到这种问题。
能用vb自建函数就用吧。
这个方法准行：将borderstyle设置成：bssingle。然后将icon置空，就可以了！！！
你还是设置成：bsdialog吧，刚才我说错了：（
去掉图标：把窗体属性Icon置为None
去掉按钮：把BorderStyle置为3。
用API函数SetWindowLong即可达到要求，通过该函数可改变窗口属性，具体的资料查阅MSDN吧