|
|
Рускоязычный
спосор автора рассылки:
Рускоязычный
спосор автора рассылки: Напоминаем,
что Вы будете получать 10% от дохода
каждого привлеченного Вами
пользователя. Кроме того, каждый
привлеченный Вами пользователь
может привлечь для Вас по 3
пользователя второго уровня от
которых Вы будете получать по 3% от
их дохода. Самый выгодный русский
спонсор. Платит за время
проведённое вами в сети. При
накоплении 300 руб. отсылается по
почте чек на ваш адрес Действуют
реферал программы. Очень простая
форма регистрации. (Очень
рекомендую). Регистрация по ссылке.Рускоязычный
спосор автора рассылки: Напоминаем,
что Вы будете получать 10% от дохода
каждого привлеченного Вами
пользователя. Кроме того, каждый
привлеченный Вами пользователь
может привлечь для Вас по 3
пользователя второго уровня от
которых Вы будете получать по 3% от
их дохода. Самый выгодный русский
спонсор. Платит за время
проведённое вами в сети. При
накоплении 300 руб. отсылается по
почте чек на ваш адрес Действуют
реферал программы. Очень простая
форма регистрации. (Очень
рекомендую). Регистрация по ссылке.
@LEXis
|
|
Несколько
слов от автора:
Несколько слов от
автора: Здравия желаю товарищи
программеры! :) Попрошу заметить, что
количество подписавшихся заметно
увеличилось, благодаря вступления
моей рассылки в ряды СообЧи (см. в
конце рассылки), чему я очень рад. Свои
вопросы и предложения направляйте мне
на E-Mail. Я
обязательно опубликую их в рассылке.
ПРИМЕЧАНИЕ: Выпуски данной
рассылки начиная с первого вы сможете
прочитать на http://subscribe.ru/archive/comp.design.snoozex/
@LEXis
|
|
18.11.2000
Выпуск N10 Обзор ведет @LEXis
В разделе полезные коды Visual BASIC:
 | Как скрыть программу из таскменеджера (Ctrl+Alt+Delete)
|
| Как предотвратить запуск второй копии
программы
|
В разделе вопросы/ответы:
| Ответы на вопросы читателей
|
|
Полезные
коды Visual BASIC:
|
| Как скрыть программу из таскменеджера
(Ctrl+Alt+Delete)
|
Подготовте проект, добавив в него форму.
- Кнопку с именем Command1
- Кнопку с именем Command2
Добавте в форму:
Private Declare Function RegisterServiceProcess Lib "kernel32.dll" _
(ByVal dwProcessId As Long, ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
Private Sub Command1_Click()
Me.Caption = "Hide"
Call RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub
Private Sub Command2_Click()
Me.Caption = "Show"
Call RegisterServiceProcess(GetCurrentProcessId, 0)
End Sub
| Как предотвратить запуск второй копии
программы
|
Подготовте проект, добавив в него форму.
На форму поместите:
- Кнопку с именем Command1 (Caption = "True")
- Кнопку с именем Command2 (Caption = "False")
Добавте в форму:
Private Sub Load()
' Проверка на повторный запуск приложения
If App.PrevInstance = True Then
MsgBox "Программа уже запущена. Завершение работы", vbCritical, "Ошибка"
Exit Sub
End If
End Sub
| Вопрос от автора
Как сделать чтобы в текстовое поле
можно было вводить только цифры и
пробелы? Просьба ответить на x-alexis@mail.ru
Ответ получен от Sergey
Vimberg
Для ответа на вопрос надо создать
проект, добавив в него форму, на которую
надо поместить 2 текстовых полоски (Text1 и
Text2).
Этот код вставте в текст формы:
Private Sub Text1_KeyPress(KeyAscii As Integer)
'don't process control keys
Select Case KeyAscii
Case vbKeyBack, vbKeyTab
Exit Sub
Case vbKeyReturn 'move focus after input is finished
KeyAscii = 0: SendKeys "{TAB}"
End Select
'filter: all redundant keys will be skipped
Select Case Chr(KeyAscii)
Case " "
Case "0" To "9"
Case Else: KeyAscii = 0
End Select
End Sub
|
| Вопрос от Алексея
Как с помощью VB в текстовом редакторе (который
сделал сам) сделать поиск. И еще
скомпилированные проги на VB занимают
много места (наприме простой
калькулятор занимает около 1,5 Mb), можно
ли сделать так, что бы она занимала
меньше места? Зарание ОГРОМНОЕ СПАСИБО!
Ответ получен от @LEXis`a
(автора)
Поищи на vbmania по поводу
скомпилированных прог. Там усе должно
быть. Аресок: http://vbmania.h1.ru
|
|
|
| Inet TIMER Ver. 1.0
Блокирует доступ к интернету
для "чайников" или просто кто очень
много висит в нем. Очень "хорошие"
настройки.
требуется библиотека
MSVBVM60.dll |
Источник: SnoozeX Design
|
Код моей кнопки:
<!-- SnoozeX Design "PLAY" -->
<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>
<!-- SnoozeX Design "END" -->
|
Copyright © 2000 @LEXis
Design by SnoozeX Design
@LEXis WEB SITE
Email : snoozex@mail.ru
ICQ uin :
14912636 |
| |
Рассылка является составной
частью проекта "СообЧа - СООБщество
ЧАйников"
(С) 2000 СообЧа (СООБщество
ЧАйников)
|
|
| Спасибо за внимание. Ваш @LEXis |
|
