Visualizzazione dei risultati da 1 a 9 su 9

Discussione: [vb6] form on top

  1. #1
    Utente di HTML.it
    Registrato dal
    Nov 2002
    Messaggi
    2,460

    [vb6] form on top

    usando la form on top normale, il form è in primo piano ma se non è grande tutto lo schermo posso interagire con le finestre sottostanti il form

    per esempio se un form è 5cm x 5cm e sotto ho aperto internet explorer posso usare internet explorer con la scomodità della finestra aperta sopra

    ora vorrei fare in modo che la finestra rimanga si in primo piano, ma che non permetta all'utente di interagire con le finestre sottostanti

    come si può fare ?

  2. #2

    05.08.2005 - by alka
    Auguri all'angelo custode dei moderatori.

  3. #3
    Utente di HTML.it
    Registrato dal
    Nov 2002
    Messaggi
    2,460
    rileggi il post..

    non ho chiesto come si fa un form on top

  4. #4
    Se Form1 è la Form che deve stare davanti e Form2 quella che deve stare dietro:

    codice:
    Private Sub Form_Load()
    Form2.Enabled = False
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
    Form2.Enabled = True
    End Sub
    nel codice di Form1, così quando apri la form disabilita quella dietro e quando la chiudi la riabilita

  5. #5
    Utente di HTML.it
    Registrato dal
    Nov 2002
    Messaggi
    2,460
    si ma non sono due form dello stesso programma
    uno è il mio programma e l'altra è windows stesso

  6. #6

  7. #7
    Utente bannato
    Registrato dal
    Sep 2003
    Messaggi
    1,012
    1 consiglio:

    Non fare programmi invadenti...

  8. #8
    Utente di HTML.it
    Registrato dal
    Nov 2002
    Messaggi
    2,460
    mi è stato commissionato cosi cosa faccio dico di no ?
    certe cose non dipendono da me

  9. #9
    Utente di HTML.it
    Registrato dal
    Nov 2002
    Messaggi
    2,460
    ho risolto cosi
    il form è on top e prende il focus ogni 50ms

    DICHIARAZIONI
    Declare Function GetForegroundWindow Lib "user32.dll" () As Long
    Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

    NEL FORM
    Private Sub Timer1_Timer()
    Dim hforewnd As Long
    Dim handl As Long
    handl = Me.hwnd
    hforewnd = GetForegroundWindow()
    If handl <> hforewnd Then
    SetForegroundWindow handl
    Else
    End If
    End Sub

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.