vb程序设计第10章 节 activex控件简介 .pptVIP

Company Logo 29．关于DbGrid：怎么知道用户选择了哪几行？ 答：可以使用SelBookmarks集合获得所有被选中的行，如： Do While DBGrid1.SelBookmarks.Count 0 Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(0) Print Data1.Recordset(0) Loop Company Logo 30．如何在MSFlexGrid的单元格中添加一幅图片？ 答：可以使用CellPicture属性加图象，如： 加载图标。 MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 1 Set MSFlexGrid1.CellPicture = LoadPicture _ (C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Computer\TRASH02B.ICO) MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 2 Set MSFlexGrid1.CellPicture = LoadPicture _ (C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Computer\TRASH02B.ICO) 每个单元都可能包含文本和图片。文本和图片的相对位置是由CellAlignment和 CellPictureAlignment 属性所决定的。 Company Logo 31．如何控制DBGrid的内容不被修改？ 答：使用下面几种方法中的任何一种都可以： 设置DBGrid的AllowUpdate属性为 False。 把同DBGrid关联的Data控件的RecordsetType改为SnapShot。 Company Logo 32．如何才能使DBGrid的前若干列固定不动？ 答：DBGrid也有锁定列的功能，DBGrid可以使用Split对象将一个表分割成两个完全相同 的部分。可以将左边的一个只显示几个固定列，而右边的那个显示其余列。下面是一个小例子。 Private Sub Form_Load() Hide all columns in Splits(1) except for columns 0 and 1 Data1.Refresh DBGrid1.Splits.Add 0 Dim Cols As Columns Set Cols = DBGrid1.Splits(0).Columns For Each C In Cols C.Visible = False Next C Cols(0).Visible = True Cols(1).Visible = True Company Logo Configure Splits(1) to display exactly two columns, and disable resizing With DBGrid1.Splits(0) .SizeMode = dbgNumberOfColumns .Size = 2 .AllowSizing = False End With Set columns 0 and 1 invisible in other splits (Splits 0 and 2) Set Cols = DBGrid1.Splits(1).Columns Cols(0).Visible = False Cols(1).Visible = False End Sub Company Logo 33．怎么找不到DBGrid控件？ 答：可以查看所运行计算机的System目录中是否有DBGrid32.ocx文件。如果没有说明该计算机没有安装该控件，可以在光盘上找到该文件。如果有，则说明控件已经安装了。BTW，DBGrid控件的全称是Microsoft Data Bound Grid Control 5.0(SP3)。 Company Logo 34．为什么当DBGrid控件用row改变行列号时，出现行号无效导致不能读出其他数据？ 答：这可能是DBGrid的Bug，只要C