mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-12-26 16:11:49 +01:00
98 lines
3.3 KiB
VB.net
98 lines
3.3 KiB
VB.net
Option Strict On
|
|
Imports Crunchyroll_Downloader.CRD_Classes
|
|
Imports MetroFramework
|
|
Imports MetroFramework.Components
|
|
|
|
Public Class Error_msg
|
|
|
|
Dim Manager As MetroStyleManager = Main.Manager
|
|
|
|
Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Close.MouseEnter, Btn_Close.GotFocus
|
|
If Manager.Theme = MetroThemeStyle.Dark Then
|
|
Btn_Close.Image = My.Resources.main_close_dark_hover
|
|
Else
|
|
Btn_Close.Image = My.Resources.main_close_hover
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Close.MouseLeave, Btn_Close.LostFocus
|
|
Btn_Close.Image = Main.CloseImg
|
|
End Sub
|
|
|
|
Private Sub Btn_Close_Click(sender As Object, e As EventArgs) Handles Btn_Close.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Error_msg_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
|
Btn_Close.Location = New Point(Me.Width - 36, 1)
|
|
|
|
End Sub
|
|
|
|
Private Sub btn_cl_Click(sender As Object, e As EventArgs) Handles btn_cl.Click
|
|
If Me.Height = 500 Then
|
|
Me.Height = 275
|
|
Else
|
|
Me.Height = 500
|
|
End If
|
|
End Sub
|
|
Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.TopMost = True
|
|
Manager.Owner = Me
|
|
Me.StyleManager = Manager
|
|
|
|
Btn_Close.Image = Main.CloseImg
|
|
|
|
Try
|
|
Me.Icon = My.Resources.icon
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
Me.Location = New Point(CInt(Main.Location.X + Main.Width / 2 - Me.Width / 2), CInt(Main.Location.Y + Main.Height / 2 - Me.Height / 2))
|
|
|
|
End Sub
|
|
|
|
Public Sub ShowErrorDia(ByVal Details As String, ShortError As String, Optional ByVal IgnoreOption As Boolean = False)
|
|
Me.Show()
|
|
ErrorBox.Text = Details
|
|
ErrorLabel.Text = ShortError
|
|
If IgnoreOption = False Then
|
|
btn_ign.BackgroundImage = My.Resources.error_dis
|
|
btn_ign.Cursor = Cursors.No
|
|
btn_ign.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btn_ok_Click(sender As Object, e As EventArgs) Handles btn_ok.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
Private Sub Btn_ok_MouseEnter(sender As Object, e As EventArgs) Handles btn_ok.MouseEnter
|
|
btn_ok.BackgroundImage = My.Resources.ffmpeg_OK_cL_hover
|
|
End Sub
|
|
|
|
Private Sub Btn_ok_MouseLeave(sender As Object, e As EventArgs) Handles btn_ok.MouseLeave
|
|
btn_ok.BackgroundImage = My.Resources.ffmpeg_OK_cL
|
|
End Sub
|
|
|
|
Private Sub Btn_cl_MouseEnter(sender As Object, e As EventArgs) Handles btn_cl.MouseEnter
|
|
btn_cl.BackgroundImage = My.Resources.ffmpeg_OK_cL_hover
|
|
End Sub
|
|
|
|
Private Sub Btn_cl_MouseLeave(sender As Object, e As EventArgs) Handles btn_cl.MouseLeave
|
|
btn_cl.BackgroundImage = My.Resources.ffmpeg_OK_cL
|
|
End Sub
|
|
Private Sub Btn_ign_MouseEnter(sender As Object, e As EventArgs) Handles btn_ign.MouseEnter
|
|
btn_ign.BackgroundImage = My.Resources.ffmpeg_OK_cL_hover
|
|
End Sub
|
|
|
|
Private Sub Btn_ign_MouseLeave(sender As Object, e As EventArgs) Handles btn_ign.MouseLeave
|
|
btn_ign.BackgroundImage = My.Resources.ffmpeg_OK_cL
|
|
End Sub
|
|
|
|
Private Sub btn_ign_Click(sender As Object, e As EventArgs) Handles btn_ign.Click
|
|
Main.IgnoreErrorDia = True
|
|
Me.Close()
|
|
End Sub
|
|
End Class |