码迷,mamicode.com
首页 > 其他好文 > 详细

Notes里OK,CANCEL按钮的设定

时间:2014-07-10 13:17:47      阅读:238      评论:0      收藏:0      [点我收藏+]

标签:style   color   os   art   for   io   

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
   

效果如下:

bubuko.com,布布扣

 

这个时候要用prompt:

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

Notes里OK,CANCEL按钮的设定,布布扣,bubuko.com

Notes里OK,CANCEL按钮的设定

标签:style   color   os   art   for   io   

原文地址:http://www.cnblogs.com/vonkenmo/p/3811853.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!