fa_of Member Aug 9, 2013 #1 tengo un problema con la condicion select case, comparo pero no funciona, adjunto mi codigo y una copia del programa que estoy trabajando Sub txtSend_TextChanged (Old As String, New As String) Select txtSend.text Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select End Sub Attachments codigo.txt codigo.txt 9.6 KB · Views: 396
tengo un problema con la condicion select case, comparo pero no funciona, adjunto mi codigo y una copia del programa que estoy trabajando Sub txtSend_TextChanged (Old As String, New As String) Select txtSend.text Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select End Sub
fa_of Member Aug 9, 2013 #2 sorry I have a problem with the condition select case, but does not work compare, attached my code and a copy of the program I'm working Sub txtSend_TextChanged (Old As String, New As String) Select txtSend.text Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select End Sub Attachments codigo.txt codigo.txt 9.6 KB · Views: 377 Upvote 0
sorry I have a problem with the condition select case, but does not work compare, attached my code and a copy of the program I'm working Sub txtSend_TextChanged (Old As String, New As String) Select txtSend.text Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select End Sub
Olaan Expert Licensed User Longtime User Aug 9, 2013 #3 Hi fa_of, you might use Erel's guide as picture. Attachments UsingRegex.png 23.6 KB · Views: 457 Upvote 0
Erel B4X founder Staff member Licensed User Longtime User Aug 9, 2013 #4 Please use File - Export as zip when uploading projects. I recommend you to use Log instead of Msgbox. It will be much easier to see the values this way. Upvote 0
Please use File - Export as zip when uploading projects. I recommend you to use Log instead of Msgbox. It will be much easier to see the values this way.
eps Expert Licensed User Longtime User Aug 9, 2013 #6 What are you trying to achieve and what is the problem you have? Upvote 0
D ddeckert Member Licensed User Longtime User Aug 9, 2013 #7 It could be that it is a upper/lower case issue try this: Code: Copy Select lcase(txtSend.text) Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select Upvote 0
It could be that it is a upper/lower case issue try this: Code: Copy Select lcase(txtSend.text) Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select
walterf25 Expert Licensed User Longtime User Aug 10, 2013 #8 I think it needs to be like this in order for it to work Code: Copy Sub txtSend_TextChanged (Old As String, New As String) Select New Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select End Sub Hopefully it works like this Upvote 0
I think it needs to be like this in order for it to work Code: Copy Sub txtSend_TextChanged (Old As String, New As String) Select New Case "z" Msgbox("sads","") Case "a" Msgbox("","") Case " " Msgbox("","") End Select End Sub Hopefully it works like this