Question

VB编程-改变窗体的横纵坐标和高、宽度。

在四个文本框中输入适当数值，单击 “改变” 按钮后，窗体移动到由 “横坐标” 和 “纵坐标” 确定的位置上，并且窗体的高度与宽度也变为指定值；保存所建工程；编译为可执行文件；在 Visual Basic 集成环境之外运行此程序。

为什么错误呢？





Answer 1

Private Declare Function SetWindowPos Lib "user32" (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

Private Sub Command1_Click()
SetWindowPos Me.hwnd, HWND_TOPMOST, CInt(Text1), CInt(Text2), CInt(Text3), CInt(Text4), 0
End Sub
'请参考采纳！谢谢！

追问

嗯。可以了。要输入很大的数值才可以。O(∩_∩)O谢谢~

Answer 2

你检查一下，四个文本框的名称？

追问

文本框的名称对啊。

追答

那错误指在哪一行？
或者看看窗体的名称是Form1吗？
要求对象？往往是没有插入该对象或者对象名不符合造成？
代码完全没有问题！

追问

第一行。不知道什么原因啊。是不是和装的软件有问题啊？win7装的精简版。

追答

你把下面四行代码先删除，改成如下：
Private Sub Command1_Click()
Me.Move Cint(text1.text),Cint(text2.text),Cint(text3.text),Cint(text4.text)
End Sub
如果还有问题，看看Command1的名称，否则软件有问题了。
VB6 精简版在WIN7下使用，我没有这个实践。
VB6 简体中文企业版 + WIN7 使用过，没有这个问题。

追问

可以运行。但是无论四个文本框输入什么数值，窗口都小小的，在屏幕左上方。

追答

text1用300
text2用600
text3用2000
text4用3000