Question

vb.net代码的小问题

我毕业设计要做一个程序，点一下计算这个程序就得出结果，就是说“计算”这个button的click事件下要写上千条代码，但是太长了不好维护，回头找起来也很麻烦，虽然做了注释，但是实在太长了。我看见vb.net有个一部分代码点一下开头的减号就能缩起来再点一下加号就能展开的功能，但是在click事件的代码等级里是没有这个加减号的，能不能手动添加呢？有没有其他办法？

Answer 1

Dim a, i As Integer, b As Object
        a = Len(TextBox1.Text)
        For i = 1 To a
            b = Mid(TextBox1.Text, i, 1)
            If 64 < Asc(b)  and  Asc(b) < 91 Or 96 < Asc(b)  and  Asc(b)< 123 Then
                TextBox2.Text = b & TextBox2.Text
            End If
        Next i

Answer 2

你可以用sub进行展开和缩起来；

追问

sub？sub不是函数吗？

追答

#Region "stringhhh"

#End Region
上面这个行吗？

追问

这个stringhhh是什么啊？

追答

是你给这个要折叠起来的区域的命名，随便取的

追问

#region语句在方法体/多行lambda无效

追答

那就是不行了，#Region "stringhhh"

#End Region在方法体外生效