楼主

问题点数：0 回复次数：12

新人求助,谢谢了

dim t as object = new button()

t.click = ckpass()提示这句出错,我不知道该怎么解决,望高手赐教,谢谢

function ckpass()

end function

搜索更多相关主题的帖子: 新人　 function　ckpass　object　

第 2 楼

得分:0

一.让t.click调用ckpass方法(推荐)
Private Sub t_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Click
ckpass()
end sub
二.

function ckpass(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Clickend

function

主动沟通......

第 3 楼

得分:0

btn[i].Click+=new EventHandler(Btn_Click);

private void Btn_Click(object sender, System.EventArgs e)

这样也可以,自己看看吧!

主动沟通......

第 4 楼

得分:0

谢谢大家!~~

第 5 楼

得分:0

全部失败!!
Private Sub t_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t.Click
提示
在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30506: Handles 子句需要 WithEvents 变量

第 6 楼

得分:0

今天,早上出去了!
下面的代码我调试过了:
Private WithEvents button As Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
button = New Button
button.Location = New Point(50, 100)
Controls.Add(button)
End Sub
Private Sub Button_Clicked(ByVal sender As Object, ByVal e As EventArgs) Handles button.Click
MsgBox("fdsa")
End Sub

主动沟通......

第 7 楼

得分:0

dim t as object = new button()
addhandler t.click,t_click
Private Sub t_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
msgbox("TEST!!!")
End Sub

我用古老的咒语重温,吟唱灵魂序曲寻根面对魔界的邪吻,不被污染的转身,维持纯白的象徵然后还原为人

第 8 楼

得分:0

实验楼上仁兄,全部代码如下
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>

dim b as object = new button()
b.text = "hello"

addhandler b.click,b_click
lable1.Controls.add(b)
end sub

Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
msgbox("TEST!!!")

end sub

</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>fate stay night</title>
</head>
<body><form runat = "server">

<asp:label id = lable1 runat =server/>
<asp:label id = label2 runat = server/>
</form></body>
</HTML>

运行结果如下:

“/”应用程序中的服务器错误。

编译错误

说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30455: 没有为“Private Sub b_Click(sender As Object, e As System.EventArgs)”的参数“e”指定参数。

源错误:

行 7：    b.text = "hello"
行 8：  
行 9：  addhandler b.click,b_click 
行 10：   lable1.Controls.add(b)
行 11：   end sub

源文件: E:\jsjj\Default.aspx 行: 9

显示详细的编译器输出:

c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /out:"c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\5eb2dc37\1fae5d4d\-fipy5-a.dll" /D:DEBUG=1 /debug+  "c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\5eb2dc37\1fae5d4d\-fipy5-a.0.vb"


Microsoft (R) Visual Basic .NET 编译器版本 7.10.6310.4
用于 Microsoft (R) .NET Framework 版本 1.1.4322.2300
版权所有 (C) Microsoft Corporation 1987-2000。保留所有权利。

E:\jsjj\Default.aspx(9) : error BC30455: 没有为“Private Sub b_Click(sender As Object, e As System.EventArgs)”的参数“e”指定参数。

addhandler b.click,b_click 
                   ~~~~~~~ 
E:\jsjj\Default.aspx(9) : error BC30455: 没有为“Private Sub b_Click(sender As Object, e As System.EventArgs)”的参数“sender”指定参数。

addhandler b.click,b_click 
                   ~~~~~~~

失败了!

第 9 楼

得分:0

使用zhangweI老兄答案,代码如下
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>

b.text = "hello"
b.id = "b"

lable1.Controls.add(b)
end sub

Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click
msgbox("TEST!!!")

end sub

</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>fate stay night</title>
</head>
<body><form runat = "server">

<asp:label id = lable1 runat =server/>
<asp:label id = label2 runat = server/>
</form></body>
</HTML>

执行结果如下:

“/”应用程序中的服务器错误。

编译错误

说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30506: Handles 子句需要 WithEvents 变量。

源错误:

行 12：   end sub
行 13： 
行 14： Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click
行 15：   msgbox("TEST!!!")
行 16：

源文件: E:\jsjj\Default.aspx 行: 14

显示详细的编译器输出:

c:\windows\system32\inetsrv> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /out:"c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\5eb2dc37\1fae5d4d\jjzb-wwy.dll" /D:DEBUG=1 /debug+  "c:\windows\microsoft.net\framework\v1.1.4322\Temporary ASP.NET Files\root\5eb2dc37\1fae5d4d\jjzb-wwy.0.vb"


Microsoft (R) Visual Basic .NET 编译器版本 7.10.6310.4
用于 Microsoft (R) .NET Framework 版本 1.1.4322.2300
版权所有 (C) Microsoft Corporation 1987-2000。保留所有权利。

E:\jsjj\Default.aspx(14) : error BC30506: Handles 子句需要 WithEvents 变量。

Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b.Click
                                                                                        ~

也失败啊!!

第 10 楼

得分:0

dim t as object = new button()
addhandler t.click,addressof t_click
Private Sub t_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
msgbox("TEST!!!")
End Sub
呵呵，忘了应该有一个AddressOf

我用古老的咒语重温,吟唱灵魂序曲寻根面对魔界的邪吻,不被污染的转身,维持纯白的象徵然后还原为人