MaxLength 默认是0的,表示最大长度,好像text的最大长度是32K。
Private Sub Command1_Click()Dim SZ() As String Dim Jg As String SZ = Split(Text1, vbCrLf)For i = 0 To UBound(SZ)If InStr(Text1, "X") > 0 And InStr(Text1, "Y") > 0 Then Jg = Jg & SZ(i) & " "Next i If Len(Jg) = 0 Then Exit Sub Jg = Trim(Jg)SZ ...
Private Sub Text1_Change()On Error Resume Next Dim a() As String s = Text1.Text s = Replace(s, vbCrLf & vbCrLf, vbCrLf)a = Split(s, vbCrLf)If Left(a(UBound(a)), 2) <> " " Then a(UBound(a)) = " " & a(UBound(a))End If For i = 0 To UBound(a)If i <...
比如要获得Text1中第2行的文字:s = Split(Text1.Text, vbCrLf)(1)获得第n行的文字:s = Split(Text1.Text, vbCrLf)(n - 1)要保证Text1有足够的行数,比如要获取第9行的文字,则Text1中的总行数必须至少有9行,否则出错
Private Sub Command1_Click()Dim myLine() As String, i As Integer, myTempStr As String myTempStr = Text1.Text myLine = Split(myTempStr, vbCrLf)For i = 0 To UBound(myLine)If Len(myLine(i)) < Len(myTempStr) - Len(Replace(myTempStr, myLine(i), "")) Then Text2.Text...
"insert into 作业计划表 (股道,摘/挂,辆数,记事) values ('" & gudao2 & "' ,'" & 挂 & "' ," & 辆数 & ",'" & 44123 & "')"安里面的改改吧
首先添加好文本框控件TextBox后把属性IMEMode的值改成Disable,这样在该文本框中就不能使用中文输入法了。然后对文本框的KeyPress事件添加以下代码 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress If Char....
然后在需要按行的地方按入vbCrlf带表回车。参考例子如下:'设置 Text1.MultiLine = True ' Text1.ScrollBars = 2 Private Sub Form_Load()Text1.Text = ""Text1.Text = Text1.Text & "这是示例A" & vbCrLf Text1.Text = Text1.Text & "这是示例B" & vbCrLf End Sub ...
for a=1 to 50 text1.text=text1.text & a & vbcrlf next a
t1=Val(TextBox1.Text)指,提取1号文本框(一般是你建的第一个文本框)中的内容为一个数值,赋给t1.这句中的text是指这个文本框中所有的内容 TextBox3.Text=t1+t2 : TextBox3中的内容是 t1+t2 的值.2) short与long 它们占的字节不同,数据值的范围的大小不同.例:有一个数是32767就可...