如何自动设置文本？

问题描述

你好......



如何自动在文本框中设置文字？



例如：



if textbox1.text =shutdownthen

textbox2.text =ok shut down

结束如果



但是即使在tectbox1.text中指示关闭，textbox2.text也没有表示ok关闭这句话



这是我的代码：

 私有  Sub  shutdown（）
 
 如果 receiveRT.Text =  关闭 或   shutdown 然后 
 SendRT.Text =  关闭 
 结束 如果 
 
 如果 SendRT.Text =  关闭 然后 
 使用 srPort 
 .Write（  AT ）
。写（  AT + CMGF = 1& vbCrLf）
 .Write（  AT + CMGS =& Chr（ 34 ）& CNtbox.Text& Chr（ 34 ）& vbCrLf）
 .Write（SendRT .Text& Chr（ 26 ））
 MsgBox（ 发送消息）
 
 结束 使用 
 结束 如果 
 
 结束 如果 
 结束  Sub  

解决方案

hi there...

how to set text in textbox automatically?

for example:

if textbox1.text = "shutdown" then
textbox2.text = "ok shutting down"
end if

but even though shutdown is indicated in tectbox1.text, textbox2.text does''nt indicate the phrase "ok shutting down"

here is my code:

Private Sub shutdown()

       If receiveRT.Text = "Shutdown" Or "shutdown" Then
           SendRT.Text = "Shutting Down" 
end if

           If SendRT.Text = "Shutting Down" Then
               With srPort
                   .Write("AT")
                   .Write("AT+CMGF=1" & vbCrLf)
                   .Write("AT+CMGS=" & Chr(34) & CNtbox.Text & Chr(34) & vbCrLf)
                   .Write(SendRT.Text & Chr(26))
                   MsgBox("Message sent")

               End With
           End If

       End If
   End Sub

解决方案

这篇关于如何自动设置文本？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！