国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

在論壇中或博客中帖VBA代碼時，如果想獲得同VBE窗口中一樣的代碼語法高亮的效果，可以使用這個VBAHtmlMaker的加載宏，這是MrExcel網(wǎng)站上的免費作品，我將它的菜單和提示窗口修改成中文的。
打開這個加載宏后，在VBE窗口中，在菜單“工具”和右鍵菜單中添加了四個菜單：
轉(zhuǎn)換選擇的代碼為HTML
轉(zhuǎn)換當(dāng)前過程為HTML
轉(zhuǎn)換選擇的代碼為BB Code
轉(zhuǎn)換當(dāng)前過程為BB Code

轉(zhuǎn)換完成后將提示已經(jīng)將轉(zhuǎn)換好的代碼復(fù)制到剪貼板，你只需要做的就是粘帖到你需要的地方。

從這個加載宏，也可以學(xué)習(xí)怎樣在VBE窗口中添加菜單項、創(chuàng)建對應(yīng)的事件以及對模塊的操作。
下載：Box.net | SkyDrive
下面是使用這個加載宏轉(zhuǎn)換的代碼（沒有使用WP的插件）：
Option Explicit

Private Declare Function LockWindowUpdate Lib “user32″ (ByVal hwndLock As Long) As Long

‘應(yīng)用程序常量名
Public Const AppCode = “VBHTML”
Public Const AppName = “VB HTML Maker”

‘用來識別BBColor和HTMLColor函數(shù)中的顏色的常數(shù)
Private Const BLACK As Long = 1
Private Const BLUE As Long = 2
Private Const GREEN As Long = 3

Dim cBtn As clsBtn

‘使用BB代碼轉(zhuǎn)換指定文本帶有VBE顏色（黑色，綠色和藍(lán)色）
Private Function BBColor(ByVal Color As Long, ByVal Text As String) As String
    Dim Msg As String
    Msg = “[color="
    Msg = Msg & Choose(Color, "black", "darkblue", "green") & "]“
    Msg = Msg & Text
    Msg = Msg & “[/color]“
    BBColor = Msg
End Function