Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]

..........................................................................................................................

Разные советы

Список шрифтов в объекте ListBox
Невидимый курсор
Как пользоваться генератором случайных чисел

При помощи следующего кода Вы можете получить список всех шрифтов на компьютере пользователя! Для этого можно создать объект 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

Назад

..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]

..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic

>>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!!

>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью
>>>Если вы хотите задать вопрос
пишите--------> Мне нужна помощь

...:::Design by Mystf0rse 2005-2010 year:::...