VB6.0代码编辑

来源：百度知道 编辑：UC知道 时间：2024/05/05 00:32:02
我想在VB中设置几个按钮，第一个Click后会通过打印机将Form1中一特定区域打印出来，第二个Click后可以将输入的数值保存在一个指定的文件夹中，第三个Click后可以从这个指定的文件夹中打开已经储存过的数据。可我不会编这三个按钮的代码，还请各位高手指点！

首先你应该多看看书，你所提到的问题并不是十分复杂的。由于你的问题不是十分明确，只能给你一点提示：

1、简单的VB打印使用 PrintForm方法，但是它只能打印整个窗体。至于打印特定区域要使用 Printer方法，这里面需要设置很多属性，打印情况不同设置属性是不相同的，例如打印区域的设定等等,例如ScaleTop属性、ScaleLeft属性、ScaleHeight属性、ScaleWidth属性等等。

2、点击第二个按钮和第三个按钮实际都是文件操作，第二个按钮是文件的写操作，第三个按钮是文件的读操作：

Private Sub Command3_Click() '读操作
Dim FS, FL As String
Set FS = CreateObject("Scripting.FileSystemObject")
FL = "E:\ABC\123.txt"
Open FL For Input As #1
Input #1, W1
Close #1
Text1.Text = W1
End Sub

Private Sub Command2_Click() '写操作
Dim FS, FL As String, W1
W1 = Text1.Text
Set FS = CreateObject("Scripting.FileSystemObject")
FL = "E:\ABC\123.txt"
Open FL For Append As #1
Write #1, W1
Close #1
End Sub

E:\ABC\123.txt 是假定的路径及文件，希望对你有帮助。