无边框的窗体如何指定坐标?

tianwei76 2009-04-01 10:55:23
Private Sub Form_Load()
Me.Top = Mowob.Text2.Text
Me.Left = Mowob.Text1.Text
End Sub

当我把窗体设成无边框时,,,这坐标就无效了。。。
请问该如何解决。。
...全文
62 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
tianwei76 2009-04-27
  • 打赏
  • 举报
回复
[Quote=引用 7 楼 SYSSZ 的回复:]
VB codePrivate Sub Form_Load()
Mowob.Show
Me.Top = Val(Mowob.Text2.Text)
Me.Left = Val(Mowob.Text1.Text)
End Sub
[/Quote]

无效 当我把窗体设成有边框的时候,可有效。。
tianwei76 2009-04-14
  • 打赏
  • 举报
回复
[Quote=引用 4 楼 verywzm 的回复:]
同问Mowob是什么,边框没了,坐标还是可用的!
[/Quote]

Private Sub Form_Load()
Me.Top = Mowob.Text2.Text
Me.Left = Mowob.Text1.Text
End Sub

Mowob 是另一个窗体的名称,,
我取另一个窗体的text1 text2 中的数据 作为当前窗体的坐标。。
SYSSZ 2009-04-14
  • 打赏
  • 举报
回复
Private Sub Form_Load()
Mowob.Show
Me.Top = Val(Mowob.Text2.Text)
Me.Left = Val(Mowob.Text1.Text)
End Sub
嗷嗷叫的老马 2009-04-05
  • 打赏
  • 举报
回复
.....路过....
verywzm 2009-04-05
  • 打赏
  • 举报
回复
同问Mowob是什么,边框没了,坐标还是可用的!
DengXingJie 2009-04-01
  • 打赏
  • 举报
回复
不知Mowob是为何物,如果是如下代码的话,是可以正确运行的


Private Sub Form_Load()
Me.Top = Text2.Text
Me.Left = Text1.Text
End Sub
冰火小猫 2009-04-01
  • 打赏
  • 举报
回复
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2'窗口居中
zhuhuofong 2009-04-01
  • 打赏
  • 举报
回复
up

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧