[求助]添加PNL的MOUSEMONE事件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，

不知为何添加事件提示错误

此主题相关图片如下：qq图片20180323085907.png

注意红色代码

Dim obj As Windows.Forms.TextBox = Forms("").Controls("").BaseControl

老师再给看看

str &= "forms(""atbset"").Controls(""pnl-body"").ClearControl" & vbcrlf

str &= "Dim pnl_cz" & "_" & ymname & "_" & ymname & " As WinForm.Panel=forms(""atbset"").CreateControl(""" & "pnl_cz" & "_" & ymname & "_" & ymname & """,ControlTypeEnum.panel)" & vbcrlf

str &= "Dim obj As Windows.Forms.Panel=forms(""atbset"").Controls("""& "pnl_cz" & "_" & ymname & "_" & ymname & """).BaseControl" & vbcrlf

str &= "AddHandler obj.MouseMove,AddressOf za_btn_Mousemove" & vbcrlf

str &= "AddHandler obj.mouseup,AddressOf za_btn_mouseup" & vbcrlf

str &= "AddHandler obj.MouseDown,AddressOf za_btn_MouseDown" & vbcrlf

此主题相关图片如下：qq图片20180323094414.png

Public Sub za_btn_MouseDown(sender As System.Object, e As System.EventArgs)

Functions.Execute("za_btn_MouseDown", sender,e)

End Sub

Public Sub za_btn_MouseMove(sender As System.Object, e As System.EventArgs)

Functions.Execute("za_btn_MouseMove", sender,e)

End Sub

Public Sub za_btn_MouseUp(sender As System.Object, e As System.EventArgs)

Functions.Execute("za_btn_MouseUp", sender,e)

End Sub

哦已经改全局代码了

还是有点问题

.NET Framework 版本：2.0.50727.8794

Foxtable 版本：2018.3.9.1

错误所在事件：自定义函数za_btn_MouseUp

详细错误信息：

调用的目标发生了异常。

重载决策失败，必须进行收缩转换才能调用 Public“Min”:

'Public Shared Function Min(val1 As ULong, val2 As ULong) As ULong':

与参数“val1”匹配的参数从“String”收缩到“ULong”。

与参数“val2”匹配的参数从“Integer”收缩到“ULong”。

'Public Shared Function Min(val1 As Long, val2 As Long) As Long':

与参数“val1”匹配的参数从“String”收缩到“Long”。

'Public Shared Function Min(val1 As Single, val2 As Single) As Single':

与参数“val1”匹配的参数从“String”收缩到“Single”。

'Public Shared Function Min(val1 As Decimal, val2 As Decimal) As Decimal':

与参数“val1”匹配的参数从“String”收缩到“Decimal”。

'Public Shared Function Min(val1 As Double, val2 As Double) As Double':

与参数“val1”匹配的参数从“String”收缩到“Double”。

'Public Shared Function Min(val1 As UInteger, val2 As UInteger) As UInteger':

与参数“val1”匹配的参数从“String”收缩到“UInteger”。

与参数“val2”匹配的参数从“Integer”收缩到“UInteger”。

'Public Shared Function Min(val1 As Byte, val2 As Byte) As Byte':

与参数“val1”匹配的参数从“String”收缩到“Byte”。

与参数“val2”匹配的参数从“Integer”收缩到“Byte”。

'Public Shared Function Min(val1 As SByte, val2 As SByte) As SByte':

与参数“val1”匹配的参数从“String”收缩到“SByte”。

与参数“val2”匹配的参数从“Integer”收缩到“SByte”。

'Public Shared Function Min(val1 As Short, val2 As Short) As Short':

与参数“val1”匹配的参数从“String”收缩到“Short”。

与参数“val2”匹配的参数从“Integer”收缩到“Short”。

'Public Shared Function Min(val1 As Integer, val2 As Integer) As Integer':

与参数“val1”匹配的参数从“String”收缩到“Integer”。

'Public Shared Function Min(val1 As UShort, val2 As UShort) As UShort':

与参数“val1”匹配的参数从“String”收缩到“UShort”。

与参数“val2”匹配的参数从“Integer”收缩到“UShort”。

1、贴出你写的代码。

2、调用min函数的时候，这样写 min(val(值1), val(值2))

Dim e =args(0)

If MouseButton = MouseButtons.Left Then

forms("atbset").Controls("pnl_cz_" & vars("childcknamectl") & "_" & vars("childcknamectl")).BaseControl.Refresh

Dim g As Graphics = forms("atbset").Controls("pnl_cz_" & vars("childcknamectl") & "_" & vars("childcknamectl")).BaseControl.CreateGraphics

g.DrawLine(Pens.Red,val(vars("px")),val(vars("py")),val(e.X),val(vars("py")))

g.DrawLine(Pens.Red,val(vars("px")),val(vars("py")),vars("px"),val(e.Y))

g.DrawLine(Pens.Red,val(e.x),val(vars("py")),val(e.X),val(e.y))

g.DrawLine(Pens.Red,val(vars("px")),val(e.Y),val(e.x), val(e.y))

End If

此主题相关图片如下：qq图片20180323123125.png

不改之前是这样的

.NET Framework 版本：2.0.50727.8794

Foxtable 版本：2018.3.9.1

错误所在事件：自定义函数za_btn_MouseMove

详细错误信息：

调用的目标发生了异常。

重载决策失败，必须进行收缩转换才能调用 Public“DrawLine”:

'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer)':

与参数“x1”匹配的参数从“String”收缩到“Integer”。

与参数“y1”匹配的参数从“String”收缩到“Integer”。

与参数“y2”匹配的参数从“String”收缩到“Integer”。

'Public Sub DrawLine(pen As System.Drawing.Pen, x1 As Single, y1 As Single, x2 As Single, y2 As Single)':

与参数“x1”匹配的参数从“String”收缩到“Single”。

与参数“y1”匹配的参数从“String”收缩到“Single”。

与参数“y2”匹配的参数从“String”收缩到“Single”。

代码

Dim e =args(0)

If MouseButton = MouseButtons.Left Then

forms("atbset").Controls("pnl_cz_" & vars("childcknamectl") & "_" & vars("childcknamectl")).BaseControl.Refresh

Dim g As Graphics = forms("atbset").Controls("pnl_cz_" & vars("childcknamectl") & "_" & vars("childcknamectl")).BaseControl.CreateGraphics

g.DrawLine(Pens.Red,vars("px"),vars("py"),e.X,vars("py"))

g.DrawLine(Pens.Red,vars("px"),vars("py"),vars("px"),e.Y)

g.DrawLine(Pens.Red,e.x,vars("py"),e.X,e.y)

g.DrawLine(Pens.Red,vars("px"),e.Y,e.x, e.y)

End If

主题：[求助]添加PNL的MOUSEMONE事件