关于VB的一个小程序.高手帮忙

要做一个打印的程序
三个文本框一个命令按钮点命令按钮打印出文本框里的文字在打印后清空文本框中的文字，光标回到第一个文本框中。怎么弄
？？

推荐答案 2008-03-28

在窗体上画好3个文本框，一个命令按钮
代码如下：
Private Sub Command1_Click()
Printer.Print Text1.Text '打印文本框1内容
Printer.Print Text2.Text '打印文本框2内容
Printer.Print Text3.Text '打印文本框3内容
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus '文本框1取得焦点

End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/ejB7zOtX.html

相似回答

关于VB的一个小程序.高手帮忙答：Text1.SetFocus '文本框1取得焦点 End Sub

求编程高手帮忙编个小程序,成功的话,高分报答!答：Private Sub Command1_Click()Dim x(5) As Integer Do x(1) = Int(InputBox("请输入一个自己确定的号码（1~22):"))If x(1) < 1 Then MsgBox "你自己选得这个号码太小了，正确的范围是1到22之间。", vbCritical, "22选5"ElseIf x(1) > 22 Then MsgBox "你自己选得这个号码太大...

求vb高手设计一个小程序,在form1的text1中,输入“很高兴见到你”,点击...答：Private Sub Command1_Click()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetText1 = "很高兴见到你"Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象Set xlBook = xlApp.Workbooks.Open("d:\汇总\总公司.xls") '打开已经存在的EXCEL...

小弟刚学VB,刚自己做了个小程序,希望高手帮忙看看答："test2.setfause End If else MsgBox "帐号错误"text1=""text2=""text1.setfause End If If Text1 = "" and Text2 = "" Then MsgBox "帐号密码不能为空"End If End Sub 大概就是这样了,是凭空写出来的,你自己调试一下看看啊,有什么问题在提问啊!我也刚写VB大家共同进步啊....

在线急求一个VB高手帮忙看看这个小程序为什么不能运行提示有语法错 ...答：Private Sub Timer1_Timer()If Shape1.Left > Form1.ScaleWidth - Shape1.Width Then Shape1.Left = Form1.ScaleWidth - Shape1.Width bz = 1 End If If Shape1.Top > Form1.ScaleHeight - Shape1.Height Then Shape1.Top = Form1.ScaleHeight - Shape1.Height bz = 2 End If If ...

很简单的一个vb小程序,高手快来啊!答：End Sub Private Sub cspw_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command1_Click End If End Sub 在VB程序中显示时间：label1.caption = time 补充：那你就再添加一个Label控件，在cspw下面，把msgbox那一句替换成Label1.Caption = "密码错误！"就可以了 ...

求高手帮忙写一个简单的vb程序答：这是一个vb的程序，可以完成楼主的要求！Option Explicit Private Const DRIVE_REMOVABLE = 2 Private Const DRIVE_FIXED = 3 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_CDROM = 5 Private Const DRIVE_RAMDISK = 6 Private Declare Function GetDriveType Lib "kernel32" Alias "Get...

请大侠高手帮忙写个VB小程序,简单点的谢谢了!答：键个新的窗体不用放控件代码考进去直接运行就行了 Option Explicit Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim GFangXiang As Boolean Dim HWB As Single Dim She() As ShenTi Dim X As Long, Y As Long Dim ZhuangTai(23, 23) As Long Private Type ShenTi...

请那位VB高手帮忙,帮我写这个小程序。谢谢了。答：Dim tmpStr As String Dim Str() As byte dim i Str=tmpStr for i=0 to len(tmpStr )/2 if Str(i)=Str(len(tmpStr )-i) then else exit for endif next i

大家正在搜

VB小程序 VB抽奖小程序微信小程序用vb编程 vb简单小程序教程 VB小程序推箱子我的小程序简单vb实用小程序 vb小程序制作用vb编写简单小程序