Visual Basic Tips

フォーム・画面の中央に表示

VB4.0以前はStartUpPositonプロパティが無かったので下のような事をやってました。

Private Sub Form_Load()
　　Call Form_Center(Me)
End Sub

Sub Form_Center(frm As Form)
　　frm.Top = (Screen.Height - frm.Height) / 2
　　frm.Left = (Screen.Width - frm.Width) / 2
End Sub


DownLoad vbtips056.lzh 2KB (VB6.0)