Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Private Declare Function RegSetValueEx Lib "advap..

객체 : 컨트롤이나 요소들을 말함. 변수 선언은 많이들 들어보셨을 겁니다. 그러면 이번엔 객체를 선언해 보도록 하겠습니다. 객체 선언은, 변수를 선언하듯 어떤 이름으로 객체를 선언하는 것입니다. (...?) 백문이불여일견! 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,..

on error ... 는 오류가 발생했을 때를 대비하기 위해 존재합니다. on error 뒤에 뭐가 오느냐에 따라 에러가 났을 시 결과가 달라지는데, on error가 없으면 에러 번호가 뜬 뒤 프로그램이 종료되고 on error resume next하시면 오류가 난 지점 다음으로 이동합니다. on error goto ...는 ...으로 이동하라는 건데, 사용법은 다음과 같습니다. private sub command1_click() on error goto aaa msgbox "고구마" exit sub aaa: msgbox "오류" end sub 커맨드 버튼을 클릭하면, 메세지를 띄웁니다. 그런데 만약 오류가 발생하면, on error 문에 따라 aaa위치로 이동합니다. (여기서 만약 exit sub를..