ВБ6 - Задржите прозор апликације на врху других апликација

ВБ6 - Задржите прозор апликације на врху других апликација

Како чувати прозор апликације на врху других апликација?

У општем модулу

 Публиц Децларе Функција СетВиндовПос Либ "усер32" (БиВал хвнд Ас Лонг, БиВал_

хВндИнсертАфтер Као Лонг, БиВал к Као Лонг, БиВал и Као Лонг, БиВал цк Ас _

Лонг, БиВал ци, Лонг, БиВал вФлагс Ас Лонг) Ас Лонг

Публиц Цонст ХВНД_ТОПМОСТ = -1

Публиц Цонст ХВНД_НОТОПМОСТ = -2

Публиц Цонст СВП_НОАЦТИВАТЕ = & Х10

Публиц Цонст СВП_СХОВВИНДОВ = & Х40

Публиц Цонст СВП_НОМОВЕ = 2

Публиц Цонст СВП_НОСИЗЕ = 1

У облику

 Привате Суб Форм_Лоад ()

Дим Р једнако дуго

Р = СетВиндовПос (СхеетНаме.хвнд, ХВНД_ТОПМОСТ, 0, 0, 0, 0, СВП_НОМОВЕ или СВП_НОСИЗЕ)

енд суб

Позивање функције

Функција се мора позвати након активирања форме. То ће омогућити програму да настави функцију ако је форма одабрана (пошто се функција може користити од стране друге апликације).

 Привате Суб Форм_Ацтивате ()

Дим Р једнако дуго

Р = СетВиндовПос (СхеетНаме.хвнд, ХВНД_ТОПМОСТ, 0, 0, 0, 0, СВП_НОМОВЕ или СВП_НОСИЗЕ)

енд суб

Уклањање приоритета

 Привате суб СуппПриорити ()

Дим Р једнако дуго

Р = СетВиндовПос (НомФеуилле.хвнд, ХВНД_НОТОПМОСТ, 0, 0, 0, 0, СВП_НОМОВЕ или СВП_НОСИЗЕ)

Енд суб

Претходни Чланак Sledeći Чланак

Топ Савети