Startseite»Website aktualisiert: 28. März 2024

Für Entwickler : Skripte

Zurück zur Liste mit dem Tipps & Tricks

Im folgenden sind Skripte zu sehen, die zur nächsten bzw. vorherigen Funktion springen, was zum navigieren im Quellcode recht praktisch ist. Am besten man legt sie auf einen Hotkey, z.B. Strg+Shift Up/Down. Die Skripte setzen vorraus, daß Funktionen durch eine geschweifte Klammer in der ersten Spalten gekennzeichnet sind:

Sub FunctionUp
'DESCRIPTION: Scrollt aufwärts bis zur nächsten Funktion
   Dim StartLine, LastLine, line

   StartLine  = ActiveDocument.Selection.CurrentLine

   line=StartLine-1
   ActiveDocument.Selection.PageUp
   ActiveDocument.Selection.GoToLine line

   While (line>0)
 	 ActiveDocument.Selection.SelectLine
	 If (InStr(1, ActiveDocument.Selection, "{", vbTextCompare)=1) Then
	    Exit Sub
	 End If

	 line=line-1
	 If ((line Mod 40) = 0) Then
		ActiveDocument.Selection.PageUp
	 End If

 	 ActiveDocument.Selection.GoToLine line
   Wend

   ActiveDocument.Selection.GoToLine StartLine
End Sub

Sub FunctionDown
'DESCRIPTION: Scrollt aufwärts bis zur nächsten Funktion
   Dim StartLine, LastLine, line

   StartLine  = ActiveDocument.Selection.CurrentLine

   line=StartLine+1
   ActiveDocument.Selection.PageDown
   ActiveDocument.Selection.GoToLine line

   While (line = ActiveDocument.Selection.CurrentLine)
 	 ActiveDocument.Selection.SelectLine
	 If (InStr(1, ActiveDocument.Selection, "{", vbTextCompare)=1) Then
	    Exit Sub
	 End If

	 line=line+1
	 If ((line Mod 40) = 0) Then
		ActiveDocument.Selection.PageDown
	 End If

 	 ActiveDocument.Selection.GoToLine line
   Wend

   ActiveDocument.Selection.GoToLine StartLine
End Sub
Sync Outlook · Dateien synchronisieren · Sitemap · PAD · Mobilversion · Datenschutzerklärung · Impressum · © 1999-2024 ITSTH