[Visual Basic 6] Minimalizovanie programu???

tom1597530 · Napísal **tom1597530**: 23.11.2009 17:21

Dobrý deň. Chcem sa vás spýtať, ako by som mohol pomocou Command1 minimalizovať program, ale nie tam dole na tú dlhú lištu, ale tam, kde sú hodiny a malé ikonky, tam v pravom dolnom rohu. Dúfam, že ma každý pochopil a veľmi rád by som vedel, ako sa dá niečo takéto urobiť. Ďakujem.

Patkoo · Napísal **Patkoo**: 24.11.2009 11:12

pomocou notifyicon1 vytvorit ikonu v tray paneli + po kliknuti na tlacitko form.visible=false a ikonka v tray ostane. nemam po ruke vb6 ale keby ti to nejde, mozem ti spravit nejaky priklad

marian_sk · Napísal **marian_sk**: 17.01.2010 21:02

Niečo takéto sa my podarilo zistít. Z Internetu.

Kód:

http://rapidshare.com/files/336856672/Nodifi_icon.rar.html

Ako obvykle niejeto zaheslované.

Tak veselé schovávanie. xixixi :oops:

Alebo Reuoplad.html : reuoplad budem robiť po cca 3.mesiacov, v rámci možností a schopnosti. Osobného voľna.

Kód:

http://www.marian.szm.com/Reuoplad.html

Aktualizácia 18.09.2011

marian_sk · Napísal **marian_sk**: 25.07.2017 11:52

Radšej dám kód k programu:
Hore napíšte:

Kód:

Dim nid As NOTIFYICONDATA ' trayicon variable

Modul1 napíšte:

Kód:

Option Explicit

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
 Public Const NIM_ADD = &H0
 Public Const NIM_MODIFY = &H1
 Public Const NIM_DELETE = &H2
 Public Const WM_MOUSEMOVE = &H200
 Public Const NIF_MESSAGE = &H1
 Public Const NIF_ICON = &H2
 Public Const NIF_TIP = &H4
 Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
 Public Const WM_LBUTTONDOWN = &H201 'Button down
 Public Const WM_LBUTTONUP = &H202 'Button up
 Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
 Public Const WM_RBUTTONDOWN = &H204 'Button down
 Public Const WM_RBUTTONUP = &H205 'Button up

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Tlačítko:

Kód:

Private Sub Command1_Click()
minimize_to_tray
End Sub

To :minimize_to_tray

Kód:

Sub minimize_to_tray()
Me.Hide
nid.cbSize = Len(nid)
nid.hwnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon ' the icon will be your Form1 project icon
nid.szTip = App.Comments & "Daľšie textové informácie:" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub

Do Form_MouseMove musíte napísať tento kód. Inak sa vám program neukáže opäť na monitore!!!:

Kód:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
Dim sFilter As String
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Me.WindowState = vbNormal 
Me.Show ' show form
Shell_NotifyIcon NIM_DELETE, nid ' del tray icon
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
Case WM_RBUTTONUP
Case WM_RBUTTONDBLCLK
End Select
End Sub

georgewalton868 · **Registrovaný:** 11.01.18 **Príspevky:** 5 **Témy:** 2

stačí len vyskúšať to
SendMessage(hwnd,WM_MINIMIZE,0,0);

[Visual Basic 6] Minimalizovanie programu???

Podobné témy