Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Мигание формы Добавлено: 11.04.09 21:56  

Автор вопроса:  Maloi
Подскажите пожалуйста как при наступлении некоторого события сделать что бы форма начала мигать?

Ответить

  Ответы Всего ответов: 10  

Номер ответа: 1
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #1 		Добавлено: 11.04.09 22:15
если .NET то ставь таймер и меняй свойство формы opacity

Ответить

Номер ответа: 2
Автор ответа:
 Maloi



Вопросов: 20
Ответов: 28
  Профиль | | #2 Добавлено: 11.04.09 22:22
Да, NET. Но opacity это же прозрачность?

Ответить

Номер ответа: 3
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #3 		Добавлено: 11.04.09 22:25
  1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  2.         If Me.Opacity = 0 Then
  3.             Me.Opacity = 1
  4.         Else
  5.             Me.Opacity = 0
  6.         End If
  7.     End Sub
  8.  
  9.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  10.         Timer1.Enabled = True
  11.     End Sub
  12.  
  13.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  14.         Timer1.Interval = 200
  15.         Timer1.Enabled = False
  16.     End Sub

Ответить

Номер ответа: 4
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #4 		Добавлено: 11.04.09 22:26
можешь изменить интервал у таймера и opacity на то как тебе надо

Ответить

Номер ответа: 5
Автор ответа:
 Maloi



Вопросов: 20
Ответов: 28
  Профиль | | #5 Добавлено: 11.04.09 22:32
Извиняюсь, наверное не правильно задал вопрос.
когда форма в свернутом состоянии(в панели задач), нужно что бы форма мигала красным.

Ответить

Номер ответа: 6
Автор ответа:
 maza_____



ICQ: 9968842 

Вопросов: 40
Ответов: 337
  Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья))
 Профиль | | #6 		Добавлено: 11.04.09 22:40
  1. Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
  2.         If Me.WindowState = FormWindowState.Minimized Then
  3.             'здесь нада писать код создаюший этот эффект, я незнаю как его написать:(
  4.         End If
  5.     End Sub

Ответить

Номер ответа: 7
Автор ответа:
 Maloi



Вопросов: 20
Ответов: 28
  Профиль | | #7 Добавлено: 11.04.09 22:48
Спасибо)))
Примерно знаю что там написать)))

Ответить

Номер ответа: 8
Автор ответа:
 SSTREGG



Вопросов: 3
Ответов: 64
  Профиль | | #8 Добавлено: 11.04.09 22:50
  1. Public Class Form1
  2.     'API
  3.     Private Declare Function FlashWindow Lib "user32.dll" ( _
  4.   ByVal hwnd As Int32, _
  5.   ByVal bInvert As Int32) As Int32
  6.  
  7.     Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
  8.         If Me.WindowState = FormWindowState.Minimized Then
  9.             FlashWindow(Me.Handle.ToInt32, 1)
  10.         End If
  11.     End Sub
  12. End Class

Ответить

Номер ответа: 9
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #9 Добавлено: 11.04.09 23:16
Ну блин, я главное решил не сбивать нэтчика с пути истинного, а тут и другие желающие находятся :)

Ответить

Номер ответа: 10
Автор ответа:
 Maloi



Вопросов: 20
Ответов: 28
  Профиль | | #10 Добавлено: 12.04.09 12:16
Спасибо всем)))
Все получилось и работает)))

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам