[VB.NET]分给上个问题了,我没分给了,还请多指教下这个问题=_=
发布时间：2020-12-16 23:43:24 所属栏目：大数据 来源：网络整理
导读：分给上个问题了,我没分给了,还请多指教下这个问题=_= Dim pic As New PictureBox pic.ImageLocation = "buke/ " ss ".png " pic.Name = ss pic.Location = New System.Drawing.Point(x - i * 30,y) pic.Width = 94 pic.Height = 125 AddHandler pic.Click,Ad
|
分给上个问题了,我没分给了,还请多指教下这个问题=_= Dim pic As New PictureBox pic.ImageLocation = "buke/ " & ss & ".png " pic.Name = ss pic.Location = New System.Drawing.Point(x - i * 30,y) pic.Width = 94 pic.Height = 125 AddHandler pic.Click,AddressOf pic_Click '' '' ''这里用 ------------------------ Private Sub pic_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Dim a,b,c As Integer a = (sender).Location.X b = (sender).Location.Y '' '' '' ''MsgBox(a) = 790 c = b - 10 If Ya - c > 10 Then c = Ya sender.Location = New System.Drawing.Point(a,c) Dim str As String = sender.Name MsgBox(str) End Sub ----------- 问: 当我sender.点的时候后面没有出来相对应他的属性 是不是应该用什么转换下? 我用((PictureBox)sender)不行,那我应该怎么写才能让他出来呢?? 没分了给了,还请前辈们多指点!!! __________________________________________________________________________ ctype(sender,picturebox) __________________________________________________________________________ 用pic就行啦，为什么用sender呢？ __________________________________________________________________________ 因为sender代表的对象是不确定的，所以他没有属性。 __________________________________________________________________________ 我是说您说的“相对应的属性”。 __________________________________________________________________________ 因为pic是动态生成的在另个函数里面 直接在别的函数里用pic提示找不到这个控件 dim s as integer = ctype(sender,picturebox).Location.X 好用了!谢谢 也谢谢magicbacon(Cannot help coding),你是不是也是都是在晚间活动呀?/ 我也是,这样晚上就有高手指点了,嘿嘿 __________________________________________________________________________ 嘿嘿，昼伏夜出。 __________________________________________________________________________ 但还是菜鸟啊，唉。 __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |