怎样用VB定义窗口的位置? 请教各位高手,我想在一个屏幕上实现form1这个窗体在左,form2这个窗体在右,打开form1的同时,form2也会打开如何用代码实现?感激涕零! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Form1:Private Sub Form_Load()Me.Left = 0Me.Top = 0End SubForm2:Private Sub Form_Load()Me.Left = Form1.Left + Form1.WidthMe.Top = Form1.TopEnd Sub 参照这里http://bingning.net/VB/SOURCE/index.html看看。 'Form1的LoadPrivate Sub Form_Load() Form1.Left = (Screen.Width - Form1.Width - Form2.Width) \ 2 Form1.Top = (Screen.Height - Form1.Height) \ 2 Form2.Show Form2.Left = Form1.Left + Form2.Width Form2.Top = Form1.TopEnd Sub 正则表达式,如何提取"件号" + X-XX形式的字符串? 如何加速百亿次FOR循环 请教大虾们 Shift-JIS转换UTF-8 如何动态检测和注册控件 急求一个日记本的VB源代码 想找火车售票系统的源代码!!! 函数应该写在标准模块中,还是模块中? 在toobar里面图标显示得太小了。 然后我看到了在toolbar 里面有个buttonheigh 属性, 但它的值却改不了, 请问怎样修改? 关于设置焦点的菜鸟问题——一定给分!!!!!!!!!!!!11 如何取消注册的activex控件 VB简单的程序题 WebBrowser1.Navigate如何每隔2分钟打开一个网址
Private Sub Form_Load()
Me.Left = 0
Me.Top = 0
End SubForm2:
Private Sub Form_Load()
Me.Left = Form1.Left + Form1.Width
Me.Top = Form1.Top
End Sub
'Form1的Load
Private Sub Form_Load()
Form1.Left = (Screen.Width - Form1.Width - Form2.Width) \ 2
Form1.Top = (Screen.Height - Form1.Height) \ 2
Form2.Show
Form2.Left = Form1.Left + Form2.Width
Form2.Top = Form1.Top
End Sub