본문 바로가기
IT정보/비주얼베이직

[비주얼베이직] 트레이 사용하기

by 곰사랑 2011. 8. 12.

트레이란

작업표시줄 시계옆에 저렇게 작은 아이콘들이 트레이된 아이콘입니다.

트레이 하는방법을 알려드리겠습니다.



폼을 하나 그려주시구요

그후 첨부파일을 저장해주세요



컨트롤 + D를 누르셔서 traycontrol.ctl 을 불러와주세요



툴바에 생기셨죠? 클릭해서 폼에 그려주세요



이렇게요 ㅎ


그후 소스창에서 일반을 누르신후


일반부분에

Private Sub form_mousemove(button As Integer, shift As Integer, X As Single, Y As Single)
If X / Screen.TwipsPerPixelX = &H203 Then
    TrayControl1.RestoreFromTray

End If
End Sub

이렇게 입력해주세요




 

그후 커맨드버튼을 추가시켜주세요


트레이 커맨드버튼을 더블클릭해서

Private Sub Command1_Click()
TrayControl1.SendToTray
End Sub

을 작성해주세요



완성 되었습니다. 트레이 버튼을 눌러봅시다.



작업표시줄 창에 트레이됬습니다. 트레이를 해제하려면 더블클릭을 하시면 됩니다.



트레이예제 입니다.


이상으로 [비주얼베이직] 트레이 사용하기 포스팅을 마치겠습니다.

댓글10

  • Favicon of https://hiendedition.tistory.com BlogIcon spidey 2011.08.13 11:43 신고

    와!!! 비주얼베이직 이거 좋은 것 같네요. 근데 C++ 그런걸로도 이런 것 가능??
    답글

  • 굿잡! 2011.08.15 15:36

    감사합니다
    답글

  • 라이치엘 2011.08.25 15:11

    안녕하세요 ㅇㅅㅇ;; 저기 질문이 한가지 있는데 여쭈어봐두될가요?
    비베6 사용하고있습니다 비베6 시작한지는 얼마안되었구요...

    파일명.exe 을 클릭 하게되면
    프로그램이 켜지면서 웹쉐어 라는 프로그램을 실행하도록 해주었습니다
    웹쉐어가 자동으로 실행되면서 최소화(트레이) 되게 하고싶은데
    방법좀 알려주시면 정말정말 감사합니다 ㅠㅠ..!!
    오늘 하루도 좋은하루되세요~!
    답글

    • Favicon of https://lovebear.tistory.com BlogIcon 곰사랑 2011.08.26 16:21 신고

      폼로드부분에

      Private Sub Form_Load()
      shell explorer "http://주소"
      trayControl1.sendtotray

      End Sub



      이렇게 하시면 될것같네요 일반을 눌러서 전역변수 꼭 입력

  • 2012.01.07 05:57

    좋은 글 감사합니다~

    질문이 있는데

    command 버튼 이외의 도구들 가령 이미지나 인터넷을 포함하면

    트레이는 되나 트레이된 아이콘을 아무리 더블클릭해도 돌아오지 않습니다.

    흠, 방법이 있을까요?
    답글

    • 2012.01.07 06:02

      아, 따로 그에 따른 소스를 작성해야하는군요...

      아직 갈길이 멉니다 ㅜㅜ

  • 질문 2013.06.14 20:25

    근데 왜 트레이를 설정하면 wh어쩌구 경고문 뜨면서 함수가 잘못됫다고할까요? 그러고는 어쩔땐 잘됩니다
    답글

  • 질문 2013.08.07 12:01

    저는 왜 더블클릭을 해도 되돌아오질않을까요 ?


    Private Sub form_mousemove(button As Integer, shift As Integer, X As Single, Y As Single)
    If X / Screen.TwipsPerPixelX = &H203 Then
    TrayControl1.RestoreFromTray

    End If
    End Sub

    를 썻느데두요
    답글