Hallo
Ich habe folgendes Problem:
In meinem Programm wird per WebClient ein File geladen. Wärend dieser Zeit soll dem Anwender angezeigt werden das der Ladevorgang noch läuft. In einem ersten Versuch habe ich den dazugehörigen Abfragebutton blinkend programmiert. Nachdem das nicht zufriedenstellend für mich war habe ich dann versucht anstatt des Button das Fenster und das Symbol in der Taskleiste blinken zu lassen. Leider funktioniert das auch nicht. Das Problem ist sobald der WebClient den File am downloaden ist funktioniert das blinken nicht. Das war bei dem blinkenden Button so und das ist auch bei dem Fenster bzw. dem Symbol in der Taskleiste so. Wenn ich die Zeile für den WebClient deaktiviere dann funktionieren die Blinkroutinen wie gewünscht.
Ich habe mal den entsprechenden Teil des Code hier beigefügt.
Ich habe folgendes Problem:
In meinem Programm wird per WebClient ein File geladen. Wärend dieser Zeit soll dem Anwender angezeigt werden das der Ladevorgang noch läuft. In einem ersten Versuch habe ich den dazugehörigen Abfragebutton blinkend programmiert. Nachdem das nicht zufriedenstellend für mich war habe ich dann versucht anstatt des Button das Fenster und das Symbol in der Taskleiste blinken zu lassen. Leider funktioniert das auch nicht. Das Problem ist sobald der WebClient den File am downloaden ist funktioniert das blinken nicht. Das war bei dem blinkenden Button so und das ist auch bei dem Fenster bzw. dem Symbol in der Taskleiste so. Wenn ich die Zeile für den WebClient deaktiviere dann funktionieren die Blinkroutinen wie gewünscht.
Ich habe mal den entsprechenden Teil des Code hier beigefügt.
VB.NET-Quellcode
- Public Structure FLASHWINFO
- Public cbSize As Int32
- Public hwnd As IntPtr
- Public dwFlags As Int32
- Public uCount As Int32
- Public dwTimeout As Int32
- End Structure
- Private Declare Function FlashWindowEx Lib "user32.dll" (ByRef pfwi As FLASHWINFO) As Int32
- Private Const FLASHW_CAPTION As Int32 = &H1
- Private Const FLASHW_TRAY As Int32 = &H2
- Private Const FLASHW_ALL As Int32 = (FLASHW_CAPTION Or FLASHW_TRAY)
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Me.Text = "Daten werden gesendet. Bitte warten....."
- Button1.Enabled = False
- Me.Cursor = Cursors.WaitCursor
- Dim flash As New FLASHWINFO
- flash.cbSize = System.Runtime.InteropServices.Marshal.SizeOf(flash)
- flash.hwnd = MyBase.Handle
- flash.dwFlags = FLASHW_ALL
- flash.uCount = 100
- flash.dwTimeout = 1000
- FlashWindowEx(flash)
- downloader.DownloadFile(TextBox1.Text & TextBox3.Text & "&" & TextBox2.Text & "&" & TextBox4.Text & "&" & TextBox5.Text & "&" & "OUTPUT=kml", path & "\balloon.kml")
- Process.Start(path & "\balloon.kml")