在VC 6.0中添加和取消批量注釋的功能
首先,在VC 6.0中添加和取消批量注釋的功能,你需要打開(kāi)VC 6.0,并選擇“文件”,然后選擇要新建的文件類型。給文件起名字并設(shè)置文件要保存的位置。接下來(lái),填寫相應(yīng)的描述信息,確保準(zhǔn)確地描述你的代碼
首先,在VC 6.0中添加和取消批量注釋的功能,你需要打開(kāi)VC 6.0,并選擇“文件”,然后選擇要新建的文件類型。給文件起名字并設(shè)置文件要保存的位置。
接下來(lái),填寫相應(yīng)的描述信息,確保準(zhǔn)確地描述你的代碼。然后輸入代碼,完成之后點(diǎn)擊保存并關(guān)閉VC 6.0。
以下是一段示例代碼:
```
Sub SetSelNote()
' DESCRIPTION: 過(guò)程SetSelNote用于將選中的文本轉(zhuǎn)換為注釋
Dim CurWin '當(dāng)前獲得的窗口
Set CurWin ActiveWindow
If CurWin.Type <> "Text" Then '判斷當(dāng)前窗口是否是文本窗口
MsgBox "當(dāng)前窗口不是代碼窗口"
Else
NoteType "http://"
BeginLine
EndLine
If EndLine < BeginLine Then
Line BeginLine
BeginLine EndLine
EndLine Line
Else
For row BeginLine To EndLine
row
NoteType
Next
End If
End If
End Sub
Sub CancelSelNote()
Dim CurWin '當(dāng)前獲得的窗口
Set CurWin ActiveWindow
If CurWin.Type <> "Text" Then '判斷當(dāng)前窗口是否是文本窗口
MsgBox "當(dāng)前窗口不是代碼窗口"
Else
BeginLine
EndLine
If EndLine < BeginLine Then
Line BeginLine
BeginLine EndLine
EndLine Line
Else
For row BeginLine To EndLine
row
SelBlock
SelBlock Trim(SelBlock)
pos InStr(SelBlock, "http://")
If pos <> 0 Then
RightBlock Right(SelBlock, Len(SelBlock) - 2)
RightBlock
End If
Next
End If
End If
End Sub
```
當(dāng)你按照以上步驟設(shè)置完畢后,就會(huì)生成一個(gè).dsm文件。
接下來(lái),打開(kāi)一個(gè)C工程,并選擇Tool(工具)——>Customize(定制)。選擇Add-ins and Macro File(附加項(xiàng)和宏文件),然后選擇剛才制作的Node.dsm文件。勾選上Node,選擇命令,在類別中選擇Macros。
將鼠標(biāo)按住SetSelNote,將其拖到工具欄中,會(huì)彈出對(duì)話框,從中選擇一個(gè)你喜歡的圖標(biāo),然后點(diǎn)擊OK。這個(gè)圖標(biāo)將用于表示“批量注釋”。
CancelSelNote的操作與SetSelNote相同。最后,在工具欄中,你就能看到你自己定義的批量注釋和取消批量注釋的圖標(biāo)了。