Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用CheckBox控件输入内容，


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

主题：用CheckBox控件输入内容，
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你打印之前，把checkbox的text清空，打印之后，再赋值回来，不就好了？（用代码）

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/21 10:55:00 [只看该作者]

感谢 感谢 就是为什么隐藏了打印的时候还是有呢，感谢 感谢 
If e.Form.Controls("CheckBox1").Checked = False Then
    e.Form.Controls("CheckBox1").Visible = False
End If


If e.Form.Controls("CheckBox1").Checked = True Then
    e.Form.Controls("CheckBox1").Text = "" ' 清楚内容
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/21 11:03:00 [只看该作者]

12楼代码放到打印的代码前

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


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/21 11:12:00 [只看该作者]

感谢 感谢 我是这样做的，感谢 感谢 能帮忙看看是那里的问题吗？会是我属性那里没设置对吗？感谢 感谢

If e.Form.Controls("CheckBox1").Checked = False Then
    e.Form.Controls("CheckBox1").Visible = False
End If
If e.Form.Controls("CheckBox2").Checked = False Then
    e.Form.Controls("CheckBox2").Visible = False
End If
If e.Form.Controls("CheckBox3").Checked = False Then
    e.Form.Controls("CheckBox3").Visible = False
End If
If e.Form.Controls("CheckBox4").Checked = False Then
    e.Form.Controls("CheckBox4").Visible = False
End If
If e.Form.Controls("CheckBox5").Checked = False Then
    e.Form.Controls("CheckBox5").Visible = False
End If
If e.Form.Controls("CheckBox6").Checked = False Then
    e.Form.Controls("CheckBox6").Visible = False
End If

If e.Form.Controls("CheckBox1").Checked = True Then
    e.Form.Controls("CheckBox1").Text = "" ' 清楚内容
End If
If e.Form.Controls("CheckBox2").Checked = True Then
    e.Form.Controls("CheckBox2").Text = "" ' 清楚内容
End If
If e.Form.Controls("CheckBox3").Checked = True Then
    e.Form.Controls("CheckBox3").Text = "" ' 清楚内容
End If
If e.Form.Controls("CheckBox4").Checked = True Then
    e.Form.Controls("CheckBox4").Text = "" ' 清楚内容
End If
If e.Form.Controls("CheckBox5").Checked = True Then
    e.Form.Controls("CheckBox5").Text = "" ' 清楚内容
End If
If e.Form.Controls("CheckBox6").Checked = True Then
    e.Form.Controls("CheckBox6").Text = "" ' 清楚内容
End If

Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim w As Integer = p.width
Dim h As Integer = p.height

Dim angle As Double = 270
Dim a As Double = angle Mod 360


Dim radian As Double = a * Math.PI / 180.0
Dim cos As Double = Math.Cos(radian)
Dim sin As Double = Math.Sin(radian)

Dim newW As Integer = Math.Max(Math.Abs(w * cos - h * sin), Math.Abs(w * cos + h * sin))
Dim newH As Integer = Math.Max(Math.Abs(w * sin - h * cos), Math.Abs(w * sin + h * cos))

Dim bmpSrc As new Bitmap(newW, newH)
g.TranslateTransform(newW/2, newH/2)
g.RotateTransform(angle)
g.TranslateTransform(-newW/2, -newH/2)
'Dim x As Integer = 0
'Dim y As Integer = 0
'
Dim fnt As New Font("宋体",10)
Dim msg As String = e.form.controls("Label17").text
g.DrawString(msg,fnt,Brushes.Black,0,0)
msg = e.form.controls("Label16").text
g.DrawString(msg,fnt,Brushes.Black,30,13)
msg = e.form.controls("Label17").text
g.DrawString(msg,fnt,Brushes.Black,0,30)
msg = e.form.controls("Label16").text
g.DrawString(msg,fnt,Brushes.Black,30,43)
'p.Repaint()

e.Form.Page.Width =110 '纸张宽度为100毫米
e.Form.Page.Height = 35 '纸张高度为120毫米
e.Form.Page.LeftMargin = 0 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 0 '设置上边距
e.Form.Page.BottomMargin = 0 '设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.PageSetting.Landscape = True '横向打印
doc.Preview()
e.Form.Controls("CheckBox1").Visible = True
e.Form.Controls("CheckBox2").Visible = True
e.Form.Controls("CheckBox3").Visible = True
e.Form.Controls("CheckBox4").Visible = True
e.Form.Controls("CheckBox5").Visible = True
e.Form.Controls("CheckBox6").Visible = True
e.Form.Controls("CheckBox1").Text = "H" ' 清楚内容
e.Form.Controls("CheckBox2").Text = "S" ' 清楚内容
e.Form.Controls("CheckBox3").Text = "N" ' 清楚内容
e.Form.Controls("CheckBox4").Text = "K" ' 清楚内容
e.Form.Controls("CheckBox5").Text = "M" ' 清楚内容
e.Form.Controls("CheckBox6").Text = "P" ' 清楚内容
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/21 11:19:00 [只看该作者]

感谢 感谢 ，还有就是再添加一个窗口，要实现这种点击吧名称输入到表里面 是那里不对啊，感谢 感谢 

窗口A已经实现了一个功能，不能比在窗口B也实现这个功能呀，感谢 感谢 
窗口B_arterload
Tables("库存").RaiseCurrentChanged
窗口B_checkedchanged
Dim ra As Row = Tables("库存").current
If ra IsNot Nothing Then
    Dim stra As String = ""
    For i As Integer = 2 To 7
        If e.Form.Controls("checkbox" & i).checked Then
            stra &= e.Form.Controls("checkbox" & i).text & ","
        End If
    Next
    ra("标签_加工材质") = stra.trim(",")
End If

库存_currentchanged
Dim ra As Row = e.Table.current
If ra IsNot Nothing Then
    If forms("产品编辑窗口").opened Then
        Dim stra As String = ""
        systemready = False
        For i As Integer = 2 To 7
            Forms("产品编辑窗口").Controls("checkbox" & i).checked = ra("标签_加工材质").contains(Forms("产品标签窗口").Controls("checkbox" & i).text)
        Next
        systemready = True
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/21 11:19:00 [只看该作者]

注释掉从这行开始的所有代码：e.Form.Page.Width =110 '纸张宽度为100毫米

然后点击按钮运行后窗口是怎么样的？截图看看
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/23 9:46:00 [只看该作者]

能帮忙看看14的问题吗？感谢 感谢，就是打印的时候还是会打印出CheckBox控件，感谢 感谢 

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


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

以下是引用yangwenghd在2018/7/23 9:46:00的发言：
能帮忙看看14的问题吗？感谢 感谢，就是打印的时候还是会打印出CheckBox控件，感谢 感谢 

 

上传具体实例测试。
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/23 10:34:00 [只看该作者]

感谢 感谢 ，现在是这样的 ，有两个问题， 第一个就是 窗口2的控件和表不同步，窗口可以控制表的内容，表的内容不能显示到窗口2.
第二个问题就是点击浏览，控件隐藏了还是会被打印出来，感谢 感谢 太麻烦你们
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:隐藏打印和控件同步 - 副本.table

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


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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:隐藏打印和控件同步 - 副本.table
 回到顶部
总数 24 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 6 次数据查询