假设你的右键菜单为mymenu(contextmenustrip对象)
网站建设哪家好,找创新互联建站!专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了洛扎免费建站欢迎大家使用!
Dim oM As ToolStripMenuItem
For Each oM In Me.mymenu.Items
.....
Next
MyPos = InstrRev("12345678","8",-1,1)
就是从最后搜索从最后一个字符位置开始。然后搜索从右到左继续进行,
读的位置是从左向右来读,所以是第八,位置是相对左边的!!
InstrRev("12345687","8",-1,1) '返回7
InstrRev("1834567","8",5,1)'从左边第五位开始向左搜索第一个8,返回2
InstrRev("1838567","8",5,1)'从左边第五位开始向左搜索第一个8,返回4
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