Jump to content
xisto Community

calvin-w

Members
  • Content Count

    3
  • Joined

  • Last visited

Everything posted by calvin-w

  1. calvin-w

    Help!

    I need to publish my files. where can I???
  2. Link Is not valid I am very sorry
  3. [/code]Dim nid As NOTIFYICONDATA ' trayicon variable'----------------------'--- command1 click ---'----------------------Private Sub Command1_Click()minimize_to_trayEnd Sub'------------------------'--- create tray icon ---'------------------------Sub minimize_to_tray()Me.Hidenid.cbSize = Len(nid)nid.hwnd = Me.hwndnid.uId = vbNullnid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGEnid.uCallBackMessage = WM_MOUSEMOVEnid.hIcon = Me.Icon ' the icon will be your Form1 project iconnid.szTip = "Calvin-w" & vbNullCharShell_NotifyIcon NIM_ADD, nidEnd Sub'---------------------------------------------------'-- Tray icon actions when mouse click on it, etc --'---------------------------------------------------Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)Dim msg As LongDim sFilter As Stringmsg = x / Screen.TwipsPerPixelXSelect Case msgCase WM_LBUTTONDOWNMe.Show ' show formShell_NotifyIcon NIM_DELETE, nid ' del tray iconCase WM_LBUTTONUPCase WM_LBUTTONDBLCLKCase WM_RBUTTONDOWNCase WM_RBUTTONUPMe.ShowShell_NotifyIcon NIM_DELETE, nidCase WM_RBUTTONDBLCLKEnd SelectEnd Sub'------------------------------'--- form Actions On unload ---'------------------------------Private Sub Form_Unload(Cancel As Integer)Shell_NotifyIcon NIM_DELETE, nid ' del tray iconEnd Sub[code]
×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.