让VB用足用活 Windows APT调用

Visual Basic以其灵活简便、易学易用的可视化的集成开发环境,面向对象以事件驱动的编程方法使Windows编程变得轻松自如、快速高效。 现在虽有不少其它开发工具,在某些性能、特点方面已接近甚至超过VB,但VB的应用是最成熟的,客观地讲,VB不是最好的,也不可能有最好的。关于它的不足只要进行适当的扩充,对于大多数需求还是能很好地达到目的。尤其是Windows API提供的数百个接口函数,很多“VB的不足”都可得到很好地解决。 这里,通过用API函数SendMessage对VB进行的一些扩充实例给读者一点启示,用足用活Windows API扩展VB功能,加速应用程序的建立。 一、添加列表框控体的水平滚动条 VB中列表框控体(List box)只能设置垂直滚动条(VScroll),而没有提供水平滚动条(HScroll)。这样,当包含于列表框内的文本长度超出列表框边缘宽度时,超出部分就不能显示。这时,为List box控体增加水平滚动条就很有必要。通过使用Windows API函数SendMessage可以解决这一问题。 函数SendMessage通过调用参数LB—SETHORIZONTALEXTENT比较列表框与其所包含的文本宽度(像素值)重新设置列表框,如果文本宽度大于列表框宽度,则显示水平滚动条,否则水平滚动条不起作用。 在Forml中创建列表框Listl和按钮Commandl,并相应地加入?