以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何给表中数据加超链接  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45675)

--  作者:gaozhyu
--  发布时间:2014/2/8 16:06:00
--  如何给表中数据加超链接
如何判断messagebox点击哪个按钮啊,帮助文件里的dialogresult不好用啊
--  作者:Bin
--  发布时间:2014/2/8 16:11:00
--  
不可能不好用
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    MessageBox.show("YES")
End If
If Result = DialogResult.No Then
    MessageBox.show("NO")
End If
If Result = DialogResult.Cancel Then
    MessageBox.show("Cancel ")
End If


--  作者:gaozhyu
--  发布时间:2014/2/8 16:14:00
--  
按Tab键出不来dialogresult


--  作者:gaozhyu
--  发布时间:2014/2/8 16:16:00
--  
对了,我是在cellbuttonclick中添加事件,有关系吗
--  作者:Bin
--  发布时间:2014/2/8 16:17:00
--  
和在哪里使用没关系, 精灵提示有时候不好使,不用惯.直接写代码就好.
--  作者:狐狸爸爸
--  发布时间:2014/2/8 16:18:00
--  

Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
If Result =

 

输入 = 后按tab就出来候选值了

 

 

这样按Tab也可以出来:

 

If MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) =

 

[此贴子已经被作者于2014-2-8 16:18:43编辑过]

--  作者:gaozhyu
--  发布时间:2014/2/8 16:20:00
--  
OK了,好用,刚开始忘改哪个YES了,我用的OKcanel