1,如果想把某一列設(shè)置成下拉框中選擇，只能寫(xiě)成 grid.colcombolist(1) = "a|b|c" 嗎？能不能把下拉框中的數(shù)據(jù)和 recordset 或數(shù)組綁定。
答案:grid.colcombolist(1)＝grid.buildcombolist(rs!abc)
2,怎樣限定第三列可編輯,其他列不可編輯?
答案:
Private Sub fg_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
'*******先將設(shè)editable=2
'限定不可編輯列,如有5列
If Col = 0 Then Cancel = True
If Col = 1 Then Cancel = True
If Col = 2 Then Cancel = True
If Col = 4 Then Cancel = True
If Col = 5 Then Cancel = True
End Sub
3、怎么獲得當(dāng)前單元個(gè)的位置，比如某單元個(gè)獲得焦點(diǎn)，彈出msgbox("你選的是第4行第5列")
Answer:
Private Sub VSFlexGrid1_Click()
Dim a, b As Long
a = VSFlexGrid1.Row
b = VSFlexGrid1.Col
MsgBox "你選的是" & a & "行" & b & "列"
End Sub
4,對(duì)vsflexgrid進(jìn)行編輯的時(shí)候，讓vsflexgrid的某列只能輸入數(shù)字?
Answer:
Private Sub CheckData(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then Exit Sub '如果是數(shù)字退出
If KeyAscii <> 8 Then KeyAscii = 0
End Sub
Private Sub vsflexgrid_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
If col=1 Then '第一列只能輸入數(shù)字
CheckData KeyAscii
End If
End Sub
5,限制某列只能輸入數(shù)字
Answer:
Private Sub fg_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
Dim Numbers As String '允許輸入的字符
If fg.Col = 6 Then '第6列
Numbers = "1234567890" + Chr(46) + Chr(8)
If InStr(Numbers, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
6,如何指定一列的輸入格式
例如：顯示有小數(shù)點(diǎn)后3位（是整數(shù)的話顯示.000；沒(méi)有達(dá)到3位顯示.200（追加0）；超過(guò)的4舍五入）
例如：顯示有小數(shù)點(diǎn)后3位（是整數(shù)的話顯示.000；沒(méi)有達(dá)到3位顯示.200（追加0）；超過(guò)的4舍五入）
Answer:
if fg.col=5 then '第五行
for i=1 to fg.rows-1
fg.TextMatrix(i,5)=format(fg.TextMatrix(i,5),"##0.000")
next i
end if
7,在一個(gè)單元格輸入好數(shù)字回車(chē)，下一單元格（或者下一行第一個(gè)）自動(dòng)獲得焦點(diǎn)。
這個(gè)怎么實(shí)現(xiàn)？
這個(gè)怎么實(shí)現(xiàn)？
Answer:
試試這個(gè),,,,,
' With fg
' If .Col = .Cols - 1 Then
' '如果到了最右邊的列就跳到下一行第一個(gè)可非固定列
' '.Row = Row + 1
' .Col = .FixedCols
' Else
' '向右移動(dòng)一列
' .Col = Col + 1
' End If
' End With
8,最下面的合計(jì)的那一行是怎么加的？？希望樓主指點(diǎn)一下，謝謝！
Ansewr:
合計(jì)行添加代碼:
'*****************************************
'顯示計(jì)算合計(jì)行
.Rows = .Rows + 1
Dim r&, c&, tot!
For c = 1 To .Cols - 1
tot = 0
For r = 1 To .Rows - 2
tot = tot + .valueMatrix(r, c)
Next
.TextMatrix(r, c) = tot
Next
'*****************
,'在合計(jì)頭列標(biāo)明合計(jì),合并單元格
' For I = 0 To 1
.TextMatrix(.Rows - 1, 0) = "合 計(jì)"
' .FixedAlignment(I) = 4
' Next
.MergeCells = flexMergeFixedOnly
.MergeRow(r) = True
9,怎么樣點(diǎn)擊一條VSFlexgrid控件里的記錄時(shí)下面的TEXT控件就顯示相應(yīng)的內(nèi)容？
Ansewr:
text1=fg.TextMatrix(fg.RowSel, 2) '顯示第二列信
10,如果想把某一列設(shè)置成下拉匡中選擇，只能寫(xiě)成 grid.colcombolist(1) = "a|b|c" 嗎？能不能把下拉框中的數(shù)據(jù)和 recordset 或數(shù)組綁定。
Answer:
grid.colcombolist(1)＝grid.buildcombolist(rs!abc)
11,我用的是VsFlexGrid 8
如何把表格里面的Name變成我指定的文字,
以前用的是DataGrid,實(shí)現(xiàn)的方法是DataGrid1.Columns.Caption="名字"
現(xiàn)在學(xué)用VsFlexGrid,請(qǐng)高手指點(diǎn).
Answer:
我來(lái)了,這段時(shí)間實(shí)在太忙了,,,沒(méi)能及時(shí)回答大家的問(wèn)題,,,,
指定name可以這樣表示:
vfg.TextMatrix(0,1)="我的名字"
12,如何讓我選擇的不是一個(gè)框,而是一整行,還有就是如何能把我選擇的這一行的第一個(gè)框里的字添加到text1.text里.
Answer:
1,有一個(gè)屬性可以讓你的選擇是一行的.
SelectionMode=1
2,text1=fg.TextMatrix(fg.RowSel,1)
在click事件里實(shí)現(xiàn)
13,運(yùn)行時(shí)如何調(diào)整調(diào)行或列寬度?
Answer:
AllowUserResizing=1 '可調(diào)列
AllowUserResizing=2 '可調(diào)行
AllowUserResizing=3 '可調(diào)行和列
最近很多朋友問(wèn)我關(guān)于VSflexgrid的問(wèn)題,,,由于我很忙,沒(méi)能及時(shí)回答,請(qǐng)多諒解;
特此,我找來(lái)了一些資料,供大家參考:
VSFLEXgrid控件概況】
[主要特點(diǎn)]
VSFlexGrid Pro 7.0 是一功能強(qiáng)大的數(shù)據(jù)表格控件，高速、緊湊、靈活、輕便、無(wú)須依賴任何應(yīng)用工具，支持?jǐn)?shù)據(jù)化格式選項(xiàng)，能將表格列連接到圖象列和墻紙屬性上以提高應(yīng)用工具的實(shí)現(xiàn)程度。如果應(yīng)用工具無(wú)須數(shù)據(jù)庫(kù)的支持，如果你的應(yīng)用程序不需要數(shù)據(jù)庫(kù)的支持,那么使用VSFlexGrid Pro新的非綁定版本可以使應(yīng)用程序的尺寸最小,而且發(fā)布應(yīng)用程序時(shí)也不需要發(fā)布相應(yīng)的ADO動(dòng)態(tài)鏈接庫(kù). VSFlexGrid Pro 7.0可代替任何簡(jiǎn)單的列表框，瀏覽器，記事本等等，所以說(shuō)它不僅僅只是一個(gè)表格控件。
FLexArray網(wǎng)格擴(kuò)展控件
能夠設(shè)置每個(gè)單元格的顏色和字體/能夠?qū)卧獌?nèi)容能進(jìn)行快速有效的排序/設(shè)置RowPosition和ColPosition屬性，即可在運(yùn)行狀態(tài)移動(dòng)行列的位置/使用MergeCell屬性，無(wú)須改寫(xiě)代碼即可將內(nèi)容一致的單元格加以合并/能夠在設(shè)計(jì)過(guò)程定義行列的頁(yè)眉、寬度和位置，進(jìn)行界面設(shè)計(jì)/改變?nèi)笔∽煮w大小，能夠自動(dòng)調(diào)整與之相對(duì)應(yīng)的單元格尺寸/支持2000行以上表格，單元格內(nèi)容可達(dá)32k以上/能夠進(jìn)行行列的隱藏/能夠進(jìn)行字體的微調(diào)整（參考FontWidth屬性）/具有多種多樣的網(wǎng)格形式和色彩/支持圖文混排/多種光標(biāo)和被選擇內(nèi)容的顯示方式等等。
FlexString字符串處理控件
能夠設(shè)定檢索字符串與置換字符串， 在表格中找到與檢索字符串相符的字符并將其置換為置換字符串中設(shè)置的字符/可以將檢索字符串分成幾個(gè)字段，給每個(gè)字段加入標(biāo)簽，使用標(biāo)簽代替字符串進(jìn)行檢索與置換/使用規(guī)范化表達(dá)式，規(guī)范化表達(dá)式是一個(gè)設(shè)定和匹配字符串的注釋，類(lèi)似于數(shù)學(xué)公式里的運(yùn)算符。
[功能]
最新功能
提供了豐富的功能可以迅速創(chuàng)建靈活、功能強(qiáng)大的前端，無(wú)須用戶額外支出。VSFlexGrid Pro 7.0 100%向下兼容VB環(huán)境下的MSFlexGrid，所以對(duì)于目前的版本升級(jí)非常容易。
提供的新功能可顯示、模塊編輯、格式化、組織、概括、打印表格數(shù)據(jù)。數(shù)據(jù)可以按條件初始化，對(duì)于超出指定范圍的數(shù)據(jù)會(huì)加強(qiáng)表示。可用戶化輸入網(wǎng)格和單個(gè)單元外觀幾乎所有的方面，并利用相似值合并鄰近單元，使得表格更容易讀取分析。
支持ADO和OLE DB
VSFlexGrid Pro支持ADO和OLE DB，支持統(tǒng)一的字符編碼以及DAO數(shù)據(jù)的 存取，提供多重?cái)?shù)據(jù)連接的選擇。 ADO/OLEDB、DAO可連接到二維、三維 數(shù)組或其他VSFlexGrid控件，用戶也可創(chuàng)建用戶自己的數(shù)據(jù)源類(lèi)。甚至可以 在無(wú)界模式中使用表格，或?qū)⒈砀襁B接到變量數(shù)組及一用戶可自己開(kāi)發(fā)的數(shù)據(jù) 源。
完整的打印功能
可以保存、檢索多張表格和打印格式。最新的PrintGrid方法可讓用戶打印單 條語(yǔ)句，能夠控制紙張定位、頁(yè)邊、文本字體，顯示一對(duì)話框讓用戶選擇設(shè) 置打印機(jī)。同時(shí)也可控制頁(yè)中斷，添加表頭，并在每一頁(yè)上添加用戶單元。
支持分層數(shù)據(jù)
可進(jìn)行排序， 模塊編輯，轉(zhuǎn)化組合框和圖表框和自動(dòng)數(shù)據(jù)聚合。甚至可使用 VSFlexGrid Pro 分級(jí)顯示數(shù)據(jù)。類(lèi)似于樹(shù)形控件，通過(guò)顯示刪除或擴(kuò)張的結(jié)點(diǎn) 用來(lái)表示含有附加數(shù)據(jù)的分支。分級(jí)顯示樹(shù)可在任一列中出現(xiàn)，甚至可出現(xiàn) 在異步分支上。分級(jí)顯示樹(shù)的外觀可用NodeOpenPicture 和NodeClosedPicture 的屬性用戶化。
更簡(jiǎn)單的版本
如果用戶的應(yīng)用工具無(wú)須數(shù)據(jù)庫(kù)的支持，VSFlexGrid Pro包含了表格控件更簡(jiǎn) 單的版本。使用VSFlexGrid Pro新的非綁定版本可以使應(yīng)用程序的尺寸最小, 發(fā)布應(yīng)用程序時(shí)也不需要發(fā)布相應(yīng)的ADO動(dòng)態(tài)鏈接庫(kù).消除了DLL版本的問(wèn)題。
其他功能
合并單元
VSFlexGrid控件允許跨越多重行與列合并值相同的鄰近單元。提高了數(shù)據(jù)在表 格中顯示，提高了數(shù)據(jù)的讀取和分析。單元合并可用于創(chuàng)建合并的圖表表頭、 合并的數(shù)據(jù)視圖，以及創(chuàng)建能將文本溢出到相鄰列的表格。
屏蔽模塊
輸入模板可說(shuō)明自動(dòng)控件以及有效數(shù)據(jù)的輸入，減少了數(shù)據(jù)輸入的錯(cuò)誤。模塊 語(yǔ)法類(lèi)似于Microsoft MaskedEdit 控件和 Microsoft Access中的模塊語(yǔ)法。
Component One Vs-Flex Grid pro 7.0
VB標(biāo)準(zhǔn)網(wǎng)絡(luò)控件和文本控件的擴(kuò)展
版本：7.0
標(biāo)準(zhǔn)價(jià)格：41,300.00 元
使用權(quán)限：發(fā)布免費(fèi)
近期推出Videosoft公司一款全新的ActiveX控件---VSFlexGridPro7.0。 VSFlexGrid Pro 7.0 是一功能強(qiáng)大 的數(shù)據(jù)表格控件，高速、緊湊、靈活、輕便、無(wú)須依賴任何應(yīng)用工具，支持?jǐn)?shù)據(jù)化格式選項(xiàng)，能將表格列連接到圖象列和墻紙屬性上以提高應(yīng)用工具的實(shí)現(xiàn)程度。如果應(yīng)用工具無(wú)須數(shù)據(jù)庫(kù)的支持，如果你的應(yīng)用程序不需要數(shù)據(jù)庫(kù)的支持,那么使用VSFlexGrid Pro新的非綁定版本可以使應(yīng)用程序的尺寸最小,而且發(fā)布應(yīng)用程序時(shí)也不需要發(fā)布相應(yīng)的ADO動(dòng)態(tài)鏈接庫(kù). VSFlexGrid Pro 7.0可代替任何簡(jiǎn)單的列表框，瀏覽器，記事本等等，所以說(shuō)它不僅僅只是一個(gè)表格控件。
[主要特點(diǎn)]
FLexArray網(wǎng)格擴(kuò)展控件
能夠設(shè)置每個(gè)單元格的顏色和字體/能夠?qū)卧獌?nèi)容能進(jìn)行快速有效的排序/設(shè)置RowPosition和ColPosition屬性，即可在運(yùn)行狀態(tài)移動(dòng)行列的位置/使用MergeCell屬性，無(wú)須改寫(xiě)代碼即可將內(nèi)容一致的單元格加以合并/能夠在設(shè)計(jì)過(guò)程定義行列的頁(yè)眉、寬度和位置，進(jìn)行界面設(shè)計(jì)/改變?nèi)笔∽煮w大小，能夠自動(dòng)調(diào)整與之相對(duì)應(yīng)的單元格尺寸/支持2000行以上表格，單元格內(nèi)容可達(dá)32k以上/能夠進(jìn)行行列的隱藏/能夠進(jìn)行字體的微調(diào)整（參考FontWidth屬性）/具有多種多樣的網(wǎng)格形式和色彩/支持圖文混排/多種光標(biāo)和被選擇內(nèi)容的顯示方式等等
FlexString字符串處理控件
能夠設(shè)定檢索字符串與置換字符串， 在表格中找到與檢索字符串相符的字符并將其置換為置換字符串中設(shè)置的字符/可以將檢索字符串分成幾個(gè)字段，給每個(gè)字段加入標(biāo)簽，使用標(biāo)簽代替字符串進(jìn)行檢索與置換/使用規(guī)范化表達(dá)式，規(guī)范化表達(dá)式是一個(gè)設(shè)定和匹配字符串的注釋，類(lèi)似于數(shù)學(xué)公式里的運(yùn)算符。
[新特性]
最新功能
提供了豐富的功能可以迅速創(chuàng)建靈活、功能強(qiáng)大的前端，無(wú)須用戶額外支出。VSFlexGrid Pro 7.0 100%向下兼容VB環(huán)境下的MSFlexGrid，所以對(duì)于目前的版本升級(jí)非常容易。
提供的新功能可顯示、模塊編輯、格式化、組織、概括、打印表格數(shù)據(jù)。數(shù)據(jù)可以按條件初始化，對(duì)于超出指定范圍的數(shù)據(jù)會(huì)加強(qiáng)表示?？捎脩艋斎刖W(wǎng)格和單個(gè)單元外觀幾乎所有的方面，并利用相似值合并鄰近單元，使得表格更容易讀取分析。
支持ADO和OLE DB
VSFlexGrid Pro支持ADO和OLE DB，支持統(tǒng)一的字符編碼以及DAO數(shù)據(jù)的 存取，提供多重?cái)?shù)據(jù)連接的選擇。 ADO/OLEDB、DAO可連接到二維、三維 數(shù)組或其他VSFlexGrid控件，用戶也可創(chuàng)建用戶自己的數(shù)據(jù)源類(lèi)。甚至可以 在無(wú)界模式中使用表格，或?qū)⒈砀襁B接到變量數(shù)組及一用戶可自己開(kāi)發(fā)的數(shù)據(jù) 源。
完整的打印功能
可以保存、檢索多張表格和打印格式。最新的PrintGrid方法可讓用戶打印單 條語(yǔ)句，能夠控制紙張定位、頁(yè)邊、文本字體，顯示一對(duì)話框讓用戶選擇設(shè) 置打印機(jī)。同時(shí)也可控制頁(yè)中斷，添加表頭，并在每一頁(yè)上添加用戶單元。
支持分層數(shù)據(jù)
可進(jìn)行排序， 模塊編輯，轉(zhuǎn)化組合框和圖表框和自動(dòng)數(shù)據(jù)聚合。甚至可使用 VSFlexGrid Pro 分級(jí)顯示數(shù)據(jù)。類(lèi)似于樹(shù)形控件，通過(guò)顯示刪除或擴(kuò)張的結(jié)點(diǎn) 用來(lái)表示含有附加數(shù)據(jù)的分支。分級(jí)顯示樹(shù)可在任一列中出現(xiàn)，甚至可出現(xiàn) 在異步分支上。分級(jí)顯示樹(shù)的外觀可用NodeOpenPicture 和NodeClosedPicture 的屬性用戶化。
更簡(jiǎn)單的版本
如果用戶的應(yīng)用工具無(wú)須數(shù)據(jù)庫(kù)的支持，VSFlexGrid Pro包含了表格控件更簡(jiǎn) 單的版本。使用VSFlexGrid Pro新的非綁定版本可以使應(yīng)用程序的尺寸最小, 發(fā)布應(yīng)用程序時(shí)也不需要發(fā)布相應(yīng)的ADO動(dòng)態(tài)鏈接庫(kù).消除了DLL版本的問(wèn)題。
其他功能
合并單元
VSFlexGrid控件允許跨越多重行與列合并值相同的鄰近單元。提高了數(shù)據(jù)在表 格中顯示，提高了數(shù)據(jù)的讀取和分析。單元合并可用于創(chuàng)建合并的圖表表頭、 合并的數(shù)據(jù)視圖，以及創(chuàng)建能將文本溢出到相鄰列的表格。
屏蔽模塊
輸入模板可說(shuō)明自動(dòng)控件以及有效數(shù)據(jù)的輸入，減少了數(shù)據(jù)輸入的錯(cuò)誤。模塊 語(yǔ)法類(lèi)似于Microsoft MaskedEdit 控件和 Microsoft Access中的模塊語(yǔ)法
[控件屬性一覽表]
FlexString控件屬性一覽表
Error失敗時(shí)取得錯(cuò)誤信息
MatchCount取得與檢索條件相一致的字符串?dāng)?shù)量
MatchIndex設(shè)定與檢索條件相一致的字符串的索引
MatchLength取得與檢索條件相一致的字符串長(zhǎng)度
MatchStart
取得與檢索條件相一致的字符串起始位置
MatchString取得與檢索條件相一致的字符串
Pattern 設(shè)定檢索條件
Replace設(shè)定置換字符串
SoundexText取得代表當(dāng)前檢索字符的聲音代碼
TagCount取得與檢索條件相一致的標(biāo)簽數(shù)量
TagIndex在多個(gè)標(biāo)簽情況下，設(shè)定/取得與檢索條件相一致的標(biāo)簽索引
TagLength取得與檢索條件相一致的標(biāo)簽長(zhǎng)度
TagStart取得與檢索條件相一致的標(biāo)簽起始位置
TagString取得與檢索條件相一致的標(biāo)簽的字符串
Text設(shè)定成為檢索對(duì)象
Version取得FlexString的版本號(hào)
FlexString控件屬性一覽表
AllowBigSelection設(shè)定行列頭的選擇
AllowUserResizing設(shè)定行列大小的設(shè)定
BackColor設(shè)定FlexArray所有表格的背景顏色
BackColorBkg設(shè)定背景顏色
BackColorFixed設(shè)定固定行/列的背景顏色
BackColorSel設(shè)定選擇單元的背景顏色
CellAlignment設(shè)定單元里數(shù)據(jù)的排列方式
CellBackColor設(shè)定單元或指定范圍的背景顏色
CellFontBold把單元或指定范圍的字體設(shè)定為黑體字
CellFontItalic把單元或指定范圍的字體設(shè)定為斜體字
CellFontName設(shè)定單元或指定范圍的字體
CellFontSize設(shè)定單元或指定范圍字體的大小
CellFontWidth設(shè)定單元或指定范圍字體的寬度
CellForeColor設(shè)定單元或指定范圍字體的顏色
CellHeight返回當(dāng)前單元的高度
CellLeft返回當(dāng)前單元的左端位置
CellTop返回當(dāng)前單元的頂端位置
CellWidth返回當(dāng)前單元的寬度
CellPicture指定顯示在單元或指定范圍中的圖片
CellPicture
Alingment指定單元或范圍中圖片的顯示位置
CellTextStyle設(shè)定單元文本的顯示形式
Clip<設(shè)定/返回選擇范圍的內(nèi)容
Col設(shè)定/返回激活單元的列號(hào)
ColAlingment( )設(shè)定/返回列的排列方式
ColData( )設(shè)定/返回一個(gè)用戶定義信息的長(zhǎng)整形數(shù)據(jù)
ColPosition( )移動(dòng)列的位置
Cols指定返回列的總數(shù)
ColSel指定選擇范
ColWidth( )設(shè)定所指定列的寬度
FillStyle指定是否改變當(dāng)前單元或選擇范圍的內(nèi)容或單元格式
FixedCols設(shè)定固定列的總數(shù)
FixedRows設(shè)定固定行的總數(shù)
FocusRect設(shè)定選中單元周?chē)腇ocus Rectangle類(lèi)型
FontWidth設(shè)定字體的寬度
ForeColorFixed設(shè)定固定單元的文本顏色
ForeColorSel設(shè)定選擇單元的文本顏色
FormatString在設(shè)計(jì)過(guò)程中設(shè)定列寬、排列方式及固定的行/列
GridColor指定網(wǎng)格線的顏色
GridColorFixed設(shè)定固定網(wǎng)格線的顏色
GridLines指定網(wǎng)格線的類(lèi)型
GridLinesFixed指定固定單元的網(wǎng)格線形式
HighLight設(shè)定是否突出顯示選中單元
LeftCol指定顯示在最左邊的列
MergeCells設(shè)定是否合并內(nèi)容相同的單元格
MergeCol( )設(shè)定指定列的單元合并
MergeRow( )設(shè)定指定行的單元合并
MouseCol設(shè)定鼠標(biāo)指向的列號(hào)
MouseRow設(shè)定鼠標(biāo)指向的行號(hào)
ReDraw設(shè)定是否刷新FlexArray控件
Picture返回FlexArray控件的圖片
PictureType指定用Picture屬性生成的圖片類(lèi)型
Row設(shè)定/返回激活單元的行號(hào)
RowData( )設(shè)定/返回一個(gè)用戶定義信息的長(zhǎng)整形數(shù)據(jù)
RowHeight( )設(shè)定指定行的高度
RowHeightMin設(shè)定行高的最小值
RowPosition( )移動(dòng)行的位置
Rows指定行的總數(shù)
RowSel指定行的選擇范圍
SelectionMode設(shè)定行、列或單元的選擇方式
ScrollBars設(shè)定卷動(dòng)軸的類(lèi)型
ScrollTrack設(shè)定卷動(dòng)方式
Sort按照選擇的基準(zhǔn)重新排列行的順序
Text設(shè)定/取得單元的文本
TextArray( )設(shè)定/取得任意單元的文本
TextMatrix( )設(shè)定/取得任意單元的文本
TextStyle顯示單元中文本的3D效果
TextStyleFixed顯示固定行/列中文本的3D效果
TopRow指定顯示在最上面的行
Version
FlexArray控件的版本號(hào)
WordWrap設(shè)定單元中的文本是否換行
VSflexgrid的破解方法
注冊(cè)方法:編輯注冊(cè)表
HKEY_CLASSES_ROOT\Licenses\403E0785-49A9-11d3-9BD5-D2DC2DD96072
聽(tīng)過(guò)vsview7.0沒(méi)有？這是破解方法，只需要在注冊(cè)表里建立三個(gè)鍵就可以.如下:
REGEDIT4
VSVIEW 7
[HKEY_CLASSES_ROOT\Licenses\04589820-F8F4-11d3-9A1F-AE842F4A083B]
@=""
[HKEY_CLASSES_ROOT\Licenses\F403E0785-49A9-11d3-9BD5-D2DC2DD96072]
@=""
[HKEY_CLASSES_ROOT\Licenses\403E0785-49A9-11d3-9BD5-D2DC2DD96072]
@=""
在vsflexgrid中單元格輸入完畢后，設(shè)置按回車(chē)鍵跳到同一行的下一個(gè)單元
Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)
With VSFlexGrid1
If .Col = .Cols - 1 Then
'如果到了最右邊的列就跳到下一行第一個(gè)可非固定列
.Row = Row + 1
.Col = .FixedCols
Else
'向右移動(dòng)一列
.Col = Col + 1
End If
End With
End Sub
vsflexGrid 如何只能讓某些特定列可編輯
'修改前看到是否需要修改
Private Sub Grid_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
'On Error GoTo err
If UiI10101.valueInt > 2 Then '*************定義允許修改的狀態(tài)，需修改
Cancel = True
Exit Sub
End If
If Grid.Col = Grid.cols - 8 Or Grid.Col = Grid.cols - 7 Then '*************定義可以修改的列，需修改
Cancel = False '使其有效
Else
Cancel = True '使其無(wú)效為真
End If
Exit Sub
Err:
RaiseErr "frmY005-Grid_MouseDown()"
End Sub
'修改后判斷是否合法
'cancel=true 取消修改的
Private Sub Grid_ValidateEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
On Error Resume Next
If Not IsNumeric(Grid.EditText) Then
MsgBox "輸入不合法,應(yīng)輸入一個(gè)數(shù)值", vbInformation, "提示"
Cancel = True
Exit Sub
End If
End Sub
'修改后來(lái)更改別的一些數(shù)據(jù)
Private Sub Grid_AfterEdit(ByVal Row As Long, ByVal Col As Long)
On Error Resume Next
'進(jìn)貨數(shù)量=包裝數(shù)量 * 整裝數(shù)量 + 零裝數(shù)量
Grid.TextMatrix(Row, Grid.cols - 6) = Grid.TextMatrix(Row, Grid.cols - 9) * Grid.TextMatrix(Row, Grid.cols - 8) + Grid.TextMatrix(Row, Grid.cols - 7)
End Sub
VSFLEXGRID7 中文輸入法自動(dòng)關(guān)閉問(wèn)題提示
同種數(shù)據(jù)類(lèi)型的單元格之間變換不要重啟輸入法.....
還有可以看看這代碼
Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _
lpList As Long) As Long
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal _
hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal _
flags As Long) As Long
Const IME_CONFIG_GENERAL = 1
Const KLF_REORDER = &H8
Const KLF_ACTIVATE = &H1
Dim la(1 To 16) As Long '輸入法列表
Dim ActIme As Long '當(dāng)前輸入法
Dim X% '當(dāng)單前輸入法數(shù)量
Private Sub Form_Load()
X = GetKeyboardLayoutList(32, la(1))
end sub
Private Sub vs1_AfterEdit(ByVal Row As Long, ByVal Col As long) 'vsflexgrid 控件存在輸入問(wèn)題？ 以下為避免方法
Dim colNumber As Long
Dim i As Long
Dim strName$
if col=1 then
ActivateKeyboardLayout la(1), 1
else
ActivateKeyboardLayout la(2), 2
end if
end Sub
用.AddItem在最后一行顯示數(shù)據(jù)
Rst_Hj.Open HjSQL, Cnn_Zl, adOpenDynamic, adLockOptimistic 'RST_hj是合計(jì)的記錄集
Main_YX.VSFlexGrid1.AddItem vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "合計(jì)" & vbTab & Rst_Hj.Fields(0) & vbTab & Rst_Hj.Fields(1) & vbTab & Rst_Hj.Fields(2) & vbTab & Rst_Hj.Fields(3) 'VBTAB是跳過(guò)一格填寫(xiě)
Rst_Hj.Close
'刪除連續(xù)選擇的記錄
If VSFlexGrid1.Row <> -1 And VSFlexGrid1.RowSel <> -1 Then
msg = MsgBox("你真的要?jiǎng)h除這些記錄嗎？", vbYesNo + vbQuestion)
Select Case msg
Case vbYes
For I = VSFlexGrid1.Row To VSFlexGrid1.RowSel
Str = Str + VSFlexGrid1.TextMatrix(I, 1) + ","
Next
Str = Mid(Str, 1, Len(Str) - 1)
Cmd_Zl.ActiveConnection = Cnn_Zl
Cmd_Zl.CommandText = "delete from zlk where 序號(hào) in (" + Str + ")"
Cmd_Zl.Execute
Set Cmd_Zl = Nothing
Case vbNo
Command6.Enabled = True
Rst_Zl.Close
Exit Sub
End Select
Else
MsgBox "請(qǐng)選擇您要?jiǎng)h除的記錄！?。?, vbExclamation
Exit Sub
End If
這是用vsprinter打印vsflexgrid內(nèi)容的例子，你可做參考。頁(yè)面設(shè)置的功能我也正在查找，如果找到肯定共享。
With VSPrinter1
'設(shè)置表頭,創(chuàng)建打印文檔
.Header = "|" & strTitle & vbCrLf & "|Page %d " '顯示Page n功能
.StartDoc
.Zoom = 100'顯示比例
.RenderControl = vsFlexGrid1.Hwnd'把網(wǎng)格內(nèi)容傳遞給vsView顯示
.EndDoc
End With
有誰(shuí)知道vsflexgrid1.PrintGrid命令參數(shù)怎么用？附上原英文幫助，有誰(shuí)看懂了請(qǐng)解釋一下好嗎！
Prints the grid on the printer.
Syntax
[form!]VSFlexGrid.PrintGrid [ DocName As String ], [ ShowDialog As Boolean ], [ Orientation As Integer ], [ MarginLR As Long ], [ MarginTB As Long ]
Remarks
The parameters for the PrintGrid method are described below:
DocName As String (optional)
Contains the name of the document being printed. This string appears in the printer window's job list and is also used as a footer.
ShowDialog As Variant (optional, default value = False)
If set to True, a printer selection/setup dialog is displayed before the document start printing. The user can then select which printer to use, page orientation etc.
Orientation As Variant (optional, default value = printer default)
Set this parameter to 1 to print the grid in Portrait mode, or set it to 2 to print the grid in Landscape mode. The default setting, zero, uses the default printer orientation.
MarginLR As Variant (optional, default value = 1440)
Left and right margins, in twips. The margins must be equal. The default value, 1440, corresponds to a one-inch margin.
MarginTB As Variant (optional)
Top and bottom margins, in twips. The margins must be equal. The default value, 1440, corresponds to a one-inch margin.
The grid is printed using the same fonts used to display it on the screen, so to achieve best results, make sure the grid's Font property is set to a TrueType font (such as Arial, Times New Roman, Tahoma, or Verdana).
While printing the grid, the control fires the BeforePageBreak and GetHeaderRow events. These events allow you to control page breaks and setup repeating headers.
The PrintGrid method prints the entire grid, possibly spilling across and down to new pages. To print only a part of the grid, hide to rows and columns you don't want to print, call the PrintGrid method, and restore the hidden rows and columns when you are done.
The code below shows how you can do this:
Private Sub PrintSelection(fg As VSFlexGrid, Row1&, Col1&, Row2&, Col2&)
' save current settings
Dim hl%, tr&, lc&, rd%
hl = fg.HighLight: tr = fg.TopRow: lc = fg.LeftCol: rd = fg.Redraw
fg.HighLight = 0
fg.Redraw = flexRDNone
' hide non-selected rows and columns
Dim i&
For i = fg.FixedRows To fg.Rows - 1
If i < Row1 Or i > Row2 Then fg.RowHidden(i) = True
Next
For i = fg.FixedCols To fg.Cols - 1
If i < Col1 Or i > Col2 Then fg.ColHidden(i) = True
Next
' scroll to top left corner
fg.TopRow = fg.FixedRows
fg.LeftCol = fg.FixedCols
' print visible area
fg.PrintGrid
' restore control
fg.RowHidden(-1) = False
fg.ColHidden(-1) = False
fg.TopRow = tr: fg.LeftCol = lc: fg.HighLight = hl
fg.Redraw = rd
End Sub
960521，提供的“如何設(shè)置vsflexgrid某行背景色”：
VSFlexGrid1.Cell(flexcpBackColor, row1, col1,row2, col2) = vbRed
例：設(shè)置第三行北景色為紅
VSFlexGrid1.Cell(flexcpBackColor, 3, 1, 3, VSFlexGrid1.Cols - 1) = vbRed
聯(lián)系客服
