Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Панель задач Добавлено: 06.05.05 12:59  

Автор вопроса:  Stef
Здравствуйте.
Во первых: Всех поздравляю с праздниками, прошедшими и наступающимию\.
А во вторых: подскажите пожалуйста как сделать так штоб при сворачивании программа пряталась в Панель задач и исчезала с панели инструментов. Помогите очень нуна.

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #1 Добавлено: 06.05.05 13:10
:) Ты сам хоть подумал, что сказал?

Пряталась в Панель задач и исчезала с панели инструментов :)

Вопрос очень интересный.
Если имелось в виду, что программа должна прятаться с панели задач в область
оповещения задач (ака трей), то для этого есть стандартный класс NotifyIcon.

Ответить

Номер ответа: 2
Автор ответа:
 Stef



Вопросов: 16
Ответов: 17
 Профиль | | #2 Добавлено: 06.05.05 13:22
Извиняюсь.:-/ -СТЫД
Именно это я и имел в виду.
Если можно примерчик работы с NotifyIcon.

Ответить

Номер ответа: 3
Автор ответа:
 freeloader



ICQ: 50804884 

Вопросов: 72
Ответов: 642
 Web-сайт: freeloader.folder-pro.net
 Профиль | | #3
Добавлено: 06.05.05 13:38

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ;Dim ni As New NotifyIcon
        ni.Icon = Me.Icon
        ni.Text = Me.Text
        'ni.ContextMenu=yourContextMenu
        ni.Visible = True
    End Sub

Ответить

Номер ответа: 4
Автор ответа:
 Stef



Вопросов: 16
Ответов: 17
 Профиль | | #4 Добавлено: 06.05.05 13:47
Спасибочки помогло.

Ответить

Номер ответа: 5
Автор ответа:
 Stef



Вопросов: 16
Ответов: 17
 Профиль | | #5 Добавлено: 06.05.05 15:34
Извиняюсь. Немного поспешил. Иконка появилась но программа при сворачивании так и осталась висеть в панели задач.

Ответить

Номер ответа: 6
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #6 Добавлено: 06.05.05 15:53
Из MSDN:

Imports System.Drawing
Imports System.Windows.Forms

Public NotInheritable Class Form1
    Inherits System.Windows.Forms.Form

    Private contextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents menuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents notifyIcon1 As System.Windows.Forms.NotifyIcon
    Private components As System.ComponentModel.IContainer

    <System.STAThread()> _
    Public Shared Sub Main()
        System.Windows.Forms.Application.Run(New Form1)
    End Sub 'Main

    Public Sub New()

        Me.components = New System.ComponentModel.Container
        Me.contextMenu1 = New System.Windows.Forms.ContextMenu
        Me.menuItem1 = New System.Windows.Forms.MenuItem

        ' Initialize contextMenu1
        Me.contextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() _
                            {Me.menuItem1})

        ' Initialize menuItem1
        Me.menuItem1.Index = 0
        Me.menuItem1.Text = "E&xit"

        ' Set up how the form should be displayed.
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Text = "Notify Icon Example"

        ' Create the NotifyIcon.
        Me.notifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)

        ' The Icon property sets the icon that will appear
        ' in the systray for this application.
        notifyIcon1.Icon = New Icon("appicon.ico";)

        ' The ContextMenu property sets the menu that will
        ' appear when the systray icon is right clicked.
        notifyIcon1.ContextMenu = Me.contextMenu1

        ' The Text property sets the text that will be displayed,
        ' in a tooltip, when the mouse hovers over the systray icon.
        notifyIcon1.Text = "Form1 (NotifyIcon example)"
        notifyIcon1.Visible = True
    End Sub 'New
    
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        ' Clean up any components being used.
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub 'Dispose

    Private Sub notifyIcon1_DoubleClick(Sender as object, e as EventArgs) handles notifyIcon1.DoubleClick
        ' Show the form when the user double clicks on the notify icon.

        ' Set the WindowState to normal if the form is minimized.
        if (me.WindowState = FormWindowState.Minimized) then _
            me.WindowState = FormWindowState.Normal

        ' Activate the form.
        me.Activate()
    end sub

    Private Sub menuItem1_Click(Sender as object, e as EventArgs) handles menuItem1.Click
        ' Close the form, which closes the application.
        me.Close()
    end sub

End Class 'Form1

Ответить

Номер ответа: 7
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
 Профиль | | #7 Добавлено: 06.05.05 15:55
Вдогонку - здесь по даблклику форма сворачивается/разворачивается. Без проблем можно домодифицировать до того, чтоб при сворачивании отображалась исконка в области оповещения, а при даблклике по иконке - форма отображалась и восстанавливалась. Это пиши сам.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам