변수 선언은 많이들 들어보셨을 겁니다.
그러면 이번엔 객체를 선언해 보도록 하겠습니다.
객체 선언은, 변수를 선언하듯 어떤 이름으로 객체를 선언하는 것입니다. (...?)
백문이불여일견!
Dim abc As TextBox '1, abc라는 이름으로 텍스트 박스 형식의 변수를 선언합니다.
Set abc = Controls.Add("VB.textbox", "hhh") '2, abc에 hhh라는 텍스트 박스를 대입합니다. (이때 실제 생성됩니다)
abc.Move 0, 0, 1000, 100 '3, abc의 위치를 조정합니다.
abc.Visible = True '4, abc를 보입니다. (기본적으로 Visible은 False로 되어있습니다)
abc.Text = "DD" '5, abc의 내용을 바꿉니다.
1 변수 선언과 같이 dim으로 원하는 객체의 이름을 선언합니다. 이때 만들 객체의 종류를 옵션으로 붙이시구요.
2 Set은 변수에 어떤 객체를 '장착'한다고 보시면 됩니다.
Controls함수는 폼의 컨트롤들을 제어할 수 있는 함수입니다. 이 함수의 add 메소드를 이용해서 객체를 생성합니다.
VB.textbox는 비주얼베이직의 텍스트박스 형식을 뜻합니다. VB.listbox도 있고 기타 많습니다;;
"hhh"는 객체 이름입니다. controls로 생성한 객체들을 구분하는겁니다.
3 객체가 생성되었으니 객체의 위치를 조정합니다. 크기도 조정하구요.
4 객체를 보입니다.
5 객체를 조정해봅니다. 객체 선언에 사용한 이름을 사용해서 할 수도 있고
저 abc대신 Controls("hhh").text 하는 식으로 Controls와 객체이름으로 조절할 수도 있습니다.
객체 선언에 사용한 abc를 이용해 sub를 만들 수도 있습니다.
위의 코드를 넣은 뒤 아래의 코드를 넣으면 생성된 텍스트 박스를 클릭하면 메세지가 뜨게됩니다.
private sub abc_click()
msgbox "안녕?"
end sub
