| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教一个问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54629) |
| -- 作者：jk362223 -- 发布时间：2014/7/31 22:16:00 -- 请教一个问题？ 请问窗口的属性系统代码是如何输出的？ |
| -- 作者：有点甜 -- 发布时间：2014/7/31 22:22:00 -- 无法输出，取不到值的。
运行中的话，可以通过具体的属性获取对应的值。比如 e.Forms.Controls("xxx").Text |
| -- 作者：jk362223 -- 发布时间：2014/7/31 22:30:00 -- 比如控件中的文本位置（左右中），的代码，我想在交付使用的软件中，让客户使用， |
| -- 作者：有点甜 -- 发布时间：2014/7/31 22:33:00 -- 你可以用代码设置。如果要保存设置，你可以单独做一个表把数据保存。
http://www.foxtable.com/help/topics/1861.htm
|
| -- 作者：jk362223 -- 发布时间：2014/7/31 22:40:00 -- 你可以用代码设置， 比如窗口中有个按钮，用于窗口1的TextBox1的文本位置设置，怎写？
|
| -- 作者：有点甜 -- 发布时间：2014/7/31 22:43:00 -- 窗口1，必须打开。
Forms("窗口1").Controls("TextBox1").TextAlign = HorizontalAlignment.Right |
| -- 作者：jk362223 -- 发布时间：2014/7/31 22:55:00 -- 假如用ComboBox1来设置用于窗口1的TextBox1的文本位置左和右，又怎写？ |
| -- 作者：有点甜 -- 发布时间：2014/7/31 23:00:00 -- Select Case Forms("窗口1").Controls("ComboBox1").Text Case "左"
Case "中"
Case "右" Forms("窗口1").Controls("TextBox1").TextAlign = HorizontalAlignment.Right End Select |
| -- 作者：jk362223 -- 发布时间：2014/7/31 23:21:00 -- 不好意思，假如窗口1中有多个TextBox，只用一个ComboBox1来设置文本位置，又怎样？ |
| -- 作者：Bin -- 发布时间：2014/8/1 8:55:00 -- 用一个全局变量,保存上一步点击获取焦点的文本控件名称 在文本框的Enter事件输入代码 vars("CN")=e.sender.name Select Case Forms("窗口1").Controls("ComboBox1").Text Case "左"
Case "中"
Case "右" Forms("窗口1").Controls(vars("CN")).TextAlign = HorizontalAlignment.Right End Select |