VBNet - Форум - Вывод текста на дисплей! А как???

Вопрос: Вывод текста на дисплей! А как??? Добавлено: 29.01.04 22:27

Автор вопроса: MaqSoft

Вопрос:

Как написать текст прямо на дисплее, т.е. поверх всех окон, а через несколоко секунд убрать его?

Заранее спасибо

Ответить

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

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

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #1

Добавлено: 29.01.04 22:42

Форма, на ней с помощью АПИ пишешь текст, пользуешься в начале и в конце StartPath, EndPath, соответственно, переводишь путь в регион, вырезаешь свое окно по региону, ставишь окошку TOPMOST, и все....

Ответить

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

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #2

Добавлено: 30.01.04 00:40

Скопируй это в форму

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_DblClick()
End
End Sub

Private Sub Form_Load()
Const TEXT = "Basic Rulezzzzz!!!"
Dim hRgn As Long
Me.BackColor = &HFF0000
Me.BorderStyle = 0
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

Ответить

Номер ответа: 3 Автор ответа: Justas ICQ: 259418212 Вопросов: 24 Ответов: 325	Web-сайт: justas.newmail.ru Профиль \| \| #3	Добавлено: 30.01.04 00:45
	а что-бы текст через несколоко секунд убрать, поставь таймер на форму, и в нём форму выгружай. Ответить

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

crackoff

ICQ: 156165990

Вопросов: 12
Ответов: 229

Профиль | | #4

Добавлено: 30.01.04 08:38

Можно вот так

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Dim dh As Long, ddc As Long

dh = GetDesktopWindow

ddc = GetWindowDC(dh)

TextOut ddc, 0, 0, "Привет!!!", 9

Ответить

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

Anakonda

Вопросов: 0
Ответов: 1

Web-сайт: anakonda.nm.ru
Профиль | | #5

Добавлено: 31.01.04 13:44

А никто не знает как потом рабочий стол отчистить, обновить, если рисовал как советует crackoff?

Ответить

Страница: 1 |