Open StdAfx.h and window size/move

Here is one to open the stdafx.h of the current project.


Sub stdafx()
‘DESCRIPTION: Opens the stdafx.h file of the current project.

proj_path = ActiveProject.fullname
ext = “”
pos = len (proj_path)
Do While ext <> “”
ext = Mid(proj_path, pos, 1)
pos = pos -1
Loop
proj_dir = left(proj_path, pos+1) & “stdafx.h”
documents.open proj_dir
End Sub

Something else I found a pain was having to change from the keyboard to
the mouse because the MDI window wasn’t in the correct place or the
wrong size. I wrote the following one-liners and associated them with
the numeric keypad arrows and ctrl and alt to move/resize the windows.
ie Ctrl + Alt and 6 to widen the window. Its not the code more the idea
I find it relieves RSI type strain when using the mouse to often.


Sub WidenWindow()
ActiveWindow.Width = ActiveWindow.Width + 100
End Sub

Sub ShrinkWindow()
ActiveWindow.Width = ActiveWindow.Width – 100
End Sub

Sub MoveWindowLeft()
ActiveWindow.Left = ActiveWindow.Left -30
End Sub

Sub MoveWindowRight()
‘DESCRIPTION: Guess
ActiveWindow.Left = ActiveWindow.Left +30
End Sub

Sub MoveWindowUp()
‘DESCRIPTION: Hmmm… I wonder what this does
ActiveWindow.Top = ActiveWindow.Top -30
End Sub

Sub MoveWindowDown()
ActiveWindow.Top = ActiveWindow.Top +30
End Sub

Sub IncreaseWindowHeight()
ActiveWindow.Height = ActiveWindow.Height +30
End Sub

Sub DecreaseWindowHeight()
ActiveWindow.Height = ActiveWindow.Height -30
End Sub

Sub MoveNW()
ActiveWindow.Left = 0
ActiveWindow.Top = 0
End Sub

More by Author

Previous articleSubselection Dialog
Next articleGDexpi

Must Read