| ← Октябрь 2001 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
6
|
7
|
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
13
|
14
|
|
15
|
16
|
17
|
18
|
19
|
21
|
|
|
22
|
23
|
24
|
25
|
26
|
27
|
28
|
|
29
|
30
|
31
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusproject.narod.ru/
Открыта:
06-01-2001
Статистика
0 за неделю
Русский_Проект: Изучение Visual Basic
Задачи по VB
Советы
Функции Windows API
Здравствуйте!
Недавно обнаружил несколько опечаток в справочнике по встроенным функциям VB. Опечатки исправлены, новая версия доступна для скачивания. Кстати, как вы считаете - стоит ли расширять этот справочник, добавляя к функциям операторы, методы и т.д.?
Задачи по VB
Продолжаем решать задачи. Дано целое число а и натуральное (целое неотрица- тельное) число n. Вычислить а в степени n. Удачи!Что то мы увлеклись чистой математикой. А ведь мы изучает Визуальный Бейсик. Поэтому вторая задачка будет связана с графикой.
Сначала предыстория. Решил Билл Гейтс(Б.Г.) сделать рекламный ролик для новой версии браузера. Пошел он за помощью в Голливуд к Стивену Спилбергу(С.С). Через некоторое время ролик был готов. Вы тоже можете взглянуть на ролик
по адресу http://rusproject.narod.ru/iecolor.gif. Да вот проблема. У Б.Г. не оказалось кинопроектора. Помогите ему. Ваша задача - создать программный кинопроектор. Так как Б.Г. достаточно тщеславный человек, то ролик должен крутится бесконечно. Но и функции остановки тоже должны быть! Но С.С. обещал еще прислать пару роликов, поэтому ваш проигрыватель должен уметь работать с роликами любой длины. Ширина пленки стандартна, можно не учитывать.
Не забудьте сопровождать свой код комментариями. Поверьте, даже самый простой код через полгода может оказаться не очень простым, а еще через полтора года и вовсе непонятым. Ответы принимаются по адресу vbasic@rambler.ru или wwwind@aport.ru
Удачи!
Советы
Управление длиной элемента списка ComboBoxЭлемент управления ComboBox, в отличие от текстового окна, не имеет свойства MaxLength. Однако нет ничего проще, чем добавить недостающее свойство. Для этого достаточно ввести в событие KeyPress элемента управления ComboBox следующий код:
Private Sub Combo1_KeyPress(KeyAscii As Integer)
' Если пользователь попытается нажать одиннадцатую клавишу и
' если эта клавиша не Backspace, то отменить данное событие
Const MAXLENGTH = 10
If Len(Combo1.Text) >= MAXLENGTH And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End Sub
Константа MaxLength может иметь любое значение. Кроме того, вместо Backspace вы можете использовать любые другие клавиши. Для этого просто введите их значения KeyAscii, как показано в примере с клавишей Backspace
(Пример взят из советов А.Колесова, публикуемых в журнале КомпьютерПресс)
Функции Windows API
Функция RegisterServiceProcess
Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
RegisterServiceProcess позволяет скрыть приложение из списка программ в окне, вызываемом клавишами CTRL-ALT-DEL. Данная функция весьма популярна среди вирусописателей
Параметры
- dwProcessID
- Идентификатор процесса. Установите равным 0 для текущего процесса
- dwType
- Определяющий тип, регистрирующий или отменяющий регистрацию процесса как служебный процесс. Служебные процессы не видны в списке программ. Могут иметь два значения
Значение Описание 0 Отменяет регистрацию процесса как служебный процесс 1 Регистрирует процесс как служебный
Пример
' Регистрируем программу как служебную Dim retval As Long retval = RegisterServiceProcess(0, 1)Полный текст с описанием этой функции вы найдете в справочнике по функциям Windows API, который скоро появится на сайте!
Не стесняйтесь, высылайте ваши предложения по адресу vbasic@rambler.ru
Посетите сайт Русский_Проект, где вы найдете другую интересную информацию
Давайте делать рассылку вместе!
Удачи!
http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу
Рейтингуется SpyLog
| В избранное | ||
