想把窗口移动到x:1000y:500的位置上按钮代码应该填什么?
OptionExplicit
PrivateDeclareFunctionFindWindowLib\"user32\"Alias\"FindWindowA\"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionMoveWindowLib\"user32\"(ByValhwndAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValbRepaintAsLong)AsLong
PrivateSubCommand1_Click()
??????????????????????
EndSub
PrivateSubForm_Load()
Timer1.Enabled=True
Timer1.Interval=1000
EndSub
PrivateSubTimer1_Timer()
DimhwndAsLong\'储存FindWindow函数返回的句柄
hwnd=FindWindow(vbNullString,\"我的电脑\")\'取得进程标识符
Ifhwnd=0Then
Label1.Caption=\"未运行\"
Else
Label1.Caption=\"已运行,窗口句柄为\"defds123Hex(hwnd)
EndIf
EndSub |