센터

Question

나는 우리 회사 내에서 internaly 사용할 수 아래의 문제를 가로 질러 온 프로그램을 쓰고 있어요 VB6에서 양식 :

최대화 MDI 부모를 사용할 때 화면에 중앙에 아이의 양식을 얻을 수있는 방법

형태로 backgroung

Answer 1

:

를

Private Sub Form_Initialize() 

    Me.Left = (MDIForm1.ScaleWidth - Me.Width)/2 
    Me.Top = (MDIForm1.ScaleHeight - Me.Height)/2 

End Sub 

물론 위의 코드에서 MDIForm1이 표시된 MDI 양식의 이름을 대체해야합니다.

Answer 2

오른쪽 아래의 IDE에서 등록 정보에서 선택하십시오. WINDOWS PROPERTY - CENTRE PARENT. 그것은 뭔가 약간의 차이가 이름 만

편집 CENTER 화면에 드롭 다운에 할 수있다 : 나는 WINDOWS의 POSITION 생각 -이 같은 Form_Initialize 함수를 생성, MDI 자식 화면에서 CENTER 학부모

Answer 3

From Microsoft : "MDI 자식 폼의 초기 크기 및 위치는로드 이벤트 프로 시저에서 특별히 설정하지 않으면 Microsoft Windows 운영 환경에서 제어됩니다." 아동에서

Private Sub MDIForm_Load() 
    CenterChildForm MDIForm1, Form1 
End Sub 

Sub CenterChildForm(Parent As Form, Child As Form) 
    If Parent.WindowState = 1 Then Exit Sub 'The Parent is minimized, centering is invalid. 

    Child.Top = (Parent.ScaleHeight - Child.Height)/2 
    Child.Left = (Parent.ScaleWidth - Child.Width)/2 
End Sub 

: 상기 사용 me.Move [좌측], [맨], [폭], [에 추가로

Private Sub Form_Load() 
    Me.Left = (MDIForm1.ScaleWidth - Me.Width)/2 
    Me.Top = (MDIForm1.ScaleHeight - Me.Height)/2 
End Sub 

Answer 4

상위 가입일

높이] 방법

한 번에 더 빨리 수행 할 수 있습니다.