由于此地板涉嫌违规,因此它将折叠在系统中以隐藏此地板并显示此地板
刚写的垃圾代码……太冗长了.
Private Sub Check1斜体_Click (
If Check1斜体. Value=1 Then
else : text1. font italic=false
End If
End gxdbb/p Private Sub Check2粗体_Click (
If Check2粗体. Value=1 Then
Else: Text1.FontBold=False
End If
endgxdbb/private sub command1_ click (
结束
end GX dbb/p隐私子选项1红色_Click (
end GX dbb/p隐私子选项2黄_Click (
endgxdbb/pprivatesuboption 318 _ click (
Option318.Value=True
Text1.FontSize=18
End gxdbb/p Private Sub Option3蓝色_Click (
endgxdbb/pprivatesuboption 420 _ click (
Option420.Value=True
Text1.FontSize=20
end GX dbb/p隐私子选项4绿色_Click (
endgxdbb/pprivatesuboption 512 _ click (
Option512.Value=True
Text1.FontSize=12
endgxdbb/pprivatesuboption 616 _ click (
Option616.Value=True
Text1.FontSize=16
End gxdbb/p