史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
忘記密碼?
論壇說明 標記討論區已讀

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2009-06-25, 10:37 PM   #1
chung1206 帥哥
註冊會員
 
chung1206 的頭像
榮譽勳章
UID - 322141
在線等級: 級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時
註冊日期: 2009-04-14
住址: Kaohsiung
文章: 192
精華: 0
現金: 121 金幣
資產: 521 金幣
預設 疑問 - VB6.0如何儲存TextBox裡的內容?



各位先進們好,我在Form1表單裡做了一個button為另存新檔,但不知道要如何將TextBox的內容存起來,希望大大指教一二,謝謝。

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

後來更改如下:
Private Sub cmdsave_Click()
F = FreeFile
Open "c:\data\hello.txt" For OutPut As #F
Print #F, Text2.Text
Close #F
End Sub

但我還是希望能向第一支程式一樣跳一個視窗出來讓我自己選擇要存在那裡,自己命名檔名。
chung1206 目前離線  
送花文章: 25, 收花文章: 108 篇, 收花: 261 次
回覆時引用此帖
有 2 位會員向 chung1206 送花:
Living (2009-06-27),羅迪 (2009-09-18)
感謝您發表一篇好文章
舊 2009-06-26, 02:28 PM   #2 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時
註冊日期: 2002-12-07
文章: 13276
精華: 0
現金: 26303 金幣
資產: 3024113 金幣
預設

引用:
作者: chung1206 查看文章
各位先進們好,我在Form1表單裡做了一個button為另存新檔,但不知道要如何將TextBox的內容存起來,希望大大指教一二,謝謝。

後來更改如下:
Private Sub cmdsave_Click()
F = FreeFile
Open "c:\data\hello.txt" For OutPut As #F
Print #F, Text2.Text
Close #F
End Sub

但我還是希望能向第一支程式一樣跳一個視窗出來讓我自己選擇要存在那裡,自己命名檔名。
可以使用 Inputbox

Private Sub cmdsave_Click()
Dim sFileName As String

sFileName = InputBox("請輸入路徑+檔名", "存檔", "c:\data\hello.txt")
F = FreeFile
Open sFileName For OutPut As #F
Print #F, Text2.Text
Close #F
End Sub

再不然就要使用
CommonDialog

你只要把第一段與第二段修改結合一下就好了
語法:
    With CommonDialog1
        .DialogTitle = "選擇檔案"
        .Filter = "處理清單(*.fnl)|*.fnl"
        .ShowSave
        If Len(.filename) = 0 Then Exit Sub
        F = FreeFile 
        Open .filename For OutPut As #F 
        Print #F, Text2.Text 
        Close #F 
    End With
mini 目前離線  
送花文章: 2003, 收花文章: 7966 篇, 收花: 26761 次
回覆時引用此帖
有 3 位會員向 mini 送花:
chung1206 (2009-06-27),Living (2009-06-27),羅迪 (2009-09-18)
感謝您發表一篇好文章
舊 2009-06-27, 08:45 AM   #3 (permalink)
註冊會員
 
chung1206 的頭像
榮譽勳章
UID - 322141
在線等級: 級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時
註冊日期: 2009-04-14
住址: Kaohsiung
文章: 192
精華: 0
現金: 121 金幣
資產: 521 金幣
預設

引用:
作者: mini 查看文章
可以使用 Inputbox

Private Sub cmdsave_Click()
Dim sFileName As String

sFileName = InputBox("請輸入路徑+檔名", "存檔", "c:\data\hello.txt")
F = FreeFile
Open sFileName For OutPut As #F
Print #F, Text2.Text
Close #F
End Sub

再不然就要使用
CommonDialog

你只要把第一段與第二段修改結合一下就好了
語法:
    With CommonDialog1
        .DialogTitle = "選擇檔案"
        .Filter = "處理清單(*.fnl)|*.fnl"
        .ShowSave
        If Len(.filename) = 0 Then Exit Sub
        F = FreeFile 
        Open .filename For OutPut As #F 
        Print #F, Text2.Text 
        Close #F 
    End With
感謝大大指教,我後來是用CommonDialog的方式,想請教一下大大有沒有這方面的
書可以推薦一下,我去書局找VB的書都沒有教這種的,只有教如何將另存新檔那個畫
面打開而已,這算小技巧嗎?
chung1206 目前離線  
送花文章: 25, 收花文章: 108 篇, 收花: 261 次
回覆時引用此帖
有 2 位會員向 chung1206 送花:
Living (2009-06-27),羅迪 (2009-09-18)
感謝您發表一篇好文章
舊 2009-06-27, 10:39 AM   #4 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時
註冊日期: 2002-12-07
文章: 13276
精華: 0
現金: 26303 金幣
資產: 3024113 金幣
預設

很久沒買書了
現在都是網路搜尋... (要很有耐心就對了)
mini 目前離線  
送花文章: 2003, 收花文章: 7966 篇, 收花: 26761 次
回覆時引用此帖
有 2 位會員向 mini 送花:
Living (2009-06-27),羅迪 (2009-09-18)
感謝您發表一篇好文章
發文 回覆


主題工具
顯示模式

發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
OFFICE 的自動圖文集如何儲存、匯出 charle5168 一般電腦疑難討論區 5 2003-04-23 08:54 AM
如何將錄音帶的內容燒錄到光碟上 胡真 一般電腦疑難討論區 2 2003-02-09 03:48 AM
高手請問 要如何去看YUV及.dll的內容 tomland 軟體應用問題討論區 0 2003-01-03 09:20 AM
IE 裡的內容分級警示器如何破解 upside 一般電腦疑難討論區 1 2002-12-28 05:58 PM
[問題]線上新聞要如何儲存下來 ych1022 一般電腦疑難討論區 0 2002-12-13 08:59 PM


所有時間均為台北時間。現在的時間是 07:10 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2024, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1