mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-14 15:52:18 +00:00
54ffe10f71
Cleaned up the code Replace some old functions with new ones Adapted to the new library environment Enable/Disable display user/downloaded image Autodownloader option 'Show notification' not saved Separate thread for standalone video downloader Expanded the description of some errors with additional information Fixed date/time renaming issue Fixed internal library bugs Fixed minor bugs
75 lines
3.6 KiB
VB.net
75 lines
3.6 KiB
VB.net
' Copyright (C) 2022 Andy
|
|
' This program is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU General Public License as published by
|
|
' the Free Software Foundation, either version 3 of the License, or
|
|
' (at your option) any later version.
|
|
'
|
|
' This program is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY
|
|
Imports PersonalUtilities.Forms
|
|
Imports PersonalUtilities.Forms.Controls.Base
|
|
Namespace Editors
|
|
Friend Class CollectionEditorForm
|
|
Private WithEvents MyDefs As DefaultFormOptions
|
|
Private ReadOnly Collections As List(Of String)
|
|
Friend Property [Collection] As String = String.Empty
|
|
Friend Sub New()
|
|
InitializeComponent()
|
|
MyDefs = New DefaultFormOptions(Me, Settings.Design)
|
|
Collections = New List(Of String)
|
|
End Sub
|
|
Friend Sub New(ByVal CollectionName As String)
|
|
Me.New
|
|
Collection = CollectionName
|
|
End Sub
|
|
Private Sub CollectionEditorForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Try
|
|
With MyDefs
|
|
.MyViewInitialize()
|
|
.AddOkCancelToolbar()
|
|
Collections.ListAddList((From c In Settings.Users Where c.IsCollection Select c.CollectionName), LAP.NotContainsOnly, EDP.ThrowException)
|
|
If Collections.ListExists Then Collections.Sort() : CMB_COLLECTIONS.Items.AddRange(From c In Collections Select New ListItem(c))
|
|
If Not Collection.IsEmptyString And Collections.Contains(Collection) Then CMB_COLLECTIONS.SelectedIndex = Collections.IndexOf(Collection)
|
|
.DelegateClosingChecker = False
|
|
.EndLoaderOperations()
|
|
End With
|
|
Catch ex As Exception
|
|
MyDefs.InvokeLoaderError(ex)
|
|
End Try
|
|
End Sub
|
|
Private Sub CollectionEditorForm_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
|
|
Collections.Clear()
|
|
End Sub
|
|
Private Sub CollectionEditorForm_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
|
If e.KeyCode = Keys.Insert Then AddNewCollection() : e.Handled = True Else e.Handled = False
|
|
End Sub
|
|
Private Sub MyDefs_ButtonOkClick() Handles MyDefs.ButtonOkClick
|
|
If CMB_COLLECTIONS.SelectedIndex >= 0 Then
|
|
Collection = CMB_COLLECTIONS.Value.ToString
|
|
MyDefs.CloseForm()
|
|
Else
|
|
MsgBoxE("Collection not selected", MsgBoxStyle.Exclamation)
|
|
End If
|
|
End Sub
|
|
Private Sub CMB_COLLECTIONS_ActionOnButtonClick(ByVal Sender As ActionButton, ByVal e As EventArgs) Handles CMB_COLLECTIONS.ActionOnButtonClick
|
|
If Sender.DefaultButton = ActionButton.DefaultButtons.Add Then AddNewCollection()
|
|
End Sub
|
|
Private Sub CMB_COLLECTIONS_ActionOnListDoubleClick(ByVal _Item As ListViewItem) Handles CMB_COLLECTIONS.ActionOnListDoubleClick
|
|
_Item.Selected = True
|
|
MyDefs_ButtonOkClick()
|
|
End Sub
|
|
Private Sub AddNewCollection()
|
|
Dim c$ = InputBoxE("Enter new collection name:", "Collection name")
|
|
If Not c.IsEmptyString Then
|
|
If Not Collections.Contains(c) Then
|
|
Collections.Add(c)
|
|
CMB_COLLECTIONS.Items.Add(c)
|
|
CMB_COLLECTIONS.SelectedIndex = CMB_COLLECTIONS.Count - 1
|
|
Else
|
|
Dim i% = Collections.IndexOf(c)
|
|
If i >= 0 Then CMB_COLLECTIONS.SelectedIndex = i
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class
|
|
End Namespace |