| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]为何我的ComboBox改变不了字体颜色？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174343) |
| -- 作者：小美菜 -- 发布时间：2022/1/11 20:29:00 -- [求助]为何我的ComboBox改变不了字体颜色？ For j As Integer = 1 To 4 e.Form.Controls("CombTbls" & i ).Theme = "(none)" e.Form.Controls("CombTbls" & i ).ForeColor = Color.Black If i = j Then e.Form.Controls("CombTbls" & i ).ForeColor = Color.Red Next |
| -- 作者：有点蓝 -- 发布时间：2022/1/11 20:41:00 -- 我测试没有问题，请上传实例说明 |
| -- 作者：小美菜 -- 发布时间：2022/1/11 20:45:00 -- 怪了，偏偏我的就不行，不仅是这个我用下列代码改变窗口表列名称，也改不了 Public Sub
SetWinTableColTexts( byval tWinTable As Table , byval tColTexts As String ) \'表列名设置格式;| tColTexts = tColTexts.trim If tWinTable Is Nothing OrElse tColTexts =
"" Then Exit Sub Dim aColTxt() As String =
tColTexts.Split(";") For Each tStr As String In aColTxt Dim aStr() As String =
tStr.Split("|") If Ubound(aStr)>0 Then Dim tCol As Col =
tWinTable.Cols(aStr(0).Trim) Dim xStr As String = aStr(1).Trim If
tCol IsNot Nothing AndAlso xStr <> "" Then tCol.Caption
= xStr End If Next End Sub |
| -- 作者：有点蓝 -- 发布时间：2022/1/11 20:46:00 -- 删除bin目录，重启试试 |
| -- 作者：小美菜 -- 发布时间：2022/1/11 20:54:00 -- 我只要是进入缺省系统菜单后退出会自动删除bin目录，所以不存在老师说的问题，关键我在命令窗口用如下代码，也改变不了窗口表的列标题 Dim tCol As Col = Tables("数据显示窗口_TblData").Cols( "方案名称" ) tcol.Caption = "测试一下" |
| -- 作者：有点蓝 -- 发布时间：2022/1/11 21:06:00 -- 列标题肯定改不了呀，方法不正确：http://www.foxtable.com/webhelp/topics/1275.htm |
| -- 作者：小美菜 -- 发布时间：2022/1/13 20:58:00 -- 老师，我是想改变窗口表嘞 |
| -- 作者：有点蓝 -- 发布时间：2022/1/13 21:04:00 -- 不管什么表格改标题的用法都一样 |