99问答网
所有问题
关于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的一个小程序.高手帮忙
答:
Text
1
.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 Command
1
_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 "帐号错误"text
1
=""text2=""text1.setfause End If If Text1 = "" and Text2 = "" Then MsgBox "帐号密码不能为空"End If End Sub 大概就是这样了,是凭空写出来的,你自己调试一下看看啊,有什么问题在提问啊!我也刚写
VB
大家共同进步啊....
在线急求
一个VB高手 帮忙
看看这个
小程序
为什么不能运行 提示有语法错 ...
答:
Private Sub Timer
1
_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 Timer
1
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编写简单小程序