テスト (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*