首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

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

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 code
Private Sub Command1_Click()  Form2.Left = form1.left+command1.left+间距  Form2.top = form1.top+command1.top+comamnd1.height+间距  Form2.showEnd Sub
[解决办法]
探讨
好像差点啊,我想显示在按钮的右下角呢?请高手

[解决办法]
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()  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 

热点排行