谢谢!

解决方案 »

  1.   

    MsgBox SSTab1.Tab'得到的就是当前的TAB
      

  2.   

    to 大家:Text1原来有文字:
    asdf
    我想它变成:
    asdf
    qwer
    我就text1.text=text1.text & Chr$(13) & "qwer"
    怎么结果会是:
    asdfqwer
    ??
      

  3.   

    你的TEXTBOX的MultiLine属性一定为False,设为True即可
      

  4.   

    text1.text=text1.text & vbCrlf & "qwer"
      

  5.   

    Private Sub SSTab1_Click(PreviousTab As Integer)
    Select Case SSTab1.Tab
     Case 0
          Sstab = 0  'tab1被激活
          '加入你想要的程序
     Case 1
         Sstab = 1   'tab2被激活
         '加入你想要的程序
     Case 2
         Sstab = 2    'tab3被激活
        '加入你想要的程序
     End Select
    End Sub