| Вопрос: Супер эффект | Добавлено: 19.05.05 01:16 |
Автор вопроса:  Shark | Web-сайт: www.ma26.ru | ICQ: 284036855 |
| Подскажите какой нибудь эффект для первого окна программы, типа заставки. Какие нибудь летаюшие кружки или еще что. Не мого не чего придумать чтобы всем понравилось |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #1 | Добавлено: 19.05.05 04:37 |
|
Как вариант. Помести на форму картинку (например логотип программы), лучше *.gif с прозрачным фоном, BackColor формы сделай белым, кинь на форму таймер (Interval =1, Enabled = True). Дальше этот код...
Option Explicit Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Private Const LWA_COLORKEY = &H1 Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long  im Ind As Long
im tInd As Long
Private Sub Form_Click() frmMain.Visible = True Unload frmPrompt End Sub Private Sub Form_Load() im Ret As Long
Ind = 1 Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, Ret End Sub Private Sub Timer1_Timer() tInd = tInd + Ind If tInd = 254 Then Ind = -2 ElseIf tInd = 0 Then Timer1.Enabled = False frmMain.Show Unload frmPrompt Exit Sub Else SetLayeredWindowAttributes hWnd, &HFFFFFF, tInd, LWA_COLORKEY Or LWA_ALPHA End If End Sub Или так, на форме метка (AutoSize = True, Index = 0), и таймер Option Explicit im MousLeft As Long
im MousTop As Long
Private Sub Form_Load() im i As Integer
For i = 1 To Len("Это заставка" 
If i > 1 Then Load lblSimbol(i - 1) With lblSimbol(i - 1) .Left = lblSimbol(i - 2).Left + lblSimbol(i - 1).Width + 20 .Top = lblSimbol(i - 2).Top .Caption = Mid("Это заставка", i, 1) .Visible = True End With Else lblSimbol(i - 1).Caption = Mid("Заставка", i, 1) lblSimbol(i - 1).Visible = True End If Next i Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() MoveSimbol lblSimbol(0).Left = MousLeft lblSimbol(0).Top = MousTop End Sub Private Sub MoveSimbol() im i As Integer
For i = lblSimbol.Count - 1 To 1 Step -1 lblSimbol(i).Move lblSimbol(i - 1).Left + lblSimbol(i - 1).Width + 20, lblSimbol(i - 1).Top Next i End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MousLeft = X MousTop = Y - 240 End Sub |
||
|
Номер ответа: 2 Автор ответа: SharkICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #2 | Добавлено: 19.05.05 21:40 |
| Спасибо, а есть градиентная заливка формы и чтоб менялась. | ||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 19.05.05 21:41 |
| Зачем? ВБ для графики, эффектов итп... не очень. Рисуй сам в фотошопе, хочеться анимации - FLASH! Пример подключения флеш к вб есть на сайте. | ||
|
Номер ответа: 4 Автор ответа: SharkICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #4 | Добавлено: 19.05.05 21:46 |
| Зачем мне Flash нужны дополнительные компоненты. А простой графичекий эффект вроде растворения вполне можно сделать | ||
|
Номер ответа: 5 Автор ответа: SharkICQ: 284036855 Вопросов: 35 Ответов: 155 |
Web-сайт: Профиль | | #5 | Добавлено: 22.05.05 23:40 |
| Есть может у кого графичекие эффекты такие каких полно на JAVA: звезды, снег, дождь хоть что - нибудь | ||
Страница: 1 |