以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  谁帮我翻译下这代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93678)

--  作者：神一样的男人 --  发布时间：2016/12/4 13:36:00 --  谁帮我翻译下这代码  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:代码翻译.txt

--  作者：神一样的男人 --  发布时间：2016/12/4 13:37:00 --   不明白这个代码什么意思  能翻译下吗

--  作者：有点色 --  发布时间：2016/12/4 14:21:00 --   Select Case e.Sender.Name     Case "Label1","Label2","Label3","Label4"         Dim Pnl As WinForm.Panel = e.Form.Controls("Panel" & e.sender.name.Replace("Label", "")) \'合成 panel1、panel2、panel3或者panel4 这个字符         Pnl.Top = e.Sender.Top + e.Sender.Height + 3 \'设置panel的纵坐标，等于label控件的纵坐标加上label控件的高度加3         Pnl.Visible = Not Pnl.Visible \'如果panel之前显示，就隐藏，如果隐藏，就显示         e.sender.BaseControl.Image = IIf(Pnl.Visible, GetImage("control-270.png"),GetImage("control.png")) \'设置图标         e.sender.BackColor = IIf(Pnl.Visible, Drawing.SystemColors.ControlDark, Drawing.SystemColors.Control) \'设置背景颜色                  Dim Lbl As WinForm.Label = e.Form.Controls("Label1")         For i As Integer = 2 To 4             Pnl = e.Form.Controls("Panel" & i - 1) \'获取对应的panel控件             e.Form.Controls("Label" & i).Top = IIF(Pnl.Visible,Pnl.Top + Pnl.Height + 3,Lbl.Top + Lbl.Height + 3) \'设置panel的纵坐标             Lbl = e.Form.Controls("Label" & i)             e.Form.Controls("Panel" & i).Top = Lbl.Top + Lbl.Height + 3 \'根据对应label的纵坐标和高度设置panel控件的纵坐标         Next End Select