VBA中的彩色訊息框

vba中顯示訊息框實在太簡單了，一句msgbox就可以了。

千篇一律的風格，不能漂亮一點兒嗎？我們來給它點兒顏色看看，哈哈

private

declare
function setsyscolors lib
"user32" ( _
byval nchanges as
long, _
lpsyscolor as
long, _
lpcolorvalues as
long) as
long
declare
function getsyscolor lib
"user32" ( _
byval nindex as
long) as
long
const color_windowtext = 8
const color_captiontext = 9
sub custommsgboxfont()
dim lngres as
long
dim lngwintext as
long
dim lngcaptext as
long
lngwintext = getsyscolor(color_windowtext)
lngcaptext = getsyscolor(color_captiontext)
lngres = setsyscolors(1, color_windowtext, vbred)
lngres = setsyscolors(1, color_captiontext, vbyellow)
msgbox "黃色標題，紅色文字！", 32, "彩色提示框"
lngres = setsyscolors(1, color_windowtext, lngwintext)
lngres = setsyscolors(1, color_captiontext, lngcaptext)
msgbox "紅色標題，綠色文字！", 32, "彩色提示框"
endsub

api函式getsyscolor用於讀取系統顏色設定，以便於恢復。setsyscolors函式用於設定系統顏色，引數lpsyscolor指定系統windows物件，**中只使用了color_windowtext（窗體中的文字）和 color_captiontext （標題欄文字）兩個常量，如果需要修改更多元素，請參閱api幫助文件。

用VBA獲取cad中的字元框中的字元

sub gettext dim sset as acadselectionset 宣告定義選擇集 dim ent as acadentity 宣告實體 set sset thisdrawing.selectionsets.add ss1 新增選擇集 sset.selectonscreen 在螢幕上選...

關於Winform中的訊息框MessageBox

在 windows 窗體應用程式中向使用者提示操作時也是採用訊息框彈出的形式。訊息框是通過 messagebox 類來實現的，在 messagebox 類中僅定義了 show 的多個過載方法，該方法的作用就是彈出乙個訊息框。由於 show 方法是乙個靜態的方法，因此呼叫該方法只需要使用message...

JAVA 中訊息提示框

joptionpane.showmessagedialog newframe.getcontentpane 彈出的是訊息提示框 系統資訊 joptionpane.information message joptionpane.showmessagedialog newframe.getcontent...