Мир программирования на Visual BASIC 5.0 и HTML. (comp.design.snoozex) : Рассылка : Subscribe.Ru

Отправляет email-рассылки с помощью сервиса Sendsay

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет для бизнеса и не только" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

← Октябрь 2000 →
	1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

Автор

Stripped

Статистика

401 подписчиков
0 за неделю

← Все выпуски →

Мир программирования на Visual BASIC 5.0 и HTML.

Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Мир программирования на Visual BASIC 5.0 и HTML

Мой сайт

  главная
  архив
  Memo Ver. 1.2.2
  WIN com 95
  Проекты

Спонсоры

Городской кот
Subscribe.Ru Russian Surf

Ссылки

  VB Streets
  Visual BASIC
  VB: Step by Step
  SnoozeX Design

О подписке

Статистика
Подписаться

Рускоязычный спосор автора рассылки: Напоминаем, что Вы будете получать 10% от дохода каждого привлеченного Вами пользователя. Кроме того, каждый привлеченный Вами пользователь может привлечь для Вас по 3 пользователя второго уровня от которых Вы будете получать по 3% от их дохода. Самый выгодный русский спонсор. Платит за время проведённое вами в сети. При накоплении 300 руб. отсылается по почте чек на ваш адрес Действуют реферал программы. Очень простая форма регистрации. (Очень рекомендую). Регистрация по ссылке. @LEXis

Несколько слов от автора: Привет программистам! Кто знает как например при подключении к инету включался таймер, а потом когда время выходило отрубал из инета? Ответ присылайте мне на E-Mail. Я обязательно опубликую этот код в рассылке. @LEXis

26.10.2000 Выпуск N7 Обзор ведет @LEXis

Сегодня в выпуске:

В разделе приемы с WINDOWS на VB: Блокирование кнопок Ctrl + Alt + Delete
В разделе вопросы/ответы: Ответы на вопросы читателей

Приемы с WINDOWS на VB

Блокирование кнопок Ctrl + Alt + Delete

Подготовте проект, добавив в него форму. На форму поместите:
- Кнопку с именем Command1
- Кнопку с именем Command2

Добавте в форму:

Private Declare Function SystemParametersInfo Lib
"user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam _
As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Sub DisableCtrlAltDelete(bDisabled As Boolean)

Dim X As Long

X = SystemParametersInfo(97, bDisabled, CStr(1), 0)

End Sub

'Usage:

Private Sub Command1_Click()

Me.Caption ="disable"

'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(True)

End Sub

Private Sub Command2_Click()

Me.Caption ="enable"

'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(False)

End Sub

Рубрика Вопросы/Ответы

Вопрос по рассылке №5 (Статья "Как добавить иконку в SystemTray")
Я не могу изменить значение ToolTip после создания иконки и помещения ее в SysTray. В примере из рассылки это значение равно "This is my application". Это очень полезно - свернуть в SysTray программу работающую в фоновом режиме и через ToolTip показывать динамически ее состояние.

Для ответа на ваш вопрос я добавил форму (Form2) некоторых опций. На нее поместил текстовую полоску (txt1) - значение Text любое Изменяем на форме данный код:
Public Sub CreateIcon() Dim Tic As NOTIFYICONDATA Tic.cbSize = Len(Tic) Tic.hwnd = Picture1.hwnd Tic.uID = 1& Tic.uFlags = NIF_DOALL Tic.uCallbackMessage = WM_MOUSEMOVE Tic.hIcon = Me.Icon Tic.szTip = Form2.txt1.Text & vbNullChar erg = Shell_NotifyIcon(NIM_ADD, Tic) End Sub И добавим подменю в меню: Название подменю например "Изм. SysTray и разв. Form1" Private Sub podmenu_Click() DeleteIcon Form2.txt1.Text = "новая запись" CreateIcon Form1.Show End Sub

Вопрос по рассылке №6 (Статья "Старт приложения при запуске Windows")
Я не знаю какой путь будет у моей программы если я ее добавлю в автозагрузку когда она будет установлена на компьютере.

Для ответа на этот вопрос надо изменить кнопки Command1:
Private Sub Command1_Click() AddToStartup "My App Description", App.Path + "\" + App.EXEName + ".exe" End Sub

Спасибо за внимание. Ваш @LEXis

Программы разработанные автором на VB 6.0

Inet TIMER Ver. 1.0

<локирует доступ к интернету для "чайников" или просто кто очень много висит в нем. Очень "хорошие" настройки.
требуется библиотека MSVBVM60.dll

Источник: SnoozeX Design

Код моей кнопки

<a href="http://snoozex.boom.ru" TARGET="_blank"><BR><IMG SRC="http://snoozex.boom.ru/new.gif" WIDTH=88 HEIGHT=31 BORDER=1 ALT="SnoozeX Design"></a>

http://subscribe.ru/
E-mail: ask@subscribe.ru

В избранное

VB.NET-World