Foxtable(狐表)用户栏目专家坐堂 → 控件颜色问题


  共有1793人关注过本帖平板打印复制链接

主题:控件颜色问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
控件颜色问题  发帖心情 Post By:2018/2/12 15:01:00 [只看该作者]

请教老师,下面代码怎样写在AfterLoad能打开窗口就触发,现在是放在控件的TextChanged

 

Dim Tb As WinForm.TextBox = e.Form.Controls("TextBox2")
If Tb.Text = "立项设计" Then
    Tb.BackColor = Color.Green
    Tb.ForeColor = Color.Yellow
Else
    If Tb.Text = "技术标书" Then
        Tb.BackColor = Color.Blue
        Tb.ForeColor = Color.White                
            Else
                If Tb.Text = "" Then
                    Tb.BackColor = Color.WhiteSmoke
                    Tb.ForeColor = Color.Black
         End If
    End If
End If


 回到顶部