수다닷컴

게시판이 올바른지 확인해주세요.

폼은 총 2개가 있습니다. (Main , Form1) Main 은 게임을 실행하는 공간입니다, 그리고 트레이도 가능하게 해뒀습니다 . 메뉴를 이용하여 트레이를 제작하고, 보더스타일을 0으로 해도 변경되지가 않더라구요 ? 그리고 한 글을 찾았는대, 다른 폼에 메뉴를 제작하고 그걸 불러오면 된다고 합니다, 다른폼에 있는 메뉴를 어떻게 하여 불러올수 있을까요 ? Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If x / Screen.TwipsPerPixelX = WM_RBUTTONDOWN Then
PopupMenu mnu
End If
End SubPrivate Sub exit_Click()
Dim nID As NOTIFYICONDATA
nID.cbSize = Len(nID)
nID.hWnd = Me.hWnd
nID.hIcon = Me.Icon.handle
nID.uId = 100
Shell_NotifyIcon NIM_DELETE, nID
End
End SubPrivate Sub w1_Click()
Dim nID As NOTIFYICONDATA
nID.cbSize = Len(nID)
nID.hWnd = Me.hWnd
nID.hIcon = Me.Icon.handle
nID.uId = 100
Shell_NotifyIcon NIM_DELETE, nID
Me.Show
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF1) Then
Dim nID As NOTIFYICONDATA
nID.cbSize = Len(nID)
nID.hWnd = Me.hWnd
nID.hIcon = Me.Icon.handle
nID.szTip = The Utopia Role Playing - Tray & vbNullChar
nID.uCallBackMessage = WM_MOUSEMOVE
nID.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
nID.uId = 100
Shell_NotifyIcon NIM_ADD, nID
Me.Hide
End If
End Sub 이게 트레이 소스입니다, 참고로 메뉴가 제작된 폼은 Form1 입니다. Form1 의 메뉴를 불러오게 수정좀 부탁드리거나 알려주시면 감사하겠습니다.

신청하기