如题。当把窗体的BorderStyle属性设置为0-None时，运行后窗体就固定在屏幕的中心，不可以在移动。为什么？哪位高手给解答下！

你先想想你指望怎么移动，再考虑一下有边框的时候能不能这样移动。

你测试一下这个

Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Sub MovingHandle_MouseDown(Button ...)

If (Button = 1) And (Me.WindowState = 0) Then
*******.MousePointer = 15
ReleaseCapture
SendMessage Me.Hwnd, &H112, &HF010& + 2, 0
*******..MousePointer = 0
End If

我想应该是属性设置的问题，不是代码的问题！只有BorderStyle属性设置为0-None的时候就不可以移动了。如果设成其他的有边框的时候是可以移动的。

楼上的说的完全正确` `是属性设置的问题`

Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Const htcaption = 2
Private Const wm_nclbuttondown = &HA1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i, r
If Button = 1 Then
i = ReleaseCapture()
r = SendMessage(hwnd, wm_nclbuttondown, htcaption, 0)
End If
End Sub

加上这段代码就可以移动了

不行啊，老大！还是不能移动是不是还要把你这代码做一些修改？其实我都看不懂你这代码俺是个刚学的菜鸟！我把原码发上来，你可不可以帮我把这段代码加进去？谢谢了！另外还有个问题，当设成无边框的时候电脑下面的任务栏里也没有相应的任务！这又是怎么回事？

[此贴子已经被作者于2007-7-23 18:31:27编辑过]

看过了，这个软件可以作为Excel当数据库使用的范例。

我建议让他自己来加代码。貌似没有任何难度。

另外，任务栏里有没有相应的任务和Form.ShowInTaskbar属性有关。

6楼说的没有任何错误，随便你加在什么地方都行

如果有边框的时候你要想移动窗体,也是要用鼠标拖住窗体最上边的边框才可以,如果你使用鼠标拖住窗体的工作区,那么你肯定也是移动不了的,现在去掉的边框,你拖哪儿呢???

（2楼）与楼上所见略同。


有些人不能理性地想问题，很悲哀。