首页 > 代码库 > Notes里OK,CANCEL按钮的设定

Notes里OK,CANCEL按钮的设定

message并不能达到想要的目的:

    If Not udoc Is Nothing Then
        ‘MessageBox "既にデータがあります、先月のデータを削除してください。",MB_OK,"クリア確認"
        If MessageBox("既にデータがあります、先月のデータを削除しますか?", _
    MB_YESNO + MB_ICONQUESTION, "クリアの確認") = IDYES Then
        Do While Not udoc Is Nothing
        Call udoc.RemovePermanently(True)
        Print "sssssssssssssss"
        Set udoc=view.getNextDocument
        loop
    Else
        Exit Sub
    End If      
    End If
   

效果如下:

 

这个时候要用prompt:

   Dim askme As Integer
    askme = ws.Prompt (PROMPT_YESNO, _
    "送信一括確認", "Mailsを一括で送付しますか?")
    If askme = 1 Then
        GoTo start
    Else
        Exit Sub
    End If