InputBox 사용하기
프로그램을 만들다보면 사용자로부터 데이터를 받아서 처리해야 할 경우가 의외로 많은 것 같다. 그럴 경우 사용자가 선택할 수 있는 것들을 미리 정해놓고 그 가운데 선택하도록 하는 하는 방법과 사용자가 직접 입력하도록 하는 방법이 있는데 오늘은 그 중에서 유용하게 쓸 수 있는 InputBox에 대해서 알아보고자 한다.
함수 정의
Public Function InputBox( _ ByVal Prompt As String, _ Optional ByVal Title As String = "", _ Optional ByVal DefaultResponse As String = "", _ Optional ByVal Xpos As Integer = -1, _ Optional ByVal YPos As Integer = -1 _ ) As String |
만들어 보기
Button 컨트롤 1개를 폼에 배치한다.
실행했을 때(F5를 눌렀을 때) 폼이 뜨면 버튼을 클릭하면 InputBox가 나와서 내가 원하는 것을 입력하면 메시지 박스가 떠서 입력한 내용을 보여주는 간단한 프로그램이다.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Input As String
Input = InputBox("당신이 지금 원하는 것은?")
MsgBox("당신이 입력한 것은 : " & Input)
End Sub
폼에 버튼 하나를 배치하고 더블 클릭해서 위의 코드를 입력한 후 F5를 누르면 잘 실행되는가요?
비주얼 베이직 6.0 같으면 아무런 문제없이 잘 될 것이다.
하지만 VB2008, vista환경에서는 잘 안되는 것 같다.발생된 에러
Error 1 'InputBox' is a namespace and cannot be used as an expression.
그래서 웹을 검색해서 찾아보니 아래와 같이 한 줄을 바꿔주면 잘 되었다.
해결
Input = Interaction.InputBox("당신이 원하는 것은 : ")
여기서 Interaction 모듈은 객체들, 응용프로그램들, 시스템들과의 상호작용을 하기 위해 이용되는 프로스져들을 포함하고 있다.
'컴퓨터 관련 무료강좌 > 비주엘 베이직 2008' 카테고리의 다른 글
VB2008 강좌- 연산자 (0) | 2008.03.23 |
---|---|
VB2008강좌-사용자 정의 자료형 (2) | 2008.03.21 |
강좌-변수 관련 1 (1) | 2008.03.20 |
강좌-MsgBox 다루기 (4) | 2008.03.19 |
강좌 - 리스트박스와 콤보박스다루기 (4) | 2008.03.08 |