作者 主題: VB6.0如何儲存TextBox的內容  (閱讀 11963 次)

0 會員 與 1 訪客 正在閱讀本文。

chung1206

  • 活潑的大學生
  • ***
  • 文章數: 220
  • 性別: 男
    • 檢視個人資料
VB6.0如何儲存TextBox的內容
« 於: 2009-06-25 13:17 »
各位先進們好,我在Form1表單裡做了一個button為另存新檔,但不知道要如何將TextBox的內容存起來,希望大大指教一二,謝謝。

程式碼如下:
Private Sub cmdsave_Click()
    CommonDialog2.Filter = "All Files(*.*)"
    CommonDialog2.FilterIndex = 2
    CommonDialog2.ShowSave
End Sub

洋蔥叔叔

  • 區域板主
  • 鑽研的研究生
  • *****
  • 文章數: 830
    • 檢視個人資料
    • 洋蔥叔叔的隨意漫談電腦、網路、.NET、軟體本地化、雜七雜八
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #1 於: 2009-06-25 13:45 »
用 FSO 寫到文字檔?

chung1206

  • 活潑的大學生
  • ***
  • 文章數: 220
  • 性別: 男
    • 檢視個人資料
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #2 於: 2009-06-25 17:49 »
用 FSO 寫到文字檔?

例如我在TextBox裡打字,但我想將TextBox內的文字存成.txt檔,謝謝。

洋蔥叔叔

  • 區域板主
  • 鑽研的研究生
  • *****
  • 文章數: 830
    • 檢視個人資料
    • 洋蔥叔叔的隨意漫談電腦、網路、.NET、軟體本地化、雜七雜八
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #3 於: 2009-06-25 18:40 »

TyroneYeh

  • 俺是博士!
  • *****
  • 文章數: 2396
  • 性別: 男
    • 檢視個人資料
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #4 於: 2009-06-26 00:14 »
VB6 的 RichTextBox 是不是有個 SaveFile 的 Method
--
TyroneYeh

chung1206

  • 活潑的大學生
  • ***
  • 文章數: 220
  • 性別: 男
    • 檢視個人資料
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #5 於: 2009-06-26 06:21 »
對啊就是可以用 FSO 寫到文字檔啊

http://www.yesky.com/imagesnew/software/vbscript/html/vsobjFileSystem.htm

感謝洋蔥大大,我沒說清楚SORRY,我希望可以跳出讓我自行選擇可以存在那裡,txt檔也可以自行命名
謝謝。

洋蔥叔叔

  • 區域板主
  • 鑽研的研究生
  • *****
  • 文章數: 830
    • 檢視個人資料
    • 洋蔥叔叔的隨意漫談電腦、網路、.NET、軟體本地化、雜七雜八
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #6 於: 2009-06-26 11:02 »
用 Common Dialog 沒錯啊,一定要整個幫你寫出來才行嗎?

CommonDialog1 = Common Dialog 控制項
Text1 = TextBox

代碼: [選擇]
CommonDialog1.Filter = "All Files(*.*)"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
    
If Not CommonDialog1.FileName = "" Then
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(CommonDialog1.FileName, True)
MyFile.WriteLine (Text1.Text)
MyFile.Close

Set fso = Nothing
Set MyFile = Nothing

MsgBox "Done!"
End If

TyroneYeh

  • 俺是博士!
  • *****
  • 文章數: 2396
  • 性別: 男
    • 檢視個人資料
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #7 於: 2009-06-26 11:22 »
剛剛試一下用 RichTextBox , 拉一個 RichTextBox 物件 Visible 設 False 這樣只用來存文字檔的

會不會比較簡單 = =
代碼: [選擇]
    CommonDialog1.Filter = "All Files(*.*)"
    CommonDialog1.FilterIndex = 2
    CommonDialog1.ShowSave
    If Not CommonDialog1.FileName = "" Then
        RichTextBox1.Text = Text1.Text
        RichTextBox1.SaveFile CommonDialog1.FileName, rtfText
    End If
--
TyroneYeh

chung1206

  • 活潑的大學生
  • ***
  • 文章數: 220
  • 性別: 男
    • 檢視個人資料
回覆: VB6.0如何儲存TextBox的內容
« 回覆 #8 於: 2009-06-26 11:30 »
用 Common Dialog 沒錯啊,一定要整個幫你寫出來才行嗎?

CommonDialog1 = Common Dialog 控制項
Text1 = TextBox

代碼: [選擇]
CommonDialog1.Filter = "All Files(*.*)"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
    
If Not CommonDialog1.FileName = "" Then
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(CommonDialog1.FileName, True)
MyFile.WriteLine (Text1.Text)
MyFile.Close

Set fso = Nothing
Set MyFile = Nothing

MsgBox "Done!"
End If

感謝洋蔥大大,您就原諒小弟才疏學淺,我已經買二本書回來看了,但裡面真的沒有教這個,我又急著需要用到
SORRY,我會好好研讀,希望很快就可以問比較有深度的問題。