object.Move left, top, width, height例:
Private Sub Form_Click ()
Dim Inch, Msg ' Declare variables.
Msg = "Choose OK to resize and move this form by "
Msg = Msg & "changing the value of properties."
MsgBox Msg ' Display message.
Inch = 1440 ' Set inch in twips.
Width = 4 * Inch ' Set width.
Height = 2 * Inch ' Set height.
Left = 0 ' Set left to origin.
Top = 0 ' Set top to origin.
Msg = "Now choose OK to resize and move this form "
Msg = Msg & "using the Move method."
MsgBox Msg ' Display message.
Move Screen.Width - 2 * Inch, Screen.Height - Inch, 2 * Inch, Inch
End Sub
Private Sub Form_Click ()
Dim Inch, Msg ' Declare variables.
Msg = "Choose OK to resize and move this form by "
Msg = Msg & "changing the value of properties."
MsgBox Msg ' Display message.
Inch = 1440 ' Set inch in twips.
Width = 4 * Inch ' Set width.
Height = 2 * Inch ' Set height.
Left = 0 ' Set left to origin.
Top = 0 ' Set top to origin.
Msg = "Now choose OK to resize and move this form "
Msg = Msg & "using the Move method."
MsgBox Msg ' Display message.
Move Screen.Width - 2 * Inch, Screen.Height - Inch, 2 * Inch, Inch
End Sub
解决方案 »
- 在窗体中的每个按钮的事件中对数据操作完毕,都应该关闭连接吗?[后台是sql server,用ado记录集]
- 如何在VB程序中获取服务器的时间呢?现在只知道服务器的名称.
- 简单问题???如何断开拨号连接允许下一拨号连接??
- 一个强制替换保存文件的问题?
- 急球 setupfactory 制作安装盘 关于安装语言的问题
- 急!~~谁知道如何屏蔽或替换RealPlayer控件中的右键菜单啊~~~(在线等待)
- 求Setup Factory 6.03汉化完整版
- 谢谢你们,但问题没解决,请看内容!!!!!急!!!!!!!
- 如何设置数据报表的横向打印的问题。
- 如何在VB中实现查找?如何给你我全部的分?
- 如何使计算机的蜂鸣器发出声音?就像 QB 里面的 PlaySound 一样?
- 窗体最小化问题,帮个忙吧~~~,谢了。
只能这样,随着网站的不断建设中,有好的建议或发现BUG,会提出来的。
你可以在那里交流编程技术
注册用户请去以下帖子领分
http://www.csdn.net/expert/topic/682/682036.xml?temp=.5972101
http://www.csdn.net/expert/topic/681/681917.xml?temp=.5434992
http://www.csdn.net/expert/topic/676/676074.xml?temp=.9520075
http://www.csdn.net/expert/topic/641/641938.xml?temp=5.826968E-02