讓VSFlexGrid的一行變成紅色，語句怎麽寫呀？怎樣限定輸入文本框的字符個數？

讓VSFlexGrid的一行變成紅色，語句怎麽寫呀？  
  vsfData.****=顔色值a  
  ****是什麽。可以將整個一行變成a色  
   
  怎樣限定輸入文本框的字符個數？語句  
   
  謝謝  
   
  问题点数：25、回复次数：3Top

1 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2003-11-04 16:52:42 得分 25

Option   Explicit  
   
  Dim   lngOldRow   As   Long  
   
  Private   Sub   Form_Load()  
          Dim   i   As   Long  
           
          MSFlexGrid1.Rows   =   10:   MSFlexGrid1.Cols   =   5  
           
          For   i   =   1   To   MSFlexGrid1.Rows   -   1  
                  MSFlexGrid1.TextMatrix(i,   1)   =   "aaaa"   &   i  
          Next  
           
          MSFlexGrid1.SelectionMode   =   flexSelectionByRow  
  End   Sub  
   
  Private   Sub   MSFlexGrid1_Click()  
          MSFlexGrid1.Redraw   =   False  
          Dim   i   As   Long,   lngNewRow   As   Long  
           
          lngNewRow   =   MSFlexGrid1.Row  
          MSFlexGrid1.Row   =   lngOldRow  
          For   i   =   1   To   MSFlexGrid1.Cols   -   1  
                  MSFlexGrid1.Col   =   i  
                  MSFlexGrid1.CellBackColor   =   vbWhite  
          Next  
           
          MSFlexGrid1.Row   =   lngNewRow  
          For   i   =   1   To   MSFlexGrid1.Cols   -   1  
                  MSFlexGrid1.Col   =   i  
                  MSFlexGrid1.CellBackColor   =   vbRed  
          Next  
          MSFlexGrid1.Redraw   =   True  
           
          lngOldRow   =   lngNewRow  
  End   Sub  
  Top

2 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2003-11-04 16:57:06 得分 0

Text1.MaxLength   =   10   '限制长度为10Top

3 楼luckyappl（洛洛）回复于 2003-11-05 14:24:54 得分 0

Text.MaxLength為文本文字的個數，但是ORACLE數據庫對該字段的設定為Char(20)Top

相关问题

• msflexgrid1
• lngoldrow
• lngnewrow
• 一行變成
• 語句
• col
• row
• next
• as long

• 帖主：luckyappl
• cuizm

• Visual Basic类图书
• Visual Basic类源码下载