vb中怎么取值textbox中字符串中的数字

最好是放在listbox中，方便，如果你非要用textbox，你可以尝试下面的代码，文本最后不能有空行，否则会有空白：参考 Private Sub Command1_Click()Dim a Dim i As Integer a = Split(Trim(Text1.Text), vbCrLf)Randomize i = Int(Rnd * (UBound(a) - LBound(a)) + 1) + LBound(a)Prin...

截取关键字就可以了，如：Dim s As Strings = Text1.Text Msgbox Split(Split(s, "")(1), "")(0)

关键函数：Application.Max([a1:a4]) 可以取得当前excel文件中A列前4行中的最大值 Application.Max([b1:b4]) 可以取得当前excel文件中B列前4行中的最小值 代码 Private Sub CommandButton1_Click()Dim txtPath1 As String, str1 As String, var1() As String, i As Integer, j As Inte...

len(str)可获取字符串str的长度，所以可以用Len(TextBoxName.Text)获得输入字符的长度。

最标准的代码:Private Sub Text1_GotFocus(Index As Integer)Dim i, Max As Integer Dim Sum As Long Max = Text1.UBound Sum = 1 For i = 0 To Max If i <> Max Then Sum = Sum * Val(IIf(IsNumeric(Text1(i).Text), Text1(i).Text, 1))Else Text1(i).Text = Sum End ...

参考代码如下：Private Sub Command1_Click()Dim str5 As String str5 = GetaLine(Text1, 1) '取得第二行的字串，以0为基底 End Sub '以下在.Bas Option Explicit Const EM_GETLINE = &HC4 Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal ...

首先我需要弄清楚的是你要的是某一个特定字符还是某一特定位置的字符？楼主的说法也有问题，e是第7个字符，空格也算 substring+IndexOf这两个方法应该能很好的解决。这是C#里面的语法，和VB应该区别不是太大吧。

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])返回在另一字符串中第一次出现某一字符串的位置 eg: msgbox instr("a:"":我""",":") 结果为 2 Function InStrRev(StringCheck As String, StringMatch As String, [Start As Long = -...

'获得光标位置（按字符计算）Private Function GetCurPosCh(ptPos As POINTAPI) As Long Dim nLine As Long, nCol As Long Dim ByteBuffer() As Byte SendMessage Me.Text1.hwnd, EM_GETSEL, 0, ptPos nLine = SendMessage(Me.Text1.hwnd, EM_LINEFROMCHAR, ptPos.x, ByVal 0&) '获得...

for i=1 to len(text1)print mid(text1,i,1);next 不采纳不加分你就是个啥？哈哈