可否請問各位大大目前我可以手動去拖拉MSFlexGrid儲存格的寬和高
但是我想要把被我拖拉MSFlexGrid儲存格的每行和每列寬度和高度寫入
.txt檔裡!
但不知要如何寫入(.txt)時是依照我所拖拉MSFlexGrid儲存格的每行和每列寬度和高度的值
然後我去讀檔(.txt)可以依照(.txt)內的值去把MSFlexGrid儲存格變成我所設的每一行和列寬度和高度
簡單說就是把每一行寬和列的寬度和高度值寫入(.txt)
讀入(.txt)時把每一行的寬和列做動態改變成(.txt)內值的大小
2006-12-04 04:48:39 · 2 個解答 · 發問者 鳴 5 in 電腦與網際網路 ➔ 程式設計
因為我目前是把MSFlexGrid儲存格內的資料給存到(.txt)
但讀檔(.txt)要是MSFlexGrid儲存格內的資料太長會被下一個儲存格給蓋住看不到所以我又不會所以我來發問?
2006-12-04 04:57:32 · update #1
拜託各位大大
2006-12-04 04:58:19 · update #2
原碼可以打搜尋MSFlexGrid存檔與讀檔....就可以找到!
謝謝
2006-12-04 04:59:37 · update #3
'表單關閉時記錄欄寬列高Private Sub Form_Unload(Cancel As Integer) Dim I%, S$ 'Open "C:\...txt" For Output As #1...開檔 With MSFlexGrid1 For I = 0 To .Cols - 1 S = S & .ColWidth(I) & " " Next S = Left$(S, Len(S) - 1) '欄寬 '記錄欄寬Print #1 , S S = "" For I = 0 To .Rows - 1 S = S & .RowHeight(I) & " " Next S = Left$(S, Len(S) - 1) '列高 'Print #1 , S '記錄列高 End With 'Cloes #1End Sub'Load表單時載入欄寬列高Private Sub Form_Load() Dim I%, S$, A$() 'Open "C:\...txt" For Input As #1...讀檔 With MSFlexGrid1 'Input #1, S 讀入欄寬 A = Split(S) For I = 0 To .Cols - 1 .ColWidth(I) = A(I) Next 'Input #1, S 讀入列高 A = Split(S) For I = 0 To .Rows - 1 .RowHeight(I) = A(I) Next End With 'Cloes #1End Sub'提供一下我的做法:我都是在資料載入MSFlexGrid的同時順便計記錄文字的寬度,當文字的寬度超過欄寬時再調整,如此就無須再去記錄欄寬,而列高也是如此作法.'文字的寬度=Me.TextWidth("資料") + 6 * Screen.TwipsPerPixelX(要多加6 * Screen.TwipsPerPixelX是當你的MSFlexGrid格子設為3D時實際欄寬會短個4個像素左右,外加2個像素免得過於擁擠.)
2006-12-04 16:51:37 補充：
嗯...剛剛看完亞洲盃棒球賽,差點沒被那個韓狗籍主審氣死,幸好台灣還是贏了;命運好好玩...很少看XD,
Cloes>拍謝啦,打錯了
2006-12-04 08:14:39 · answer #1 · answered by W.J.S. 7 · 0⤊ 0⤋
題外話:
wjs大大你有沒有看過命運好好玩?
是電影喔!
我是想說要好好珍惜身邊的人(親人)事(過程)物(東西)別快轉掉喔!
2006-12-04 22:32:45 補充：
哈哈哈!有贏就好
2006-12-04 09:14:00 · answer #2 · answered by 鳴 5 · 0⤊ 0⤋