真是痛苦啊，VB太让我受不了了，快来帮帮我啊！

Question

把标题栏去掉，重新换个picturebox等代替，再在里边建你要的按钮不就是了

Answer 1

去掉标题栏 borderstyle=0 。运行时生效。

Answer 2

呵.
这个.......
我自己做了一个XP的界面控件.
可以很容易的实现你的说那个.
半分钟就可以搞定.不过不是传统的win9x界面.你说的那个,我没办法.

Answer 3

如果是让bordstyle=0
那我当然会了
但是正如我上面说的，
那样实在很难看
我想做的一个跟QQ差不多的 界面
如果没有边框是不行的
去掉标题栏后，
怎么来画边框呢？

Answer 4

用getwindowlong和setwindowlong这二个API来实现

Answer 5

lastcsdn2166 (终结者) 你按木石子的方法做成功了吗

Answer 6

lsgl(木石子) 你好啊
我只知道可以用这两个函数来实现最大化按钮和让边框不能被拖动
但是怎么用它来实现我上面所要的功能，我真的不知道
这是我用这两个函数实现最大化按钮和让边框不能被拖动：
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 Long
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_THICKFRAME = &H40000
Private Const GWL_STYLE = (-16)
Dim TempLng As Long
    TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)   '取得窗体信息
    TempLng = TempLng And Not WS_MAXIMIZEBOX    '禁用最大化
   TempLng = TempLng And Not WS_THICKFRAME     '禁用可改变大小的边框
    SetWindowLong Me.hwnd, GWL_STYLE, TempLng    '设置窗体
能把代码给我吗，谢谢了！！！
给你加100分！！fjw2002(fjw2002)：
双击回不去，我早试过了！
还是谢谢你！

Answer 7

我不明白,为什么不设置成只有一个关闭按钮,然后设置最小化按钮有效,干嘛那么麻烦?有一个无效的最大化按钮并不妨碍什么呀?
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 8

那样设置的话，边框可以随便拖
而我要作成QQ那样的界面，所以不行
我试着用SETwindow 和get..
但是运行时老是会花屏
实在很无奈啊

Answer 9

使窗体的最大化和最小化按钮消失
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 LongConst GWL_STYLE = (-16)
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZEBOX = &H20000
Private Function MySetWindowSytle()
    Dim lWnd As Long
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MINIMIZEBOX)
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
End FunctionPrivate Sub Command1_Click()
    Call MySetWindowSytle
End Sub