关于VB无边窗体

Question

VB的无边框窗口怎么实现放大缩小，以及最小化

Answer 1

代码控制啊
me.windowstate=vbMaximized /minimized

Answer 2

设置一下：Form的ControlBox=False，Caption 为空这样的无边框窗体就可以改变大小了哦！！

Answer 3

最大化：
me.wide=screen.wide
me.height=screen.height
最小化：
me.windowstate=1
恢复：
最大化之前,用变量w和h纪录的窗体的wide和heightme.wide=w
me.height=h

Answer 4

// CBASE(开拓者) 
这样做不行吧，那只是启动时候的选项应用ShowWindow

Answer 5

试试在拖放事件里写吧，
mousemove里肯定要检测鼠标的位置的，如果是接近窗口边缘的地方就改变mousepointer为双向箭头；
在dragover事件里写改变窗体大小的代码。
具体的还需要设置一些变量，比如得让程序知道你当前在拖放的是窗体的哪条边，抑或是哪个角。若是在拖放左、上边或左上、左下、右上角，还要用到窗体的move方法。
仅仅提供一个思路而已。见笑

Answer 6

Private Sub ImgRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImgRight.Tag = "1"
End SubPrivate Sub ImgRight_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'On Error Resume Next
Dim a As Integer
If ImgRight.Tag <> "" Then
Dim Pos As POINTAPI
GetCursorPos Pos
a = Pos.X * 15 - Me.Left
If a > 8500 Then Me.Width = a '限制窗体最小宽度
End IfPrivate Sub ImgRight_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ImgRight.Tag = ""
End Sub
=========================================
用image控件，form_load中放到窗体最右边，然后靠得到点击跟踪鼠标进行调整form大小

Answer 7

直接鼠标拖动不行,即使加个statusbar也不行啊,窗体变成none之后右下角那个小图表就消失了

Answer 8

我的代码绝对没问题。我的无边窗体就是这么处理的。这个方法是参考的以前一个程序。
我给的是横向改变大小，纵向同理，再在右下角放个image，也一样，相当与两者同时

Answer 9

他的意思可能是用line画虚线吧,呵呵

Answer 10

用api得到屏幕上鼠标的坐标点x,yline (form.left,form1.top)-(x1,form1.top)
line (form1.left,y)-(x,y)
line (x,form1.top)-(x,y)
line (form1.left,form1.top)-(form1.left,y)

Answer 11

qq的窗体不是无边窗体,而是可变的窗体上加载了皮肤,对于窗体控制这方面是vb的弱项,用delphi则会好的多,它可以直接控制窗体的边框,控制按钮等vb难以涉及的方面