Cara menggunakan Tray sistem langsung dari Visual Basic

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:176085
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
RINGKASAN
Artikel ini menunjukkan bagaimana untuk mengambil keuntungan penuh dari Windows System Tray, atau Area pemberitahuan Taskbar, menggunakan Visual Basic. Itu tempat ikon pilihan Anda ke Taskbar Area pemberitahuan yang akan menampilkan ToolTip pilihan Anda ketika mouse beristirahat di atasnya, akan mengembalikan aplikasi ketika diklik, dan akan menampilkan menu pop-up ketika right-clicked. Hal ini semua mungkin karena Visual Basic kemampuan untuk secara langsung menangani callback, oleh karena itu mengambil keuntungan penuh dari fungsi Shell_NotifyIcon yang diekspor oleh Shell32.dll.
INFORMASI LEBIH LANJUT
Contoh berikut dapat ditambahkan ke setiap Visual Basic Proyek yang memiliki setidaknya satu bentuk dan modul standar.

Contoh langkah demi langkah

  1. Tambahkan kode berikut ke bagian Deklarasi modul standar dalam proyek Anda:
          'user defined type required by Shell_NotifyIcon API call      Public Type NOTIFYICONDATA       cbSize As Long       hwnd As Long       uId As Long       uFlags As Long       uCallBackMessage As Long       hIcon As Long       szTip As String * 64      End Type      'constants required by Shell_NotifyIcon API call:      Public Const NIM_ADD = &H0      Public Const NIM_MODIFY = &H1      Public Const NIM_DELETE = &H2      Public Const NIF_MESSAGE = &H1      Public Const NIF_ICON = &H2      Public Const NIF_TIP = &H4      Public Const WM_MOUSEMOVE = &H200      Public Const WM_LBUTTONDOWN = &H201     'Button down      Public Const WM_LBUTTONUP = &H202       'Button up      Public Const WM_LBUTTONDBLCLK = &H203   'Double-click      Public Const WM_RBUTTONDOWN = &H204     'Button down      Public Const WM_RBUTTONUP = &H205       'Button up      Public Const WM_RBUTTONDBLCLK = &H206   'Double-click      Public Declare Function SetForegroundWindow Lib "user32" _      (ByVal hwnd As Long) As Long      Public Declare Function Shell_NotifyIcon Lib "shell32" _      Alias "Shell_NotifyIconA" _      (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean      Public nid As NOTIFYICONDATA					
  2. Tambahkan berikut kode untuk bentuk dalam proyek Anda bahwa Anda ingin menanggapi sistem Tray Icon, atau ikon pemberitahuan, untuk Anda aplikasi:
          Private Sub Form_Load()       'the form must be fully visible before calling Shell_NotifyIcon       Me.Show       Me.Refresh       With nid        .cbSize = Len(nid)        .hwnd = Me.hwnd        .uId = vbNull        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE        .uCallBackMessage = WM_MOUSEMOVE        .hIcon = Me.Icon        .szTip = "Your ToolTip" & vbNullChar       End With       Shell_NotifyIcon NIM_ADD, nid      End Sub      Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)      'this procedure receives the callbacks from the System Tray icon.      Dim Result As Long      Dim msg As Long       'the value of X will vary depending upon the scalemode setting       If Me.ScaleMode = vbPixels Then        msg = X       Else        msg = X / Screen.TwipsPerPixelX       End If       Select Case msg        Case WM_LBUTTONUP        '514 restore form window         Me.WindowState = vbNormal         Result = SetForegroundWindow(Me.hwnd)         Me.Show        Case WM_LBUTTONDBLCLK    '515 restore form window         Me.WindowState = vbNormal         Result = SetForegroundWindow(Me.hwnd)         Me.Show        Case WM_RBUTTONUP        '517 display popup menu         Result = SetForegroundWindow(Me.hwnd)         Me.PopupMenu Me.mPopupSys       End Select      End Sub      Private Sub Form_Resize()       'this is necessary to assure that the minimized window is hidden       If Me.WindowState = vbMinimized Then Me.Hide      End Sub      Private Sub Form_Unload(Cancel As Integer)       'this removes the icon from the system tray       Shell_NotifyIcon NIM_DELETE, nid      End Sub      Private Sub mPopExit_Click()       'called when user clicks the popup menu Exit command       Unload Me      End Sub      Private Sub mPopRestore_Click()       'called when the user clicks the popup menu Restore command       Dim Result As Long       Me.WindowState = vbNormal       Result = SetForegroundWindow(Me.hwnd)       Me.Show      End Sub					
  3. Membuat pengaturan properti berikut bentuk yang sama untuk yang Anda menambahkan kode di atas:
       Property         Required Setting for Taskbar Notification Area example   -----------------------------------------------------------------------   Icon           = The icon you want to appear in the system tray.   Minbutton      = True   ShownInTaskbar = False					
  4. Menambah item Menu berikut untuk menggunakan bentuk yang sama Menu Editor:
       Caption      Name          Enabled   Visible   Position   ---------------------------------------------------------   &SysTray     mPopupSys      True      False    Main Level   &Restore     mPopRestore    True      True     Inset one   &Exit        mPopExit       True      True     Inset one					
Anda dapat menambahkan item menu tambahan yang diperlukan.

Taskbar pemberitahuan daerah fleksibilitas

Anda dapat memodifikasi ToolTip yang muncul atas pemberitahuan ikon dengan mengubah baris berikut dalam prosedur Form_Load:
   .szTip = "Your ToolTip" & vbNullChar				
Ganti "Your ToolTip" dengan teks yang akan ditampilkan.

Anda dapat mengubah ikon yang muncul di daerah pemberitahuan Taskbar oleh mengubah baris berikut dalam prosedur Form_Load:
   .hIcon = Me.Icon				
Ganti Me.Icon dengan setiap ikon dalam proyek Anda.

Anda dapat mengubah salah satu pengaturan Taskbar Area pemberitahuan setiap saat setelah penggunaan NIM_ADD konstan dengan mengalokasikan nilai-nilai dalam variabel nid dan kemudian menggunakan variasi berikut Shell_NotifyIcon API panggilan:
   Shell_NotifyIcon NIM_MODIFY, nid.				
Namun, jika Anda ingin bentuk yang berbeda untuk menerima panggilan balik, maka Anda perlu untuk menghapus icon ini pertama kali menggunakan "Shell_NotifyIcon NIM_Delete, nid"sebagai fungsi NIM_Modify tidak akan menerima Hwnd baru, atau Anda akan perlu untuk menambahkan ikon lain untuk systray untuk bentuk baru yang menggunakan "Shell_NotifyIcon NIM_ADD, nid"setelah mengisi jenis nid dengan yang baru membentuk Hwnd. Kamu bisa juga menyatakan salinan terpisah dari jenis nid untuk setiap bentuk yang Anda inginkan untuk menampilkan ikon untuk di baki sistem Windows dan mengubah mereka dalam setiap bentuk mengaktifkan acara menggunakan urutan NIM_DELETE dan NIM_ADD.
REFERENSI
Untuk informasi lebih lanjut mengenai menggunakan System Tray atau menggunakan daerah pemberitahuan Taskbar dari Visual Basic 4.0 atau sebelumnya, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
149276Cara menggunakan ikon dengan Windows 95/98/Me Taskbar daerah pemberitahuan
Taskbar

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 176085 - Tinjauan Terakhir: 12/05/2015 08:09:13 - Revisi: 2.0

Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Control Creation Edition, Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbbug kbhowto kbmt KB176085 KbMtid
Tanggapan