Question

用VB写个程序关于图片打印和复制问题

本人用VB写了个小程序，主要是解决从本机中一产品图片大堆中快速查看某个产品
用了一个 image控件，用了一个文本框控件，还用了一个按钮控件
代码如下：
Private Sub TextBox1_LostFocus()
Dim a As String, b As String
a = TextBox1.Text
b = "e:\images\" + a + ".jpg"
If Dir(b) <> "" Then
Image1.Picture = LoadPicture(b)
Else
Image1.Picture = LoadPicture("e:\images\a.jpg")
End If
End Sub

测试通过，
现在的问题是我还想加两个按钮，一个是打印当前查看的图片，另一个是复制这张图片到桌面，或者弹出另存为对话框
不知道这两段代码怎么写？望高手指点下,谢谢！
Private Sub copy_Click()
c = Combo1.Text
b = c + a + ".jpg"
If Dir(b) <> "" Then
FileCopy b, "d:\复制的图片\" + a + ".jpg"
MsgBox "图片复制成功!"
Else
MsgBox "图片不存在!"
End If
End Sub

Private Sub print_Click()
Printer.PaintPicture Image1.Picture, 1, 1
Printer.EndDoc

Answer 1

打印的
Printer.PaintPicture Image1.Picture, 1, 1
Printer.EndDoc
保存的
1.先加入部件Microsoft Common Dialog Control X.X
2.创建一个 CommonDialog 名为 CD1
3.
Dim a As String, b As String
a = TextBox1.Text
b = "e:\images\" + a + ".jpg"
cd1.showsave
if dir(cd1.filename)<>"" then
magbox "文件已存在"
else
If Dir(b) <> "" Then
filecopy b , cd1.filename
Else
filecopy "e:\images\a.jpg",cd1.filename
End If
endif

Answer 2

在此之前你应该修改你的程序,把 a 定义成全局变量，在窗体层，而不是在Sub TextBox1_LostFocus()内。

private sub command1_click()'用来另存为到桌面
dim Picname as string
Picname=inputbox("请输入另存文件的名字，若不更名则无需输入。")
if Picname="" then
FileCopy "e:\images\" + a + ".jpg"
, "C:\Documents and Settings\Administrator\桌面\" + a + ".jpg"
else
FileCopy "e:\images\" + a + ".jpg"
, "C:\Documents and Settings\Administrator\桌面\" + Picname + ".jpg"
end if
end sub
Private Sub Command1_Click()'打印机输出，不过没有打印机没验证
Printer.Print Image1.Picture.
Printer.EndDoc
End Sub