vb和vba问题

tfod2000

老师vba中有的关于thisdrawing模块中的东西在vb中我不知道是否也有。例如象在vba中有Private Sub AcadDocument_ObjectModified(ByVal Object As Object) 但是在vb中能用什么方法实现呢？

雪山飞狐_lzh

把你的问题一次性提出来吧，不要像挤牙膏一样的一点一点提出来，也许这样方便解决

tfod2000

我现在的问题是1：在vba中或vb中怎么用grid控件。我的vb或vba则么都没有类似这些的语句 Grid1.ColWidth(0) = 540
Grid1.RowHeight(0) = 216 '单元格的宽和高

inputcolnum = 13
inputrownum = 15 '表中显示的列、行数

Grid1.Cols = 20
Grid1.Rows = 20 '表中总的列、行数

HScroll1.Height = 300
VScroll1.Width = 300 '水平和垂直滚动条的高、宽度

Grid1.Height = (inputrownum + 1) *
(Grid1.RowHeight(0) + Grid1.GridLineWidth * 12)
+ 12 + HScroll1.Height
'800×600象素时为12；640×480为15
Grid1.Width = (inputcolnum + 1) *
(Grid1.ColWidth(0) + Grid1.GridLineWidth * 12)
+ 12 + VScroll1.Width
'表的高、宽度
2：就是象我上面说的对于vba中提供的 如：Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant) 和Private Sub AcadDocument_ObjectModified(ByVal Object As Object) vb如何实现 现在的问题就是这些了。老大教教吧。

雪山飞狐_lzh

如果是事件的话，VB的实现不如VBA，帮助里面有这样的例子

tfod2000

那么grid你用过没有。教教我吧。boss催呢？

雪山飞狐_lzh

grid倒没怎么用过，你可以到网上找找MSDN看看

tfod2000

谢谢斑竹，看来有需要一阵的狂找了。无奈

wmz

grid控件在CAD的VBA里可直接在"附加控件"里引用.