WindowLeft Example

Using Programming Languages other than VBA

Sub Example_WindowLeft()
	' This example finds the WindowLeft (X coordinate) of the top of the
	' AutoCAD window. It then changes that position to be 100 more
	' than it currently is. Finally, it resets the window to the
	' original value.

	' Find the current value of the WindowLeft property
	Dim currWindowLeft As Integer
	currWindowLeft = ThisDrawing.Application.WindowLeft
	MsgBox "The current value of WindowLeft is " & ThisDrawing.Application.WindowLeft, , "WindowLeft Example"

	' Change the value of WindowLeft
	ThisDrawing.Application.WindowLeft = currWindowLeft + 100
	MsgBox "The new value of WindowLeft is " & ThisDrawing.Application.WindowLeft, , "WindowLeft Example"

	' Reset the value of WindowLeft
	ThisDrawing.Application.WindowLeft = currWindowLeft
	MsgBox "The value of WindowLeft has been reset to " & ThisDrawing.Application.WindowLeft, , "WindowLeft Example"

End Sub

 

   Comments?