mirror of
https://github.com/AAndyProgram/SCrawler.git
synced 2026-03-14 15:52:18 +00:00
129558c262
Fixed wrong image opening in Autodownloader Fixed incorrect feed grid resizing when removing media Fixed incorrect removal of users from the collection Fixed Instagram function displaying number of requests: wrong value type. Fixed XVIDEOS cycle bug Collection: add multiple users Collection: new collections at the top Copying user data Feed: 'Season' and 'Date' to the post title.
65 lines
3.0 KiB
VB.net
65 lines
3.0 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.Toolbars
|
|
Imports PersonalUtilities.Forms
|
|
Public Class SettingsForm
|
|
Private WithEvents MyDefs As DefaultFormOptions
|
|
Private ReadOnly Property Settings As SiteSettings
|
|
Friend Sub New(ByRef s As SiteSettings, ByRef Design As XML.XmlFile)
|
|
InitializeComponent()
|
|
Settings = s
|
|
MyDefs = New DefaultFormOptions(Me, Design)
|
|
End Sub
|
|
Private Sub SettingsForm_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
With MyDefs
|
|
.MyViewInitialize(True)
|
|
.AddEditToolbar({EditToolbar.ControlItem.Add, EditToolbar.ControlItem.Delete})
|
|
.AddOkCancelToolbar()
|
|
If Settings.Domains.Count > 0 Then Settings.Domains.ForEach(Sub(d) LIST_DOMAINS.Items.Add(d))
|
|
.EndLoaderOperations()
|
|
End With
|
|
End Sub
|
|
Private Sub MyDefs_ButtonOkClick(ByVal Sender As Object, ByVal e As KeyHandleEventArgs) Handles MyDefs.ButtonOkClick
|
|
Settings.Domains.Clear()
|
|
With LIST_DOMAINS
|
|
If .Items.Count > 0 Then
|
|
For Each i In .Items : Settings.Domains.Add(i.ToString) : Next
|
|
End If
|
|
End With
|
|
Settings.UpdateDomains()
|
|
MyDefs.CloseForm()
|
|
End Sub
|
|
Private Sub MyDefs_ButtonAddClick(ByVal Sender As Object, ByVal e As EditToolbarEventArgs) Handles MyDefs.ButtonAddClick
|
|
Dim nd$ = InputBoxE("Enter a new domain using the pattern [xvideos.com]:", "New domain")
|
|
If Not nd.IsEmptyString Then
|
|
If Not LIST_DOMAINS.Items.Contains(nd) Then
|
|
LIST_DOMAINS.Items.Add(nd)
|
|
Else
|
|
MsgBoxE($"The domain [{nd}] already added")
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub MyDefs_ButtonDeleteClickE(ByVal Sender As Object, ByVal e As EditToolbarEventArgs) Handles MyDefs.ButtonDeleteClickE
|
|
If _LatestSelected.ValueBetween(0, LIST_DOMAINS.Items.Count - 1) Then
|
|
Dim n$ = LIST_DOMAINS.Items(_LatestSelected)
|
|
If MsgBoxE({$"Are you sure you want to delete the [{n}] domain?", "Removing domains"}, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
|
LIST_DOMAINS.Items.RemoveAt(_LatestSelected)
|
|
MsgBoxE($"Domain [{n}] removed")
|
|
Else
|
|
MsgBoxE("Operation canceled")
|
|
End If
|
|
Else
|
|
MsgBoxE("No domain selected", vbExclamation)
|
|
End If
|
|
End Sub
|
|
Private _LatestSelected As Integer = -1
|
|
Private Sub LIST_DOMENS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles LIST_DOMAINS.SelectedIndexChanged
|
|
_LatestSelected = LIST_DOMAINS.SelectedIndex
|
|
End Sub
|
|
End Class |