テスト (568レス)
上下前次1-新
抽出解除 必死チェッカー(本家) (べ) 自ID レス栞 あぼーん
194: デフォルトの名無しさん [sage] 2016/06/16(木) 05:50:34.48 ID:eYYSreG4(1) AAS
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxW" _
(ByVal hWnd As Long, ByVal lpText As Long, ByVal lpCaption As Long, ByVal wType As Long) As Long
'Unicode文字対応のMsgBox関数(簡易版)
Function MsgBoxW( _
prompt As String, _
Optional buttons As VbMsgBoxStyle = vbOKOnly, _
Optional title As String _
) As VbMsgBoxResult
MsgBoxW = MessageBox(GetActiveWindow, StrPtr(prompt), StrPtr(title), buttons)
End Function
Sub Main()
Call MsgBoxW(ChrW(&H2611) & "checkbox", vbExclamation, ChrW(&H260E) & "タイトル")
End Sub
上下前次1-新書関写板覧索設栞歴
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.843s*