テストat TECHテスト - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト197:デフォルトの名無しさん 16/06/16 05:50:34.48 eYYSreG4.net 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 198:デフォルトの名無しさん 16/07/01 21:21:19.41 l06M3c9j.net てす 199:デフォルトの名無しさん 16/07/04 00:08:14.57 bB15DZJa.net てすと 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch