vb text1自动读取text2中的数据

显示全部楼层 · 2012-11-28 05:42:59

不地道!10分问这么多问题! 问题1的答案:Private Sub Text2_Change()Text1.Text = text2.TextEnd Sub--------------问题2答案:Private Sub Command1_Click()这里西代码,很长,也不知道你要写什么票据,所以更难说怎么写了!所以不贴End Sub问题3.怎么你应该去找下,打印机的VB源码!边输入,右边就有预览!...

千问 · 2012-11-28 05:42:59

VS2005Sub print_bill(sender As Object, ev As PrintPageEventArgs)
Dim line As String = Nothing
Dim printFont As Font
Dim leftMargin As Single = ev.MarginBounds....

千问 · 2012-11-28 05:42:59

私人小组Text1_Change（） I％= INSTR（1，文本1，“”）如果i> 0，则 J％= INSTR（我+ 1，文本1，“”）如果J> 0，然后：Debug.Print中（文本1，+ 1，J - I - 1）结束如果结束如果 END SUB...

千问 · 2012-11-28 05:42:59

在Text2的Change事件中写入:Private Sub TextBox2_Change()
TextBox1.Text = TextBox2.TextEnd Sub...