7,763
社区成员
发帖
与我相关
我的任务
分享小问题，送分的
我定义了一个窗体form1,以及一个过程centerform，是想使窗体居中。
Public Sub centerform(frm As Form)
frm.Move (Screen.Width - frm.Width) / 2, (Screen.Height - frm.Height) / 2
End Sub
Private Sub Form_Load()
centerform(Form1)
End Sub
结果编译的时候，说centerform(Form1)的类型不匹配。
还有过程和子程序是不是一样的？
Public Sub centerform(frm As Form)
frm.Move (Screen.Width - frm.Width) / 2, (Screen.Height - frm.Height) / 2
End Sub
Private Sub Form_Load()
centerform(Form1)
End Sub
结果编译的时候，说centerform(Form1)的类型不匹配。
还有过程和子程序是不是一样的？
...全文
请发表友善的回复…
发表回复
qiqunet 2004-04-12
- 打赏
- 举报
象你这样是每次都要它居中,还不如设计时设置好下面这个属性？
.StartUpPosition=2'加载时居中
.StartUpPosition=2'加载时居中
wumy_ld 2004-04-12
- 打赏
- 举报
没有返回值的（sub）无需加括号
ipotang 2004-04-12
- 打赏
- 举报
我只是体验一下，谢谢了
northwolves 2004-04-11
- 打赏
- 举报
Private Sub Form_Load()
centerform Form1
End Sub
centerform Form1
End Sub
铁拳 2004-04-11
- 打赏
- 举报
Private Sub Form_Load()
centerform Form1
End Sub
centerform Form1
End Sub
lxqlogo0 2004-04-11
- 打赏
- 举报
Private Sub Form_Load()
call centerform(Form1)
End Sub
call centerform(Form1)
End Sub
