例如:如何将以下格式:
Private Sub abDDWordPad_ComboSelChange(ByVal tool As ActiveBar2LibraryCtl.tool)
If TypeOf ActiveForm Is IMDIDocument Then
if tool.Name = "miFoFontName" Then
ActiveForm.rtf.SelFontName = tool.Text
ElseIf tool.Name = "miFoFontSize" Then
ActiveForm.rtf.SelFontSize = Val(tool.Text)
End If
        
End If
End Sub

改为:
Private Sub abDDWordPad_ComboSelChange(ByVal tool As ActiveBar2LibraryCtl.tool)
    If TypeOf ActiveForm Is IMDIDocument Then
        If tool.Name = "miFoFontName" Then
            ActiveForm.rtf.SelFontName = tool.Text
        ElseIf tool.Name = "miFoFontSize" Then
            ActiveForm.rtf.SelFontSize = Val(tool.Text)
        End If
        
    End If
End Sub
是否更改哪个设置?谢谢!

我也想知道,研究了半天,可没有发现,可能没有这个功能??不能吧

VB 没有提供将代码格式标准化的自动功能，但是你可以手动操作。当光标指向某一行时，你按下 Tab 键，它就会凹进；按下 Shift + Tab 键，它就会凸出。

谢谢！