ActiveX에서 HTML페이지의 Param 받기

1. ActiveX 컨트롤에 값을 받을 수 있는 프로퍼티를 만들어야 합니다.
방법은 비주얼베이직의 ActiveX컨트롤 인터페이스 마법사를 사용하면 간단
ActiveX컨트롤 인터페이스 마법사를 사용하는 방법
(1) 추가기능에서 추가기능관리자에서 ActiveX컨트롤 인터페이스 마법사를 추가하고 로드시킨다. 그러면 추가기능메뉴에 ActiveX컨트롤 인터페이스 마법사가 등록된다.
(2) ActiveX컨트롤 인터페이스 마법사를 실행
(3) 인터페이스 구성원 선택에서 불필요한 구성원은 모두 선택해제 한다. 필요하면 선택
(4) 사용자정의 구성원에서 추기를 클릭한다. 그리고, 예를 들어 memid라는 속성(프로퍼티)를 추가한다. 그리고, 다음
(5) 매핑설정은 필요하면 매핑시키고, 필요없으면 건너뛴다. 여기서는 건너뛰었다.
(6) 특성설정인데 데이터형식을 지정한다. 여기서는 String을 지정하였다. 기본값은 "" 빈문자열로 하고
(7) 그리고 마침하면 아래쪽과 같은 코드가 생긴다.
이 코드는 memid라는 속성에 대한 ActiveX 컨트롤 인터페이스이다.

2. 비주얼 인터데브로 ASP페3060;지를 오픈하고 개발한 ActiveX컨트롤을 등록하고 페이지에 올려놓으면 화면에 ActiveX컨트롤이 보일 것임

3. 이 ActiveX컨트롤을 선택하고 등록정보를 보면 사용자가 작성한 프로퍼티를 확인할 수 있을 것임.

이 프로퍼티에 < %=변수명% > 이런 식으로 하고 웹페이지를 실행하면 값을 받을 것임.

4. 그리고 값을 받은 뒤 바로 시행하게 하기 위해서는 UserControl_Show()이벤트에 해당코드를 작성하기 바람.

생성코드
'기본 속성 값:
Const m_def_memid = ""
'속성 변수:
Dim m_memid As String


'경고! 주석으로 되어 있는 다음 줄은 제거하거나 수정하지 마십시오!
'MemberInfo=13,0,0,
Public Property Get memid() As String
    memid = m_memid
End Property

Public Property Let memid(ByVal New_memid As String)
    m_memid = New_memid
    PropertyChanged "memid"
End Property

'사용자 정의 컨트롤에 대한 속성을 초기화합니다.
Private Sub UserControl_InitProperties()
    m_memid = m_def_memid
End Sub

'저장소에서 속성값을 로드합니다.
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    m_memid = PropBag.ReadProperty("memid", m_def_memid)
End Sub

Private Sub UserControl_Show()

End Sub

'속성값을 저장소에 기록합니다.
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("memid", m_memid, m_def_memid)
End Sub