[VB.Net] vMagnifier 1.0 Release + Source 05-12-2011, 09:03 AM
#1
vMagnifier 1.0 Release + Source
[altimg=http://i.imgur.com/b3a1t.png]vMagnifier 1.0 By Coder-san[/altimg]
First of all, you must be asking what is the purpose of this app when Windows already has Magnifier?
I don't like Windows Magnifier because in XP it reduces your Screen resolution, and in Windows 7 you are forced to magnify your whole screen.
While vMagnifier is just another Window on your Screen you can move.
Features:
Known Limitations:
[altimg=http://i.imgur.com/b3a1t.png]vMagnifier 1.0 By Coder-san[/altimg]
First of all, you must be asking what is the purpose of this app when Windows already has Magnifier?
I don't like Windows Magnifier because in XP it reduces your Screen resolution, and in Windows 7 you are forced to magnify your whole screen.
While vMagnifier is just another Window on your Screen you can move.
Features:
- Resizable-separate magnified Window
- Magnification level 1x - 4x on -/+ OR [ / ] Hotkey (Form Focus required)
- Optional Always on Top functionality on T Hotkey (Form Focus required)
Known Limitations:
- vMagnifier does not know if your current Windows Cursor is Busy, Arrow or Wait, etc. It always shows the Arrow Cursor.
- To reduce flickering, vMagnifier does not update until you move your Cursor, or change Magnification.
[link=http://www.multiupload.com/U919QF08J2][altimg=http://c.imagehost.org/0663/Download.png]Download vMagnifier 1.0 By Coder-san[/altimg]
vMagnifier 1.0 (68 Kb)[/link]
vMagnifier 1.0 (68 Kb)[/link]
Spoiler: Basic Source
Code:
Dim g As Graphics = Graphics.FromImage(bmp)
Me.BackgroundImage = Nothing
g.CopyFromScreen(New Point(MousePosition.X - (Me.Width / CInt(intMagnify * 2.5) + 4), MousePosition.Y - CInt(Me.Height / (intMagnify * 2.5))), New Point(-3, 0), Me.Size)
DefaultCursor.Draw(g, New Rectangle(New Point((Me.Width / CInt(intMagnify * 2.5)), (Me.Height / CInt(intMagnify * 2.5))), DefaultCursor.Size))
g.DrawImage(bmp, New Rectangle(Point.Empty, New Size(bmp.Width * intMagnify, bmp.Height * intMagnify)), New Rectangle(Point.Empty, bmp.Size), GraphicsUnit.Pixel)
Me.BackgroundImage = bmp
g.Dispose()![[Image: rytwG00.png]](http://i.imgur.com/rytwG00.png)
Redcat Revolution!

![[+]](https://sinister.ly/images/modern/collapse_collapsed.png)
