∇ APIを使ってメッセージボックスを表示する ∇
APIを使ってメッセージボックスを表示する方法です。
何に使うのかは、分かりませんが(汗)
APIの、MessageBoxというものを使えば、簡単に出来
ます。利用法も、MsgBox関数とそう変わりません。
Private Declare Function MessageBox Lib "USER32" Alias "MessageBoxA" (ByVal hWnd&, ByVal lpText$, _
ByVal lpCaption$, ByVal wType&) As Long
Private Sub Form_Load()
Dim lngReMsg As Long
lngReMsg = MessageBox(Me.hWnd, "APIを使って表示しています", "TEST", &H0&)
End Sub
引数は、 hWnd& ウインドウハンドル
lpText$ 表示するテキスト
lpCaption$ タイトル
wType& メッセージボックスのスタイル(ヘルプで、MB_ を引いてみてください)
1999 Copyright(C) Manabu
1999-00 Manabuの部屋 http://www.manabu.uni.cc/
この文章の無断転際を禁じます