geonu/SCrawler
1
0
Fork 0
mirror of https://github.com/AAndyProgram/SCrawler.git synced 2026-03-14 15:52:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #37 from unknown81311/main

Browse Source 
Update MainFrame.vb
This commit is contained in:
Andy
2022-05-02 08:11:35 +03:00
committed by GitHub
parent 075a2b9b80 418f44edfd
commit f491e03812
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SCrawler/MainFrame.vb
View File

@@ -1,4 +1,4 @@
' Copyright (C) 2022 Andy ' Copyright (C) 2022 Andy
' This program is free software: you can redistribute it and/or modify ' 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 ' it under the terms of the GNU General Public License as published by
' the Free Software Foundation, either version 3 of the License, or ' the Free Software Foundation, either version 3 of the License, or
@@ -665,7 +665,7 @@ CloseResume:
Dim user As IUserData = GetSelectedUser() Dim user As IUserData = GetSelectedUser()
If Not user Is Nothing Then If Not user Is Nothing Then
Dim f As SFile = SFile.SelectFiles(user.File.CutPath(IIf(user.IsCollection, 2, 1)), False, "Select new user picture", Dim f As SFile = SFile.SelectFiles(user.File.CutPath(IIf(user.IsCollection, 2, 1)), False, "Select new user picture",
"Pictures|*.jpeg;*.jpg;*.png|GIF|*.gif|All Files|*.*").FirstOrDefault "Pictures|*.jpeg;*.jpg;*.png;*.webp|GIF|*.gif|All Files|*.*").FirstOrDefault
If Not f.IsEmptyString Then If Not f.IsEmptyString Then
user.SetPicture(f) user.SetPicture(f)
UserListUpdate(user, False) UserListUpdate(user, False)
@@ -1127,4 +1127,4 @@ ResumeDownloadingOperation:
Private Sub BTT_PR_INFO_Click(sender As Object, e As EventArgs) Handles BTT_PR_INFO.Click Private Sub BTT_PR_INFO_Click(sender As Object, e As EventArgs) Handles BTT_PR_INFO.Click
If MyProgressForm.Visible Then MyProgressForm.BringToFront() Else MyProgressForm.Show() If MyProgressForm.Visible Then MyProgressForm.BringToFront() Else MyProgressForm.Show()
End Sub End Sub
End Class End Class