| Вопрос: Как написать слово поверх все окон ? | Добавлено: 18.06.04 19:36 |
Автор вопроса:  admsasha | Web-сайт: dansoft.krasnokamensk.ru | ICQ: 234002454 |
|
как написать слово поверх все окон, http://www.vbnet.ru/faq/showtopic.asp?id=362 - это не предлагать ... плохой пример. мне надо что бы оно было пять секунд, ну пусть даже и мигает.. и полностью исчезло а не висела надпись, как происходит в этом примере ! |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 18.06.04 19:50 |
|
Третий раз выкладую этот исходник! Блин как же нам всем поиска нехватает!
Ну вот: Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hWnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long Dim mMove As Boolean Dim SX As Integer Dim SY As Integer Private Sub Form_Load() Beep Const TEXT = "Привет, я вирус" Dim hRgn As Long Font.Name = "Times New Roman" Font.Bold = True Font.Size = 70 Width = TextWidth(TEXT) Height = TextHeight(TEXT) BeginPath hdc Print TEXT EndPath hdc hRgn = PathToRegion(hdc) SetWindowRgn hWnd, hRgn, False Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 End Sub Private Sub Form_MouseDown(Button As Integer, Shift _ As Integer, X As Single, Y As Single) mMove = True SX = X SY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift _ As Integer, X As Single, Y As Single) If mMove = True Then Me.Move Left + X - SX, Top + Y - SY End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift _ As Integer, X As Single, Y As Single) mMove = False End Sub |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 19.06.04 01:48 |
угу, см. чуток ниже и увидишь  вот буквально как 3 дня назад тот же вопрос был задан
|
||
|
Номер ответа: 3 Автор ответа: admsasha ICQ: 234002454 Вопросов: 56 Ответов: 69 |
Web-сайт: Профиль | | #3 | Добавлено: 19.06.04 05:30 |
|
Как я понимаю это показывается форма... а глюков при играх не будет ??? т.е. если я во что то играю и появляется Form то естественно игра скроется а Form появиться, а мне такого не надо хотя в этом http://www.vbnet.ru/faq/showtopic.asp?id=362 примере таких глюков нет.
|
||
|
Номер ответа: 4 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #4 | Добавлено: 19.06.04 07:30 |
|
Private Declare Function CreateDCAsNull Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, lpDeviceName As Any, lpOutput As Any, lpInitData As Any) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function DrawText Lib "user32" Alias "  rawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function GetTextColor Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long Public Sub TestDesktopDC() Dim hdc As Long Dim tR As RECT Dim lCol As Long hdc = CreateDCAsNull(" ISPLAY", ByVal 0&, ByVal 0&, ByVal 0&
tR.Left = 60 tR.Top = 0 tR.Right = 640 tR.Bottom = 32 lCol = GetTextColor(hdc) SetTextColor hdc, &HFF& DrawText hdc, "vbAccelerator", Len("vbAccelerator" , tR, 0
SetTextColor hdc, lCol DeleteDC hdc End Sub Private Sub Command1_Click() TestDesktopDC End Sub |
||
|
Номер ответа: 5 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #5 | Добавлено: 19.06.04 07:33 |
| Это, как я понял пример который не понравился, но ведь можно как нарисовал, так и убрать, необязательно смотреть на него постоянно. А с формой - будет коряво. | ||
|
Номер ответа: 6 Автор ответа: admsashaICQ: 234002454 Вопросов: 56 Ответов: 69 |
Web-сайт: Профиль | | #6 | Добавлено: 20.06.04 18:19 |
|
а как это сообщение убрать то ??? |
||
|
Номер ответа: 7 Автор ответа: Grayich ICQ: 208280504 Вопросов: 56 Ответов: 164 |
Web-сайт: Профиль | | #7 | Добавлено: 20.06.04 18:53 |
| 2 cresta а можно ли в этом примере изменить цвет и размер текста ?? | ||
Страница: 1 |