메시지 박스 자동 종료에 관한여 질문드립니다.

[엠케이]

QnA

사용언어 (칠해주세요) => (C#,VB)

사용툴 (VS) : 2008

운영체제 (OS) :win7 86

'//모듈선언부분

    Public Const NV_CLOSEMSGBOX As Long = &H5000&
    Public MESSAGE_TITLE As String

    Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

    Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

    Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)

        Dim hMessageBox As Long

        '" 타이머의 작동을 멈춥니다.
        KillTimer(hwnd, idEvent)

        '" 메세지박스의 핸들
        '" 핸들을 구하는 것은 FindWindow API 함수를 사용하여 윈도우의 타이틀을
        '" 가지고 핸들을 찾습니다. 즉 MESSAGE_TITLE.
        hMessageBox = FindWindow("#32770", MESSAGE_TITLE)

        '" 메세지박스의 핸들을 구했다면..
        If hMessageBox Then
            Call SetForegroundWindow(hMessageBox)  ' " 메세지박스에 포커스 이동.
            '" SendKeys 함수를 이용.
            SendKeys.Send(("{enter}"))

        End If
    End Sub

'// 여기까지

Private Sub btn_Box_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Box.Click

 SetTimer(Handle, NV_CLOSEMSGBOX, 3000, AddressOf TimerProc)

        ' "메세지박스를 출력합니다.
        MESSAGE_TITLE = "메세지박스 자동 종료"
        MsgBox("1초후 메세지박스가 종료됩니다", vbInformation, MESSAGE_TITLE)
End Sub

이게 전에 vb6.0에서 쓰던  메시지박스 자동 종료하는 소스인데요..

닷넷에서는 이게 안되네요..  기초업이 배우다 보니 소그가 조금만 바뀌어도 이렇게 힘이드네요..

닷넷에서는 어떻게 해야되는지 고수님께 다시 한번 질문을 드립니다. 꼭 부탁 드립니다.

[퓨전마법사]

vb를 vb.net으로 바꾸시는건지 c#으로 바꾸시는지 모르겠지만.. http://durl.me/d7qvx(v=vs.80).aspx 주소로 가면 정보가 있네요..
예제는 폼더블 클릭으로 SendKeys.Send를 호출하는데 저라면 Timer 를 쓰겠습니다. 인터벌을 (timer1.Interval)을 5000 주면 5초후에 사라지니까요^^ 도움이 되시길..

[엠케이]

좀 구체적으로 말씀을 해주시면 안될까요? 여러가지 방법을 취해봤는데..저는 실력이 안되서 여기까지 못했어요

감이 오지 않네요..

[엠케이]

퓨전 마법사님 감사합니다..^^

이렇게 간단하게 해결 되네요..

기초가 부족해 이렇게 쉽게 해결 할 것도 못하고 있습니다.

기초를 튼튼하게 할려면 어떻게 해야 되나요??

책도 여러권사서 보는데 실전에서 필요한것은 별루 없더라고요..

기초를 튼튼하게 하는 방법좀 가르쳐 주시면 너무너무 감사하겠습니다.

참 그리고 저는 vb.net 입니다.

[퓨전마법사]

오우 vb로도 해봣는데.. 뭐 똑같이 돼더군요..ㅋㅋ 행 끝나고 ; <--- 요고 없는거 빼고는 다 똑같더군요?^^
기초를 튼튼히 한다라.. 저도 기초가 약해서 그냥 저냥 그때 그때 해결해나가는 편이라..ㅋ
제 수준에서 해드릴수 있는건 이 말 밖에 없을것 같군요.

그냥 시간이 해결해준다.. 시간이 지나면 다 발군의 개발자들이 되는거 같아요 너무 조급해 하지 마시구 프로젝트 하시면서 구글 검색이랑 네이버를 잘 활용해보세요..그럼 어제보다는 더 나은 오늘이 한달전보다는 더 좋은 실력을 가지고 있느 자신을 보시게 될껍니다^^

[엠케이]

역시 고수님들은 말씀도 고수네요^^

님 덕분에 두마리 토끼를 잡았습니다.
모듈 에서 WithEvents 를 이용하여 함수를 만들어 적용하게 되어서 이번에 WithEvents 까지 배우게 됐습니다.
그리고 코딩이 아주 좋아졌어여 좋은것 배워서 너무 좋습니다.

win32 보다 훨신 좋네요^^ 코딩도 간결하고 복잡하지도 않고..