2016-11-22 45 views
-3

我想創建一個假的運行框,用於對付技術支持騙子浪費時間。我想有一些指定的文本運行msgbox。有沒有辦法接受所有案件? (記事本,NoTePaD,NOTEPAD等)。檢查是否聲明,不區分大小寫

If textbox1.text = "Notepad" Then 
Msgbox("Unable to open") 
+2

請將鼠標懸停在標籤上,閱讀單詞並確定哪一個*實際適用,並刪除其他兩個 – Plutonix

回答

3

我有點困惑,什麼是「它的所有版本」的意思,而下面將忽略空格和大寫:

Dim str As String = textbox1.text.ToLower().Replace(" ", "") 
If str = "notepad" Then MsgBox("Unable to open") 

這是一個VB.Net解決方案,但是作爲Plutonix在評論中提到,很難說出你在尋找什麼樣的解決方案 - 你已經標記了兩種不同類型的VB。