简洁的话就做一个表如数组来查找跳转地址,下标就是类型代表的数字值,这样就不用比较了;Dim ColourPrivate Sub Command1_ClickForm1BackColor = RGBRnd 255,Rnd 255,Rnd 255End SubPrivate Sub Command2_ClickForm1BackColor = ColourIntRnd 16End SubPrivate Sub Form_LoadColour =。
.
2022年07月14日 06:07:22
简洁的话就做一个表如数组来查找跳转地址,下标就是类型代表的数字值,这样就不用比较了;Dim ColourPrivate Sub Command1_ClickForm1BackColor = RGBRnd 255,Rnd 255,Rnd 255End SubPrivate Sub Command2_ClickForm1BackColor = ColourIntRnd 16End SubPrivate Sub Form_LoadColour =。
Powered By
Copyright Your WebSite.Some Rights Reserved.