主题：[求助]飞老师，可否做一个商业版的史上最实用的组合框？

飞老师：

 

看到您做的史上最实用的组合框，非常心仪。下载下来一看，却不是商业版的，麻烦您有空给我们这些商业版用户提供一个商业版的史上最实用的组合框。万分感谢！

 

我给你发短信了，您看到了吗?

 

 

原帖地址：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=28705

是不是这个?

 呵呵，小朱今天好有空！2楼是楼主想要的。

小朱     哈哈哈哈  笑死我了 

万分感谢！

不过和那个还是有点小区别。

飞老师，下面的代码有俩处不明白，还望指教.

1、Windows.Forms.Form 是个啥东东？帮助里没有说吧。

2、e.Form.Controls("Btn_Add").BaseControl.FindForm画横线的代码是啥意思？
3、  .Grid.Cols(0).Visible = False

我查了一下，table里没有这样的属性啊？

 

 

Dim Basefrm As Windows.Forms.Form = e.Form.Controls("Btn_Add").BaseControl.FindForm
Basefrm.Width = e.Form.DropDownBox.Width

With Tables(e.Form.Name & "_Tbl_Main")
    .Grid.Cols(0).Visible = False
    .Grid.Rows(0).Visible = False
    .Grid.CellButtonImage = GetImage("delete.png")
    .ExtendLastCol = True
    .DefaultRowHeight = 30
    .DataTable.SysStyles("Focus").BackColor = Color.SkyBlue
    .DataTable.SysStyles("Focus").ForeColor = Color.Red
    .Cols("值").ComboList = "|..."
End With

 1、没必要懂，到该懂的时候，再懂；

 2、代码的意思是，根据控件，得到装载它的窗口，比如窗口1

 3、Grid，没必要懂

-----------------------------------

 这些都是帮助没有介绍的，需要自己去延伸。

谢谢林老师！