在窗口没有窗体边框和标题栏的情况下 怎样改变窗口大小 ?
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As IntPtr, _
ByVal wMsg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer) _
As Boolean
Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean
Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF010&
Const HTCAPTION = 2

Private Sub Form1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseDown
ReleaseCapture()
SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
End Sub


我在VB.net 2005 下执行该代码报异常(SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0))。不知什么原因?
实际运行过程中始终报异常

[此贴子已经被作者于2007-7-25 14:26:20编辑过]

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.Width = 100
Me.Height = 100
End Sub

怎么讲？

怎么讲

坦白说，我不知道你为什么要用API
如果只是要改变窗口大小的话
Me.Width = 100
Me.Height = 100
这样不行吗？

主要目的：
1。为了界面美观；
2。想作一个类似于QQ的主界面的没有窗体边框和标题栏。
3。通过鼠标能直接调整窗口的大小和位置。

上网查了下资料，说通过使用那个API可以实现该操作。但是现在在VB.net 2005上运行就报API 异常。

有知道原因的朋友吗？

不好意思。回复别人的帖子之后。我的帖子掉了。。。不能让他掉下来。顶。

问题总算解决了。谢谢大家的关注！