TextBox-Массив-Вывод числа в случайном месте

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

relenna
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 22.05.2010 (Сб) 19:15

TextBox-Массив-Вывод числа в случайном месте

Сообщение relenna » 22.05.2010 (Сб) 19:29

Всем доброго времени суток.
Очень нужна помощь
Суть в следующем: в случайном месте должна появляться n количество цифр через опр. промежуток времени. Проблема в том, цифры идут слева-направо сверху-вниз (т.е. цифра не выводится выше предыдущей). Как можно сделать так, чтобы они действительно появлялись в случайном месте, а не строго друг за другом через некоторое кол-во пробелов? (делала так - rnd число, коорд. x, коорд. y, в координате число, все, что до - пробелами)
Программирую в visual studio 2005 --> windows application
p.s. если отправила не в ту ветку или была такая тема - заранее извиняюсь, только зарегистрировалась на данном форуме, похожей темы не видела)

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: TextBox-Массив-Вывод числа в случайном месте

Сообщение FireFenix » 22.05.2010 (Сб) 22:26

TextBox.Text &= [Random + Цикл + vbCrLf]
TextBox.Text &= [Random + Цикл + " "]
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる

relenna
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 22.05.2010 (Сб) 19:15

Re: TextBox-Массив-Вывод числа в случайном месте

Сообщение relenna » 23.05.2010 (Вс) 15:26

А можно чуть поподробнее? Я в окне не слишком хорошо разбираюсь =((

Еще вопросец: как определить, какую клавишу нажал пользователь? Выдает ошибку (Unable to cast object of type 'System.Windows.Forms.MouseEventArgs' to type 'System.Windows.Forms.KeyEventArgs'.)
Пробую так
1.
Function key(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) As Char
Dim x2 As Char
x2 = ChrW(e.KeyCode)
key = x2
End Function
2.(находится в коде textbox) x2 - Chr(random-ное число)
If key(sender, e) = x2 Then
MsgBox("ok")
End If


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: Mail.ru [бот] и гости: 1

    TopList