Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Matew
-
- Постоялец
-
-
- Сообщения: 894
- Зарегистрирован: 28.06.2004 (Пн) 17:44
- Откуда: Дальний Восток, г. Ха
-
Matew » 28.12.2005 (Ср) 3:28
Оставь
Form5.Show vbModal
и в Form5 код такой:
- Код: Выделить всё
Option Explicit
Dim x1 As Single
Dim y1 As Single
Private Sub Form_Load()
x1 = -2000
y1 = -2000
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If x1 = -2000 And y1 = -2000 Then
x1 = X: y1 = Y
ElseIf x1 <> X Or y1 <> Y Then
Unload Me
Form1.Show
End If
End Sub
Алкоголь и сканеры-ваши враги! Не верите-смотрите аватару
-
HotKitten
-
- Дятил
-
-
- Сообщения: 400
- Зарегистрирован: 24.01.2005 (Пн) 21:48
- Откуда: из дома
-
HotKitten » 28.12.2005 (Ср) 12:13
ну зачем снова через движение мыши, я же выложил рабочий пример, через загрузку CPU
-
GM
-
- programador
-
-
- Сообщения: 1427
- Зарегистрирован: 24.06.2003 (Вт) 15:56
- Откуда: 194.67.52.100
-
GM » 28.12.2005 (Ср) 22:28
Сорри за флуд, но еще можна проверять через GetInputState.
الفيجوال بيسك الرابح
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 162
