vb 如何将当前窗体内容输出为文本文档

Private Sub Command1_Click()
Dim vStr$
vStr = vStr & Combo1Text & "对" & Combo4Text
vStr = vStr & "第一" & Combo7Text & Combo8Text & "对" & Combo23Text & Combo25Text & vbCrLf
vStr = vStr & "第二" & Combo9Text & Combo10Text & "对" & Combo24Text & Combo26Text & vbCrLf
vStr = vStr & "第三" & Combo11Text & Combo12Text & "对" & Combo27Text & Combo28Text & vbCrLf
vStr = vStr & "第四" & Combo13Text & Combo14Text & "对" & Combo29Text & Combo30Text & vbCrLf
vStr = vStr & "第一" & Combo2Text & Combo3Text & "对" & Combo5Text & Combo6Text & vbCrLf
vStr = vStr & "第二" & Combo15Text & Combo17Text & "对" & Combo31Text & Combo33Text & vbCrLf
vStr = vStr & "第一" & Combo16Text & Combo18Text & "对" & Combo32Text & Combo34Text & vbCrLf
vStr = vStr & "第二" & Combo19Text & Combo20Text & "对" & Combo35Text & Combo36Text & vbCrLf
vStr = vStr & "第三" & Combo21Text & Combo22Text & "对" & Combo37Text & Combo38Text
Call savefile(Environ$("userprofile") & "\桌面\新建 文本文档1txt", vStr)
End Sub
Public Function savefile(ByVal filepath As String, ByVal txt As String) '保存文件函数
Open filepath For Output As #1
Print #1, txt
Close #1
End Function

VB可使用StrReverse函数实现字符串的逆序输出。

StrReverse函数，返回一个字符串，其中一个指定子字符串的字符顺序是反向的。

语法：

StrReverse(string1)

参数string1是一个字符串，它的字符顺序要被反向。如果string1是一个长度为零的字符串("")，则返回一个长度为零的字符串。

实现代码例子：

Private Sub Form_Click()
    Dim strSj As String
    strSj = "vb将自己的名字在窗体上反向输出"
    strSj = StrReverse(strSj)
    Print strSj
End Sub

VB可以用CurrentX、CurrentY 属性实现定位打印。用ScaleMode 属性确定打印机对象坐标的度量单位。

CurrentX、CurrentY 属性，返回或设置下一次打印或绘图方法的 水平 (CurrentX) 或垂直
(CurrentY) 坐标。

ScaleMode 属性，当使用图形方法或调整控件位置时，返回或设置一个值，该值指示对象坐标的度量单位。

具体实现代码：

Option Explicit
    Dim X As Long
    Dim y As Long
    Dim fnt As Variant
    Dim txt As String
    Dim dy As Variant
    
Public Function prnt(X As Variant, y As Variant, fnt As Variant, txt As Variant)
    PrinterCurrentX = X
    PrinterCurrentY = y
    PrinterFontSize = fnt
    PrinterPrint txt
End Function
Private Sub Command1_Click()
    PrinterScaleMode = 6 '以mm定位
    PrinterCurrentX = 10
    PrinterCurrentY = 20
    fnt = 12
    txt = "YD(0)"
    dy = prnt(X, y, fnt, txt)
    PrinterEndDoc
End Sub

vb中文本可以输出到窗体，文本框，文件；如果输出到窗体看用“print”，输出到文本框用text1text="输入的内容"，输出到文件也就是对文件的写 *** 作，可用
print
#<文件名>[，输出列表]

1、打开VB60，新建一个工程，在窗体中添加五个命令按钮，caption分别改为“回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”。

添加一个文本框，将其Text属性清空，MultiLine属性设置为True，Scrollbars属性设置为2-Vertical，将窗体Form1的caption属性改为“回车符和换行符的区别”，将界面设置成下图：

2、双击“回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(13) & 2，如图：

3、双击“换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(10) & 2，如图：

4、双击“回车换行”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(13) & Chr(10) & 2，如图：

5、双击“换行回车”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & Chr(10) + Chr(13) & 2，如图：

6、双击“vbCrlf”命令按钮，进入代码编辑窗口，输入如下代码：Text1Text = 1 & vbCrLf & 2，如图：

7、关闭代码窗口，按下F5运行程序，依次单击““回车”、“换行”、“回车换行”、“换行回车”以及“VBCrlf”命令按钮，在窗体中依次输出，如图：

---