queue count display improved

queue count display improved #477
This commit is contained in:
hama3254 2022-05-22 11:01:32 +02:00
parent 7188ebf2c5
commit 14edf6bfe4
5 changed files with 19 additions and 15 deletions

Binary file not shown.

View File

@ -749,9 +749,9 @@ Public Class Anime_Add
Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles textBox2.Click
If textBox2.Text = "Use Custom Name" Then
textBox2.Text = Nothing
Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
If TextBox2.Text = "Use Custom Name" Then
TextBox2.Text = Nothing
End If
End Sub
@ -859,8 +859,8 @@ Public Class Anime_Add
Private Sub GroupBox1_VisibleChanged(sender As Object, e As EventArgs) Handles groupBox1.VisibleChanged
If Not textBox2.Text = "Use Custom Name" Then
textBox2.Text = "Use Custom Name"
If Not TextBox2.Text = "Use Custom Name" Then
TextBox2.Text = "Use Custom Name"
End If
End Sub

View File

@ -196,7 +196,7 @@
<value>281, 17</value>
</metadata>
<metadata name="Timer2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>370, 17</value>
<value>375, 15</value>
</metadata>
<metadata name="Timer3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>459, 17</value>
@ -538,7 +538,7 @@
<value>Check Token</value>
</data>
<data name="ContextMenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>182, 92</value>
<value>182, 70</value>
</data>
<data name="&gt;&gt;ContextMenuStrip1.Name" xml:space="preserve">
<value>ContextMenuStrip1</value>

View File

@ -4791,7 +4791,7 @@ Public Class Main
End If
Next
Me.Invoke(New Action(Function() As Object
Me.Text = "Status: " + ListBoxList.Count.ToString + " Downloads in queue" + vbNewLine + "open the add window to continue"
Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
Me.Invalidate()
Return Nothing
End Function))
@ -4837,7 +4837,7 @@ Public Class Main
End If
Next
Me.Invoke(New Action(Function() As Object
Me.Text = "Status: " + ListBoxList.Count.ToString + " Downloads in queue" + vbNewLine + "open the add window to continue"
Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
Me.Invalidate()
Return Nothing
End Function))
@ -4938,7 +4938,7 @@ Public Class Main
ListBoxList.Add(WebbrowserURL)
End If
Me.Invoke(New Action(Function() As Object
Me.Text = "Status: " + ListBoxList.Count.ToString + " Downloads in queue"
Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue"
Me.Invalidate()
Return Nothing
End Function))
@ -5142,11 +5142,15 @@ Public Class Main
End Sub
Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
If ListBoxList.Count > 0 Then
If CBool(InStr(Me.Text, "Crunchyroll Downloader")) Or CBool(InStr(Me.Text, " downloads in queue")) Then
Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
If Application.OpenForms().OfType(Of Anime_Add).Any = False Then
If ListBoxList.Count > 0 Then
If CBool(InStr(Me.Text, "Crunchyroll Downloader")) Or CBool(InStr(Me.Text, " downloads in queue")) Then
Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
End If
End If
End If
End Sub
Private Sub Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown

View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.7.1")>
<Assembly: AssemblyFileVersion("3.8.7.1")>
<Assembly: AssemblyVersion("3.8.7.2")>
<Assembly: AssemblyFileVersion("3.8.7.2")>
<Assembly: NeutralResourcesLanguage("en")>