폼 실행하기

일반적으로 폼(FORM)은 프로그램에서

 

    Load Form1

    Form1.Show vbmodal

 

과 같이 실행한다.

 

메뉴를 가변적으로 구성하여 프로그램을 실행하고자 하면

위와 같은 방법으로는 무리가 따른다.

미리 메뉴를 구성한후 각 메뉴의 Click Event에 Load와 Show를 사용하여

실행할 폼명을 기술해 두고 메뉴의 보이기 속성을 이용하여 처리해야 할것이다.

 

그러나 다음과 같이 폼을 실행시킨다면 동적메뉴 구현이 쉬울것이다.

 

        dim oForm as Form

        dim sForm as string

 

        sForm = "Form1"

 

        Set oForm = Forms.Add(sForm)
        oForm.Show
        oForm.SetFocus

 

위의 방법은 폼명을 변수에 넣어서 Forms.Add를 이용하여 실행을 하고 있다.

이것은 폼명을 DB화 하여 처리 가능하다는 것을 의미한다.

 

그 다음 응용은 이용자 몫이겠죠...^^

 

 

** 폼의 실행 여부 확인은 담과 같이....
  

    For Each oForm In Forms           '         '
        If UCase(oForm.Name) = sForm Then
               oForm.Show
               oForm.ZOrder 0              ' 폼이 실행중이면 맨 앞으로 보낸다.

                Exit For
         End If
  Next