За последние 60 дней ни разу не выходила
Сайт рассылки: http://prog.rusfaq.ru/basic Открыта: 14-03-2002
Выпуск № 541от 30.05.2007, 01:35
Приложение:'просто cоздаете WindowsApplication, в папку bin проекта помещаете какую-нибудь иконку appicon.ico и копируете этот код в модуль формы Imports System 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 menuItem2 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" Me.menuItem2 = New System.Windows.Forms.MenuItem ' Initialize contextMenu2 Me.contextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() _ {Me.menuItem2}) ' Initialize menuItem1 Me.menuItem2.DefaultItem = True Me.menuItem2.Index = 0 Me.menuItem2.Text = "&Show" ' 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" Me.ShowInTaskbar = False Me.WindowState = FormWindowState.Minimized ' 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(ByVal Sender As Object, ByVal 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(ByVal Sender As Object, ByVal e As EventArgs) Handles menuItem1.Click ' Close the form, which closes the application. Me.Close() End Sub Private Sub InitializeComponent() ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Name = "Form1" Me.ShowInTaskbar = False Me.WindowState = System.Windows.Forms.FormWindowState.Minimized End Sub Private Sub menuItem2_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles menuItem2.Click If (Me.WindowState = FormWindowState.Minimized) Then _ Me.WindowState = FormWindowState.Normal ' Activate the form. Me.Activate() End Sub End Class 'Form1
Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.
{#template MAIN} {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} Войти на сайт {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} {#include js_tmpl_auth_reg_descr} Если вы еще не с нами, то начните с регистрации Вход для авторов {#/if} {#if $P.login_register_tab == 2} Регистрация {* {#include js_tmpl_soc_auth_reg_descr} *} {#include js_tmpl_auth_reg_soc} {#include js_tmpl_auth_reg_agree} {* #include js_tmpl_auth_reg_descr *} {#include js_tmpl_auth_reg_action} {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} {#/if} {* *} {#/template MAIN} {#template js_tmpl_auth_reg_tab} Вход на сайт Регистрация {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} {#if $P.login_register_tab == 1} E-mail или код подписчика Пароль Русская раскладка клавиатуры! У вас включен Caps Lock! У вас включен Caps Lock и русская раскладка клавиатуры! Чужой компьютер Забыли пароль? {#/if} {#if $P.login_register_tab == 2} E-mail Я ознакомился и согласен с условиями сервиса Subscribe.ru Нажимая на кнопку "Готово!", я даю согласие на обработку персональных данных {* Я хочу получать новости о скидках на одежду *} Готово! {#/if} {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} Я ознакомился и согласен с условиями сервиса Subscribe.ru {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} {#if $P.login_register_tab == 1} Email OpenID Вконтакте Mail.Ru {#/if} {#if $P.login_register_tab == 2} Email OpenID Вконтакте Mail.Ru {#/if} {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} {#if $P.login_register_tab == 1} {#/if} {#if $P.login_register_tab == 2} {#/if} {#/template js_tmpl_auth_reg_soc}
{#include js_tmpl_auth_reg_descr}
{#template MAIN} {#include js_tmpl_auth_reg_tab} {#include js_tmpl_auth_reg_descr} {#include js_tmpl_auth_reg_action} {#/template MAIN} {#template js_tmpl_auth_reg_tab} Регистрация {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} Пожалуйста, подтвердите ваш адрес.Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} Или введите код из письма: Не пришло письмо? Пожалуйста, проверьте папку Спам (папку для нежелательной почты). Вышлите мне письмо еще раз! Готово {#/template js_tmpl_auth_reg_action}