以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口文本组合问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111619)

--  作者:seal51
--  发布时间:2017/12/26 11:40:00
--  窗口文本组合问题

在上面的组合框中选择不同的材料, 下面组合文本框中自动合并

 


图片点击可在新窗口打开查看此主题相关图片如下:smsmzhuhe111.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/12/26 12:15:00
--  

1、你combobox控件命名要规律,如这样命名 combobox1、combobox2、combobox3 ......

 

2、写代码

 

Dim str As String = ""
For i As Integer = 1 To 8
    Dim txt As String = e.Form.controls("combobox" & i).text
    If txt > "" Then
        str &= txt & "/"
    End If
Next
msgbox(str)


--  作者:seal51
--  发布时间:2017/12/26 13:36:00
--  

写在那个事件中呢?


--  作者:有点甜
--  发布时间:2017/12/26 14:33:00
--  

窗口的TextChanged事件

 


--  作者:seal51
--  发布时间:2017/12/26 15:04:00
--  

没反应??,是加在窗口项下TEXTCHANGED时间中吗?


图片点击可在新窗口打开查看此主题相关图片如下:smsmzhuhe113.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/12/26 15:19:49编辑过]

--  作者:有点甜
--  发布时间:2017/12/26 15:38:00
--  

最后写

 

e.Form.Controls("TextBox1").Text = str.trim("/")