1
학교용 마우스를 만들 프로그램이 있고 마우스 이동 기능이 많은 공간을 차지하고 어수선한 프로젝트로 만듭니다. 내 질문에, 모듈로 함수를 이동하는 방법이 있습니까?MouseMove 함수 및 모듈
Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.SimpleText = "Ready..."
End Sub
Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.SimpleText = "First Name of Student"
End Sub
Private Sub Text3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.SimpleText = "Last Name of Student"
End Sub
덕분에 도움을 많이 :
이 단지 MouseMove 이벤트 기능의 일부입니다. :)
나는 돈 한 줄에 한 줄의 코드를 대체 할 가치가 보인다 이 코드에 문제가 있지만 상태 텍스트를 컨트롤의'Tag' 속성에 넣으려고 할 수 있습니다. 그런 다음 컨트롤을 매개 변수로 사용하는 단일 메서드를 사용할 수 있습니다. 컨트롤에 'Tag'속성이 없으면 'Tag'를 읽고 StatusBar1.SimpleText에 텍스트를 씁니다. 그것은 여전히 각 controls MouseMove 이벤트에서 메서드 호출을 떠나고 약간의 이득을 얻습니다. 당신이 정말로 야심적이라면 당신은 자신 만의 텍스트 박스 컨트롤을 작성하고 자신 만의 이벤트를 제기 할 수 있습니다. – jac