/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
VB6: Hvordan får jeg en form til altid at ~
Fra : Hugo


Dato : 23-02-01 11:50

Hejsa!

Jeg søger en løsning på, hvordan jeg laver et program til altid at ligge
øverst. Altså et program i stil med Taskbaren eller Shortcut baren i Office,
dvs. at programmet skal ligge i toppen af skærmen og selvom man maksimere et
andet vindue, så skal dette stoppe ved det aktuelle program, altså heller
ikke lægge sig nedenunder.

Med andre ord, så ønsker jeg at programmet reservere den øverste centimeter
af skrivebordet.

Hvordan dælen gør jeg det??

Mailto: ThomasL@amitech.dk

Mvh.
Thomas Larsen





 
 
Bjarne Østergård (23-02-2001)
Kommentar
Fra : Bjarne Østergård


Dato : 23-02-01 15:30


"Hugo" <hugo@borge.de> wrote in message
news:3a96405b$0$25920$4d4eb98e@news.dk.uu.net...
> Hejsa!
>
> Jeg søger en løsning på, hvordan jeg laver et program til altid at ligge
> øverst. Altså et program i stil med Taskbaren eller Shortcut baren i
Office,
> dvs. at programmet skal ligge i toppen af skærmen og selvom man maksimere
et
> andet vindue, så skal dette stoppe ved det aktuelle program, altså heller
> ikke lægge sig nedenunder.
>
> Med andre ord, så ønsker jeg at programmet reservere den øverste
centimeter
> af skrivebordet.
>
> Hvordan dælen gør jeg det??
>
> Mailto: ThomasL@amitech.dk
>
> Mvh.
> Thomas Larsen

lave dette kald i form load
Call SetWindowPos(FormSplach.hWnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, Flags)

Lav et modul med dette
Public 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


Public Sub Ontop(FormSplach As Form)
'Make a form always ontop of other windows
On Error GoTo error
Call SetWindowPos(FormSplach.hWnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, Flags)
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error"
End Sub

Nu vil formen lægge øverst


--
Med venlig hilsen
Bjarne Østergård
Gigasoft Danmark
www.gigasoft.dk
E-mail: boe@gigasoft.dk
Tlf: 86 49 64 04





Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408897
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste