2단계: 메인 목록 상자 초기화

전역 Record 및 Recordset 개체를 선언하려면 Form1의 (일반) (선언)에 다음 코드를 삽입합니다.

Option Explicit  
Dim grec As Record  
Dim grs As Recordset  

이 코드는 이 시나리오의 뒷부분에서 사용할 Record 및 Recordset 개체에 대한 전역 개체 참조를 선언합니다.

URL에 연결하고 lstMain을 채우다

Form1의 Form Load 이벤트 처리기에 다음 코드를 삽입합니다.

Private Sub Form_Load()  
    Set grec = New Record  
    Set grs = New Recordset  
    grec.Open "", "URL=https://servername/foldername/", , _  
        adOpenIfExists Or adCreateCollection  
    Set grs = grec.GetChildren  
    While Not grs.EOF  
        lstMain.AddItem grs(0)  
        grs.MoveNext  
    Wend  
End Sub  

이 코드는 전역 Record 및 Recordset 개체를 인스턴스화합니다. grecRecord 개체는 ActiveConnection으로 지정된 URL로 열립니다. URL이 있으면 열립니다. 아직 없으면 만들어집니다. https://servername/foldername/은(는) 사용자 환경의 유효한 URL로 바꾸어야 합니다.

레코드, grs의 자식에 레코드셋 개체 grec가 열립니다. 그런 다음 lstMain URL에 게시된 리소스의 파일 이름으로 채워집니다.

참고 항목

인터넷 게시 시나리오
1단계: Visual Basic 프로젝트 설정
3단계: 필드 목록 상자 채우기