テスト (568ﾚｽ)

テスト http://mevius.5ch.net/test/read.cgi/tech/1402617355/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

194: デフォルトの名無しさん [sage] 2016/06/16(木) 05:50:34.48 ID:eYYSreG4 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 http://mevius.5ch.net/test/read.cgi/tech/1402617355/194

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.790s*