以文本方式查看主题
- 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("/")
|