Visual
Basic - Советы
[Разное]
Невидимый курсор
Как пользоваться генератором случайных чисел
Как сменить картинку рабочего стола
При помощи следующего кода Вы можете получить список всех шрифтов на компьютере пользователя! Для этого можно создать объект List1 и в событие Form_Load поместить:
Dim m
As Integer
'запускаем цикл, который повториться столько
раз, сколько имеется
'шрифтов минус один, т.к. счёт идёт от нуля
For m = 0
To Screen.FontCount
- 1
'в List1
добавляем элемент массива Screen.Fonts cоответсвующий числу m
List1.AddItem Screen.Fonts(m)
Next
Назад
Хотите сделать ваш курсор невидимым? Нет
проблем! Впишите в раздел формы General Declarations следующий код:
Private Declare Function ShowCursor Lib
"User32" (ByVal
_
bShow As Long)
As Long
Теперь создайте две кнопки для прятания курсора и для показа и впишите в них следующий код:
Private Sub Command1_Click()
a = ShowCursor(1)
Do While
a >= 0
a = ShowCursor(0)
Loop
End Sub
Private Sub Command2_Click()
a = ShowCursor(0)
Do
While a < 0
a = ShowCursor(1)
Loop
End Sub
Назад
Владимир
Как пользоваться генератором случайных чисел в VB. Числа в пределах 1-25,
1-100
Для генерации случайных чисел в VB используется оператор Rnd, который генерирует числа от 0 до 1. Т.е. это могут быть числа : 0,3267545; 0,79563; 0,0043678 и т.д. Если же мы будем умножать генерируемое число на 10, то интервал генерируемых чисел будет равняться уже от 0 до 10 (соответственно, если умножать на сто, то интервал генерируемых чисел будет равняться уже от 0 до 100). И вышеназванные числа будут иметь следующий вид: 3,267545; 7,9563; 0,043678. Чаще же всего нам нужны целые числа, без "хвостов". Для этого можно использовать функцию Int(), которая возвращает значение типа, совпадающего с типом аргумента, которое содержит целую часть числа. Расшифровываю: :)) функция Int() преобразует число в целое. Например:
Int(3,267545) = 3
Int(7,9563) = 8
Int(0,043678) = 0
А теперь соберём всё вместе: итак, чтобы получить случайное число от
нуля до ста нужно
1.Умножить генерируемое число на сто: Rnd*100
2.И взять его целую часть: Int(Rnd*100).
Пример:
X = Int(Rnd*100) 'получаем Х - случайное число от 0 до 100
Внимание!!! Ряд "случайных" чисел будет каждый раз повторяться, если Вы не установите в Form_Load инструкцию Randomize, которая инициализирует датчик случайных чисел:
Private Sub Form_Load
()
Randomize
End Sub
Сахар Как сменить картинку рабочего стола?
В модуль пишем:
Declare Function SystemParametersInfo Lib
"user32" Alias_
"SystemParametersInfoA" (ByVal
uAction As Long,_
ByVal uParam As Long,
lpvParam As Any, ByVal
fuWinIni As Long) As
Long
Public Const SPI_SETDESKWALLPAPER = 20
Public Sub SetWallpaper (File As
String)
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal
File, True
End Sub
А теперь из любого места:
SetWallpaper "имя_файла.bmp"
Назад
