Hey,
ich hab mal diesen Code von VB 5/6 auf VB.NET "übersetzt":
ich hoffe ihr könnt damit etwas anfangen^^
lg.
ich hab mal diesen Code von VB 5/6 auf VB.NET "übersetzt":
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function FlashWindow Lib "user32" ( _
- ByVal hwnd As Integer, ByVal bInvert As Integer) As Integer
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- Timer1.Enabled = True
- Timer1.Interval = 500
- Button1.Text = "Manueller Schalter"
- Option1.Text = "Manuell"
- Option2.Text = "Automatisch"
- Option2.Checked = True
- End Sub
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
- If Option1.Checked Then
- Call FlashWindow(Me.Handle, True)
- End If
- End Sub
- Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If Option2.Checked Then
- Call FlashWindow(Me.Handle, True)
- End If
- End Sub
- End Class
ich hoffe ihr könnt damit etwas anfangen^^
lg.