在vb.net 中判断input的press button是Cancel还是OK

最新推荐文章于 2021-08-13 01:51:49 发布

下雨的天空I

最新推荐文章于 2021-08-13 01:51:49 发布

阅读量1.1k

点赞数

文章标签： vb.net button input function string c

本文链接：https://blog.csdn.net/zjh608/article/details/6557715

版权

From:http://www.developer.com/net/vb/article.php/1541851/VB-TIP-InputBox---OK-or-Cancel.htm

Imports System.Runtime.InteropServices

s_return = Microsoft.VisualBasic.Interaction.InputBox("请输入ClassID，中间用逗号隔开，也可不输，查询全部。格式：A,B,C" + vbCrLf + "ClassID及描述如下：" + vbCrLf + s_classmsg, "请输入分类ID", "", 300, 300)
       If IsInputCancelled(s_return) Then
           MessageBox.Show("cancel")
       End If

Function IsInputCancelled(ByVal inputStr As String) As Boolean
    Dim gh As GCHandle = GCHandle.Alloc(inputStr, GCHandleType.Pinned)
    Dim StrPtr As IntPtr = gh.AddrOfPinnedObject()
    Dim gh1 As GCHandle = GCHandle.Alloc("", GCHandleType.Pinned)
    Dim EmptyStrPtr As IntPtr = gh1.AddrOfPinnedObject()
    gh.Free()
    gh1.Free()

IsInputCancelled = (StrPtr = EmptyStrPtr)
Return IsInputCancelled
End Function