Рускоязычный спосор автора рассылки:
Напоминаем, что Вы будете получать 10% от дохода каждого привлеченного Вами пользователя. Кроме того, каждый привлеченный Вами пользователь может привлечь для Вас по 3 пользователя второго уровня от которых Вы будете получать по 3% от их дохода.
Самый выгодный русский спонсор. Платит за время проведённое вами в сети. При накоплении 300 руб. отсылается по почте чек на ваш адрес Действуют реферал программы. Очень простая форма регистрации. (Очень рекомендую).
Регистрация по ссылке.
@LEXis
Несколько слов от автора:
Здравия желаю товарищи программеры! :) Попрошу заметить, что количество подписавшихся заметно увеличилось, благодаря вступления моей рассылки в ряды СообЧи (см. в конце рассылки), чему я очень рад. Свои вопросы и предложения направляйте мне на E-Mail. Я обязательно опубликую их в рассылке.
ПРИМЕЧАНИЕ: Выпуски данной рассылки начиная с первого вы сможете прочитать на http://subscribe.ru/archive/comp.design.snoozex/@LEXis
Как скрыть программу из таскменеджера (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), можно ли сделать так, что бы она занимала меньше места?
Зарание ОГРОМНОЕ СПАСИБО!