msgbox的问题

Question

msgbox("您确实要删除" & fileS.Name & "么？",vbYesNo,"确认")

Answer 1

msgbox "您确实要删除" & fileS.Name & "么？",vbYesNo,"确认"或者：dim i as integer
i=msgbox("您确实要删除" & fileS.Name & "么？",vbYesNo,"确认")

Answer 2

去掉那個括號不是得了麼？msgbox "您确实要删除" & fileS.Name & "么？",vbYesNo,"确认" 

Answer 3

把括号去掉
msgbox "您确实要删除" & fileS.Name & "么？",vbYesNo,"确认"带括号的是函数，必须要有返回值。
dim response
response=msgbox("您确实要删除" & fileS.Name & "么？",vbYesNo,"确认")if response=vbYes then
   '添加你的代码
else
   '添加你的代码
end if

Answer 4

Private Sub Command1_Click()
MsgBox "您确实要删除" & "fileS.Name" & "么？", vbYesNo, "确定"End Sub可以了。。

Answer 5

奇怪，我就不那个单独的调用这个msgbox？非得要处理返回结果？？

Answer 6

Private Sub mnuDel_Click()
    If MsgBox("您确实要删除 " & FileS.FileName & " 么？", vbYesNo) Then
        MsgBox ("删除")
    End If
End Sub

Answer 7

多谢各位达人！鄙人学过几天vb。现在对c＃熟悉些。不过是为了帮朋友的忙，写个小东西，才操起vb的。

Answer 8

Private Sub mnuDel_Click()
    If MsgBox("您确实要删除 " & FileS.FileName & " 么？", vbYesNo)=VbYes Then
        MsgBox  "删除 
    End If
End Sub

Answer 9

返回结果可以不处理，但必须要有一个返回值，如果用msgbox()函数的话。

Answer 10

if (msgbox("您确实要删除" & fileS.Name & "么？",vbYesNo,"确认")=VbYes) then
   //delete old;
else
  //...
endif

Answer 11

if msgbox("您确实要删除" & fileS.Name & "么？",vbYesNo,"确认")=vbYes then
'删除
endif