- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 报如下错误，不知道是哪里原因 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111452)
-- 发布时间：2017/12/22 9:49:00
-- 报如下错误，不知道是哪里原因
无法将类型为“Foxtable.WinForm.Panel”的对象强制转换为类型“Foxtable.WinForm.Label”。
Dim p As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim img As Image = p.Image
For Each c As Winform.Control In e.Form.Controls
If Typeof c Is WinForm.label Then \'判断控件是否是文本框
Dim t As WinForm.label = c \'使用特定类型的变量引用控件
Dim dr As DataRow= DataTables("打印参数").Find("[项目]=\'"& t.text & "\'")
If dr IsNot Nothing
dr("字号")=t.Font.Size
dr("X")=t.Left/img.width*230
dr("Y")=t.Top/img.height*110
End If
End If
Next
\'Dim n As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
\'Dim dr1 As DataRow= DataTables("打印参数").Find("[项目]=\'[行距]\'")
\'dr1("行距")=n.Value
DataTables("打印参数").Save
e.Form.Close
-- 发布时间：2017/12/22 9:53:00
--
你这段代码肯定没问题。请认真测试。
-- 发布时间：2017/12/22 10:04:00
--
If e.sender.name Like "Label*" Then
For Each c As Winform.Control In e.Form.Controls
c.ForeColor=Color.black
Next
e.Sender.ForeColor=color.red
Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cb.Value=e.Sender.Font.Size
vars("kj") = e.sender.name
e.Form.Controls("textbox1").Select
End If
这个语句出现的错误
-- 发布时间：2017/12/22 10:15:00
--
试试改成这样，如果不行，上传实例测试。
If e.sender.name Like "Label*" AndAlso typeof e.sender Is winform.label Then
For Each c As Winform.Control In e.Form.Controls
If c.name Like "Label*" AndAlso typeof c Is winform.label Then
c.ForeColor=Color.black
End If
Next
e.Sender.ForeColor=color.red
Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
cb.Value=e.Sender.Font.Size
vars("kj") = e.sender.name
e.Form.Controls("textbox1").Select
End If
-- 发布时间：2017/12/22 10:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
一点窗体的左面就报错
-- 发布时间：2017/12/22 10:27:00
--
回复5楼，你做的例子一点代码都没有，也没有出错。
-- 发布时间：2017/12/22 10:33:00
--
对不起了，发错了，这回对了
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.rar |
-- 发布时间：2017/12/22 11:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2017/12/22 12:48:00
--
保存按钮保存不住位置，请老师再帮助看一下
-- 发布时间：2017/12/22 14:14:00
--
此主题相关图片如下：qq图片20171222141542.png
调着调着，有的文本就变成数字了