├── Albireo ├── separator.vb ├── App.config ├── packages.config ├── My Project │ ├── Settings.settings │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Application.Designer.vb │ ├── Resources.Designer.vb │ ├── Settings.Designer.vb │ └── Resources.resx ├── Shell │ ├── RECT.vb │ ├── SHFILEINFO.vb │ ├── IMAGEINFO.vb │ ├── IMAGELISTDRAWPARAMS.vb │ ├── POINT.vb │ ├── IImageList.vb │ └── ShellEx.vb ├── SearchBox.vb ├── filebtn.vb ├── ActivityTile.vb ├── Backfrm.Designer.vb ├── taskbarbutton.Designer.vb ├── AppTile.vb ├── filebtn.Designer.vb ├── DesktopWindowStuff.vb ├── separator.Designer.vb ├── taskbarbutton.vb ├── AppTile.Designer.vb ├── explorer_shell.Designer.vb ├── ActivityTile.Designer.vb ├── Backfrm.vb ├── taskbar.vb ├── NativeMethods.vb ├── taskbar.Designer.vb ├── SearchBox.Designer.vb ├── UserTile.vb ├── explorer_shell.vb ├── Backfrm.resx ├── SearchBox.resx ├── UserTile.resx ├── separator.resx ├── explorer_shell.resx ├── taskbarbutton.resx ├── filebtn.resx ├── taskbar.resx ├── Start_Menu.resx ├── ActivityTile.resx ├── UserTile.Designer.vb ├── AppTile.resx ├── Albireo.vbproj ├── Start_Menu.Designer.vb └── Start_Menu.vb ├── main.png ├── README.md ├── Albireo.sln ├── .gitattributes └── .gitignore /Albireo/separator.vb: -------------------------------------------------------------------------------- 1 | Public Class separator 2 | 3 | End Class 4 | -------------------------------------------------------------------------------- /main.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/atparsec/albireo/HEAD/main.png -------------------------------------------------------------------------------- /Albireo/App.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /Albireo/packages.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | -------------------------------------------------------------------------------- /Albireo/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Albireo/Shell/RECT.vb: -------------------------------------------------------------------------------- 1 | Imports System.Runtime.InteropServices 2 | 3 | Namespace ExtractLargeIconFromFile.Shell 4 | 5 | Public Structure RECT 6 | Public Left As Integer 7 | Public Top As Integer 8 | Public Right As Integer 9 | Public Bottom As Integer 10 | End Structure 11 | End Namespace 12 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # Alberio 2 | Basically winshell 2.0. Read readme.md at https://github.com/at-adityavikram/winshell for details. 3 | 4 |

5 | 6 |

7 | 8 | ## What's New: 9 | 10 | ### - Displays Recent Files 11 | ### - Now with a working taskbar and desktop 12 | ### - Now also displays UWP apps in all apps list 13 | Most features same as Winshell, except for light theme. 14 | #### Warning! - You need to build the project first to view the designers 15 | -------------------------------------------------------------------------------- /Albireo/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 | 2 | 3 | true 4 | explorer_shell 5 | false 6 | 0 7 | true 8 | 0 9 | true 10 | -------------------------------------------------------------------------------- /Albireo/Shell/SHFILEINFO.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Runtime.InteropServices 3 | 4 | Namespace ExtractLargeIconFromFile.Shell 5 | Public Structure SHFILEINFO 6 | Public hIcon As IntPtr 7 | Public iIcon As Integer 8 | Public dwAttributes As UInteger 9 | 10 | Public szDisplayName As String 11 | 12 | Public szTypeName As String 13 | End Structure 14 | End Namespace 15 | -------------------------------------------------------------------------------- /Albireo/Shell/IMAGEINFO.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Collections.Generic 3 | Imports System.Drawing 4 | Imports System.Linq 5 | Imports System.Runtime.InteropServices 6 | Imports System.Text 7 | Imports System.Threading.Tasks 8 | 9 | Namespace ExtractLargeIconFromFile.Shell 10 | 11 | Public Structure IMAGEINFO 12 | Public hbmImage As IntPtr 13 | Public hbmMask As IntPtr 14 | Public Unused1 As Integer 15 | Public Unused2 As Integer 16 | Public rcImage As Shell.RECT 17 | End Structure 18 | End Namespace 19 | -------------------------------------------------------------------------------- /Albireo/Shell/IMAGELISTDRAWPARAMS.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | 3 | Namespace ExtractLargeIconFromFile.Shell 4 | Public Structure IMAGELISTDRAWPARAMS 5 | Public cbSize As Integer 6 | Public himl As IntPtr 7 | Public i As Integer 8 | Public hdcDst As IntPtr 9 | Public x As Integer 10 | Public y As Integer 11 | Public cx As Integer 12 | Public cy As Integer 13 | Public xBitmap As Integer 14 | Public yBitmap As Integer 15 | Public rgbBk As Integer 16 | Public rgbFg As Integer 17 | Public fStyle As Integer 18 | Public dwRop As Integer 19 | Public fState As Integer 20 | Public Frame As Integer 21 | Public crEffect As Integer 22 | End Structure 23 | End Namespace 24 | -------------------------------------------------------------------------------- /Albireo/SearchBox.vb: -------------------------------------------------------------------------------- 1 | Public Class SearchBox 2 | Private Sub roundthethingy(oj As Object, rad As Integer) 3 | Dim p As New Drawing2D.GraphicsPath() 4 | p.StartFigure() 5 | p.AddArc(New Rectangle(0, 0, rad, rad), 180, 90) 6 | p.AddLine(rad, 0, oj.Width - rad, 0) 7 | p.AddArc(New Rectangle(oj.Width - rad, 0, rad, rad), -90, 90) 8 | p.AddLine(oj.Width, rad, oj.Width, oj.Height - rad) 9 | p.AddArc(New Rectangle(oj.Width - rad, oj.Height - rad, rad, rad), 0, 90) 10 | p.AddLine(oj.Width - rad, oj.Height, rad, oj.Height) 11 | p.AddArc(New Rectangle(0, oj.Height - rad, rad, rad), 90, 90) 12 | p.CloseFigure() 13 | oj.Region = New Region(p) 14 | End Sub 15 | 16 | Private Sub SearchBox_Load(sender As Object, e As EventArgs) Handles Me.Load 17 | roundthethingy(Me, 15) 18 | End Sub 19 | End Class 20 | -------------------------------------------------------------------------------- /Albireo/Shell/POINT.vb: -------------------------------------------------------------------------------- 1 | Imports System.Runtime.InteropServices 2 | 3 | Namespace ExtractLargeIconFromFile.Shell 4 | 5 | 6 | Public Structure POINT 7 | 8 | Public X As Integer 9 | 10 | Public Y As Integer 11 | 12 | Public Sub New(ByVal x As Integer, ByVal y As Integer) 13 | ' MyBase.New 14 | Me.X = x 15 | Me.Y = y 16 | End Sub 17 | 18 | Public Sub New(ByVal pt As System.Drawing.Point) 19 | Me.New(pt.X, pt.Y) 20 | 21 | End Sub 22 | 23 | Public Overloads Shared Function implicitOperator(ByVal p As POINT) As System.Drawing.Point 24 | Return New System.Drawing.Point(p.X, p.Y) 25 | End Function 26 | 27 | Public Overloads Shared Function implicitOperator(ByVal p As System.Drawing.Point) As POINT 28 | Return New POINT(p.X, p.Y) 29 | End Function 30 | End Structure 31 | End Namespace -------------------------------------------------------------------------------- /Albireo.sln: -------------------------------------------------------------------------------- 1 | 2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.29411.108 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Albireo", "Albireo\Albireo.vbproj", "{7AC587AB-3208-48C2-8774-89460EC0A949}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {7AC587AB-3208-48C2-8774-89460EC0A949}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {7AC587AB-3208-48C2-8774-89460EC0A949}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {7AC587AB-3208-48C2-8774-89460EC0A949}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {7AC587AB-3208-48C2-8774-89460EC0A949}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {8E9A58E5-4676-47B1-BBAC-BDCF1E93BC28} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /Albireo/filebtn.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Public Class filebtn 4 | Dim clicc As Boolean = False 5 | 6 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 7 | Button1.BackColor = Color.FromArgb(200, 200, 200, 210) 8 | Button1.Text = Path.GetFileNameWithoutExtension(Tag) 9 | If clicc = False Then 10 | clicc = True 11 | Else 12 | clicc = False 13 | End If 14 | If Button1.BackColor = Color.FromArgb(200, 200, 200, 210) And clicc = False Then 15 | Try 16 | Process.Start(Tag) 17 | Catch ex As Exception 18 | 19 | End Try 20 | End If 21 | End Sub 22 | 23 | 24 | 25 | Private Sub Button1_LostFocus(sender As Object, e As EventArgs) Handles Button1.LostFocus 26 | Button1.BackColor = Color.Transparent 27 | Try 28 | Button1.Text = Button1.Text.Substring(1, 20) 29 | Catch 30 | End Try 31 | clicc = False 32 | End Sub 33 | 34 | Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave 35 | 36 | End Sub 37 | 38 | Private Sub filebtn_Load(sender As Object, e As EventArgs) Handles Me.Load 39 | 40 | End Sub 41 | 42 | End Class 43 | -------------------------------------------------------------------------------- /Albireo/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /Albireo/Shell/IImageList.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Runtime.InteropServices 3 | 4 | Namespace ExtractLargeIconFromFile.Shell 5 | 6 | 9 | Public Interface IImageList 10 | 11 | 12 | Function Add(ByVal hbmImage As IntPtr, ByVal hbmMask As IntPtr, ByRef pi As Integer) As Integer 13 | 14 | 15 | Function ReplaceIcon(ByVal i As Integer, ByVal hicon As IntPtr, ByRef pi As Integer) As Integer 16 | 17 | 18 | Function SetOverlayImage(ByVal iImage As Integer, ByVal iOverlay As Integer) As Integer 19 | 20 | 21 | Function Replace(ByVal i As Integer, ByVal hbmImage As IntPtr, ByVal hbmMask As IntPtr) As Integer 22 | 23 | 24 | Function AddMasked(ByVal hbmImage As IntPtr, ByVal crMask As Integer, ByRef pi As Integer) As Integer 25 | 26 | 27 | Function Draw(ByRef pimldp As Shell.IMAGELISTDRAWPARAMS) As Integer 28 | 29 | 30 | Function Remove(ByVal i As Integer) As Integer 31 | 32 | 33 | Function GetIcon(ByVal i As Integer, ByVal flags As Integer, ByRef picon As IntPtr) As Integer 34 | End Interface 35 | End Namespace -------------------------------------------------------------------------------- /Albireo/ActivityTile.vb: -------------------------------------------------------------------------------- 1 | Public Class ActivityTile 2 | Private Sub roundthethingy(oj As Object, rad As Integer) 3 | Dim p As New Drawing2D.GraphicsPath() 4 | p.StartFigure() 5 | p.AddArc(New Rectangle(0, 0, rad, rad), 180, 90) 6 | p.AddLine(rad, 0, oj.Width - rad, 0) 7 | p.AddArc(New Rectangle(oj.Width - rad, 0, rad, rad), -90, 90) 8 | p.AddLine(oj.Width, rad, oj.Width, oj.Height - rad) 9 | p.AddArc(New Rectangle(oj.Width - rad, oj.Height - rad, rad, rad), 0, 90) 10 | p.AddLine(oj.Width - rad, oj.Height, rad, oj.Height) 11 | p.AddArc(New Rectangle(0, oj.Height - rad, rad, rad), 90, 90) 12 | p.CloseFigure() 13 | oj.Region = New Region(p) 14 | End Sub 15 | Private Sub ActivityIcon_Click(sender As Object, e As EventArgs) Handles ActivityIcon.Click 16 | Try 17 | Process.Start(Tag) 18 | Catch ex As Exception 19 | Shell(Tag) 20 | End Try 21 | End Sub 22 | 23 | Private Sub ActivityTile_Load(sender As Object, e As EventArgs) Handles Me.Load 24 | roundthethingy(Me, 15) 25 | End Sub 26 | 27 | Private Sub ActivityIcon_MouseEnter(sender As Object, e As EventArgs) Handles ActivityIcon.MouseEnter 28 | ActivityIcon.FlatAppearance.BorderSize = 2 29 | ActivityIcon.FlatAppearance.BorderColor = Color.FromArgb(255, 60, 60, 60) 30 | End Sub 31 | 32 | Private Sub ActivityIcon_MouseLeave(sender As Object, e As EventArgs) Handles ActivityIcon.MouseLeave 33 | ActivityIcon.FlatAppearance.BorderColor = Color.FromArgb(255, 20, 20, 20) 34 | End Sub 35 | End Class 36 | -------------------------------------------------------------------------------- /Albireo/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes, 18 | ' or if you encounter build errors in this file, go to the Project Designer 19 | ' (go to Project Properties or double-click the My Project node in 20 | ' Solution Explorer), and make changes on the Application tab. 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.Albireo.explorer_shell 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /Albireo/Backfrm.Designer.vb: -------------------------------------------------------------------------------- 1 | 2 | Partial Class Backfrm 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | 24 | Private Sub InitializeComponent() 25 | Me.SuspendLayout() 26 | ' 27 | 'Backfrm 28 | ' 29 | Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) 30 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 31 | Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 32 | Me.ClientSize = New System.Drawing.Size(1441, 892) 33 | Me.ControlBox = False 34 | Me.DoubleBuffered = True 35 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 36 | Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) 37 | Me.Name = "Backfrm" 38 | Me.Opacity = 0R 39 | Me.ShowIcon = False 40 | Me.ShowInTaskbar = False 41 | Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual 42 | Me.Text = "Backfrm" 43 | Me.TopMost = True 44 | Me.ResumeLayout(False) 45 | 46 | End Sub 47 | End Class 48 | -------------------------------------------------------------------------------- /Albireo/taskbarbutton.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class taskbarbutton 3 | Inherits System.Windows.Forms.UserControl 4 | 5 | 'UserControl overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.Button1 = New System.Windows.Forms.Button() 26 | Me.SuspendLayout() 27 | ' 28 | 'Button1 29 | ' 30 | Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill 31 | Me.Button1.Location = New System.Drawing.Point(0, 0) 32 | Me.Button1.Name = "Button1" 33 | Me.Button1.Size = New System.Drawing.Size(42, 42) 34 | Me.Button1.TabIndex = 0 35 | Me.Button1.UseVisualStyleBackColor = True 36 | ' 37 | 'taskbarbutton 38 | ' 39 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 40 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 41 | Me.BackColor = System.Drawing.Color.Transparent 42 | Me.Controls.Add(Me.Button1) 43 | Me.Name = "taskbarbutton" 44 | Me.Size = New System.Drawing.Size(42, 42) 45 | Me.ResumeLayout(False) 46 | 47 | End Sub 48 | 49 | Friend WithEvents Button1 As Button 50 | End Class 51 | -------------------------------------------------------------------------------- /Albireo/AppTile.vb: -------------------------------------------------------------------------------- 1 | Public Class AppTile 2 | Private Sub roundthethingy(oj As Object, rad As Integer) 3 | Dim p As New Drawing2D.GraphicsPath() 4 | p.StartFigure() 5 | p.AddArc(New Rectangle(0, 0, rad, rad), 180, 90) 6 | p.AddLine(rad, 0, oj.Width - rad, 0) 7 | p.AddArc(New Rectangle(oj.Width - rad, 0, rad, rad), -90, 90) 8 | p.AddLine(oj.Width, rad, oj.Width, oj.Height - rad) 9 | p.AddArc(New Rectangle(oj.Width - rad, oj.Height - rad, rad, rad), 0, 90) 10 | p.AddLine(oj.Width - rad, oj.Height, rad, oj.Height) 11 | p.AddArc(New Rectangle(0, oj.Height - rad, rad, rad), 90, 90) 12 | p.CloseFigure() 13 | oj.Region = New Region(p) 14 | End Sub 15 | Private Sub AppTile_Load(sender As Object, e As EventArgs) Handles MyBase.Load 16 | roundthethingy(Me, 15) 17 | 18 | End Sub 19 | 20 | Private Sub AppTile_MouseEnter(sender As Object, e As EventArgs) Handles Me.MouseEnter 21 | BackColor = Color.FromArgb(255, 30, 30, 30) 22 | End Sub 23 | 24 | Private Sub AppTile_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave 25 | BackColor = Color.Transparent 26 | End Sub 27 | 28 | Private Sub Det_Click(sender As Object, e As EventArgs) Handles Det.Click 29 | Try 30 | Process.Start(Tag) 31 | Catch ex As Exception 32 | Try 33 | Shell(Tag) 34 | Catch ey As Exception 35 | Try 36 | Process.Start("shell:appsFolder\" & Tag) 37 | Catch ez As Exception 38 | MsgBox(Tag) 39 | End Try 40 | End Try 41 | End Try 42 | End Sub 43 | 44 | Private Sub Det_MouseEnter(sender As Object, e As EventArgs) Handles Det.MouseEnter 45 | Det.FlatAppearance.BorderColor = Color.FromArgb(10, 10, 10) 46 | End Sub 47 | 48 | Private Sub Det_MouseLeave(sender As Object, e As EventArgs) Handles Det.MouseLeave 49 | Try 50 | Det.FlatAppearance.BorderColor = Det.BackColor 51 | Catch 52 | End Try 53 | End Sub 54 | End Class 55 | -------------------------------------------------------------------------------- /Albireo/filebtn.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class filebtn 3 | Inherits System.Windows.Forms.UserControl 4 | 5 | 'UserControl overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Me.Button1 = New System.Windows.Forms.Button() 27 | Me.Timer1 = New System.Windows.Forms.Timer(Me.components) 28 | Me.SuspendLayout() 29 | ' 30 | 'Button1 31 | ' 32 | Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill 33 | Me.Button1.Location = New System.Drawing.Point(0, 0) 34 | Me.Button1.Name = "Button1" 35 | Me.Button1.Size = New System.Drawing.Size(90, 117) 36 | Me.Button1.TabIndex = 0 37 | Me.Button1.Text = "Button1" 38 | Me.Button1.UseVisualStyleBackColor = True 39 | ' 40 | 'Timer1 41 | ' 42 | ' 43 | 'filebtn 44 | ' 45 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 46 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 47 | Me.BackColor = System.Drawing.Color.Transparent 48 | Me.Controls.Add(Me.Button1) 49 | Me.Name = "filebtn" 50 | Me.Size = New System.Drawing.Size(90, 117) 51 | Me.ResumeLayout(False) 52 | 53 | End Sub 54 | 55 | Friend WithEvents Button1 As Button 56 | Friend WithEvents Timer1 As Timer 57 | End Class 58 | -------------------------------------------------------------------------------- /Albireo/DesktopWindowStuff.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Collections.Generic 3 | Imports System.Linq 4 | Imports System.Text 5 | Imports System.Runtime.InteropServices 6 | 7 | Namespace DWIn 8 | Module DesktopWindowsStuff 9 | 10 | Private Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean 11 | End Function 12 | 13 | Private Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpWindowText As StringBuilder, ByVal nMaxCount As Integer) As Integer 14 | End Function 15 | 16 | Private Function EnumDesktopWindows(ByVal hDesktop As IntPtr, ByVal lpEnumCallbackFunction As EnumDelegate, ByVal lParam As IntPtr) As Boolean 17 | End Function 18 | Private Delegate Function EnumDelegate(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean 19 | Private WindowHandles As List(Of IntPtr) 20 | Private WindowTitles As List(Of String) 21 | 22 | Sub GetDesktopWindowHandlesAndTitles( ByRef [handles] As List(Of IntPtr), ByRef titles As List(Of String)) 23 | WindowHandles = New List(Of IntPtr)() 24 | WindowTitles = New List(Of String)() 25 | 26 | If Not EnumDesktopWindows(IntPtr.Zero, AddressOf FilterCallback, IntPtr.Zero) Then 27 | [handles] = Nothing 28 | titles = Nothing 29 | Else 30 | [handles] = WindowHandles 31 | titles = WindowTitles 32 | End If 33 | End Sub 34 | 35 | Private Function FilterCallback(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean 36 | Dim sb_title As StringBuilder = New StringBuilder(1024) 37 | Dim length As Integer = GetWindowText(hWnd, sb_title, sb_title.Capacity) 38 | Dim title As String = sb_title.ToString() 39 | 40 | If IsWindowVisible(hWnd) AndAlso String.IsNullOrEmpty(title) = False Then 41 | WindowHandles.Add(hWnd) 42 | WindowTitles.Add(title) 43 | End If 44 | 45 | Return True 46 | End Function 47 | End Module 48 | End Namespace 49 | -------------------------------------------------------------------------------- /Albireo/separator.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class separator 3 | Inherits System.Windows.Forms.UserControl 4 | 5 | 'UserControl overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.txtme = New System.Windows.Forms.Button() 26 | Me.SuspendLayout() 27 | ' 28 | 'txtme 29 | ' 30 | Me.txtme.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer)) 31 | Me.txtme.FlatAppearance.BorderSize = 0 32 | Me.txtme.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent 33 | Me.txtme.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent 34 | Me.txtme.FlatStyle = System.Windows.Forms.FlatStyle.Flat 35 | Me.txtme.Font = New System.Drawing.Font("Segoe UI", 13.25!, System.Drawing.FontStyle.Bold) 36 | Me.txtme.ForeColor = System.Drawing.SystemColors.ButtonShadow 37 | Me.txtme.Location = New System.Drawing.Point(0, 19) 38 | Me.txtme.Name = "txtme" 39 | Me.txtme.Size = New System.Drawing.Size(81, 30) 40 | Me.txtme.TabIndex = 16 41 | Me.txtme.Text = "#" 42 | Me.txtme.UseVisualStyleBackColor = True 43 | ' 44 | 'separator 45 | ' 46 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 47 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 48 | Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer)) 49 | Me.Controls.Add(Me.txtme) 50 | Me.Name = "separator" 51 | Me.Size = New System.Drawing.Size(589, 49) 52 | Me.ResumeLayout(False) 53 | 54 | End Sub 55 | 56 | Friend WithEvents txtme As Button 57 | End Class 58 | -------------------------------------------------------------------------------- /Albireo/taskbarbutton.vb: -------------------------------------------------------------------------------- 1 | Imports System.Runtime.InteropServices 2 | 3 | Public Class taskbarbutton 4 | 'Declare Auto Function FindWindow Lib "User32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 5 | 6 | 'Declare Auto Function ForeGroundWindow Lib "User32.dll" (ByVal Hwnd As IntPtr) As Long 7 | 8 | Public hwnd As Integer = Tag 9 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 10 | hwnd = Tag 11 | AppActivate(sender.tag) 12 | minWindow() 13 | End Sub 14 | 15 | Private Sub Button1_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover 16 | 17 | End Sub 18 | 19 | Private Shared Function GetWindowPlacement(ByVal hWnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Boolean 20 | 21 | End Function 22 | 23 | Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 24 | 25 | End Function 26 | 27 | Private Shared Function SetWindowPlacement(ByVal hWnd As IntPtr, ByRef lpwndpl As WINDOWPLACEMENT) As Boolean 28 | 29 | End Function 30 | 31 | Private Structure POINTAPI 32 | Public x As Integer 33 | Public y As Integer 34 | End Structure 35 | 36 | Private Structure RECT 37 | Public left As Integer 38 | Public top As Integer 39 | Public right As Integer 40 | Public bottom As Integer 41 | End Structure 42 | 43 | Private Structure WINDOWPLACEMENT 44 | Public length As Integer 45 | Public flags As Integer 46 | Public showCmd As Integer 47 | Public ptMinPosition As POINTAPI 48 | Public ptMaxPosition As POINTAPI 49 | Public rcNormalPosition As RECT 50 | End Structure 51 | 52 | Private Sub WindowAction(ByVal className As String) 53 | Dim app_hwnd As System.IntPtr 54 | Dim wp As WINDOWPLACEMENT = New WINDOWPLACEMENT() 55 | app_hwnd = FindWindow(className, Nothing) 56 | GetWindowPlacement(app_hwnd, wp) 57 | wp.showCmd = 1 58 | SetWindowPlacement(app_hwnd, wp) 59 | End Sub 60 | Private Sub minWindow() 61 | Dim processes As Process() = Process.GetProcessesByName(Name) 62 | For Each p As Process In processes 63 | Dim app_hwnd As System.IntPtr 64 | Dim wp As WINDOWPLACEMENT = New WINDOWPLACEMENT() 65 | app_hwnd = p.MainWindowHandle 66 | GetWindowPlacement(app_hwnd, wp) 67 | wp.showCmd = 1 68 | SetWindowPlacement(app_hwnd, wp) 69 | Next 70 | End Sub 71 | End Class 72 | -------------------------------------------------------------------------------- /.gitattributes: -------------------------------------------------------------------------------- 1 | ############################################################################### 2 | # Set default behavior to automatically normalize line endings. 3 | ############################################################################### 4 | * text=auto 5 | 6 | ############################################################################### 7 | # Set default behavior for command prompt diff. 8 | # 9 | # This is need for earlier builds of msysgit that does not have it on by 10 | # default for csharp files. 11 | # Note: This is only used by command line 12 | ############################################################################### 13 | #*.cs diff=csharp 14 | 15 | ############################################################################### 16 | # Set the merge driver for project and solution files 17 | # 18 | # Merging from the command prompt will add diff markers to the files if there 19 | # are conflicts (Merging from VS is not affected by the settings below, in VS 20 | # the diff markers are never inserted). Diff markers may cause the following 21 | # file extensions to fail to load in VS. An alternative would be to treat 22 | # these files as binary and thus will always conflict and require user 23 | # intervention with every merge. To do so, just uncomment the entries below 24 | ############################################################################### 25 | #*.sln merge=binary 26 | #*.csproj merge=binary 27 | #*.vbproj merge=binary 28 | #*.vcxproj merge=binary 29 | #*.vcproj merge=binary 30 | #*.dbproj merge=binary 31 | #*.fsproj merge=binary 32 | #*.lsproj merge=binary 33 | #*.wixproj merge=binary 34 | #*.modelproj merge=binary 35 | #*.sqlproj merge=binary 36 | #*.wwaproj merge=binary 37 | 38 | ############################################################################### 39 | # behavior for image files 40 | # 41 | # image files are treated as binary by default. 42 | ############################################################################### 43 | #*.jpg binary 44 | #*.png binary 45 | #*.gif binary 46 | 47 | ############################################################################### 48 | # diff behavior for common document formats 49 | # 50 | # Convert binary document formats to text before diffing them. This feature 51 | # is only available from the command line. Turn it on by uncommenting the 52 | # entries below. 53 | ############################################################################### 54 | #*.doc diff=astextplain 55 | #*.DOC diff=astextplain 56 | #*.docx diff=astextplain 57 | #*.DOCX diff=astextplain 58 | #*.dot diff=astextplain 59 | #*.DOT diff=astextplain 60 | #*.pdf diff=astextplain 61 | #*.PDF diff=astextplain 62 | #*.rtf diff=astextplain 63 | #*.RTF diff=astextplain 64 | -------------------------------------------------------------------------------- /Albireo/AppTile.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class AppTile 3 | Inherits System.Windows.Forms.UserControl 4 | 5 | 'UserControl overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(AppTile)) 26 | Me.Det = New System.Windows.Forms.Button() 27 | Me.SuspendLayout() 28 | ' 29 | 'Det 30 | ' 31 | Me.Det.AutoEllipsis = True 32 | Me.Det.BackColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 33 | Me.Det.Dock = System.Windows.Forms.DockStyle.Fill 34 | Me.Det.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer)) 35 | Me.Det.FlatAppearance.BorderSize = 2 36 | Me.Det.FlatStyle = System.Windows.Forms.FlatStyle.Flat 37 | Me.Det.Font = New System.Drawing.Font("Segoe UI", 8.0!) 38 | Me.Det.ForeColor = System.Drawing.SystemColors.Control 39 | Me.Det.Image = CType(resources.GetObject("Det.Image"), System.Drawing.Image) 40 | Me.Det.Location = New System.Drawing.Point(0, 0) 41 | Me.Det.Name = "Det" 42 | Me.Det.Size = New System.Drawing.Size(150, 155) 43 | Me.Det.TabIndex = 0 44 | Me.Det.Text = "Appname" 45 | Me.Det.TextAlign = System.Drawing.ContentAlignment.BottomCenter 46 | Me.Det.UseVisualStyleBackColor = False 47 | ' 48 | 'AppTile 49 | ' 50 | Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) 51 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 52 | Me.BackColor = System.Drawing.Color.Transparent 53 | Me.Controls.Add(Me.Det) 54 | Me.Name = "AppTile" 55 | Me.Size = New System.Drawing.Size(150, 155) 56 | Me.ResumeLayout(False) 57 | 58 | End Sub 59 | 60 | Friend WithEvents Det As Button 61 | End Class 62 | -------------------------------------------------------------------------------- /Albireo/My Project/Resources.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My.Resources 16 | 17 | 'This class was auto-generated by the StronglyTypedResourceBuilder 18 | 'class via a tool like ResGen or Visual Studio. 19 | 'To add or remove a member, edit your .ResX file then rerun ResGen 20 | 'with the /str option, or rebuild your VS project. 21 | '''

22 | ''' A strongly-typed resource class, for looking up localized strings, etc. 23 | '''

24 | _ 28 | Friend Module Resources 29 | 30 | Private resourceMan As Global.System.Resources.ResourceManager 31 | 32 | Private resourceCulture As Global.System.Globalization.CultureInfo 33 | 34 | '''

35 | ''' Returns the cached ResourceManager instance used by this class. 36 | '''

49 | ''' Overrides the current thread's CurrentUICulture property for all 50 | ''' resource lookups using this strongly typed resource class. 51 | '''

52 | _ 53 | Friend Property Culture() As Global.System.Globalization.CultureInfo 54 | Get 55 | Return resourceCulture 56 | End Get 57 | Set(ByVal value As Global.System.Globalization.CultureInfo) 58 | resourceCulture = value 59 | End Set 60 | End Property 61 | End Module 62 | End Namespace 63 | -------------------------------------------------------------------------------- /Albireo/explorer_shell.Designer.vb: -------------------------------------------------------------------------------- 1 | 2 | Partial Class explorer_shell 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | 24 | Private Sub InitializeComponent() 25 | Me.Panel1 = New System.Windows.Forms.Panel() 26 | Me.AppList = New System.Windows.Forms.FlowLayoutPanel() 27 | Me.SuspendLayout() 28 | ' 29 | 'Panel1 30 | ' 31 | Me.Panel1.BackColor = System.Drawing.Color.Transparent 32 | Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom 33 | Me.Panel1.Location = New System.Drawing.Point(0, 822) 34 | Me.Panel1.Name = "Panel1" 35 | Me.Panel1.Size = New System.Drawing.Size(1495, 40) 36 | Me.Panel1.TabIndex = 0 37 | ' 38 | 'AppList 39 | ' 40 | Me.AppList.AutoScroll = True 41 | Me.AppList.BackColor = System.Drawing.Color.Transparent 42 | Me.AppList.Dock = System.Windows.Forms.DockStyle.Fill 43 | Me.AppList.FlowDirection = System.Windows.Forms.FlowDirection.TopDown 44 | Me.AppList.Location = New System.Drawing.Point(0, 0) 45 | Me.AppList.Margin = New System.Windows.Forms.Padding(2) 46 | Me.AppList.Name = "AppList" 47 | Me.AppList.Size = New System.Drawing.Size(1495, 822) 48 | Me.AppList.TabIndex = 18 49 | ' 50 | 'explorer_shell 51 | ' 52 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 53 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 54 | Me.BackColor = System.Drawing.SystemColors.ActiveCaptionText 55 | Me.ClientSize = New System.Drawing.Size(1495, 862) 56 | Me.ControlBox = False 57 | Me.Controls.Add(Me.AppList) 58 | Me.Controls.Add(Me.Panel1) 59 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 60 | Me.Name = "explorer_shell" 61 | Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual 62 | Me.WindowState = System.Windows.Forms.FormWindowState.Maximized 63 | Me.ResumeLayout(False) 64 | 65 | End Sub 66 | Friend WithEvents Panel1 As Panel 67 | Friend WithEvents AppList As FlowLayoutPanel 68 | End Class 69 | -------------------------------------------------------------------------------- /Albireo/ActivityTile.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class ActivityTile 3 | Inherits System.Windows.Forms.UserControl 4 | 5 | 'UserControl overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ActivityTile)) 26 | Me.ActivityIcon = New System.Windows.Forms.Button() 27 | Me.SuspendLayout() 28 | ' 29 | 'ActivityIcon 30 | ' 31 | Me.ActivityIcon.BackColor = System.Drawing.Color.White 32 | Me.ActivityIcon.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center 33 | Me.ActivityIcon.Dock = System.Windows.Forms.DockStyle.Fill 34 | Me.ActivityIcon.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer)) 35 | Me.ActivityIcon.FlatStyle = System.Windows.Forms.FlatStyle.Flat 36 | Me.ActivityIcon.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) 37 | Me.ActivityIcon.ForeColor = System.Drawing.SystemColors.ButtonHighlight 38 | Me.ActivityIcon.Image = CType(resources.GetObject("ActivityIcon.Image"), System.Drawing.Image) 39 | Me.ActivityIcon.Location = New System.Drawing.Point(0, 0) 40 | Me.ActivityIcon.Margin = New System.Windows.Forms.Padding(10) 41 | Me.ActivityIcon.Name = "ActivityIcon" 42 | Me.ActivityIcon.Padding = New System.Windows.Forms.Padding(5, 0, 0, 5) 43 | Me.ActivityIcon.Size = New System.Drawing.Size(170, 121) 44 | Me.ActivityIcon.TabIndex = 1 45 | Me.ActivityIcon.Text = "ActivityName" 46 | Me.ActivityIcon.TextAlign = System.Drawing.ContentAlignment.BottomLeft 47 | Me.ActivityIcon.UseVisualStyleBackColor = False 48 | ' 49 | 'ActivityTile 50 | ' 51 | Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) 52 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 53 | Me.Controls.Add(Me.ActivityIcon) 54 | Me.Name = "ActivityTile" 55 | Me.Size = New System.Drawing.Size(170, 121) 56 | Me.ResumeLayout(False) 57 | 58 | End Sub 59 | 60 | Friend WithEvents ActivityIcon As Button 61 | End Class 62 | -------------------------------------------------------------------------------- /Albireo/My Project/Settings.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | _ 20 | Partial Friend NotInheritable Class MySettings 21 | Inherits Global.System.Configuration.ApplicationSettingsBase 22 | 23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) 24 | 25 | #Region "My.Settings Auto-Save Functionality" 26 | #If _MyType = "WindowsForms" Then 27 | Private Shared addedHandler As Boolean 28 | 29 | Private Shared addedHandlerLockObject As New Object 30 | 31 | _ 32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) 33 | If My.Application.SaveMySettingsOnExit Then 34 | My.Settings.Save() 35 | End If 36 | End Sub 37 | #End If 38 | #End Region 39 | 40 | Public Shared ReadOnly Property [Default]() As MySettings 41 | Get 42 | 43 | #If _MyType = "WindowsForms" Then 44 | If Not addedHandler Then 45 | SyncLock addedHandlerLockObject 46 | If Not addedHandler Then 47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings 48 | addedHandler = True 49 | End If 50 | End SyncLock 51 | End If 52 | #End If 53 | Return defaultInstance 54 | End Get 55 | End Property 56 | End Class 57 | End Namespace 58 | 59 | Namespace My 60 | 61 | _ 64 | Friend Module MySettingsProperty 65 | 66 | _ 67 | Friend ReadOnly Property Settings() As Global.Albireo.My.MySettings 68 | Get 69 | Return Global.Albireo.My.MySettings.Default 70 | End Get 71 | End Property 72 | End Module 73 | End Namespace 74 | -------------------------------------------------------------------------------- /Albireo/Backfrm.vb: -------------------------------------------------------------------------------- 1 | Imports System.Runtime.InteropServices 2 | 3 | Public Class Backfrm 4 | Private Sub Backfrm_Load(sender As Object, e As EventArgs) Handles MyBase.Load 5 | roundthethingy(Me, 20) 6 | EnableBlur() 7 | Start_Menu.BringToFront() 8 | End Sub 9 | Protected Overrides ReadOnly Property CreateParams As CreateParams 10 | Get 11 | Const CS_DROPSHADOW As Integer = &H20000 12 | Dim cp As CreateParams = MyBase.CreateParams 13 | cp.ExStyle = cp.ExStyle Or &H80 14 | cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW 15 | Return cp 16 | End Get 17 | End Property 18 | 19 | Private Sub roundthethingy(oj As Object, rad As Integer) 20 | Location = Start_Menu.Location 21 | Dim p As New Drawing2D.GraphicsPath() 22 | p.StartFigure() 23 | p.AddArc(New Rectangle(0, 0, rad, rad), 180, 90) 24 | p.AddLine(rad, 0, oj.Width - rad, 0) 25 | p.AddArc(New Rectangle(oj.Width - rad, 0, rad, rad), -90, 90) 26 | p.AddLine(oj.Width, rad, oj.Width, oj.Height - rad) 27 | p.AddArc(New Rectangle(oj.Width - rad, oj.Height - rad, rad, rad), 0, 90) 28 | p.AddLine(oj.Width - rad, oj.Height, rad, oj.Height) 29 | p.AddArc(New Rectangle(0, oj.Height - rad, rad, rad), 90, 90) 30 | p.CloseFigure() 31 | oj.Region = New Region(p) 32 | End Sub 33 | 34 | Friend Enum AccentState 35 | ACCENT_DISABLED = 0 36 | ACCENT_ENABLE_GRADIENT = 1 37 | ACCENT_ENABLE_TRANSPARENTGRADIENT = 2 38 | ACCENT_ENABLE_BLURBEHIND = 3 39 | ACCENT_INVALID_STATE = 4 40 | End Enum 41 | 42 | 43 | Friend Structure AccentPolicy 44 | Public AccentState As AccentState 45 | Public AccentFlags As Integer 46 | Public GradientColor As Integer 47 | Public AnimationId As Integer 48 | End Structure 49 | 50 | 51 | Friend Structure WindowCompositionAttributeData 52 | Public Attribute As WindowCompositionAttribute 53 | Public Data As IntPtr 54 | Public SizeOfData As Integer 55 | End Structure 56 | 57 | Friend Enum WindowCompositionAttribute 58 | ' ... 59 | WCA_ACCENT_POLICY = 19 60 | ' ... 61 | End Enum 62 | 63 | 64 | Friend Shared Function SetWindowCompositionAttribute(ByVal hwnd As IntPtr, ByRef data As WindowCompositionAttributeData) As Integer 65 | End Function 66 | Friend Sub EnableBlur() 67 | Dim windowHelper = Me 68 | 69 | Dim accent = New AccentPolicy() 70 | accent.AccentState = AccentState.ACCENT_ENABLE_BLURBEHIND 71 | 72 | Dim accentStructSize = Marshal.SizeOf(accent) 73 | 74 | Dim accentPtr = Marshal.AllocHGlobal(accentStructSize) 75 | Marshal.StructureToPtr(accent, accentPtr, False) 76 | 77 | Dim data = New WindowCompositionAttributeData() 78 | data.Attribute = WindowCompositionAttribute.WCA_ACCENT_POLICY 79 | data.SizeOfData = accentStructSize 80 | data.Data = accentPtr 81 | 82 | SetWindowCompositionAttribute(windowHelper.Handle, data) 83 | 84 | Marshal.FreeHGlobal(accentPtr) 85 | End Sub 86 | Private Sub Backfrm_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus 87 | Start_Menu.BringToFront() 88 | End Sub 89 | End Class -------------------------------------------------------------------------------- /Albireo/taskbar.vb: -------------------------------------------------------------------------------- 1 | 2 | Imports System.ComponentModel 3 | Imports System.IO 4 | 5 | Public Class taskbar 6 | 7 | Private Sub Taskbar_Load(sender As Object, e As EventArgs) Handles MyBase.Load 8 | Width = Screen.PrimaryScreen.WorkingArea.Width 9 | loadprocesses() 10 | Timer1.Start() 11 | End Sub 12 | 13 | Private Sub loadprocesses() 14 | Dim processlist = Process.GetProcesses 15 | Dim idx As Integer = 0 16 | 17 | For Each c As Control In AppsPanel.Controls 18 | Dim cont As Boolean = False 19 | For Each process In processlist 20 | If Not String.IsNullOrEmpty(process.MainWindowTitle) Then 21 | If process.Id = Val(c.Tag) Then 22 | cont = True 23 | End If 24 | End If 25 | Next 26 | If cont = False Then 27 | AppsPanel.Controls.Remove(c) 28 | End If 29 | Next 30 | For Each process In processlist 31 | If Not String.IsNullOrEmpty(process.MainWindowTitle) Then 32 | Try 33 | Dim appicon = GetWindowIcon(process.MainWindowHandle) 34 | Dim btx As New taskbarbutton 35 | btx.Button1.FlatStyle = FlatStyle.Flat 36 | 37 | btx.Size = New Size(50, 42) 38 | btx.Name = process.ProcessName 39 | btx.Tag = process.Id 40 | btx.Button1.Tag = process.MainWindowTitle.ToString 41 | btx.Dock = DockStyle.Left 42 | btx.Button1.Image = appicon 43 | btx.Margin = New Padding(10, 0, 0, 0) 44 | Dim contains = False 45 | For Each c As Control In AppsPanel.Controls 46 | If c.Tag = btx.Tag Then 47 | contains = True 48 | End If 49 | Next 50 | If contains = False Then 51 | AppsPanel.Controls.Add(btx) 52 | End If 53 | idx += 1 54 | Catch 55 | End Try 56 | End If 57 | Next 58 | End Sub 59 | 60 | Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 61 | loadprocesses() 62 | End Sub 63 | 64 | Public Function GetWindowIcon(ByVal windowHandle As IntPtr) As Image 65 | Try 66 | Dim hIcon As IntPtr = Nothing 67 | hIcon = NativeMethods.SendMessage(windowHandle, NativeMethods.WM_GETICON, NativeMethods.SHGFI_LARGEICON, IntPtr.Zero) 68 | If hIcon = IntPtr.Zero Then hIcon = GetClassLongPtr(windowHandle, NativeMethods.GCL_HICON) 69 | If hIcon = IntPtr.Zero Then hIcon = NativeMethods.LoadIcon(IntPtr.Zero, CType(&H7F00, IntPtr)) 70 | If hIcon <> IntPtr.Zero Then 71 | Return New Bitmap(Icon.FromHandle(hIcon).ToBitmap(), 20, 20) 72 | Else 73 | Return Nothing 74 | End If 75 | 76 | Catch ola_amigo_si_dora As Exception 77 | Return Nothing 78 | End Try 79 | End Function 80 | 81 | Private Function GetClassLongPtr(ByVal windowHandle As IntPtr, ByVal nIndex As Integer) As IntPtr 82 | If IntPtr.Size = 4 Then 83 | Return New IntPtr(CLng(NativeMethods.GetClassLongPtr32(windowHandle, nIndex))) 84 | Else 85 | Return NativeMethods.GetClassLongPtr64(windowHandle, nIndex) 86 | End If 87 | End Function 88 | 89 | Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 90 | Start_Menu.Show() 91 | End Sub 92 | End Class 93 | -------------------------------------------------------------------------------- /Albireo/NativeMethods.vb: -------------------------------------------------------------------------------- 1 | Imports System.Runtime.InteropServices 2 | Imports System.Text 3 | 4 | Friend Class NativeMethods 5 | 6 | Public Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean 7 | 8 | End Function 9 | 10 | Public Shared Function FindWindowEx(ByVal hWndParent As IntPtr, ByVal hWndChildAfter As IntPtr, ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 11 | 12 | End Function 13 | 14 | Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr 15 | 16 | End Function 17 | 18 | Public Shared Function GetWindowRect(ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Boolean 19 | 20 | End Function 21 | 22 | 23 | Public Structure RECT 24 | Public Left As Integer 25 | Public Top As Integer 26 | Public Right As Integer 27 | Public Bottom As Integer 28 | End Structure 29 | 30 | 31 | Public Shared Function PrintWindow(ByVal hwnd As IntPtr, ByVal hDC As IntPtr, ByVal nFlags As UInteger) As Boolean 32 | 33 | End Function 34 | 35 | Public Shared Function WindowFromPoint(ByVal p As Point) As IntPtr 36 | 37 | End Function 38 | 39 | Public Shared Function SetCapture(ByVal hWnd As IntPtr) As IntPtr 40 | 41 | End Function 42 | 43 | Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr 44 | 45 | End Function 46 | 47 | Public Shared Function LoadIcon(ByVal hInstance As IntPtr, ByVal lpIconName As IntPtr) As IntPtr 48 | 49 | End Function 50 | 51 | Public Shared Function GetClassLongPtr32(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As UInteger 52 | 53 | End Function 54 | 55 | Public Shared Function GetClassLongPtr64(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As IntPtr 56 | 57 | End Function 58 | Public Shared WM_GETICON As UInteger = &H7F 59 | Public Shared WM_CLOSE As UInteger = &H10 60 | Public Shared ICON_SMALL2 As IntPtr = New IntPtr(2) 61 | Public Shared SHGFI_LARGEICON As Integer = &H0 62 | Public Shared IDI_APPLICATION As IntPtr = New IntPtr(&H7F00) 63 | Public Shared GCL_HICON As Integer = -14 64 | 65 | Public Shared Function GetWindowTextLength(ByVal hWnd As IntPtr) As Integer 66 | 67 | End Function 68 | 69 | Public Shared Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpString As StringBuilder, ByVal nMaxCount As Integer) As Integer 70 | 71 | End Function 72 | 73 | Public Shared Function IsWindow(ByVal hWnd As IntPtr) As Boolean 74 | 75 | End Function 76 | 77 | Public Shared Function GetClassName(ByVal hWnd As IntPtr, ByVal lpString As StringBuilder, ByVal nMaxCount As Integer) As Integer 78 | 79 | End Function 80 | 81 | Public Shared Function EnumWindows(ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As IntPtr) As Integer 82 | 83 | End Function 84 | Public Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean 85 | 86 | Public Shared Function IsWindowVisible(ByVal IntPtr As IntPtr) As Boolean 87 | 88 | End Function 89 | End Class 90 | 91 | -------------------------------------------------------------------------------- /Albireo/taskbar.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class taskbar 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Me.ilist = New System.Windows.Forms.ImageList(Me.components) 27 | Me.Timer1 = New System.Windows.Forms.Timer(Me.components) 28 | Me.Panel1 = New System.Windows.Forms.Panel() 29 | Me.Button1 = New System.Windows.Forms.Button() 30 | Me.AppsPanel = New System.Windows.Forms.Panel() 31 | Me.Panel1.SuspendLayout() 32 | Me.SuspendLayout() 33 | ' 34 | 'ilist 35 | ' 36 | Me.ilist.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit 37 | Me.ilist.ImageSize = New System.Drawing.Size(32, 32) 38 | Me.ilist.TransparentColor = System.Drawing.Color.Transparent 39 | ' 40 | 'Timer1 41 | ' 42 | Me.Timer1.Interval = 30 43 | ' 44 | 'Panel1 45 | ' 46 | Me.Panel1.Controls.Add(Me.Button1) 47 | Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left 48 | Me.Panel1.Location = New System.Drawing.Point(0, 0) 49 | Me.Panel1.Name = "Panel1" 50 | Me.Panel1.Size = New System.Drawing.Size(220, 42) 51 | Me.Panel1.TabIndex = 0 52 | ' 53 | 'Button1 54 | ' 55 | Me.Button1.Dock = System.Windows.Forms.DockStyle.Left 56 | Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.Black 57 | Me.Button1.FlatAppearance.BorderSize = 0 58 | Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 59 | Me.Button1.Font = New System.Drawing.Font("HoloLens MDL2 Assets", 13.25!) 60 | Me.Button1.ForeColor = System.Drawing.SystemColors.ControlLightLight 61 | Me.Button1.Location = New System.Drawing.Point(0, 0) 62 | Me.Button1.Margin = New System.Windows.Forms.Padding(3, 0, 3, 0) 63 | Me.Button1.Name = "Button1" 64 | Me.Button1.Padding = New System.Windows.Forms.Padding(0, 2, 0, 0) 65 | Me.Button1.Size = New System.Drawing.Size(44, 42) 66 | Me.Button1.TabIndex = 3 67 | Me.Button1.Text = "" 68 | Me.Button1.UseVisualStyleBackColor = True 69 | ' 70 | 'AppsPanel 71 | ' 72 | Me.AppsPanel.Dock = System.Windows.Forms.DockStyle.Left 73 | Me.AppsPanel.Location = New System.Drawing.Point(220, 0) 74 | Me.AppsPanel.Name = "AppsPanel" 75 | Me.AppsPanel.Size = New System.Drawing.Size(672, 42) 76 | Me.AppsPanel.TabIndex = 1 77 | ' 78 | 'taskbar 79 | ' 80 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 81 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 82 | Me.BackColor = System.Drawing.SystemColors.ActiveCaptionText 83 | Me.ClientSize = New System.Drawing.Size(1344, 42) 84 | Me.Controls.Add(Me.AppsPanel) 85 | Me.Controls.Add(Me.Panel1) 86 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 87 | Me.Name = "taskbar" 88 | Me.ShowInTaskbar = False 89 | Me.Text = "taskbar" 90 | Me.TopMost = True 91 | Me.Panel1.ResumeLayout(False) 92 | Me.ResumeLayout(False) 93 | 94 | End Sub 95 | Friend WithEvents ilist As ImageList 96 | Friend WithEvents Timer1 As Timer 97 | Friend WithEvents Panel1 As Panel 98 | Friend WithEvents Button1 As Button 99 | Friend WithEvents AppsPanel As Panel 100 | End Class 101 | -------------------------------------------------------------------------------- /Albireo/SearchBox.Designer.vb: -------------------------------------------------------------------------------- 1 | _ 2 | Partial Class SearchBox 3 | Inherits System.Windows.Forms.UserControl 4 | 5 | 'UserControl overrides dispose to clean up the component list. 6 | _ 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | _ 24 | Private Sub InitializeComponent() 25 | Me.SearchBoxPadding = New System.Windows.Forms.Panel() 26 | Me.SearchBtn = New System.Windows.Forms.Button() 27 | Me.SearchText = New System.Windows.Forms.TextBox() 28 | Me.SearchBoxPadding.SuspendLayout() 29 | Me.SuspendLayout() 30 | ' 31 | 'SearchBoxPadding 32 | ' 33 | Me.SearchBoxPadding.BackColor = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer)) 34 | Me.SearchBoxPadding.Controls.Add(Me.SearchBtn) 35 | Me.SearchBoxPadding.Controls.Add(Me.SearchText) 36 | Me.SearchBoxPadding.Dock = System.Windows.Forms.DockStyle.Fill 37 | Me.SearchBoxPadding.Location = New System.Drawing.Point(0, 0) 38 | Me.SearchBoxPadding.Margin = New System.Windows.Forms.Padding(4) 39 | Me.SearchBoxPadding.Name = "SearchBoxPadding" 40 | Me.SearchBoxPadding.Padding = New System.Windows.Forms.Padding(20, 9, 13, 9) 41 | Me.SearchBoxPadding.Size = New System.Drawing.Size(525, 52) 42 | Me.SearchBoxPadding.TabIndex = 17 43 | ' 44 | 'SearchBtn 45 | ' 46 | Me.SearchBtn.Dock = System.Windows.Forms.DockStyle.Right 47 | Me.SearchBtn.FlatAppearance.BorderColor = System.Drawing.SystemColors.Control 48 | Me.SearchBtn.FlatAppearance.BorderSize = 0 49 | Me.SearchBtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat 50 | Me.SearchBtn.Font = New System.Drawing.Font("Segoe MDL2 Assets", 11.05!) 51 | Me.SearchBtn.ForeColor = System.Drawing.SystemColors.ControlLight 52 | Me.SearchBtn.Location = New System.Drawing.Point(475, 9) 53 | Me.SearchBtn.Margin = New System.Windows.Forms.Padding(0, 0, 13, 0) 54 | Me.SearchBtn.Name = "SearchBtn" 55 | Me.SearchBtn.Size = New System.Drawing.Size(37, 34) 56 | Me.SearchBtn.TabIndex = 23 57 | Me.SearchBtn.Text = "" 58 | Me.SearchBtn.UseVisualStyleBackColor = True 59 | ' 60 | 'SearchText 61 | ' 62 | Me.SearchText.BackColor = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer)) 63 | Me.SearchText.BorderStyle = System.Windows.Forms.BorderStyle.None 64 | Me.SearchText.Dock = System.Windows.Forms.DockStyle.Fill 65 | Me.SearchText.Font = New System.Drawing.Font("Segoe UI", 13.25!) 66 | Me.SearchText.ForeColor = System.Drawing.SystemColors.Menu 67 | Me.SearchText.Location = New System.Drawing.Point(20, 9) 68 | Me.SearchText.Margin = New System.Windows.Forms.Padding(7, 4, 4, 4) 69 | Me.SearchText.Name = "SearchText" 70 | Me.SearchText.Size = New System.Drawing.Size(492, 30) 71 | Me.SearchText.TabIndex = 15 72 | Me.SearchText.Text = "Search" 73 | ' 74 | 'SearchBox 75 | ' 76 | Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) 77 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 78 | Me.Controls.Add(Me.SearchBoxPadding) 79 | Me.Name = "SearchBox" 80 | Me.Size = New System.Drawing.Size(525, 52) 81 | Me.SearchBoxPadding.ResumeLayout(False) 82 | Me.SearchBoxPadding.PerformLayout() 83 | Me.ResumeLayout(False) 84 | 85 | End Sub 86 | 87 | Friend WithEvents SearchBoxPadding As Panel 88 | Friend WithEvents SearchBtn As Button 89 | Friend WithEvents SearchText As TextBox 90 | End Class 91 | -------------------------------------------------------------------------------- /Albireo/UserTile.vb: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Drawing2D 2 | Imports System.Runtime.InteropServices 3 | Imports System.Text 4 | 5 | 6 | Public Class UserTile 7 | Dim bmp As Bitmap 8 | Dim userFullName As String = DirectoryServices.AccountManagement.UserPrincipal.Current.DisplayName 9 | Dim userEmail As String = DirectoryServices.AccountManagement.UserPrincipal.Current.EmailAddress 10 | Dim greet As String = "Hi" 11 | Private Sub RoundPic(pic As Control) 12 | Dim originalImage = pic.BackgroundImage 13 | pic.BackgroundImageLayout = ImageLayout.Zoom 14 | Dim croppedImage As New Bitmap(originalImage.Width, originalImage.Height) 15 | 'Prepare to draw on the new image. 16 | Using g = Graphics.FromImage(croppedImage) 17 | Dim path As New GraphicsPath 18 | path.AddEllipse(0, 0, croppedImage.Width, croppedImage.Height) 19 | Dim reg As New Region(path) 20 | 'Draw only within the specified ellipse. 21 | g.Clip = reg 22 | g.DrawImage(originalImage, Point.Empty) 23 | End Using 24 | 'Display the new image. 25 | pic.BackgroundImage = croppedImage 26 | End Sub 27 | 28 | Public Shared Sub GetUserTilePath(username As String, whatever As UInt32, picpath As StringBuilder, maxLength As Integer) 29 | End Sub 30 | Declare Function GetUserName Lib "advapi32.dll" Alias _ 31 | "GetUserNameA" (ByVal lpBuffer As String, 32 | ByRef nSize As Integer) As Integer 33 | Public Function GetUserName() As String 34 | Dim iReturn As Integer 35 | Dim userName As String 36 | userName = New String(CChar(" "), 50) 37 | iReturn = GetUserName(userName, 50) 38 | GetUserName = userName.Substring(0, userName.IndexOf(Chr(0))) 39 | End Function 40 | Public Function GetUserTilePath(username As String) As String 41 | Dim sb As StringBuilder 42 | sb = New StringBuilder(1000) 43 | GetUserTilePath(username, 2147483648, sb, sb.Capacity) 44 | Return sb.ToString() 45 | End Function 46 | 47 | Public Function GetUserTile(username As String) As Image 48 | Return Image.FromFile(GetUserTilePath(username)) 49 | End Function 50 | Private Sub roundthethingy(oj As Object, rad As Integer) 51 | Dim p As New Drawing2D.GraphicsPath() 52 | p.StartFigure() 53 | p.AddArc(New Rectangle(0, 0, rad, rad), 180, 90) 54 | p.AddLine(rad, 0, oj.Width - rad, 0) 55 | p.AddArc(New Rectangle(oj.Width - rad, 0, rad, rad), -90, 90) 56 | p.AddLine(oj.Width, rad, oj.Width, oj.Height - rad) 57 | p.AddArc(New Rectangle(oj.Width - rad, oj.Height - rad, rad, rad), 0, 90) 58 | p.AddLine(oj.Width - rad, oj.Height, rad, oj.Height) 59 | p.AddArc(New Rectangle(0, oj.Height - rad, rad, rad), 90, 90) 60 | p.CloseFigure() 61 | oj.Region = New Region(p) 62 | End Sub 63 | Private Sub UserGreet_Click(sender As Object, e As EventArgs) Handles UserGreet.Click 64 | 65 | End Sub 66 | 67 | Private Sub UserTile_Load(sender As Object, e As EventArgs) Handles MyBase.Load 68 | If Now.Hour < 12 And Now.Hour > 4 Then 69 | greet = "morning" 70 | ElseIf Now.Hour >= 12 And Now.Hour < 16 Then 71 | greet = "afternoon" 72 | ElseIf Now.Hour >= 16 And Now.Hour <= 20 Then 73 | greet = "evening" 74 | Else 75 | greet = "night" 76 | End If 77 | UserGreet.Text = "Good " & greet & ", " & userFullName 78 | ProfilePic.BackgroundImage = GetUserTile(GetUserName) 79 | RoundPic(ProfilePic) 80 | roundthethingy(ProfilePic, 80) 81 | bmp = ProfilePic.BackgroundImage 82 | 83 | End Sub 84 | Private Sub ProfilePic_MouseEnter(sender As Object, e As EventArgs) Handles ProfilePic.MouseEnter 85 | ProfilePic.Text = "" 86 | sender.BackgroundImage = Nothing 87 | End Sub 88 | 89 | Private Sub ProfilePic_MouseLeave(sender As Object, e As EventArgs) Handles ProfilePic.MouseLeave 90 | ProfilePic.Text = "" 91 | ProfilePic.BackgroundImage = bmp 92 | End Sub 93 | 94 | Private Sub ProfilePic_Click(sender As Object, e As EventArgs) Handles ProfilePic.Click 95 | Process.Start("ms-settings:yourinfo") 96 | End Sub 97 | 98 | Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 99 | 100 | End Sub 101 | 102 | Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 103 | Process.Start("ms-settings:") 104 | End Sub 105 | End Class 106 | -------------------------------------------------------------------------------- /Albireo/Shell/ShellEx.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.IO 3 | Imports System.Runtime.InteropServices 4 | 5 | Namespace ExtractLargeIconFromFile 6 | Public Class ShellEx 7 | Private Const SHGFI_SMALLICON As Integer = &H1 8 | Private Const SHGFI_LARGEICON As Integer = &H0 9 | Private Const SHIL_JUMBO As Integer = &H4 10 | Private Const SHIL_EXTRALARGE As Integer = &H2 11 | Private Const WM_CLOSE As Integer = &H10 12 | 13 | Public Enum IconSizeEnum 14 | SmallIcon16 = SHGFI_SMALLICON 15 | MediumIcon32 = SHGFI_LARGEICON 16 | LargeIcon48 = SHIL_EXTRALARGE 17 | ExtraLargeIcon = SHIL_JUMBO 18 | End Enum 19 | 20 | 21 | Private Shared Function SendMessage(ByVal handle As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr 22 | 23 | End Function 24 | 25 | Private Shared Function SHGetImageList(ByVal iImageList As Integer, ByRef riid As Guid, ByRef ppv As Shell.IImageList) As Integer 26 | 27 | End Function 28 | 29 | Public Shared Function SHGetFileInfo(ByVal pszPath As String, ByVal dwFileAttributes As Integer, ByRef psfi As Shell.SHFILEINFO, ByVal cbFileInfo As Integer, ByVal uFlags As UInteger) As Integer 30 | End Function 31 | 32 | Public Shared Function DestroyIcon(ByVal hIcon As IntPtr) As Integer 33 | 34 | End Function 35 | 36 | Public Shared Function GetBitmapFromFolderPath(ByVal filepath As String, ByVal iconsize As IconSizeEnum) As Bitmap 37 | Dim hIcon As IntPtr = GetIconHandleFromFolderPath(filepath, iconsize) 38 | Return getBitmapFromIconHandle(hIcon) 39 | End Function 40 | 41 | Public Shared Function GetBitmapFromFilePath(ByVal filepath As String, ByVal iconsize As IconSizeEnum) As System.Drawing.Bitmap 42 | Dim hIcon As IntPtr = GetIconHandleFromFilePath(filepath, iconsize) 43 | Return getBitmapFromIconHandle(hIcon) 44 | End Function 45 | 46 | Public Shared Function GetBitmapFromPath(ByVal filepath As String, ByVal iconsize As IconSizeEnum) As System.Drawing.Bitmap 47 | Dim hIcon As IntPtr = IntPtr.Zero 48 | 49 | If Directory.Exists(filepath) Then 50 | hIcon = GetIconHandleFromFolderPath(filepath, iconsize) 51 | Else 52 | 53 | If File.Exists(filepath) Then 54 | hIcon = GetIconHandleFromFilePath(filepath, iconsize) 55 | End If 56 | End If 57 | 58 | Return getBitmapFromIconHandle(hIcon) 59 | End Function 60 | 61 | Private Shared Function getBitmapFromIconHandle(ByVal hIcon As IntPtr) As System.Drawing.Bitmap 62 | If hIcon = IntPtr.Zero Then Throw New System.IO.FileNotFoundException() 63 | Dim myIcon = System.Drawing.Icon.FromHandle(hIcon) 64 | Dim bitmap = myIcon.ToBitmap() 65 | myIcon.Dispose() 66 | DestroyIcon(hIcon) 67 | SendMessage(hIcon, WM_CLOSE, IntPtr.Zero, IntPtr.Zero) 68 | Return bitmap 69 | End Function 70 | 71 | Private Shared Function GetIconHandleFromFilePath(ByVal filepath As String, ByVal iconsize As IconSizeEnum) As IntPtr 72 | Dim shinfo = New Shell.SHFILEINFO() 73 | Const SHGFI_SYSICONINDEX As UInteger = &H4000 74 | Const FILE_ATTRIBUTE_NORMAL As Integer = &H80 75 | Dim flags As UInteger = SHGFI_SYSICONINDEX 76 | Return getIconHandleFromFilePathWithFlags(filepath, iconsize, shinfo, FILE_ATTRIBUTE_NORMAL, flags) 77 | End Function 78 | 79 | Private Shared Function GetIconHandleFromFolderPath(ByVal folderpath As String, ByVal iconsize As IconSizeEnum) As IntPtr 80 | Dim shinfo = New Shell.SHFILEINFO() 81 | Const SHGFI_ICON As UInteger = &H100 82 | Const SHGFI_USEFILEATTRIBUTES As UInteger = &H10 83 | Const FILE_ATTRIBUTE_DIRECTORY As Integer = &H10 84 | Dim flags As UInteger = SHGFI_ICON Or SHGFI_USEFILEATTRIBUTES 85 | Return getIconHandleFromFilePathWithFlags(folderpath, iconsize, shinfo, FILE_ATTRIBUTE_DIRECTORY, flags) 86 | End Function 87 | 88 | Private Shared Function getIconHandleFromFilePathWithFlags(ByVal filepath As String, ByVal iconsize As IconSizeEnum, ByRef shinfo As Shell.SHFILEINFO, ByVal fileAttributeFlag As Integer, ByVal flags As UInteger) As IntPtr 89 | Const ILD_TRANSPARENT As Integer = 1 90 | Dim retval = SHGetFileInfo(filepath, fileAttributeFlag, shinfo, Marshal.SizeOf(shinfo), flags) 91 | If retval = 0 Then Throw (New System.IO.FileNotFoundException()) 92 | Dim iconIndex = shinfo.iIcon 93 | Dim iImageListGuid = New Guid("46EB5926-582E-4017-9FDF-E8998DAA0950") 94 | Dim iml As Shell.IImageList 95 | Dim hres = SHGetImageList(CInt(iconsize), iImageListGuid, iml) 96 | Dim hIcon = IntPtr.Zero 97 | hres = iml.GetIcon(iconIndex, ILD_TRANSPARENT, hIcon) 98 | Return hIcon 99 | End Function 100 | End Class 101 | End Namespace 102 | -------------------------------------------------------------------------------- /Albireo/explorer_shell.vb: -------------------------------------------------------------------------------- 1 | Imports System.ComponentModel 2 | Imports System.IO 3 | Imports Microsoft.Win32 4 | 5 | Public Class explorer_shell 6 | Dim dpath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\" 7 | Private Sub Explorer_shell_Load(sender As Object, e As EventArgs) Handles MyBase.Load 8 | taskbar.Show() 9 | taskbar.Location = New Point(0, Screen.PrimaryScreen.WorkingArea.Height) 10 | SendToBack() 11 | 12 | taskbar.BringToFront() 13 | Populate(dpath, AppList) 14 | BackgroundImage = Image.FromFile(GetCurrentWallpaper()) 15 | Dim taskkill As New ProcessStartInfo 16 | taskkill.FileName = "cmd.exe" 17 | taskkill.Arguments = "/c taskkill /F /IM explorer.exe" 18 | taskkill.WindowStyle = ProcessWindowStyle.Hidden 19 | Process.Start(taskkill) 20 | AppList.Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height) 21 | End Sub 22 | Public Function GetCurrentWallpaper() As String 23 | Dim rkWallPaper As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", False) 24 | Dim WallpaperPath As String = rkWallPaper.GetValue("WallPaper").ToString() 25 | rkWallPaper.Close() 26 | Return WallpaperPath 27 | End Function 28 | 29 | Private Sub Exitsh() 30 | Dim explorer As String = String.Format("{0}\{1}", Environment.GetEnvironmentVariable("WINDIR"), "explorer.exe") 31 | Dim process As Process = New Process() 32 | process.StartInfo.FileName = explorer 33 | process.StartInfo.UseShellExecute = True 34 | process.Start() 35 | Close() 36 | End 37 | End Sub 38 | 39 | Private Sub explorer_shell_Deactivate(sender As Object, e As EventArgs) Handles Me.Deactivate 40 | 41 | End Sub 42 | 43 | Private Function AddIcon(fname As String, mode As Integer) 44 | Dim size 45 | If mode = 1 Then 46 | size = CType(ExtractLargeIconFromFile.ShellEx.IconSizeEnum.LargeIcon48, ExtractLargeIconFromFile.ShellEx.IconSizeEnum) 47 | ElseIf mode = 2 Then 48 | size = CType(ExtractLargeIconFromFile.ShellEx.IconSizeEnum.MediumIcon32, ExtractLargeIconFromFile.ShellEx.IconSizeEnum) 49 | End If 50 | #Disable Warning BC42104 51 | Return ExtractLargeIconFromFile.ShellEx.GetBitmapFromFilePath(fname, size) 52 | #Enable Warning BC42104 53 | End Function 54 | 55 | Private Sub Populate(Fpsth As String, pnl As FlowLayoutPanel) 56 | For Each file As String In Directory.GetDirectories(Fpsth) 57 | Dim appx As New filebtn 58 | Dim appicon = AddIcon(file, 1) 59 | Dim appname = Path.GetFileNameWithoutExtension(file) 60 | appx.Text = appname 61 | Try 62 | appx.Button1.Text = appname.Substring(1, 20) 63 | Catch 64 | appx.Button1.Text = appname 65 | End Try 66 | appx.Button1.Image = appicon 67 | Rescale(0.7, appx.Button1.Image, appx) 68 | appx.Tag = file 69 | appx.Button1.FlatStyle = FlatStyle.Flat 70 | appx.Button1.FlatAppearance.BorderSize = 0 71 | appx.Button1.FlatAppearance.BorderColor = Color.Gray 72 | appx.Button1.FlatAppearance.MouseDownBackColor = Color.FromArgb(100, 100, 100, 100) 73 | appx.Button1.FlatAppearance.MouseOverBackColor = Color.FromArgb(200, 200, 200, 210) 74 | appx.Button1.TextAlign = ContentAlignment.BottomCenter 75 | appx.Button1.ForeColor = Color.White 76 | appx.Size = New Size(85, 95) 77 | pnl.Controls.Add(appx) 78 | Next 79 | For Each file As String In Directory.GetFiles(Fpsth) 80 | Dim appx As New filebtn 81 | Dim appicon = AddIcon(file, 1) 82 | Dim appname = Path.GetFileNameWithoutExtension(file) 83 | appx.Text = appname 84 | Try 85 | appx.Button1.Text = appname.Substring(1, 20) 86 | Catch 87 | appx.Button1.Text = appname 88 | End Try 89 | appx.Button1.Image = appicon 90 | Rescale(0.7, appx.Button1.Image, appx) 91 | appx.Tag = file 92 | appx.Button1.FlatStyle = FlatStyle.Flat 93 | appx.Button1.FlatAppearance.BorderSize = 0 94 | appx.Button1.FlatAppearance.BorderColor = Color.Gray 95 | appx.Button1.FlatAppearance.MouseDownBackColor = Color.FromArgb(100, 100, 100, 100) 96 | appx.Button1.FlatAppearance.MouseOverBackColor = Color.FromArgb(200, 200, 200, 210) 97 | appx.Button1.TextAlign = ContentAlignment.BottomCenter 98 | appx.Button1.ForeColor = Color.White 99 | appx.Size = New Size(85, 95) 100 | pnl.Controls.Add(appx) 101 | Next 102 | End Sub 103 | 104 | Private Sub Rescale(scale_factor As Single, bm_source As Bitmap, source As filebtn) 105 | Dim bm_dest As New Bitmap( 106 | CInt(bm_source.Width * scale_factor), 107 | CInt(bm_source.Height * scale_factor)) 108 | Dim gr_dest As Graphics = Graphics.FromImage(bm_dest) 109 | gr_dest.DrawImage(bm_source, 0, 0, 110 | bm_dest.Width + 1, 111 | bm_dest.Height + 1) 112 | source.Button1.Image = bm_dest 113 | End Sub 114 | 115 | Private Sub AppList_Click(sender As Object, e As EventArgs) Handles AppList.Click 116 | Exitsh() 117 | End Sub 118 | End Class -------------------------------------------------------------------------------- /Albireo/My Project/Resources.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | text/microsoft-resx 107 | 108 | 109 | 2.0 110 | 111 | 112 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 113 | 114 | 115 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | -------------------------------------------------------------------------------- /Albireo/Backfrm.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | -------------------------------------------------------------------------------- /Albireo/SearchBox.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | -------------------------------------------------------------------------------- /Albireo/UserTile.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | -------------------------------------------------------------------------------- /Albireo/separator.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | -------------------------------------------------------------------------------- /Albireo/explorer_shell.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | -------------------------------------------------------------------------------- /Albireo/taskbarbutton.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | -------------------------------------------------------------------------------- /Albireo/filebtn.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 17, 17 122 | 123 | -------------------------------------------------------------------------------- /Albireo/taskbar.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 17, 17 122 | 123 | 124 | 87, 17 125 | 126 | -------------------------------------------------------------------------------- /Albireo/Start_Menu.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 17, 17 122 | 123 | 124 | 120, 17 125 | 126 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | ## Ignore Visual Studio temporary files, build results, and 2 | ## files generated by popular Visual Studio add-ons. 3 | ## 4 | ## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore 5 | 6 | # User-specific files 7 | *.rsuser 8 | *.suo 9 | *.user 10 | *.userosscache 11 | *.sln.docstates 12 | 13 | # User-specific files (MonoDevelop/Xamarin Studio) 14 | *.userprefs 15 | 16 | # Build results 17 | [Dd]ebug/ 18 | [Dd]ebugPublic/ 19 | [Rr]elease/ 20 | [Rr]eleases/ 21 | x64/ 22 | x86/ 23 | [Aa][Rr][Mm]/ 24 | [Aa][Rr][Mm]64/ 25 | bld/ 26 | [Bb]in/ 27 | [Oo]bj/ 28 | [Ll]og/ 29 | 30 | # Visual Studio 2015/2017 cache/options directory 31 | .vs/ 32 | # Uncomment if you have tasks that create the project's static files in wwwroot 33 | #wwwroot/ 34 | 35 | # Visual Studio 2017 auto generated files 36 | Generated\ Files/ 37 | 38 | # MSTest test Results 39 | [Tt]est[Rr]esult*/ 40 | [Bb]uild[Ll]og.* 41 | 42 | # NUNIT 43 | *.VisualState.xml 44 | TestResult.xml 45 | 46 | # Build Results of an ATL Project 47 | [Dd]ebugPS/ 48 | [Rr]eleasePS/ 49 | dlldata.c 50 | 51 | # Benchmark Results 52 | BenchmarkDotNet.Artifacts/ 53 | 54 | # .NET Core 55 | project.lock.json 56 | project.fragment.lock.json 57 | artifacts/ 58 | 59 | # StyleCop 60 | StyleCopReport.xml 61 | 62 | # Files built by Visual Studio 63 | *_i.c 64 | *_p.c 65 | *_h.h 66 | *.ilk 67 | *.meta 68 | *.obj 69 | *.iobj 70 | *.pch 71 | *.pdb 72 | *.ipdb 73 | *.pgc 74 | *.pgd 75 | *.rsp 76 | *.sbr 77 | *.tlb 78 | *.tli 79 | *.tlh 80 | *.tmp 81 | *.tmp_proj 82 | *_wpftmp.csproj 83 | *.log 84 | *.vspscc 85 | *.vssscc 86 | .builds 87 | *.pidb 88 | *.svclog 89 | *.scc 90 | 91 | # Chutzpah Test files 92 | _Chutzpah* 93 | 94 | # Visual C++ cache files 95 | ipch/ 96 | *.aps 97 | *.ncb 98 | *.opendb 99 | *.opensdf 100 | *.sdf 101 | *.cachefile 102 | *.VC.db 103 | *.VC.VC.opendb 104 | 105 | # Visual Studio profiler 106 | *.psess 107 | *.vsp 108 | *.vspx 109 | *.sap 110 | 111 | # Visual Studio Trace Files 112 | *.e2e 113 | 114 | # TFS 2012 Local Workspace 115 | $tf/ 116 | 117 | # Guidance Automation Toolkit 118 | *.gpState 119 | 120 | # ReSharper is a .NET coding add-in 121 | _ReSharper*/ 122 | *.[Rr]e[Ss]harper 123 | *.DotSettings.user 124 | 125 | # JustCode is a .NET coding add-in 126 | .JustCode 127 | 128 | # TeamCity is a build add-in 129 | _TeamCity* 130 | 131 | # DotCover is a Code Coverage Tool 132 | *.dotCover 133 | 134 | # AxoCover is a Code Coverage Tool 135 | .axoCover/* 136 | !.axoCover/settings.json 137 | 138 | # Visual Studio code coverage results 139 | *.coverage 140 | *.coveragexml 141 | 142 | # NCrunch 143 | _NCrunch_* 144 | .*crunch*.local.xml 145 | nCrunchTemp_* 146 | 147 | # MightyMoose 148 | *.mm.* 149 | AutoTest.Net/ 150 | 151 | # Web workbench (sass) 152 | .sass-cache/ 153 | 154 | # Installshield output folder 155 | [Ee]xpress/ 156 | 157 | # DocProject is a documentation generator add-in 158 | DocProject/buildhelp/ 159 | DocProject/Help/*.HxT 160 | DocProject/Help/*.HxC 161 | DocProject/Help/*.hhc 162 | DocProject/Help/*.hhk 163 | DocProject/Help/*.hhp 164 | DocProject/Help/Html2 165 | DocProject/Help/html 166 | 167 | # Click-Once directory 168 | publish/ 169 | 170 | # Publish Web Output 171 | *.[Pp]ublish.xml 172 | *.azurePubxml 173 | # Note: Comment the next line if you want to checkin your web deploy settings, 174 | # but database connection strings (with potential passwords) will be unencrypted 175 | *.pubxml 176 | *.publishproj 177 | 178 | # Microsoft Azure Web App publish settings. Comment the next line if you want to 179 | # checkin your Azure Web App publish settings, but sensitive information contained 180 | # in these scripts will be unencrypted 181 | PublishScripts/ 182 | 183 | # NuGet Packages 184 | *.nupkg 185 | # The packages folder can be ignored because of Package Restore 186 | **/[Pp]ackages/* 187 | # except build/, which is used as an MSBuild target. 188 | !**/[Pp]ackages/build/ 189 | # Uncomment if necessary however generally it will be regenerated when needed 190 | #!**/[Pp]ackages/repositories.config 191 | # NuGet v3's project.json files produces more ignorable files 192 | *.nuget.props 193 | *.nuget.targets 194 | 195 | # Microsoft Azure Build Output 196 | csx/ 197 | *.build.csdef 198 | 199 | # Microsoft Azure Emulator 200 | ecf/ 201 | rcf/ 202 | 203 | # Windows Store app package directories and files 204 | AppPackages/ 205 | BundleArtifacts/ 206 | Package.StoreAssociation.xml 207 | _pkginfo.txt 208 | *.appx 209 | 210 | # Visual Studio cache files 211 | # files ending in .cache can be ignored 212 | *.[Cc]ache 213 | # but keep track of directories ending in .cache 214 | !?*.[Cc]ache/ 215 | 216 | # Others 217 | ClientBin/ 218 | ~$* 219 | *~ 220 | *.dbmdl 221 | *.dbproj.schemaview 222 | *.jfm 223 | *.pfx 224 | *.publishsettings 225 | orleans.codegen.cs 226 | 227 | # Including strong name files can present a security risk 228 | # (https://github.com/github/gitignore/pull/2483#issue-259490424) 229 | #*.snk 230 | 231 | # Since there are multiple workflows, uncomment next line to ignore bower_components 232 | # (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) 233 | #bower_components/ 234 | 235 | # RIA/Silverlight projects 236 | Generated_Code/ 237 | 238 | # Backup & report files from converting an old project file 239 | # to a newer Visual Studio version. Backup files are not needed, 240 | # because we have git ;-) 241 | _UpgradeReport_Files/ 242 | Backup*/ 243 | UpgradeLog*.XML 244 | UpgradeLog*.htm 245 | ServiceFabricBackup/ 246 | *.rptproj.bak 247 | 248 | # SQL Server files 249 | *.mdf 250 | *.ldf 251 | *.ndf 252 | 253 | # Business Intelligence projects 254 | *.rdl.data 255 | *.bim.layout 256 | *.bim_*.settings 257 | *.rptproj.rsuser 258 | *- Backup*.rdl 259 | 260 | # Microsoft Fakes 261 | FakesAssemblies/ 262 | 263 | # GhostDoc plugin setting file 264 | *.GhostDoc.xml 265 | 266 | # Node.js Tools for Visual Studio 267 | .ntvs_analysis.dat 268 | node_modules/ 269 | 270 | # Visual Studio 6 build log 271 | *.plg 272 | 273 | # Visual Studio 6 workspace options file 274 | *.opt 275 | 276 | # Visual Studio 6 auto-generated workspace file (contains which files were open etc.) 277 | *.vbw 278 | 279 | # Visual Studio LightSwitch build output 280 | **/*.HTMLClient/GeneratedArtifacts 281 | **/*.DesktopClient/GeneratedArtifacts 282 | **/*.DesktopClient/ModelManifest.xml 283 | **/*.Server/GeneratedArtifacts 284 | **/*.Server/ModelManifest.xml 285 | _Pvt_Extensions 286 | 287 | # Paket dependency manager 288 | .paket/paket.exe 289 | paket-files/ 290 | 291 | # FAKE - F# Make 292 | .fake/ 293 | 294 | # JetBrains Rider 295 | .idea/ 296 | *.sln.iml 297 | 298 | # CodeRush personal settings 299 | .cr/personal 300 | 301 | # Python Tools for Visual Studio (PTVS) 302 | __pycache__/ 303 | *.pyc 304 | 305 | # Cake - Uncomment if you are using it 306 | # tools/** 307 | # !tools/packages.config 308 | 309 | # Tabs Studio 310 | *.tss 311 | 312 | # Telerik's JustMock configuration file 313 | *.jmconfig 314 | 315 | # BizTalk build output 316 | *.btp.cs 317 | *.btm.cs 318 | *.odx.cs 319 | *.xsd.cs 320 | 321 | # OpenCover UI analysis results 322 | OpenCover/ 323 | 324 | # Azure Stream Analytics local run output 325 | ASALocalRun/ 326 | 327 | # MSBuild Binary and Structured Log 328 | *.binlog 329 | 330 | # NVidia Nsight GPU debugger configuration file 331 | *.nvuser 332 | 333 | # MFractors (Xamarin productivity tool) working folder 334 | .mfractor/ 335 | 336 | # Local History for Visual Studio 337 | .localhistory/ 338 | 339 | # BeatPulse healthcheck temp database 340 | healthchecksdb -------------------------------------------------------------------------------- /Albireo/ActivityTile.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 122 | 123 | iVBORw0KGgoAAAANSUhEUgAAAOoAAACoCAYAAADuBHIpAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAX 124 | EQAAFxEByibzPwAAAsdJREFUeF7t2L9L4HUcx/G3mCIYpoiJKYpK/k5PTBRDlAOFRCEhQQg8uaEhaAha 125 | goagoeHghoOGoKEhaAgaDm644aAlaAgaGoKGgxsObjj/h7vv/tl7DY8nPJbX/ubz5VuSJEmSJEmSJEmS 126 | JEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmS 127 | JEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSJEmSpP+9HiDc4eHhG0C2ur6+HgCy1cXFxZtAtu5Q3wKy1dXV 128 | 1SiQrc7Pz98GstXl5eU7QLY6OzubBrJ1P5NmgWx1enr6LpCt+/RdArLVycnJe0C27lBvAdnq6OjofSBb 129 | HR8f7wDZuhf1AyBbd6gHQLa6LSm+7lCPgWx1cHDwIZCtO9QzIFvt7+9/BGTrDvVjIFvt7e1dAtlqd3f3 130 | EyBbd6h3gGy1s7NzF8hW29vbnwLZamtr6zMgW21ubn4OZKuNjY0vgGy1vr7+JZCt1tbWvgKy1erq6tdA 131 | tlpZWfkGyFbLy8vfAtlqaWnpOyBbLS4u3gOy1cLCwn0gW83Pzz8AstXc3Nz3QLaanZ39AchWMzMzPwLZ 132 | anp6+icgW01NTf0MZKvJyclfgGw1MTHxK5CtO9TfgGw1Pj7+EMhWY2Njj4BsNTo6+hjI1h3qEyBbjYyM 133 | /A5kq+Hh4T+AbDU0NPQnkK071L+AbDU4OPg3kK071H+AbDUwMPAvkK071P+AbNXf3/8UyFZ9fX3PgGzV 134 | 29v7HMhWPT09L4Bs9bqXQLy6AeI1RyBLcwSyNEcgS3MEsjRHIEtzBLI0RyBLcwSyNEcgS3MEsjRHIEtz 135 | BLI0RyBLcwSyNEcgS3MEsjRHIEtzBLI0RyBLcwSyNEcgS3MEsjRHIEtzBLI0RyBLcwSyNEcgS3MEsjRH 136 | IEbdvALCncJfcpg/aAAAAABJRU5ErkJggg== 137 | 138 | 139 | -------------------------------------------------------------------------------- /Albireo/UserTile.Designer.vb: -------------------------------------------------------------------------------- 1 | 2 | Partial Class UserTile 3 | Inherits System.Windows.Forms.UserControl 4 | 5 | 'UserControl overrides dispose to clean up the component list. 6 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | 24 | Private Sub InitializeComponent() 25 | Me.UserGreet = New System.Windows.Forms.Button() 26 | Me.Button1 = New System.Windows.Forms.Button() 27 | Me.Panel1 = New System.Windows.Forms.Panel() 28 | Me.Button3 = New System.Windows.Forms.Button() 29 | Me.Button2 = New System.Windows.Forms.Button() 30 | Me.Panel2 = New System.Windows.Forms.Panel() 31 | Me.ProfilePic = New System.Windows.Forms.Button() 32 | Me.Panel1.SuspendLayout() 33 | Me.Panel2.SuspendLayout() 34 | Me.SuspendLayout() 35 | ' 36 | 'UserGreet 37 | ' 38 | Me.UserGreet.AutoSize = True 39 | Me.UserGreet.Dock = System.Windows.Forms.DockStyle.Left 40 | Me.UserGreet.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer)) 41 | Me.UserGreet.FlatAppearance.BorderSize = 0 42 | Me.UserGreet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent 43 | Me.UserGreet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent 44 | Me.UserGreet.FlatStyle = System.Windows.Forms.FlatStyle.Flat 45 | Me.UserGreet.Font = New System.Drawing.Font("Segoe UI", 16.25!, System.Drawing.FontStyle.Bold) 46 | Me.UserGreet.ForeColor = System.Drawing.SystemColors.Control 47 | Me.UserGreet.Location = New System.Drawing.Point(125, 0) 48 | Me.UserGreet.Margin = New System.Windows.Forms.Padding(4) 49 | Me.UserGreet.Name = "UserGreet" 50 | Me.UserGreet.Size = New System.Drawing.Size(400, 135) 51 | Me.UserGreet.TabIndex = 16 52 | Me.UserGreet.Text = "Good greeting, username" 53 | Me.UserGreet.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 54 | Me.UserGreet.UseVisualStyleBackColor = True 55 | ' 56 | 'Button1 57 | ' 58 | Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 59 | Me.Button1.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Black 60 | Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer)) 61 | Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 62 | Me.Button1.Font = New System.Drawing.Font("Segoe MDL2 Assets", 16.8!) 63 | Me.Button1.ForeColor = System.Drawing.SystemColors.ButtonHighlight 64 | Me.Button1.Location = New System.Drawing.Point(7, 48) 65 | Me.Button1.Name = "Button1" 66 | Me.Button1.Padding = New System.Windows.Forms.Padding(3, 0, 0, 0) 67 | Me.Button1.Size = New System.Drawing.Size(58, 58) 68 | Me.Button1.TabIndex = 17 69 | Me.Button1.Text = "" 70 | Me.Button1.UseVisualStyleBackColor = True 71 | ' 72 | 'Panel1 73 | ' 74 | Me.Panel1.Controls.Add(Me.Button3) 75 | Me.Panel1.Controls.Add(Me.Button2) 76 | Me.Panel1.Controls.Add(Me.Button1) 77 | Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left 78 | Me.Panel1.Location = New System.Drawing.Point(525, 0) 79 | Me.Panel1.Name = "Panel1" 80 | Me.Panel1.Size = New System.Drawing.Size(204, 135) 81 | Me.Panel1.TabIndex = 18 82 | ' 83 | 'Button3 84 | ' 85 | Me.Button3.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 86 | Me.Button3.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Black 87 | Me.Button3.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer)) 88 | Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat 89 | Me.Button3.Font = New System.Drawing.Font("Segoe MDL2 Assets", 16.8!) 90 | Me.Button3.ForeColor = System.Drawing.SystemColors.ButtonHighlight 91 | Me.Button3.Location = New System.Drawing.Point(135, 48) 92 | Me.Button3.Name = "Button3" 93 | Me.Button3.Padding = New System.Windows.Forms.Padding(3, 0, 0, 0) 94 | Me.Button3.Size = New System.Drawing.Size(58, 58) 95 | Me.Button3.TabIndex = 19 96 | Me.Button3.Text = "" 97 | Me.Button3.UseVisualStyleBackColor = True 98 | ' 99 | 'Button2 100 | ' 101 | Me.Button2.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 102 | Me.Button2.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Black 103 | Me.Button2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer), CType(CType(25, Byte), Integer)) 104 | Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat 105 | Me.Button2.Font = New System.Drawing.Font("Segoe MDL2 Assets", 16.8!) 106 | Me.Button2.ForeColor = System.Drawing.SystemColors.ButtonHighlight 107 | Me.Button2.Location = New System.Drawing.Point(71, 48) 108 | Me.Button2.Name = "Button2" 109 | Me.Button2.Padding = New System.Windows.Forms.Padding(3, 0, 0, 0) 110 | Me.Button2.Size = New System.Drawing.Size(58, 58) 111 | Me.Button2.TabIndex = 18 112 | Me.Button2.Text = "" 113 | Me.Button2.UseVisualStyleBackColor = True 114 | ' 115 | 'Panel2 116 | ' 117 | Me.Panel2.Controls.Add(Me.ProfilePic) 118 | Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left 119 | Me.Panel2.Location = New System.Drawing.Point(0, 0) 120 | Me.Panel2.Name = "Panel2" 121 | Me.Panel2.Size = New System.Drawing.Size(125, 135) 122 | Me.Panel2.TabIndex = 19 123 | ' 124 | 'ProfilePic 125 | ' 126 | Me.ProfilePic.BackColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 127 | Me.ProfilePic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom 128 | Me.ProfilePic.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer)) 129 | Me.ProfilePic.FlatAppearance.BorderSize = 0 130 | Me.ProfilePic.FlatAppearance.MouseDownBackColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 131 | Me.ProfilePic.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer), CType(CType(40, Byte), Integer)) 132 | Me.ProfilePic.FlatStyle = System.Windows.Forms.FlatStyle.Flat 133 | Me.ProfilePic.Font = New System.Drawing.Font("Segoe MDL2 Assets", 20.25!) 134 | Me.ProfilePic.ForeColor = System.Drawing.SystemColors.ControlLight 135 | Me.ProfilePic.Location = New System.Drawing.Point(11, 24) 136 | Me.ProfilePic.Margin = New System.Windows.Forms.Padding(0) 137 | Me.ProfilePic.Name = "ProfilePic" 138 | Me.ProfilePic.Padding = New System.Windows.Forms.Padding(9, 3, 0, 0) 139 | Me.ProfilePic.RightToLeft = System.Windows.Forms.RightToLeft.Yes 140 | Me.ProfilePic.Size = New System.Drawing.Size(110, 100) 141 | Me.ProfilePic.TabIndex = 16 142 | Me.ProfilePic.TextImageRelation = System.Windows.Forms.TextImageRelation.TextAboveImage 143 | Me.ProfilePic.UseVisualStyleBackColor = False 144 | ' 145 | 'UserTile 146 | ' 147 | Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) 148 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 149 | Me.AutoSize = True 150 | Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 151 | Me.Controls.Add(Me.Panel1) 152 | Me.Controls.Add(Me.UserGreet) 153 | Me.Controls.Add(Me.Panel2) 154 | Me.Name = "UserTile" 155 | Me.Size = New System.Drawing.Size(782, 135) 156 | Me.Panel1.ResumeLayout(False) 157 | Me.Panel2.ResumeLayout(False) 158 | Me.ResumeLayout(False) 159 | Me.PerformLayout() 160 | 161 | End Sub 162 | Friend WithEvents UserGreet As Button 163 | Friend WithEvents Button1 As Button 164 | Friend WithEvents Panel1 As Panel 165 | Friend WithEvents Panel2 As Panel 166 | Friend WithEvents ProfilePic As Button 167 | Friend WithEvents Button3 As Button 168 | Friend WithEvents Button2 As Button 169 | End Class 170 | -------------------------------------------------------------------------------- /Albireo/AppTile.resx: -------------------------------------------------------------------------------- 1 | 2 | 3 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | text/microsoft-resx 110 | 111 | 112 | 2.0 113 | 114 | 115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 116 | 117 | 118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 119 | 120 | 121 | 122 | 123 | iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACJhJREFUeF7t 124 | 3DGOHAmWA9ABZLQhZ24wl9Dh+ljl63CzQSCNXEKO/haqxcV7AN2PiEyQZvzr4+Pjv/+P8uNf/0fPjZ91 125 | czl/v17rLDfq5nJ+vl7r7Lnxo25OxwCU54YBeJMbdXM5BqBiAMpzwwC8yY26uRwDUDEA5blhAN7kRt1c 126 | jgGoGIDy3DAAb3Kjbi7HAFQMQHluGIA3uVE3l2MAKgagPDcMwJvcqJvLMQAVA1CeGwbgTW7UzeUYgIoB 127 | KM8NA/AmN+rmcgxAxQCU54YBeJMbdXM5BqBiAMpzwwC8yY26uRwDUDEA5blhAN7kRt1cjgGoGIDy3DAA 128 | b3Kjbi7HAFQMQHluGIA3uVE3l2MAKgagPDcMwJvcqJvLMQAVA1CeGwbgTW7UzeUYgIoBKM8NA/AmN+rm 129 | cgxA5bMG4D9P/v0H5Nvrfzp7bnyvm8v56/VaZ7lRN5fz/fVaZ8+Nb3Xzn0o696su/lY+awD+/fp9gC+Q 130 | zlUHTzEAMCidqw6eYgBgUDpXHTzFAMCgdK46eIoBgEHpXHXwFAMAg9K56uApBgAGpXPVwVMMAAxK56qD 131 | pxgAGJTOVQdPMQAwKJ2rDp5iAGBQOlcdPMUAwKB0rjp4igGAQelcdfAUAwCD0rnq4CkGAAalc9XBUwwA 132 | DErnqoOnGAAYlM5VB08xADAonasOnmIAYFA6Vx08xQDAoHSuOniKAYBB6Vx18BQDAIPSuergKQYABqVz 133 | 1cFTDAAMSueqg6cYABiUzlUHTzEAMCidqw6eYgBgUDpXHTzFAMCgdK46eIoBgEHpXHXwFAMAg9K56uAp 134 | BgAGpXPVwVMMAAxK56qDpxgAGJTOVQdPyaEfn5Bvr+cCvkA6Vx085XUOAAAAAAAAAAAAAAAAAAAA+JN8 135 | fHz8/IR8f50DvkA6Vx08JYd++amg34xPgsEXSueqg6cYABiUzlUHTzEAMCidqw6eYgBgUDpXHTzFAMCg 136 | dK46eIoBgEHpXHXwFAMAg9K56uApBgAGpXPVwVMMAAxK56qDpxgAGJTOVQdPMQAwKJ2rDp5iAGBQOlcd 137 | PMUAwKB0rjp4igGAQelcdfAUAwCD0rnq4CkGAAalc9XBUwwADErnqoOnGAAYlM5VB08xADAonasOnmIA 138 | YFA6Vx08xQDAoHSuOniKAYBB6Vx18BQDAIPSuergKQYABqVz1cFTDAAMSueqg6cYABiUzlUHTzEAMCid 139 | qw6eYgBgUDpXHTzFAMCgdK46eIoBgEHpXHXwFAMAg9K56uApBgAGpXPVwVMMAAxK56qDpxgAGJTOVQdP 140 | MQAwKJ2rDp5iAGBQOlcdPMUAwKB0rjp4igGAQelcdfAUAwCD0rnq4CkGAAalc9XBUwwADErnqoOnGAAY 141 | lM5VB08xADAonasOnmIAYFA6Vx08xQDAoHSuOniKAYBB6Vx18BQDAIPSuergKQYABqVz1cFTDAAMSueq 142 | g6cYABiUzlUHT8mhvz8hf72eC/gC6Vx18JTXOQAAAAAAAAAAAAAAAAAAAOBP8quPBBzigyDwhdK56uAp 143 | OfTLTwX9ZnwSDL5QOlcdPMUAwKB0rjp4igGAQelcdfAUAwCD0rnq4CkGAAalc9XBUwwADErnqoOnGAAY 144 | lM5VB08xADAonasOnmIAYFA6Vx08xQDAoHSuOniKAYBB6Vx18BQDAIPSuergKQYABqVz1cFTDAAMSueq 145 | g6cYABiUzlUHTzEAMCidqw6eYgBgUDpXHTzFAMCgdK46eIoBgEHpXHXwFAMAg9K56uApBgAGpXPVwVMM 146 | AAxK56qDpxgAGJTOVQdPMQAwKJ2rDp5iAGBQOlcdPMUAwKB0rjp4igGAQelcdfAUAwCD0rnq4CkGAAal 147 | c9XBUwwADErnqoOnGAAYlM5VB08xADAonasOnmIAYFA6Vx08xQDAoHSuOniKAYBB6Vx18BQDAIPSuerg 148 | KQYABqVz1cFTDAAMSueqg6cYABiUzlUHTzEAMCidqw6eYgBgUDpXHTzFAMCgdK46eIoBgEHpXHXwFAMA 149 | g9K56uApBgAGpXPVwVMMAAxK56qDpxgAGJTOVQdPMQAwKJ2rDp5iAGBQOlcdPMUAwKB0rjp4Sg79/IR8 150 | fz0X8AXSuergKa9zAAAAAAAAAAAAAAAAAAAAwJ/k4+Pjxyfk2+sc8AXSuergKTn0y08F/WZ8Egy+UDpX 151 | HTzFAMCgdK46eIoBgEHpXHXwFAMAg9K56uApBgAGpXPVwVMMAAxK56qDpxgAGJTOVQdPMQAwKJ2rDp5i 152 | AGBQOlcdPMUAwKB0rjp4igGAQelcdfAUAwCD0rnq4CkGAAalc9XBUwwADErnqoOnGAAYlM5VB08xADAo 153 | nasOnmIAYFA6Vx08xQDAoHSuOniKAYBB6Vx18BQDAIPSuergKQYABqVz1cFTDAAMSueqg6cYABiUzlUH 154 | TzEAMCidqw6eYgBgUDpXHTzFAMCgdK46eIoBgEHpXHXwFAMAg9K56uApBgAGpXPVwVMMAAxK56qDpxgA 155 | GJTOVQdPMQAwKJ2rDp5iAGBQOlcdPOWzBuA/T/JA/3S+vX6fs+fG97q5nL9er3WWG3VzOd9fr3X23PhW 156 | N/+ppHO/6uJv5bMG4E/Jj9f/dPbc+Fk3l/P367XOcqNuLufn67XOnhs/6uZ0DEB5bhiAN7lRN5djACoG 157 | oDw3DMCb3KibyzEAFQNQnhsG4E1u1M3lGICKASjPDQPwJjfq5nIMQMUAlOeGAXiTG3VzOQagYgDKc8MA 158 | vMmNurkcA1AxAOW5YQDe5EbdXI4BqBiA8twwAG9yo24uxwBUDEB5bhiAN7lRN5djACoGoDw3DMCb3Kib 159 | yzEAFQNQnhsG4E1u1M3lGICKASjPDQPwJjfq5nIMQMUAlOeGAXiTG3VzOQagYgDKc8MAvMmNurkcA1Ax 160 | AOW5YQDe5EbdXI4BqBiA8twwAG9yo24uxwD8r3z8938A+AscmcDB5/sAAAAASUVORK5CYII= 161 | 162 | 163 | -------------------------------------------------------------------------------- /Albireo/Albireo.vbproj: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Debug 6 | AnyCPU 7 | {7AC587AB-3208-48C2-8774-89460EC0A949} 8 | WinExe 9 | Albireo.My.MyApplication 10 | Albireo 11 | Albireo 12 | 512 13 | WindowsForms 14 | v4.7.2 15 | true 16 | true 17 | 18 | 19 | AnyCPU 20 | true 21 | full 22 | true 23 | true 24 | bin\Debug\ 25 | Albireo.xml 26 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 27 | 28 | 29 | AnyCPU 30 | pdbonly 31 | false 32 | true 33 | true 34 | bin\Release\ 35 | Albireo.xml 36 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 37 | 38 | 39 | On 40 | 41 | 42 | Binary 43 | 44 | 45 | Off 46 | 47 | 48 | On 49 | 50 | 51 | 52 | ..\packages\Microsoft.WindowsAPICodePack-Core.1.1.0.0\lib\Microsoft.WindowsAPICodePack.dll 53 | 54 | 55 | ..\packages\Microsoft.WindowsAPICodePack-Shell.1.1.0.0\lib\Microsoft.WindowsAPICodePack.Shell.dll 56 | 57 | 58 | ..\packages\Microsoft.WindowsAPICodePack-Shell.1.1.0.0\lib\Microsoft.WindowsAPICodePack.ShellExtensions.dll 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | ActivityTile.vb 91 | 92 | 93 | UserControl 94 | 95 | 96 | AppTile.vb 97 | 98 | 99 | UserControl 100 | 101 | 102 | Backfrm.vb 103 | 104 | 105 | Form 106 | 107 | 108 | explorer_shell.vb 109 | 110 | 111 | Form 112 | 113 | 114 | filebtn.vb 115 | 116 | 117 | UserControl 118 | 119 | 120 | 121 | Form 122 | 123 | 124 | Start_Menu.vb 125 | Form 126 | 127 | 128 | 129 | True 130 | Application.myapp 131 | 132 | 133 | True 134 | True 135 | Resources.resx 136 | 137 | 138 | True 139 | Settings.settings 140 | True 141 | 142 | 143 | SearchBox.vb 144 | 145 | 146 | UserControl 147 | 148 | 149 | separator.vb 150 | 151 | 152 | UserControl 153 | 154 | 155 | 156 | 157 | 158 | 159 | 160 | 161 | 162 | taskbar.vb 163 | 164 | 165 | Form 166 | 167 | 168 | taskbarbutton.vb 169 | 170 | 171 | UserControl 172 | 173 | 174 | UserTile.vb 175 | 176 | 177 | UserControl 178 | 179 | 180 | 181 | 182 | ActivityTile.vb 183 | 184 | 185 | AppTile.vb 186 | 187 | 188 | Backfrm.vb 189 | 190 | 191 | explorer_shell.vb 192 | 193 | 194 | filebtn.vb 195 | 196 | 197 | Start_Menu.vb 198 | 199 | 200 | VbMyResourcesResXFileCodeGenerator 201 | Resources.Designer.vb 202 | My.Resources 203 | Designer 204 | 205 | 206 | SearchBox.vb 207 | 208 | 209 | separator.vb 210 | 211 | 212 | taskbar.vb 213 | 214 | 215 | taskbarbutton.vb 216 | 217 | 218 | UserTile.vb 219 | 220 | 221 | 222 | 223 | MyApplicationCodeGenerator 224 | Application.Designer.vb 225 | 226 | 227 | SettingsSingleFileGenerator 228 | My 229 | Settings.Designer.vb 230 | 231 | 232 | 233 | 234 | 235 | 236 | {F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 237 | 1 238 | 0 239 | 0 240 | tlbimp 241 | False 242 | True 243 | 244 | 245 | 246 | -------------------------------------------------------------------------------- /Albireo/Start_Menu.Designer.vb: -------------------------------------------------------------------------------- 1 | 2 | Partial Class Start_Menu 3 | Inherits System.Windows.Forms.Form 4 | 5 | 'Form overrides dispose to clean up the component list. 6 | 7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean) 8 | Try 9 | If disposing AndAlso components IsNot Nothing Then 10 | components.Dispose() 11 | End If 12 | Finally 13 | MyBase.Dispose(disposing) 14 | End Try 15 | End Sub 16 | 17 | 'Required by the Windows Form Designer 18 | Private components As System.ComponentModel.IContainer 19 | 20 | 'NOTE: The following procedure is required by the Windows Form Designer 21 | 'It can be modified using the Windows Form Designer. 22 | 'Do not modify it using the code editor. 23 | 24 | Private Sub InitializeComponent() 25 | Me.components = New System.ComponentModel.Container() 26 | Me.Header = New System.Windows.Forms.Panel() 27 | Me.UCon = New System.Windows.Forms.Panel() 28 | Me.UserTile1 = New Albireo.UserTile() 29 | Me.Panel2 = New System.Windows.Forms.Panel() 30 | Me.Panel3 = New System.Windows.Forms.Panel() 31 | Me.SearchBox1 = New Albireo.SearchBox() 32 | Me.Sep = New System.Windows.Forms.Panel() 33 | Me.UserGreet = New System.Windows.Forms.Button() 34 | Me.Button1 = New System.Windows.Forms.Button() 35 | Me.AppList = New System.Windows.Forms.FlowLayoutPanel() 36 | Me.Shad = New System.Windows.Forms.Panel() 37 | Me.Panel1 = New System.Windows.Forms.Panel() 38 | Me.Button2 = New System.Windows.Forms.Button() 39 | Me.Libs = New System.Windows.Forms.FlowLayoutPanel() 40 | Me.Recents = New System.Windows.Forms.FlowLayoutPanel() 41 | Me.lbl2 = New System.Windows.Forms.LinkLabel() 42 | Me.lbl1 = New System.Windows.Forms.LinkLabel() 43 | Me.Timer2 = New System.Windows.Forms.Timer(Me.components) 44 | Me.Timer3 = New System.Windows.Forms.Timer(Me.components) 45 | Me.Header.SuspendLayout() 46 | Me.UCon.SuspendLayout() 47 | Me.Panel3.SuspendLayout() 48 | Me.Panel1.SuspendLayout() 49 | Me.SuspendLayout() 50 | ' 51 | 'Header 52 | ' 53 | Me.Header.BackColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 54 | Me.Header.Controls.Add(Me.UCon) 55 | Me.Header.Controls.Add(Me.Panel3) 56 | Me.Header.Dock = System.Windows.Forms.DockStyle.Top 57 | Me.Header.Location = New System.Drawing.Point(0, 0) 58 | Me.Header.Margin = New System.Windows.Forms.Padding(2) 59 | Me.Header.Name = "Header" 60 | Me.Header.Size = New System.Drawing.Size(1066, 125) 61 | Me.Header.TabIndex = 0 62 | ' 63 | 'UCon 64 | ' 65 | Me.UCon.Controls.Add(Me.UserTile1) 66 | Me.UCon.Controls.Add(Me.Panel2) 67 | Me.UCon.Dock = System.Windows.Forms.DockStyle.Fill 68 | Me.UCon.Location = New System.Drawing.Point(0, 0) 69 | Me.UCon.Margin = New System.Windows.Forms.Padding(2) 70 | Me.UCon.Name = "UCon" 71 | Me.UCon.Size = New System.Drawing.Size(614, 125) 72 | Me.UCon.TabIndex = 0 73 | ' 74 | 'UserTile1 75 | ' 76 | Me.UserTile1.AutoSize = True 77 | Me.UserTile1.BackColor = System.Drawing.Color.FromArgb(CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer), CType(CType(10, Byte), Integer)) 78 | Me.UserTile1.Dock = System.Windows.Forms.DockStyle.Fill 79 | Me.UserTile1.Location = New System.Drawing.Point(20, 0) 80 | Me.UserTile1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) 81 | Me.UserTile1.Name = "UserTile1" 82 | Me.UserTile1.Size = New System.Drawing.Size(594, 125) 83 | Me.UserTile1.TabIndex = 1 84 | ' 85 | 'Panel2 86 | ' 87 | Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left 88 | Me.Panel2.Location = New System.Drawing.Point(0, 0) 89 | Me.Panel2.Margin = New System.Windows.Forms.Padding(2) 90 | Me.Panel2.Name = "Panel2" 91 | Me.Panel2.Size = New System.Drawing.Size(20, 125) 92 | Me.Panel2.TabIndex = 0 93 | ' 94 | 'Panel3 95 | ' 96 | Me.Panel3.Controls.Add(Me.SearchBox1) 97 | Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right 98 | Me.Panel3.Location = New System.Drawing.Point(614, 0) 99 | Me.Panel3.Margin = New System.Windows.Forms.Padding(2) 100 | Me.Panel3.Name = "Panel3" 101 | Me.Panel3.Size = New System.Drawing.Size(452, 125) 102 | Me.Panel3.TabIndex = 1 103 | ' 104 | 'SearchBox1 105 | ' 106 | Me.SearchBox1.Location = New System.Drawing.Point(27, 41) 107 | Me.SearchBox1.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2) 108 | Me.SearchBox1.Name = "SearchBox1" 109 | Me.SearchBox1.Size = New System.Drawing.Size(394, 42) 110 | Me.SearchBox1.TabIndex = 0 111 | ' 112 | 'Sep 113 | ' 114 | Me.Sep.BackColor = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer)) 115 | Me.Sep.Location = New System.Drawing.Point(615, 150) 116 | Me.Sep.Margin = New System.Windows.Forms.Padding(2) 117 | Me.Sep.Name = "Sep" 118 | Me.Sep.Size = New System.Drawing.Size(2, 505) 119 | Me.Sep.TabIndex = 1 120 | ' 121 | 'UserGreet 122 | ' 123 | Me.UserGreet.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer)) 124 | Me.UserGreet.FlatAppearance.BorderSize = 0 125 | Me.UserGreet.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent 126 | Me.UserGreet.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent 127 | Me.UserGreet.FlatStyle = System.Windows.Forms.FlatStyle.Flat 128 | Me.UserGreet.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold) 129 | Me.UserGreet.ForeColor = System.Drawing.SystemColors.ButtonShadow 130 | Me.UserGreet.Location = New System.Drawing.Point(0, 145) 131 | Me.UserGreet.Name = "UserGreet" 132 | Me.UserGreet.Size = New System.Drawing.Size(140, 54) 133 | Me.UserGreet.TabIndex = 15 134 | Me.UserGreet.Text = "My Apps" 135 | Me.UserGreet.UseVisualStyleBackColor = True 136 | ' 137 | 'Button1 138 | ' 139 | Me.Button1.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer)) 140 | Me.Button1.FlatAppearance.BorderSize = 0 141 | Me.Button1.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent 142 | Me.Button1.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent 143 | Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 144 | Me.Button1.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold) 145 | Me.Button1.ForeColor = System.Drawing.SystemColors.ButtonShadow 146 | Me.Button1.Location = New System.Drawing.Point(618, 145) 147 | Me.Button1.Name = "Button1" 148 | Me.Button1.Size = New System.Drawing.Size(153, 54) 149 | Me.Button1.TabIndex = 16 150 | Me.Button1.Text = "Recent Files" 151 | Me.Button1.UseVisualStyleBackColor = True 152 | ' 153 | 'AppList 154 | ' 155 | Me.AppList.AutoScroll = True 156 | Me.AppList.Location = New System.Drawing.Point(20, 197) 157 | Me.AppList.Margin = New System.Windows.Forms.Padding(2) 158 | Me.AppList.Name = "AppList" 159 | Me.AppList.Size = New System.Drawing.Size(619, 457) 160 | Me.AppList.TabIndex = 17 161 | ' 162 | 'Shad 163 | ' 164 | Me.Shad.Dock = System.Windows.Forms.DockStyle.Top 165 | Me.Shad.Location = New System.Drawing.Point(0, 125) 166 | Me.Shad.Name = "Shad" 167 | Me.Shad.Size = New System.Drawing.Size(1066, 13) 168 | Me.Shad.TabIndex = 28 169 | ' 170 | 'Panel1 171 | ' 172 | Me.Panel1.Controls.Add(Me.Button2) 173 | Me.Panel1.Controls.Add(Me.Libs) 174 | Me.Panel1.Controls.Add(Me.Recents) 175 | Me.Panel1.Location = New System.Drawing.Point(621, 197) 176 | Me.Panel1.Margin = New System.Windows.Forms.Padding(2) 177 | Me.Panel1.Name = "Panel1" 178 | Me.Panel1.Size = New System.Drawing.Size(436, 457) 179 | Me.Panel1.TabIndex = 29 180 | ' 181 | 'Button2 182 | ' 183 | Me.Button2.FlatAppearance.BorderColor = System.Drawing.Color.FromArgb(CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(30, Byte), Integer)) 184 | Me.Button2.FlatAppearance.BorderSize = 0 185 | Me.Button2.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Transparent 186 | Me.Button2.FlatAppearance.MouseOverBackColor = System.Drawing.Color.Transparent 187 | Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat 188 | Me.Button2.Font = New System.Drawing.Font("Segoe UI", 14.25!, System.Drawing.FontStyle.Bold) 189 | Me.Button2.ForeColor = System.Drawing.SystemColors.ButtonShadow 190 | Me.Button2.Location = New System.Drawing.Point(1, 266) 191 | Me.Button2.Name = "Button2" 192 | Me.Button2.Size = New System.Drawing.Size(123, 42) 193 | Me.Button2.TabIndex = 20 194 | Me.Button2.Text = "Libraries" 195 | Me.Button2.UseVisualStyleBackColor = True 196 | ' 197 | 'Libs 198 | ' 199 | Me.Libs.Location = New System.Drawing.Point(21, 314) 200 | Me.Libs.Margin = New System.Windows.Forms.Padding(2) 201 | Me.Libs.Name = "Libs" 202 | Me.Libs.Size = New System.Drawing.Size(415, 128) 203 | Me.Libs.TabIndex = 19 204 | ' 205 | 'Recents 206 | ' 207 | Me.Recents.Location = New System.Drawing.Point(21, 37) 208 | Me.Recents.Margin = New System.Windows.Forms.Padding(2) 209 | Me.Recents.Name = "Recents" 210 | Me.Recents.Size = New System.Drawing.Size(413, 211) 211 | Me.Recents.TabIndex = 0 212 | ' 213 | 'lbl2 214 | ' 215 | Me.lbl2.ActiveLinkColor = System.Drawing.Color.Gainsboro 216 | Me.lbl2.AutoSize = True 217 | Me.lbl2.Font = New System.Drawing.Font("Segoe UI", 10.0!) 218 | Me.lbl2.LinkBehavior = System.Windows.Forms.LinkBehavior.NeverUnderline 219 | Me.lbl2.LinkColor = System.Drawing.Color.DodgerBlue 220 | Me.lbl2.Location = New System.Drawing.Point(945, 165) 221 | Me.lbl2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) 222 | Me.lbl2.Name = "lbl2" 223 | Me.lbl2.Size = New System.Drawing.Size(97, 19) 224 | Me.lbl2.TabIndex = 30 225 | Me.lbl2.TabStop = True 226 | Me.lbl2.Text = "Open Timeline" 227 | Me.lbl2.VisitedLinkColor = System.Drawing.Color.DodgerBlue 228 | ' 229 | 'lbl1 230 | ' 231 | Me.lbl1.ActiveLinkColor = System.Drawing.Color.Gainsboro 232 | Me.lbl1.AutoSize = True 233 | Me.lbl1.Font = New System.Drawing.Font("Segoe UI", 10.0!) 234 | Me.lbl1.LinkBehavior = System.Windows.Forms.LinkBehavior.NeverUnderline 235 | Me.lbl1.LinkColor = System.Drawing.Color.DodgerBlue 236 | Me.lbl1.Location = New System.Drawing.Point(535, 165) 237 | Me.lbl1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) 238 | Me.lbl1.Name = "lbl1" 239 | Me.lbl1.Size = New System.Drawing.Size(59, 19) 240 | Me.lbl1.TabIndex = 31 241 | Me.lbl1.TabStop = True 242 | Me.lbl1.Text = "All Apps" 243 | Me.lbl1.VisitedLinkColor = System.Drawing.Color.DodgerBlue 244 | ' 245 | 'Timer2 246 | ' 247 | Me.Timer2.Interval = 10 248 | ' 249 | 'Timer3 250 | ' 251 | Me.Timer3.Interval = 10 252 | ' 253 | 'Start_Menu 254 | ' 255 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 256 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 257 | Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer), CType(CType(20, Byte), Integer)) 258 | Me.ClientSize = New System.Drawing.Size(1066, 677) 259 | Me.Controls.Add(Me.Sep) 260 | Me.Controls.Add(Me.Panel1) 261 | Me.Controls.Add(Me.lbl1) 262 | Me.Controls.Add(Me.lbl2) 263 | Me.Controls.Add(Me.Shad) 264 | Me.Controls.Add(Me.AppList) 265 | Me.Controls.Add(Me.Button1) 266 | Me.Controls.Add(Me.UserGreet) 267 | Me.Controls.Add(Me.Header) 268 | Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None 269 | Me.Margin = New System.Windows.Forms.Padding(2) 270 | Me.Name = "Start_Menu" 271 | Me.Opacity = 0R 272 | Me.ShowIcon = False 273 | Me.ShowInTaskbar = False 274 | Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen 275 | Me.Text = "Start" 276 | Me.TopMost = True 277 | Me.Header.ResumeLayout(False) 278 | Me.UCon.ResumeLayout(False) 279 | Me.UCon.PerformLayout() 280 | Me.Panel3.ResumeLayout(False) 281 | Me.Panel1.ResumeLayout(False) 282 | Me.ResumeLayout(False) 283 | Me.PerformLayout() 284 | 285 | End Sub 286 | 287 | Friend WithEvents Header As Panel 288 | Friend WithEvents UCon As Panel 289 | Friend WithEvents Panel3 As Panel 290 | Friend WithEvents Panel2 As Panel 291 | Friend WithEvents Sep As Panel 292 | Friend WithEvents UserGreet As Button 293 | Friend WithEvents Button1 As Button 294 | Friend WithEvents UserTile1 As UserTile 295 | Friend WithEvents SearchBox1 As SearchBox 296 | Friend WithEvents AppList As FlowLayoutPanel 297 | Friend WithEvents Shad As Panel 298 | Friend WithEvents Panel1 As Panel 299 | Friend WithEvents Button2 As Button 300 | Friend WithEvents Libs As FlowLayoutPanel 301 | Friend WithEvents Recents As FlowLayoutPanel 302 | Friend WithEvents lbl2 As LinkLabel 303 | Friend WithEvents lbl1 As LinkLabel 304 | Friend WithEvents Timer2 As Timer 305 | Friend WithEvents Timer3 As Timer 306 | End Class 307 | -------------------------------------------------------------------------------- /Albireo/Start_Menu.vb: -------------------------------------------------------------------------------- 1 | Imports System.ComponentModel 2 | Imports System.Drawing.Drawing2D 3 | Imports System.IO 4 | Imports System.Runtime.InteropServices 5 | Imports IWshRuntimeLibrary 6 | Imports Microsoft.Win32 7 | Imports System.Collections.ObjectModel 8 | 9 | Imports System.Text 10 | Imports Microsoft.WindowsAPICodePack.Shell 11 | Imports System.Windows.Media.Imaging 12 | 13 | Public Class Start_Menu 14 | Dim pinnedapps As String = CStr("C:\Users\" & GetUserName() & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\") 15 | Dim libraries As String = CStr("C:\Users\" & GetUserName() & "\") 16 | Dim recent As String = CStr("C:\Users\" & GetUserName() & "\AppData\Roaming\Microsoft\Windows\Recent\") 17 | Dim allapps As String = CStr("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\") 18 | Dim objShell = CreateObject("Shell.Application") 19 | 20 | Declare Function GetUserName Lib "advapi32.dll" Alias _ 21 | "GetUserNameA" (ByVal lpBuffer As String, 22 | ByRef nSize As Integer) As Integer 23 | Public colorSystemAccent As UInteger = GetImmersiveColorFromColorSetEx(GetImmersiveUserColorSetPreference(False, False), GetImmersiveColorTypeFromName(Marshal.StringToHGlobalUni("ImmersiveSystemAccent")), False, 0) 24 | Public colorAccent As System.Drawing.Color = System.Drawing.Color.FromArgb((&HFF000000 And colorSystemAccent) >> 24, &HFF And colorSystemAccent, (&HFF00 And colorSystemAccent) >> 8, (&HFF0000 And colorSystemAccent) >> 16) 25 | 26 | 27 | Public Shared Function GetImmersiveColorFromColorSetEx(ByVal dwImmersiveColorSet As UInteger, ByVal dwImmersiveColorType As UInteger, ByVal bIgnoreHighContrast As Boolean, ByVal dwHighContrastCacheMode As UInteger) As UInteger 28 | End Function 29 | 30 | Public Shared Function GetImmersiveColorTypeFromName(ByVal pName As IntPtr) As UInteger 31 | End Function 32 | 33 | Public Shared Function GetImmersiveUserColorSetPreference(ByVal bForceCheckRegistry As Boolean, ByVal bSkipCheckOnFail As Boolean) As UInteger 34 | End Function 35 | Public Function GetUserName() As String 36 | Dim iReturn As Integer 37 | Dim userName As String 38 | userName = New String(CChar(" "), 50) 39 | iReturn = GetUserName(userName, 50) 40 | GetUserName = userName.Substring(0, userName.IndexOf(Chr(0))) 41 | End Function 42 | Private Sub roundthethingy(oj As Object, rad As Integer) 43 | Dim p As New Drawing2D.GraphicsPath() 44 | p.StartFigure() 45 | p.AddArc(New Rectangle(0, 0, rad, rad), 180, 90) 46 | p.AddLine(rad, 0, oj.Width - rad, 0) 47 | p.AddArc(New Rectangle(oj.Width - rad, 0, rad, rad), -90, 90) 48 | p.AddLine(oj.Width, rad, oj.Width, oj.Height - rad) 49 | p.AddArc(New Rectangle(oj.Width - rad, oj.Height - rad, rad, rad), 0, 90) 50 | p.AddLine(oj.Width - rad, oj.Height, rad, oj.Height) 51 | p.AddArc(New Rectangle(0, oj.Height - rad, rad, rad), 90, 90) 52 | p.CloseFigure() 53 | oj.Region = New Region(p) 54 | End Sub 55 | Private Sub StartMenu_Deactivate(sender As Object, e As EventArgs) Handles Me.Deactivate 56 | If Timer2.Enabled = False And Opacity > 0.88 Then 57 | Timer3.Enabled = True 58 | Timer3.Start() 59 | End If 60 | End Sub 61 | Private Sub Content_Load(sender As Object, e As EventArgs) Handles MyBase.Load 62 | Timer2.Enabled = True 63 | Backfrm.Show() 64 | Backfrm.Size = Size 65 | BringToFront() 66 | Timer2.Start() 67 | lbl1.LinkColor = colorAccent 68 | lbl2.LinkColor = colorAccent 69 | roundthethingy(Me, 20) 70 | Populate(pinnedapps, AppList) 71 | Populate(libraries, Libs) 72 | Populate(recent, Recents) 73 | SurroundingSub() 74 | End Sub 75 | 76 | Private Sub Rescale(scale_factor As Single, bm_source As Bitmap, source As AppTile) 77 | 78 | Dim bm_dest As New Bitmap( 79 | CInt(bm_source.Width * scale_factor), 80 | CInt(bm_source.Height * scale_factor)) 81 | Dim gr_dest As Graphics = Graphics.FromImage(bm_dest) 82 | 83 | gr_dest.DrawImage(bm_source, 0, 0, 84 | bm_dest.Width + 1, 85 | bm_dest.Height + 1) 86 | 87 | source.Det.Image = bm_dest 88 | End Sub 89 | 90 | Private Sub Rescale001(scale_factor As Single, bm_source As Bitmap, source As ActivityTile) 91 | 92 | Dim bm_dest As New Bitmap( 93 | CInt(bm_source.Width * scale_factor), 94 | CInt(bm_source.Height * scale_factor)) 95 | Dim gr_dest As Graphics = Graphics.FromImage(bm_dest) 96 | 97 | gr_dest.DrawImage(bm_source, 0, 0, 98 | bm_dest.Width + 1, 99 | bm_dest.Height + 1) 100 | source.ActivityIcon.BackgroundImage = bm_dest 101 | End Sub 102 | Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick 103 | Opacity += 0.08 104 | Backfrm.Opacity += 0.08 105 | If Opacity >= 0.9 Then 106 | Timer2.Stop() 107 | 'Timer3.Enabled = True 108 | 'Timer3.Start() 109 | Timer2.Enabled = False 110 | Opacity = 0.93 111 | Backfrm.Opacity = 1 112 | End If 113 | 114 | End Sub 115 | 116 | Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick 117 | Timer2.Enabled = False 118 | Timer2.Stop() 119 | Opacity -= 0.085 120 | Backfrm.Opacity -= 0.08 121 | If Opacity <= 0.1 Then 122 | Timer3.Enabled = False 123 | Timer3.Stop() 124 | Close() 125 | End 126 | End If 127 | End Sub 128 | Private Sub Populate(Fpsth As String, pnl As FlowLayoutPanel) 129 | If Not Fpsth Is Nothing AndAlso Directory.Exists(Fpsth) Then 130 | 131 | Try 132 | If pnl.Name = AppList.Name Then 133 | If lbl1.Text <> "All Apps" Then 134 | For Each file As String In Directory.GetFiles(Fpsth) 135 | If Path.GetFileName(file).Contains(".ini") = False Then 136 | Dim appx As New AppTile 137 | Dim appicon = AddIcon(file, 1) 138 | appx.Det.BackColor = pnl.BackColor 139 | Dim appname = Path.GetFileNameWithoutExtension(file) 140 | appx.Det.Text = appname 141 | appx.Det.Image = appicon 142 | Rescale(0.7, appx.Det.Image, appx) 143 | appx.Tag = file 144 | 'appx.BackColor = colorAccent 145 | pnl.Controls.Add(appx) 146 | End If 147 | Next 148 | Else 149 | For Each file As String In Directory.GetFiles(Fpsth) 150 | If Path.GetFileName(file).Contains(".ini") = False Then 151 | Dim appx As New AppTile 152 | Dim appicon = AddIcon(file, 1) 153 | appx.Det.BackColor = pnl.BackColor 154 | Dim appname = Path.GetFileNameWithoutExtension(file) 155 | appx.Det.Text = appname 156 | appx.Det.Image = appicon 157 | Rescale(0.7, appx.Det.Image, appx) 158 | appx.Tag = file 159 | 'appx.BackColor = colorAccent 160 | pnl.Controls.Add(appx) 161 | End If 162 | Next 163 | For Each fldr As String In Directory.GetDirectories(Fpsth) 164 | For Each file As String In Directory.GetFiles(fldr) 165 | If Path.GetFileName(file).Contains(".lnk") Then 166 | Dim appx As New AppTile 167 | Dim appicon = AddIcon(file, 1) 168 | appx.Det.BackColor = pnl.BackColor 169 | Dim appname = Path.GetFileNameWithoutExtension(file) 170 | appx.Det.Text = appname 171 | appx.Det.Image = appicon 172 | Rescale(0.7, appx.Det.Image, appx) 173 | appx.Tag = file 174 | 'appx.BackColor = colorAccent 175 | pnl.Controls.Add(appx) 176 | End If 177 | Next 178 | Next 179 | End If 180 | ElseIf pnl.Name = Libs.Name Then 181 | For Each fldr As String In Directory.GetDirectories(Fpsth) 182 | If fldr.Contains("OneDrive") Or fldr.Contains("Videos") Or fldr.Contains("Music") Or fldr.Contains("Downloads") Or fldr.Contains("Desktop") Or fldr.Contains("3D Objects") Then 183 | Dim appx As New AppTile 184 | Dim appicon = AddIcon(fldr, 1) 185 | appx.Det.BackColor = pnl.BackColor 186 | Dim appname = Path.GetFileNameWithoutExtension(fldr) 187 | appx.Det.Text = appname 188 | appx.Det.Image = appicon 189 | Rescale(0.5, appx.Det.Image, appx) 190 | appx.Tag = fldr 191 | appx.Width -= 34 192 | pnl.Controls.Add(appx) 193 | End If 194 | Next 195 | ElseIf pnl.Name = Recents.Name Then 196 | Dim n As Integer = 0 197 | For Each file As String In Directory.GetFiles(Fpsth) 198 | n = pnl.Controls.Count 199 | If n < 6 Then 200 | If file.Contains(".ini") = False And file.Contains(".sln") = False And file.Contains(".vb") = False And Path.GetFileNameWithoutExtension(file).Contains(".") Then 201 | Dim appicon = AddIcon(file, 1) 202 | Dim appname = Path.GetFileNameWithoutExtension(file) 203 | Dim actx As New ActivityTile 204 | actx.Tag = file 205 | actx.ActivityIcon.Text = appname 206 | actx.ActivityIcon.BackColor = colorAccent 207 | actx.BackgroundImageLayout = ImageLayout.Center 208 | actx.ActivityIcon.BackgroundImage = appicon 209 | If file.Contains(".docx") Or file.Contains(".doc") Then 210 | actx.ActivityIcon.BackColor = Color.FromArgb(255, 10, 66, 165) 211 | actx.ActivityIcon.BackgroundImage = Nothing 212 | ElseIf file.Contains(".pptx") Or file.Contains(".ppt") Then 213 | actx.ActivityIcon.BackColor = Color.FromArgb(255, 211, 82, 48) 214 | actx.ActivityIcon.BackgroundImage = Nothing 215 | ElseIf file.Contains(".xlsx") Then 216 | actx.ActivityIcon.BackColor = Color.FromArgb(255, 14, 117, 60) 217 | actx.ActivityIcon.BackgroundImage = Nothing 218 | End If 219 | Try 220 | If file.Contains(".bmp") Or file.Contains(".png") Or file.Contains(".jpg") Then 221 | file = GetTargetPath(file) 222 | actx.ActivityIcon.BackgroundImage = Image.FromFile(file) 223 | actx.ActivityIcon.BackgroundImageLayout = ImageLayout.Center 224 | End If 225 | Catch ex As Exception 226 | 227 | End Try 228 | pnl.Controls.Add(actx) 229 | End If 230 | Else 231 | 232 | End If 233 | Next 234 | End If 235 | 236 | Catch 237 | 238 | End Try 239 | End If 240 | End Sub 241 | Private Function GetTargetPath(LinkFilename As String) As String 242 | Dim scpath As String = "" 243 | If LinkFilename.ToLower.EndsWith(".lnk") Then 244 | Dim theShell As New WshShell() 245 | Dim theShortcut As WshShortcut = CType(theShell.CreateShortcut(LinkFilename), WshShortcut) 246 | scpath = theShortcut.TargetPath 247 | System.Runtime.InteropServices.Marshal.ReleaseComObject(theShortcut) 248 | System.Runtime.InteropServices.Marshal.ReleaseComObject(theShell) 249 | End If 250 | Return scpath 251 | End Function 252 | 253 | Private Sub Shad_Paint(sender As Object, e As PaintEventArgs) Handles Shad.Paint 254 | Dim TheControl As Control = CType(sender, Control) 255 | Dim oRAngle As Rectangle = New Rectangle(0, 0, TheControl.Width, TheControl.Height) 256 | Dim oGradientBrush As Brush = New LinearGradientBrush( 257 | oRAngle, Color.FromArgb(200, 0, 0, 0), 258 | Color.Transparent, 259 | Drawing.Drawing2D _ 260 | .LinearGradientMode.Vertical) 261 | e.Graphics.FillRectangle(oGradientBrush, oRAngle) 262 | End Sub 263 | Private Function AddIcon(fname As String, mode As Integer) 264 | Dim size 265 | If mode = 1 Then 266 | size = CType(ExtractLargeIconFromFile.ShellEx.IconSizeEnum.LargeIcon48, ExtractLargeIconFromFile.ShellEx.IconSizeEnum) 267 | ElseIf mode = 2 Then 268 | size = CType(ExtractLargeIconFromFile.ShellEx.IconSizeEnum.MediumIcon32, ExtractLargeIconFromFile.ShellEx.IconSizeEnum) 269 | End If 270 | #Disable Warning BC42104 271 | Return ExtractLargeIconFromFile.ShellEx.GetBitmapFromFilePath(fname, size) 272 | #Enable Warning BC42104 273 | End Function 274 | 275 | Private Sub lbl1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lbl2.LinkClicked 276 | objShell.WindowSwitcher 277 | Timer3.Enabled = True 278 | Timer3.Start() 279 | End Sub 280 | 281 | Private Sub Start_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing 282 | 283 | End Sub 284 | 285 | Private Sub Start_ControlRemoved(sender As Object, e As ControlEventArgs) Handles Me.ControlRemoved 286 | 287 | End Sub 288 | 289 | Private Sub lbl1_Click(sender As Object, e As EventArgs) Handles lbl1.Click 290 | For Each j In AppList.Controls 291 | j.Dispose() 292 | Next 293 | AppList.Controls.Clear() 294 | If lbl1.Text = "All Apps" Then 295 | For i = 1 To Len("0123456789abcdefghijklmnopqrstuvwxyz") - 1 296 | Dim sep As New separator 297 | sep.txtme.Text = "0123456789abcdefghijklmnopqrstuvwxyz".Substring(i, 1).ToUpper 298 | AppList.Controls.Add(sep) 299 | Dim n As Integer = 0 300 | For Each k As AppTile In als.Controls 301 | If k.Det.Text.ToLower.StartsWith("0123456789abcdefghijklmnopqrstuvwxyz".Substring(i, 1)) Then 302 | AppList.Controls.Add(k) 303 | n += 1 304 | End If 305 | Next 306 | If n = 0 Then 307 | AppList.Controls.Remove(sep) 308 | End If 309 | Next 310 | lbl1.Text = "Pinned" 311 | Else 312 | Populate(pinnedapps, AppList) 313 | lbl1.Text = "All Apps" 314 | End If 315 | End Sub 316 | Dim als As New FlowLayoutPanel 317 | 318 | Private Sub SurroundingSub() 319 | Dim FODLERID_AppsFolder = New Guid("{1e87508d-89c2-42f0-8a7e-645a0f50ca58}") 320 | Dim appsFolder As ShellObject = CType(KnownFolderHelper.FromKnownFolderId(FODLERID_AppsFolder), ShellObject) 321 | For Each app In CType(appsFolder, IKnownFolder) 322 | Dim appx As New AppTile 323 | Dim appicon = app.Thumbnail.SmallBitmapSource 324 | appx.Det.BackColor = AppList.BackColor 325 | Dim appname = app.Name 326 | appx.Det.Text = appname 327 | appx.Det.Image = BitmapFromSource(appicon) 328 | Rescale(0.7, appx.Det.Image, appx) 329 | appx.Tag = app.Properties.System.ParsingPath.Value 330 | als.Controls.Add(appx) 331 | Next 332 | 333 | End Sub 334 | 335 | Private Function BitmapFromSource(ByVal bitmapsource As BitmapSource) As System.Drawing.Bitmap 336 | Dim bitmap As System.Drawing.Bitmap 337 | Using outStream As MemoryStream = New MemoryStream() 338 | Dim enc As BitmapEncoder = New BmpBitmapEncoder() 339 | enc.Frames.Add(BitmapFrame.Create(bitmapsource)) 340 | enc.Save(outStream) 341 | bitmap = New System.Drawing.Bitmap(outStream) 342 | End Using 343 | Return bitmap 344 | End Function 345 | 346 | Private Sub Lbl1_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lbl1.LinkClicked 347 | 348 | End Sub 349 | End Class 350 | --------------------------------------------------------------------------------