VB出错提示end sub后面只能出现注释，求解

lty1984

我上网找了个可以让VB中无边框窗体移动的代码，可是敲上之后有这样的错误提示，我百思不得其解，代码如下：

Private Declare Function ReleaseCapture Lib “user32” () As Long

请大家帮忙看下谢谢






————————————————
支持一下，这就是学习的过程。

lty1984

自己顶下，望斑竹进来看下，还有个说法貌似是要加载api控件？不太明白，有没有高手能帮忙解决下谢谢

omig001

你检查一下提示的那个过程中，是否出现两个end sub，或者应该用exit sub 你用了end sub。
user32这个是系统自带的核心动态链接库，是不用引用的，

lty1984

omig001 发表于 2013-1-2 03:53

                               
登录/注册后可看大图

你检查一下提示的那个过程中，是否出现两个end sub，或者应该用exit sub 你用了end sub。
user32这个是系统 ...

版主你好，请问能不能帮忙弄一段代码，可以移动没有标题栏的窗体呢？我在网上找了好多，输入进去就是不好使，一顿报错，现在老着急了，如果可以的话请帮帮忙呗，非常感谢

lty1984

刚刚向版主求助完毕就在网上弄到了一个好使的代码，可以移动没有标题栏和边框的窗体，这样大家就能制作出好看的窗体了，现在给大家分享下：
'移动无标题栏窗体代码
Private Const WM_NCLBUTTONDOWN = &HA1
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function ReleaseCapture Lib "user32" () As Long


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, 2, 0

End Sub

把上面这段代码直接敲到代码窗口就可以了

omig001

lty1984 发表于 2013-1-3 16:11

                               
登录/注册后可看大图

版主你好，请问能不能帮忙弄一段代码，可以移动没有标题栏的窗体呢？我在网上找了好多，输入进去就是不好 ...

内事不决问百度，外事不决问谷歌，果然在理。