Referenzen
IBM, Intel, Microsoft & NASA setzen Easy2Sync ein.
Mehr >
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