VB里窗体LEFT TOP 属性的疑问，搞的小弟我焦头烂额

VB里窗体LEFT TOP 属性的疑问，搞的我焦头烂额。
我一直搞VB.NET的程序，最近工作需要就使用VB6开发一个小东西

我新建一个EXE项目里面有一个FORM1窗体和一个form2窗体，当我点击form1里的一个按钮的时候让form2显示在按钮的地方。窗体的确是移动了但是移动的地方却不是我点击按钮的地方！
真是郁闷了。。。。奥我也设置了2个窗体的scaleMode=3 设置了为像素

VB code

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '声明api函数Private Type POINTAPI '声明数据类型    mouse_x As Long    mouse_y As LongEnd TypePrivate Sub Command1_Click()   GetCursorPos z '获取坐标    Form2.Left = z.mouse_x    Form2.top = z.mouse_y     Form2.showEnd Sub

请各位帮助啊。。。。。
苍天啊。。。。。。

[解决办法]

VB code

Private Sub Command1_Click()  Form2.Left = left+command1.left  Form2.top = top+command1.top+comamnd1.height  Form2.showEnd Sub
[解决办法]
VB code  Form2.Left = z.mouse_x*15  Form2.top = z.mouse_y*15  Form2.show
[解决办法]
探讨
好像差点啊，我想显示在按钮的右下角呢？请高手

[解决办法]
VB codePrivate Sub Command1_Click()  Form2.Left = form1.left+command1.left+间距  Form2.top = form1.top+command1.top+comamnd1.height+间距  Form2.showEnd Sub
[解决办法]
探讨
好像差点啊，我想显示在按钮的右下角呢？请高手

[解决办法]
VB codePrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long '声明api函数Private Type POINTAPI '声明数据类型  mouse_x As Long  mouse_y As LongEnd TypePrivate Sub Command1_Click()  Dim z As POINTAPI  GetCursorPos z '获取坐标  Form2.Left = z.mouse_x * 15  Form2.Top = z.mouse_y * 15  Form2.ShowEnd SubPrivate Sub Form_Load()  Me.ScaleMode = 1End Sub

VB里窗体LEFT TOP 属性的疑问搞的小

热点推荐