Open StdAfx.h and window size/move

CodeGuru content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.

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 article
Next article

Get the Free Newsletter!

Subscribe to Developer Insider for top news, trends & analysis

Must Read