十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Private Sub Command1_Click() Select Case Combo1.Text Case "+" Text3.Text = Val(Text1.Text) + Val(Text2.Text) Case "-" Text3.Text = Val(Text1.Text) - Val(Text2.Text) Case "*" Text3.Text = Val(Text1.Text) * Val(Text2.Text) Case "/" Text3.Text = Val(Text1.Text) / Val(Text2.Text) End Select End Sub 望采纳:)
成都网站建设公司更懂你!创新互联只做搜索引擎喜欢的网站!成都网站制作前台采用搜索引擎认可的DIV+CSS架构,全站HTML静态,H5页面制作+CSS3网站,提供:网站建设,微信开发,重庆小程序开发,成都商城网站开发,成都app开发,域名注册,服务器租售,网站代托管运营,微信公众号代托管运营。
如果是简单的换行用vbcrlf 或 environment.newline
要获得键盘的回车键用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
看了很多这方便的解决方案,很多都是一大段代码,版本也有差别,既然有可能别人用得起我也用不起。
我用一种最简单的方法,只要思路对所有人都能用得起。
其实非常简单,就是获取键值,Ctrl+Enter的健值是10,是不是思路一下就通了。以下是源码:
Private Sub 聊天输入框_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 聊天输入框.KeyPress
If Asc(e.KeyChar) = 发送快捷键值 Then
发送消息过程()
End If
End Sub
源内容出处:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = TextBox1.Text
Dim p As Integer = InStrRev(s, vbCrLf)'从右侧开始查找出现回车符的位置(但位置仍从左算起)
Dim s1 As String'用于保存最后一行字符串
If p = 0 Then'若未找到回车符,则直接将整个字符串赋给S1
s1 = s
Else
s1 = Mid(s, p + 2)'若找到回车符,则截取回车符右边的部分
End If
MsgBox(s1)'显示你要找的最后一行字符串
End Sub
可以用chr函数或者vbCrLf这种表示
chr(10):换行,相当于vbLf
chr(13):回车,相当于vbCr
chr(13)+chr(10):回车+换行,相当于vbCrLf