visual basic 2008

[leuthrick]

hallo,

weet iemad een code waardoor form1 altijd op de voorgrond blijft

(het word gebruikt voor het laden van mijn programma zoals add-aware dat ook in het begin heeft)

alvast bedankt

 

[theblindman]

Hallo,

Ik weet niet meer precies, maar volgens mij heette dat de OnTop property van form1 die dan op True moet.

Met vriendelijke groeten,
theblindman.

 

[ninjaplayer]

In de properties van Form1 zoeken naar de eigenschap 'TopMost' en op true zetten.

 

[leuthrick]

In de properties van Form1 zoeken naar de eigenschap 'TopMost' en op true zetten.

oke bedankt

 

[old Hippy]

Een aardige manier om je form on top tezetten.
maak twee buttons en zet hier een image in.

de code

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button4.Visible = False
        TopMost = True
        Button3.Visible = True
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button4.Visible = True
        TopMost = False
        Button3.Visible = False
    End Sub

De bijgesloten images kun je in de button zetten

 

[leuthrick]

ja dat gaat wel lukken alleen ik wist dat van topmost niet

 

[leuthrick]

even wat ander weet misschien iemand hoe je de taakbalk kan laten knipperen (zoals msn)

 

[ninjaplayer]

Ik snap het niet echt, kun je een voorbeeld geven?

 

[leuthrick]

Ik snap het niet echt, kun je een voorbeeld geven?

als iemand op msn tegen je praat en je hebt het chatscherm is geminimaliseerd dan gaat in de taakbalk msn oranje knipperen

 

[ninjaplayer]

In je vorige post stond dat het niet als msn moest zijn, dus ik snapte het niet :

Dit heb ik van internet geplukt, kan best zijn dat dit niet werkt:

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

'Ergens in event (form1.click oid):
Call FlashWindow(hwnd, True)

 

[leuthrick]

In je vorige post stond dat het niet als msn moest zijn, dus ik snapte het niet :

Dit heb ik van internet geplukt, kan best zijn dat dit niet werkt:

Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

'Ergens in event (form1.click oid):
Call FlashWindow(hwnd, True)

sorry dat was een typ foutje

maar de code die werkt niet

 

[bn2vs]

Inderdaat, heb ook ff geprobeert, en werkt blijkbaar niet...

Zal strax ff zoeken naar iets dat werkt of naar de correcte implementatie (in het geval dat ik iets verkeerd doe ofzo), van deze code, en post het als ik iets vind

 

[leuthrick]

Inderdaat, heb ook ff geprobeert, en werkt blijkbaar niet...

Zal strax ff zoeken naar iets dat werkt of naar de correcte implementatie (in het geval dat ik iets verkeerd doe ofzo), van deze code, en post het als ik iets vind

onder welken naam zoek jij bij google?

 

[bn2vs]

"vb.net flashing window" ofzo

Code doet het idd niet, is immers voor vb5 en vb6...

Ik heb .net versie nodig, jij ook aangezien je met vb9 bezig bent

 

[bn2vs]

Heb het

Imports System.Runtime.InteropServices

'...

Friend WithEvents timerFlashing As New Timer

    <DllImport("user32")> _
    Public Shared Function FlashWindow(ByVal hwnd As Int32, ByVal bInvert As Int32) As Int32
    End Function

    Private Sub letWindowFlashIfNeeded()
        If Not Me.Focused Then timerFlashing.Start()
    End Sub

    Private Sub timerFlashing_Tick() Handles timerFlashing.Tick
        Static flashNr As Int32 = 0
        FlashWindow(CInt(Me.Handle), 1)
        flashNr += 1
        If flashNr >= 11 Then
            flashNr = 0
            timerFlashing.Stop()
        End If
    End Sub

 

[leuthrick]

Heb het

Imports System.Runtime.InteropServices

'...

Friend WithEvents timerFlashing As New Timer

    <DllImport("user32")> _
    Public Shared Function FlashWindow(ByVal hwnd As Int32, ByVal bInvert As Int32) As Int32
    End Function

    Private Sub letWindowFlashIfNeeded()
        If Not Me.Focused Then timerFlashing.Start()
    End Sub

    Private Sub timerFlashing_Tick() Handles timerFlashing.Tick
        Static flashNr As Int32 = 0
        FlashWindow(CInt(Me.Handle), 1)
        flashNr += 1
        If flashNr >= 11 Then
            flashNr = 0
            timerFlashing.Stop()
        End If
    End Sub

het werkt!

bedankt :thumb:

ik kijk zelf nog wel even hoe ik hem maar door laat knipperen dus 5 x achter elkaar of zo.

en zou ik de link mogen van welken site je dit hebt afgehaald?

 

[leuthrick]

gelukt!

Imports System.Runtime.InteropServices
Public Class Form1
    Friend WithEvents timerFlashing As New Timer

    <DllImport("user32")> _
    Public Shared Function FlashWindow(ByVal hwnd As Int32, ByVal bInvert As Int32) As Int32
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 500
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static flashNr As Int32 = 0
        FlashWindow(CInt(Me.Handle), 1)
        flashNr += 1
        If flashNr >= 11 Then
            flashNr = 0
        End If
    End Sub
End Class

bedankt allenmaal:thumb:

 

[bn2vs]

Site weet ik niet echt meer, maar heb de code samengesprokkeld van verschillende locaties en er mn eigen draai aan gegeven

 

[leuthrick]

oke bedankt

 

[bn2vs]

Als je vraag is opgelost kan je de topic status naar 'opgelost' veranderen (rechts onderaan de pagina als je bent ingelogged)