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


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

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


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		用CheckBox控件输入内容，  发帖心情 Post By：2018/7/12 10:46:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table

在窗口加入几个CheckBox1，可以点击的时候就吧名称输入到对于的表吗？然后窗口CheckBox1显示的时候也根据表格有的内容显示，感谢 感谢 
比如在窗口点击 P，M，然后表就记入这两个， 然后窗口的CheckBox1也根据表格的内容显示，感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180712104105.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/12 13:20:00 [显示全部帖子]

感谢 感谢 ，是这样的，因为控件需要打印，所以可不可以还是用CheckBox还代替啊，感谢 感谢 麻烦了，感谢 

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


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/13 8:46:00 [显示全部帖子]

感谢 感谢 

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


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/20 15:49:00 [显示全部帖子]

感谢 感谢 能请教一下CheckBox12 控件的 勾和文字字符可以分开打印吗？比如 勾选后，打印的时候只打印“√”的部分其他都不打印但是用还是正常用，感谢 感谢 

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


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/20 16:33:00 [显示全部帖子]

感谢 感谢，可以是勾选的也不打印吗？但要打印勾勾那个符号，感谢 感谢 
可以改成这种吗？感谢 感谢 
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20180720162235.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/20 17:26:00 [显示全部帖子]

我是想只是打印那个勾勾，但是又想实现之前的那个选择后会记录到表格里面，
之前不是有个功能吗？勾选后会把 标题记录到表A的第一列，  现在CheckBox标题都没有了（这样打印的时候就没有CheckBox的字了，）， 然后我吧 名称改为 字母, 如S ,H, W 等，然后勾选按钮会把  名称记录到表A 的第一列，

相对于 我把名称改为 以前的 标题，然后勾选的时候就吧名称来记录到表a的第一列，感谢 感谢 
Dim r As Row = Tables("表A").current
If r IsNot Nothing Then
    Dim str As String = ""
    For i As Integer = "M,P,H,S"
        If e.Sender.Name.StartsWith("checkbox" & i).checked Then
            'If e.Form.Controls("checkbox" & i).checked Then
            str &= e.Sender.Name.StartsWith("checkbox" & i).text & ","
        End If
    Next
    r("第一列") = str.trim(",")
End If



[此贴子已经被作者于2018/7/20 17:27:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/23 9:46:00 [显示全部帖子]

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

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