这是我的VB代码,我可以缩短成一两行吗?
cmbnA.Text = 1
cmbnJ.Text = 1
cmbnC.Text = 1
cmbsA.Text = "Standard"
cmbsJ.Text = "Standard"
cmbsC.Text = "Standard"
这是我的VB代码,我可以缩短成一两行吗?
cmbnA.Text = 1
cmbnJ.Text = 1
cmbnC.Text = 1
cmbsA.Text = "Standard"
cmbsJ.Text = "Standard"
cmbsC.Text = "Standard"
你可以试试这个语法:
Array.ForEach(Of TextBox)({cmbnA, cmbnJ, cmbnC}, Sub(a) a.Text = "1")
虽然我会认真考虑让这段代码更易于维护,而不是更短。
从给你的文本框起更好的名字开始。
使用冒号结束一行。
cmbnA.Text = 1 : cmbnJ.Text = 1 'etc...
问题是你为什么要这样做?程序运行时并没有什么不同,它使功能更加模糊。
嗯,我不认为这是可能的。您可以尝试使用with
语句,但这只会减少字符数,而不是行数。事实上,线条会增加。
不,它不可能。您可以使用冒号将其减少到一/两行,但这只是为了便于阅读。它没有任何其他影响。