Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文字的字体及颜色问题？


  共有5237人关注过本帖树形打印复制链接

主题：文字的字体及颜色问题？
帅哥哟，离线，有人找我吗？
zsslly
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2017/7/31 13:20:00 [只看该作者]

不好意思老师，早上来就在看，上午有事着急了，看错了！跪谢老师！

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2017/7/31 15:12:00 [只看该作者]

''去除二个表乱码开始
Dim rt As new Windows.Forms.RichTextBox  '定义 一个RichTextBox
rt.Dock = Windows.Forms.DockStyle.Fill  '控件停靠方式为撑满父控件
rt.name = "RichTextBox1"  '设置控件名称
'rt.DataBindings.Add("text", Tables("客户跟踪仿甘特图").Grid.DataSource, "备注")   'RichTextBox绑定第一列,希望同步所有单元格
e.Form.Controls("Panel1").BaseControl.Controls.Add(rt)   '控件放入Panel1中作为子控件
Dim rtfText = Tables("客户跟踪仿甘特图").current("备注")
If (rtfText.StartsWith("{\rtf")) Then
    rt.rtf = rtfText
Else
    rt.text = rtfText
End If
rt.tag  = Tables("客户跟踪仿甘特图").current

Dim c1g As C1FlexGrid.C1FlexGrid = e.form.controls("table22").Table.Grid
c1g.Cols("备注").Editor = New zxbTableRTFCol()
AddHandler c1g.OwnerDrawCell, AddressOf _flex_OwnerDrawCell
c1g = e.form.controls("table23").Table.Grid
c1g.Cols("备注").Editor = New zxbTableRTFCol()
AddHandler c1g.OwnerDrawCell, AddressOf _flex_OwnerDrawCell
''去除二个表的乱码结束






e.Form.Controls("TextBox1").Text = Format(Date.Today.AddDays(-10), "yy年MM月dd日dddd")
e.Form.Controls("TextBox2").Text = Format(Date.Today.AddDays(-9), "yy年MM月dd日dddd")
e.Form.Controls("TextBox3").Text = Format(Date.Today.AddDays(-8), "yy年MM月dd日dddd")
e.Form.Controls("TextBox4").Text = Format(Date.Today.AddDays(-7), "yy年MM月dd日dddd")
e.Form.Controls("TextBox5").Text = Format(Date.Today.AddDays(-6), "yy年MM月dd日dddd")
e.Form.Controls("TextBox6").Text = Format(Date.Today.AddDays(-5), "yy年MM月dd日dddd")
e.Form.Controls("TextBox7").Text = Format(Date.Today.AddDays(-4), "yy年MM月dd日dddd")
e.Form.Controls("TextBox8").Text = Format(Date.Today.AddDays(-3), "yy年MM月dd日dddd")
e.Form.Controls("TextBox9").Text = Format(Date.Today.AddDays(-2), "yy年MM月dd日dddd")
e.Form.Controls("TextBox10").Text = Format(Date.Today.AddDays(-1), "yy年MM月dd日dddd")
e.Form.Controls("TextBox11").Text = Format(Date.Today, "yy年MM月dd日dddd")
e.Form.Controls("TextBox12").Text = Format(Date.Today.AddDays(1), "yy年MM月dd日dddd")
e.Form.Controls("TextBox13").Text = Format(Date.Today.AddDays(2), "yy年MM月dd日dddd")
e.Form.Controls("TextBox14").Text = Format(Date.Today.AddDays(3), "yy年MM月dd日dddd")
e.Form.Controls("TextBox15").Text = Format(Date.Today.AddDays(4), "yy年MM月dd日dddd")
e.Form.Controls("TextBox16").Text = Format(Date.Today.AddDays(5), "yy年MM月dd日dddd")
e.Form.Controls("TextBox17").Text = Format(Date.Today.AddDays(6), "yy年MM月dd日dddd")
e.Form.Controls("TextBox18").Text = Format(Date.Today.AddDays(7), "yy年MM月dd日dddd")
e.Form.Controls("TextBox19").Text = Format(Date.Today.AddDays(8), "yy年MM月dd日dddd")
e.Form.Controls("TextBox20").Text = Format(Date.Today.AddDays(9), "yy年MM月dd日dddd")
e.Form.Controls("TextBox21").Text = Format(Date.Today.AddDays(10), "yy年MM月dd日dddd")

e.Form.Controls("TextBox22").Text = Format(Date.Today, "yy年MM月dd日dddd")



Tables("主窗口_Table1").Filter = "事件日期 = #" & Date.Today.AddDays(-10) & "#"
Tables("主窗口_Table2").Filter = "事件日期 = #" & Date.Today.AddDays(-9) & "#"
Tables("主窗口_Table3").Filter = "事件日期 = #" & Date.Today.AddDays(-8) & "#"
Tables("主窗口_Table4").Filter = "事件日期 = #" & Date.Today.AddDays(-7) & "#"
Tables("主窗口_Table5").Filter = "事件日期 = #" & Date.Today.AddDays(-6) & "#"
Tables("主窗口_Table6").Filter = "事件日期 = #" & Date.Today.AddDays(-5) & "#"
Tables("主窗口_Table7").Filter = "事件日期 = #" & Date.Today.AddDays(-4) & "#"
Tables("主窗口_Table8").Filter = "事件日期 = #" & Date.Today.AddDays(-3) & "#"
Tables("主窗口_Table9").Filter = "事件日期 = #" & Date.Today.AddDays(-2) & "#"
Tables("主窗口_Table10").Filter = "事件日期 = #" & Date.Today.AddDays(-1) & "#"
Tables("主窗口_Table11").Filter = "事件日期 = #" & Date.Today & "#"
Tables("主窗口_Table12").Filter = "事件日期 = #" & Date.Today.AddDays(1) & "#"
Tables("主窗口_Table13").Filter = "事件日期 = #" & Date.Today.AddDays(2) & "#"
Tables("主窗口_Table14").Filter = "事件日期 = #" & Date.Today.AddDays(3) & "#"
Tables("主窗口_Table15").Filter = "事件日期 = #" & Date.Today.AddDays(4) & "#"
Tables("主窗口_Table16").Filter = "事件日期 = #" & Date.Today.AddDays(5) & "#"
Tables("主窗口_Table17").Filter = "事件日期 = #" & Date.Today.AddDays(6) & "#"
Tables("主窗口_Table18").Filter = "事件日期 = #" & Date.Today.AddDays(7) & "#"
Tables("主窗口_Table19").Filter = "事件日期 = #" & Date.Today.AddDays(8) & "#"
Tables("主窗口_Table20").Filter = "事件日期 = #" & Date.Today.AddDays(9) & "#"
Tables("主窗口_Table21").Filter = "事件日期 = #" & Date.Today.AddDays(10) & "#"


Tables("主窗口_Table22").Filter = "事件日期 = #" & Date.Today & "#"
Tables("主窗口_Table22").AutoSizeRows

'Tables("主窗口_Table1").Cols("设计师").Visible = False

Tables("主窗口_Table1").grid.rows(0).visible=False
Tables("主窗口_Table2").grid.rows(0).visible=False
Tables("主窗口_Table3").grid.rows(0).visible=False
Tables("主窗口_Table4").grid.rows(0).visible=False
Tables("主窗口_Table5").grid.rows(0).visible=False
Tables("主窗口_Table6").grid.rows(0).visible=False
Tables("主窗口_Table7").grid.rows(0).visible=False
Tables("主窗口_Table8").grid.rows(0).visible=False
Tables("主窗口_Table9").grid.rows(0).visible=False
Tables("主窗口_Table10").grid.rows(0).visible=False
Tables("主窗口_Table11").grid.rows(0).visible=False
Tables("主窗口_Table12").grid.rows(0).visible=False
Tables("主窗口_Table13").grid.rows(0).visible=False
Tables("主窗口_Table14").grid.rows(0).visible=False
Tables("主窗口_Table15").grid.rows(0).visible=False
Tables("主窗口_Table16").grid.rows(0).visible=False
Tables("主窗口_Table17").grid.rows(0).visible=False
Tables("主窗口_Table18").grid.rows(0).visible=False
Tables("主窗口_Table19").grid.rows(0).visible=False
Tables("主窗口_Table20").grid.rows(0).visible=False
Tables("主窗口_Table21").grid.rows(0).visible=False


Tables("主窗口_table23").FIlter="False"

'Tables("客户跟踪仿甘特图").grid.rows(0).visible=True

'表1-22排序开始
Tables("主窗口_table1").Sort = "事件性质 DESC"
Tables("主窗口_table2").Sort = "事件性质 DESC"
Tables("主窗口_table3").Sort = "事件性质 DESC"
Tables("主窗口_table4").Sort = "事件性质 DESC"
Tables("主窗口_table5").Sort = "事件性质 DESC"
Tables("主窗口_table6").Sort = "事件性质 DESC"
Tables("主窗口_table7").Sort = "事件性质 DESC"
Tables("主窗口_table8").Sort = "事件性质 DESC"
Tables("主窗口_table9").Sort = "事件性质 DESC"
Tables("主窗口_table10").Sort = "事件性质 DESC"
Tables("主窗口_table11").Sort = "事件性质 DESC"
Tables("主窗口_table12").Sort = "事件性质 DESC"
Tables("主窗口_table13").Sort = "事件性质 DESC"
Tables("主窗口_table14").Sort = "事件性质 DESC"
Tables("主窗口_table15").Sort = "事件性质 DESC"
Tables("主窗口_table16").Sort = "事件性质 DESC"
Tables("主窗口_table17").Sort = "事件性质 DESC"
Tables("主窗口_table18").Sort = "事件性质 DESC"
Tables("主窗口_table19").Sort = "事件性质 DESC"
Tables("主窗口_table20").Sort = "事件性质 DESC"
Tables("主窗口_table21").Sort = "事件性质 DESC"
Tables("主窗口_table22").Sort = "事件性质 DESC"
'表1-22排序结束



老师我这里代码不知道那里有冲突？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/31 15:17:00 [只看该作者]

 你写的代码有什么问题？请截图或上传实例说明。
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2017/7/31 15:31:00 [只看该作者]

如图，不知道什么原因，一开始还可以的，后来打开在编辑就不可以了，很奇怪！
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170731152911.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/31 15:41:00 [只看该作者]

我直接复制粘贴代码没问题。你是不是没有写【全局代码】

 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2017/7/31 16:58:00 [只看该作者]

我写在窗口的afterload中的

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/31 17:19:00 [只看该作者]

以下是引用zsslly在2017/7/31 16:58:00的发言：
我写在窗口的afterload中的

 

同样没问题，代码复制粘贴没问题。

 

例子上的【全局代码】的那些代码，你要加在你项目里的。
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2017/8/2 14:04:00 [只看该作者]

谢谢老师，可能是升级的原因，我今天早上升级了，之后就没有这样的情况了！
老师，我在窗口中添加了适行的代码：
Tables("窗口1_Table1").AutoSizeRows
如图，虽然看不见乱码，但适行时是存在的，能不能适行是不计算乱码的行高度？
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170802140145.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zsslly
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7193 威望：0 精华：0 注册：2013/5/24 12:29:00 		  发帖心情 Post By：2017/8/2 14:51:00 [只看该作者]

案例上了，做了一个按钮也不可以，麻烦老师了！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:字体改色.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/8/2 14:53:00 [只看该作者]

测试了一下，没办法，没办法这样，做不到。

 回到顶部
总数 42 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询