Extensions/ImageGlass.Feature/ImageGlass_Image.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Windows.Forms
Imports System.Drawing


Public Class ImageGlass_Image


    Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

    ''' <summary>
    ''' Đặt làm hình nền desktop
    ''' </summary>
    ''' <param name="filename"></param>
    ''' <remarks></remarks>
    Public Shared Sub SetWallpaper(ByVal filename As String)
        On Error Resume Next

        Dim pic As Image = Image.FromFile(filename)
        Dim ext As String = IO.Path.GetExtension(filename).ToLower()

        Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "TileWallpaper", "0")
        Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "WallpaperStyle", "0")

        If ext <> ".bmp" Or ext <> ".jpg" Or ext <> ".jpeg" Then

            Dim s As String = (My.Computer.FileSystem.SpecialDirectories.Temp & "\" _
                               ).Replace("\\", "\") & "wallpaper.phapsoftware.wordpress.com.bmp"
            pic.Save(s, Imaging.ImageFormat.Bmp)
            SystemParametersInfo(&H14, -1, s, &H1)

            Exit Sub
        End If

        SystemParametersInfo(&H14, -1, filename, &H1)
    End Sub


    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="pic"></param>
    ''' <param name="filename"></param>
    ''' <remarks></remarks>
    Public Shared Sub ConvertImage(ByVal pic As Image, ByVal filename As String)

        Dim D As New SaveFileDialog
        D.Title = "Chọn thư mục lưu file chuyển đổi"
        D.Filter = "BMP|*.BMP|EMF|*.EMF|EXIF|*.EXIF|GIF|*.GIF|ICO|*.ICO|JPG|*.JPG|PNG|*.PNG|TIFF|*.TIFF|WMF|*.WMF"

        D.FileName = IO.Path.GetFileNameWithoutExtension(filename)
        Dim ext As String = IO.Path.GetExtension(filename).Substring(1)


        Select Case ext.ToLower
            Case "bmp" : D.FilterIndex = 1
            Case "emf" : D.FilterIndex = 2
            Case "exif" : D.FilterIndex = 3
            Case "gif" : D.FilterIndex = 4
            Case "ico" : D.FilterIndex = 5