VPF::Сделать надпись, которая отображается поверх ВСЕГО

Гость_Sanchez

Дата 29.4.2004, 11:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Мне надо, написать надпись(любой текст) которая будет отображаться поверх всего что есть на экране(окна, программы, а самое главное - поверх игр, которые выводят графику через DirectX). Также, эта программа не должна есть много ресурсов(ресурсов процессора), не работать в цикле(то есть чтобы функция вывода текста не стояла в цикле стопоря другие процессы происходящие в программе).

Mephisto

Дата 12.5.2004, 17:27 (ссылка)

(нет голосов)

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34

Код

Private Declare Function SetWindowPos Lib "user32" _
         (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
          ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
          ByVal cy As Long, ByVal wFlags As Long) As Long

Добавляешь это в General. Далее создаешь форму, даешь ей BorderStyle = 0. И пишешь на загрузку формы:

Код

SetWindowPos Me.hWnd,-1,0,0,0,0,&h1 or &h2

Enjoy it.

Black_Star

Дата 14.5.2004, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 9.9.2003
Где: Minsk

Репутация: 4
Всего: 4

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 GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Timer1_Timer()
Dim t As String
t = "Hello !!!"
TextOut GetDC(0), 0, 0, t, Len(t)
End Sub

Ставишь таймер на 50, и текст точно будет поверх всего

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »