怎样选定文本框中的内容,就像选中内容要复制那样,该用TEXTBOX控件中的什么属性。

解决方案 »

  1.   

    TEXTBOX.selstart=0
    TEXTBOX.sellength=len(TEXTBOX.text)
      

  2.   

    text1.setfocus
    text1.SelStart = 0
    text1.SelLength = Len(text1.Text)
      

  3.   

    txtObject.SelStart = 0 
       txtObject.SelLength = Len(txtObject.Text) 
      

  4.   

    TEXTBOX.selectstart=0
    TEXTBOX.selectlenth=len(TEXTBOX.text)
      

  5.   

    If KeyCode = vbKeyRight Or KeyCode = 13 Then
         MSHFlexGrid1.Text = Text1.Text
         Text1.Text = ""
         MSHFlexGrid1.Col = MSHFlexGrid1.Col + 1
         Text1.Left = MSHFlexGrid1.Left + MSHFlexGrid1.ColPos(MSHFlexGrid1.Col) + 40
         Text1.Top = MSHFlexGrid1.Top + MSHFlexGrid1.RowPos(MSHFlexGrid1.Row) + 25
         Text1.Width = MSHFlexGrid1.ColWidth(MSHFlexGrid1.Col) - 30
         Text1.Height = MSHFlexGrid1.RowHeight(MSHFlexGrid1.Row) - 10
         text1.setfocus
    text1.SelStart = 0
    text1.SelLength = Len(text1.Text)
    endif
    在这段代码中就是不行啊,奇怪了,帮忙解决一下。
      

  6.   

    把顺序颠倒一下
    text1.SelStart = 0
    text1.SelLength = Len(text1.Text)
    text1.setfocus
      

  7.   

    这一段代码是写在Text1_KeyDown(KeyCode As Integer, Shift As Integer)事件中的。
    如果我把
         Text1.Text = MSHFlexGrid1.Text
         Text1.SelStart = 0
         Text1.SelLength = Len(Text1.Text)
         Text1.SetFocus
    写在COMMANDBUTTON中可以选定全部内容,但是写在Text1_KeyDown()事件中就是不能选定。
      

  8.   

    晕,这样当然不行了
    text1.SelStart = 0
    text1.SelLength = Len(text1.Text)
    放到GotFocus中试试看
      

  9.   

    晕倒,这样都不可以???with Text1
        .selstart=0
        .selLength=Len(.text)
        .Setfocus
    end with
      

  10.   

    TEXTBOX.selstart=0
    TEXTBOX.sellength=len(TEXTBOX.text)