1樓：匿名使用者
private sub form_load()msflexgrid1.cols = 5
msflexgrid1.rows = 5
for i = 1 to 24
msflexgrid1.textarray(i) = inext
end sub
private sub msflexgrid1_click()msflexgrid1.col = 0
msflexgrid1.colsel = msflexgrid1.cols - 1
for i = 1 to msflexgrid1.cols - 1debug.print msflexgrid1.
textmatrix(msflexgrid1.rowsel, i); " ";
next
debug.print
'如果未整行選中則用以下這句
'debug.print msflexgrid1.textmatrix(msflexgrid1.rowsel, msflexgrid1.colsel)
end sub
2樓：匿名使用者
text1.text= mshflexgrid1.textmatrix(2, 3)
表示讀取msflexgrid1的第2行第3列的值到文字框text1中
3樓：匿名使用者
private sub list1_click() '我把msflexgrid1取名為list1
dim row1
row1 = list1.row
with list1
text3(0) = .textmatrix(row1, 1)text3(1) = .textmatrix(row1, 2)text3(2) = .
textmatrix(row1, 3)text3(3) = .textmatrix(row1, 4)text3(4) = .textmatrix(row1, 5)text3(5) = .
textmatrix(row1, 6)end with
end sub
vb中msflexgrid控制元件單機如何改變某行背景顏色？？請高手指點
4樓：擁雲莊主
首先，右鍵單擊msflexgrid，選擇屬性，開啟屬性頁，然後在通用裡面，把焦點區改成0 - none，選定模式改為1 - by row，如圖：
這樣你單擊某個單元格，就會選中這一整行，而且選中的單元格不會有焦點框，不影響美觀
然後，在msflexgrid的click事件裡新增**：
'假設msflexgrid的名字叫msgridmsgrid.backcolorsel = vbblue'把選中行的背景色改成藍色
就行了效果圖：
vb中，msflexgrid1控制元件，標題行居中，其他行右。如何設定。
vb msflexgrid1控制元件顯示行數設定
5樓：匿名使用者
你設定其高度就是，資料多了滾動條自動出現
vb 文字框顯示相應msflexgrid的某行記錄
6樓：手機使用者
private sub form_load()msflexgrid1.cols = 5
msflexgrid1.rows = 5
for i = 1 to 24
msflexgrid1.textarray(i) = inext
end sub
private sub msflexgrid1_click()msflexgrid1.col = 0
msflexgrid1.colsel = msflexgrid1.cols - 1
for i = 1 to msflexgrid1.cols - 1debug.print msflexgrid1.
textmatrix(msflexgrid1.rowsel, i); " ";
next
debug.print
'如果未整行選中則用以下這句
'debug.print msflexgrid1.textmatrix(msflexgrid1.rowsel, msflexgrid1.colsel)
end sub
7樓：匿名使用者
private sub form_activate()
text1.setfocus
end sub
private sub form_load()
msflexgrid1.cols = 10
msflexgrid1.rows = 10
msflexgrid1.tabstop = false
text1.tabstop = false
text1.text = msflexgrid1.text
text1.move msflexgrid1.left + msflexgrid1.
cellleft, msflexgrid1.top + msflexgrid1.celltop, msflexgrid1.
cellwidth, msflexgrid1.cellheight
end sub
private sub msflexgrid1_click()
text1.move msflexgrid1.left + msflexgrid1.
cellleft, msflexgrid1.top + msflexgrid1.celltop, msflexgrid1.
cellwidth, msflexgrid1.cellheight
text1.text = msflexgrid1.text
text1.selstart = 0
text1.sellength = len(msflexgrid1.text)
text1.setfocus
end sub
private sub text1_keypress(keyascii as integer)
if keyascii = 9 or keyascii = 13 then
msflexgrid1.text = text1.text
keyascii = 0
if msflexgrid1.row = msflexgrid1.rows - 1 and msflexgrid1.
col = msflexgrid1.cols - 1 then
msflexgrid1.col = 1
msflexgrid1.row = 1
call msflexgrid1_click
exit sub
end if
if msflexgrid1.col <> msflexgrid1.cols - 1 then
msflexgrid1.col = msflexgrid1.col + 1
call msflexgrid1_click
else
msflexgrid1.col = 1
msflexgrid1.row = msflexgrid1.row + 1
call msflexgrid1_click
end if
end if
end sub
private sub text1_keyup(keycode as integer, shift as integer)
msflexgrid1.text = text1.text
if keycode = 38 then
if msflexgrid1.row = 1 then exit sub
msflexgrid1.row = msflexgrid1.row - 1
call msflexgrid1_click
exit sub
end if
if keycode = 40 then
if msflexgrid1.row = msflexgrid1.rows - 1 then exit sub
msflexgrid1.row = msflexgrid1.row + 1
call msflexgrid1_click
exit sub
end if
end sub
怎麼讓小說用語音讀出來
天青軒轅 你好，很高興為你答題 如果是想聽聲情並茂的 朗讀，可以到網頁或一些有聲 軟體中搜尋下該 的有聲版，如廣播劇或者有聲 即可。如果只要讀給你聽就行的話，下個91熊貓看書軟體，它自帶機器朗讀功能,希望可以幫到你 百里樓 在介面右上方輸入你需要的書籍名，就可以直接在手機中聽書了。 懶人聽書，這個軟...
英制長度單位8 64是多長？英語怎麼讀出來
8 64 與1 8 就像2 4與1 2一樣這是小學算術，分子分母同時除以一個相同的數這個分數的值不變。在英語裡面的寫法與在中文裡面的寫法是相同的，都寫1 8 中文讀作 八分之一英寸 8 64 只有在非常特定的場合下才使用 在英文裡面1 8 一般讀作 one eighth inch.它的長度換算成米制...
短褲英語怎麼讀，褲子的英語怎麼讀並讀出來
撒青亦 shorts 讀法 削兒死 或者 pants 讀法 判死 褲子的英語怎麼讀並讀出來 暴走少女 褲子的英語單詞是pants或者trousers.pants的英式讀法是 p nts 美式讀法是 p nts 作名詞意思有褲子，短褲 名詞pant的複數形式 作動詞意思有氣喘吁吁 渴望 動詞pant的...