VB中,求把文本框1的内容复制到文本框2的代码

   更新日期:2024.05.19
Text2.Text = Text1.Text
Text2.****=Text1.****
以此类推下去,你想复制多少种属性,你就加多少的属性,例如字体,字号,加粗!

像楼下的一样直接赋值就行了。

Text2.Text = Text1.Text

  • 13666481704 :VB中,求把文本框1的内容复制到文本框2的代码
    都苇瞿3948 :答:Text2.Text = Text1.Text Text2.***=Text1.以此类推下去,你想复制多少种属性,你就加多少的属性,例如字体,字号,加粗!
  • 13666481704 :VB,用当在第一个文本框里输入如下文字,并选中部分内容,然后单击复制...
    都苇瞿3948 :答:Private Sub Command1_Click() '复制 Text2.SelText = Text1.SelText End Sub Private Sub Command2_Click() '清除 Text1.Text = ""Text2.Text = ""End Sub
  • 13666481704 :vb如何复制text1中的文件到text2文件夹中
    都苇瞿3948 :答:'唉,用filecopy 和dos的copy均可以实现,都给你写出来,选择一种方法,把另一行注释掉。文件名未做更改 。Private Sub Command1_Click()On Error GoTo errtrap If Dir(Text2.Text) = "" Then Shell "cmd.exe /c md " & Text2.Text End If fname = Split(Text1.Text, "\")FileCop...
  • 13666481704 :VB文本复制怎么编程?
    都苇瞿3948 :答:Private Sub Command2_Click() Clipboard.Clear Clipboard.SetText Text1.SelText '把文本框所选的文本复制到剪贴板 Label1.Caption = Clipboard.GetText '把剪贴板的文本赋给Label1End Sub
  • 13666481704 :vb,怎样按一下按钮能复制文本框的内容?
    都苇瞿3948 :答:Clipboard.SetText Text1.Text '把文本框中的内容复制到剪切板上 Text2.Text = Clipboard.GetText'把剪切板中的内容粘贴到文本框中
  • 13666481704 :VB 怎样在TEXTBOX中用按钮进行复制粘贴?
    都苇瞿3948 :答:TextBox1.Select()TextBox1.Copy() '复制textbox1中鼠标选中的内容'End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox1.Text + Clipboard.GetText() '粘贴到TEXTBOX1'End Sub 还是自己做了。。
  • 13666481704 :VB怎么实现按一个按钮就把文本筐内的文字复制
    都苇瞿3948 :答:command1_click事件中写以下代码:clipboard.settext text1.text 全部代码:Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub
  • 13666481704 :vb编程:单击command1将text1中的选定内容复制到text2的光标处
    都苇瞿3948 :答:Dim s As Integer Private Sub Command1_Click()Text2.Text = Left(Text2.Text, s) & Text1.Text & Right(Text2.Text, Len(Text2.Text) - s)End Sub Private Sub Text2_Click()s = Text2.SelStart End Sub
  • 13666481704 :vb复制粘贴代码
    都苇瞿3948 :答:复制操作应该是复制当前选区而不是整个文本框内容,粘贴应该是将剪帖板内容插入到当前光标所在位置,而不是将文本框原有内容彻底覆盖,另外,通常当Text1没选中文字时,要使复制按钮Command1不可用 Private Sub Command1_Click()Clipboard.SetText Text1.SelText End Sub Private Sub Command2_Click()If Len...
  • 13666481704 :求一VB程序,复制文本框中的内容
    都苇瞿3948 :答:Private Sub Command1_Click()Clipboard.SetText Text1 MsgBox "已复制!"Text2 = Clipboard.GetText MsgBox "已粘贴"End Sub 在Text1中输入字符,点击按钮就产生复制和粘贴事件(Text2=Text1)。
  • 相关链接

    欢迎反馈与建议,请联系电邮
    2024 © 视觉网