谁能将这段代码改正，并说明（急！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！）

[greensoft]

小第是个初学者，这个问题可能不是很难，但对我来说这太难了、轻指教！Option OPTION Explicit
Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)

Private Sub Form_Load()
Form1.Width = 4680
Form1.Height = 4260
End Sub

Public Sub Option1_Click()
Call SetWindowPos

End Sub

[greensoft]

gameboy999(
你说的对

[DeD]

有时候只要知道什么是对的，什么是错的就可以
呵呵。。。见笑

[gameboy999]

:)

[greensoft]

!

[TechnoFantasy]

不知道你到底是什么问题，API中正确的定义：
Public Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
将错误代码贴上来看看
www.applevb.com

[greensoft]

to: TechnoFantasy()
我问的是用call怎么调用 api

[playyuer]

'如不用 Call,或不要返回值,则不用加括号
'如要得到返回值加括号
'r = SetWindowPos (...)
Call SetWindowPos (...)'加括号

[haor]

你把api定义在窗体中了吗？
你在调用的时候好像没传参数。

[crazymens]

函数用call也可以！但是起码后面的参数你要写阿，不能想上面的程序那样什么参数都没有！上面程序肯定会报告参数不可选错误！至于这个函数怎么用，看msdn!

[proman]

给你一个简单的例子：
Dim dl&, position&
If chkTopmost.Value = 1 Then position = HWND_TOPMOST Else position = HWND_NOTOPMOST
dl& = SetWindowPos&(hwnd, position, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
dl&不为0为成功

[prefix]

在声明部分再加上
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
这两句
然后把你的Call SetWindowPos 一句改为这样：
Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0,SWP_NOMOVE Or SWP_NOSIZE)

[prefix]

还有，对于api,从api浏览器中复制声明代码比较好。你上面把所有的长型都写成Integer了，这样很可能遇到出错的机会。应该这样：
Public Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

[jinkai_woo]

调用方法不对!
例如:
SetWindowPos hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
(让窗口在最上面)

[limengchen]

Call SetWindowPos后面要加参数呀。

[vbdabster]

这位老兄好像直到现在都没有说清楚到底要干什么阿

[flynature]

你不加参数？？？？？你的目的是什么？？？能不能讲清楚一点啊！！

[yfeng]

问题很简单
对于sub，用call 的时候，函数名后一定要带括号
如果不用call,直接用函数名，后面必须不能带括号。
function 不能用call,

[jadgekylin]

to yfeng:
对于sub，用call 的时候，函数名后一定要带括号
如果不用call,直接用函数名，后面必须不能带括号。
function 不能用call,

上述不全正确，对于function 也可以使用call ,只是使用的结果是忽略掉function的返回值。

[jadgekylin]

有问题可以写信：
[e-mail]

[jadgekylin]

另外我这里有一个htm格式的所有api的用法，有需要的可以向我索要。