すいません、VB４しかやってないんです、VBAはやったけど（ぼそ）　チラシの裏だって立派な書き込み空間なんだからねっ！資源の有効活用なんだからねっ！とか偉そうに言ってるけど、実は色々と書き残したいだけ だからなに？　どうしろと？　くるみサイズの脳みそしかないあやしいジャンガリアンベムスターがさすらう贖罪蹂躙（ゴシックペナルティ）

package main 
 
import ( 
       "syscall" 
       "unsafe" 
       "fmt" 
) 

// 失敗時の処理 
func abort(funcname string, err int) { 
       panic(funcname + " failed: " + syscall.Errstr(err)) 
} 

// user32.dllのMessageBoxW を準備
var ( 
       user32, _ = syscall.LoadLibrary("user32.dll") 
       messageBox, _ = syscall.GetProcAddress(user32, "MessageBoxW") 
) 

// パラメータを定義 
const ( 
       MB_OK                      = 0x00000000 
       MB_OKCANCEL                = 0x00000001 
       MB_ABORTRETRYIGNORE        = 0x00000002 
       MB_YESNOCANCEL             = 0x00000003 
       MB_YESNO                   = 0x00000004 
       MB_RETRYCANCEL             = 0x00000005 
       MB_CANCELTRYCONTINUE       = 0x00000006 
       MB_ICONHAND                = 0x00000010 
       MB_ICONQUESTION            = 0x00000020 
       MB_ICONEXCLAMATION         = 0x00000030 
       MB_ICONASTERISK            = 0x00000040 
       MB_USERICON                = 0x00000080 
       MB_ICONWARNING             = MB_ICONEXCLAMATION 
       MB_ICONERROR               = MB_ICONHAND 
       MB_ICONINFORMATION         = MB_ICONASTERISK 
       MB_ICONSTOP                = MB_ICONHAND 
 
       MB_DEFBUTTON1              = 0x00000000 
       MB_DEFBUTTON2              = 0x00000100 
       MB_DEFBUTTON3              = 0x00000200 
       MB_DEFBUTTON4              = 0x00000300 
) 

// ダイアログ表示の為のDLLコール
func MessageBox(caption, text string, style uintptr) (result int) { 
       ret, _, callErr := syscall.Syscall9(uintptr(messageBox), 
               0, 
               uintptr(unsafe.Pointer(syscall.StringToUTF16Ptr(text))), 
               uintptr(unsafe.Pointer(syscall.StringToUTF16Ptr(caption))), 
               style, 
               0, 
               0, 
               0, 
               0, 
               0) 
       if callErr != 0 { 
               abort("Call MessageBox", int(callErr)) 
       } 
       result = int(ret) 
       return 
} 

func main() { 
  //main処理が終わったら、DLLを開放
       defer syscall.FreeLibrary(user32) 
        
  //ダイアログを表示して、戻り値をPrintf
       fmt.Printf("Retern: %d\n", MessageBox("Done Title", "This test is Done.", MB_YESNOCANCEL)) 
} 
 
func init() { 
  //mainの前の初期化処理
       fmt.Print("Starting Up\n") 
}

コメント