您的位置：程序门 -> vb ->



关于sendmessage的问题


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


关于sendmessage的问题
发表于：2007-01-23 15:01:10 楼主
大家好：先看一段代码：
    dim   istart   as   integer
    dim   sstring     as   string
    static   ileftoff   as   integer
    on   error   goto   error_des
    if   keyascii   =   13   then
          istart   =   1
          istart   =   cmb_acno.selstart
          if   ileftoff   <>   0   then   cmb_acno.selstart   =   ileftoff:   istart=ileftoff
                sstring   =   cstr（left（cmb_acno.text,   istart))
                cmb_acno.listindex   =   sendmessage（cmb_acno.hwnd,   &h14c,   -                   1,byval   cstr（left（cmb_acno.text,   istart)))
                if   cmb_acno.listindex   =   -1   then   ileftoff   =   len（sstring):               cmb_acno.text   =   sstring
                if   cmb_acno.text   <>   " "   then   sendmessage   cmb_acno.hwnd,   &h14f,   true,   0
                cmb_acno.selstart   =   istart
                cmb_acno.sellength   =   0
                ileftoff   =   0
        end   if
注：   cmb_acno是控件combobox。
我的目的是利用sendmessage来实现combobox的自动查询，可是每次找到列表框中的数据后，按回车后结果文本框中值是空。我希望是按回车后会把所选的值填充到文本框中。
请问该怎样做？请大家帮忙，谢谢！
发表于：2007-01-23 15:23:191楼 得分:0
请大家留意以下，在线等！！
发表于：2007-02-04 14:43:562楼 得分:0
sstring有值吗？
发表于：2007-02-08 15:59:143楼 得分:0
for   i   =   1   to   combo1.listcount   -   1
str   =   combo1.list（i)
debug.print   str
combo1.text   =   str
next   i

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击