Sinisterly
[VB.Net] vMagnifier 1.0 Release + Source - Printable Version

+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.ly/Forum-Visual-Basic-NET-Framework)
+--- Thread: [VB.Net] vMagnifier 1.0 Release + Source (/Thread-VB-Net-vMagnifier-1-0-Release-Source)



[VB.Net] vMagnifier 1.0 Release + Source - Coder-san - 05-12-2011

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:
  • 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]

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()



RE: [VB.Net] vMagnifier 1.0 Release + Source - 1234hotmaster - 05-12-2011

lol i was looking for something like this Biggrin

great source!