卖逼视频免费看片|狼人就干网中文字慕|成人av影院导航|人妻少妇精品无码专区二区妖婧|亚洲丝袜视频玖玖|一区二区免费中文|日本高清无码一区|国产91无码小说|国产黄片子视频91sese日韩|免费高清无码成人网站入口

在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)了。

標(biāo)簽: