文件名称:VB 输入时,在另一文本框中边输边显示代码
文件大小:770B
文件格式:TXT
更新时间:2013-09-21 07:10:12
VB 小窍门 文本框 另一文本框中边输边显示 代码
输入时,在另一文本框中边输边显示代码: Private Sub Text1_Change() Call text6xs 'Text6.Text = Label1.Caption & " " & Text1.Text End Sub Private Sub Text2_Change() Call text6xs End Sub Private Sub Text3_Change() Call text6xs End Sub Private Sub Text4_Change() Call text6xs End Sub Private Sub Text5_Change() Call text6xs End Sub Private Sub text6xs() Text6.Text = Label1.Caption & " " & Text1.Text & vbNewLine & _ Label2.Caption & " " & Text2.Text & vbNewLine & _ Label3.Caption & " " & Text3.Text & vbNewLine & _ Label4.Caption & " " & Text4.Text & vbNewLine & _ Label5.Caption & " " & Text5.Text & vbNewLine End Sub