VB6에서 버튼을 눌렀을 때 대화상자를 띄우는 방법~~구체적으로~~

1, 입력 대화 상자 사용법:

Private Sub Command1_Click()

h = InputBox("텍스트 상자에 표시된 값을 입력하세요.")

Text1.Text = h

End Sub

2, 메시지 대화 상자

Private Sub Command1_Click()

MsgBox ("안녕하세요")

End Sub

3, 공통 대화 상자(열기 대화 상자, 다른 이름으로 저장 대화 상자, 색상 대화 상자, 글꼴 대화 상자, 인쇄 대화 상자 , 도움말 대화 상자)

대화 상자 컨트롤은 표준 컨트롤이 아니며 다음 방법으로 추가할 수 있습니다.

Project-Parts-Control 탭에서 Microsoft Common Dialog를 선택합니다. Control6.0 확인란 확인을 클릭합니다.

다음은 열린 대화 상자만 표시합니다.

Private Sub Command1_Click()

CommonDialog1.Filter = "액세스 데이터베이스( *.mdb)" ' "열기" 대화 상자의 필터 조건 설정

CommonDialog1.ShowOpen '"열기" 대화 상자 팝업

End Sub

VB 프로그래밍에 관한 책을 읽는 것이 좋습니다.

프로젝트-프로젝트 1 속성-일반 탭의 시작 개체에서 양식(예: FrmMain)을 직접 선택할 수 있습니다.

FrmMain 아래에 다음 코드를 작성하세요:

Private Sub Form_Load()

FrmLogin.Show 1

End Sub

Where FrmLogin은 팝업되는 로그인 폼의 이름입니다.

1은 폼을 모달 대화 상자로 표시한다는 의미입니다. 이 경우 모달 대화 상자를 닫을 때까지 Show 메서드 다음의 코드를 실행할 수 없습니다. , 포커스를 다른 양식으로 이동할 수 없습니다. ;