Question

VB编程使用标签输入文字，利用命令按钮组和选项按钮组改变标签里文字的字体和字的大小

Answer 1

sub form_load()
label1=inputbox("输入标签文字")
end sub
sub command1_click(index as integer)
if index=0 then
label1.fontname="宋体"
else
label1.fontname="黑体"
end if
end sub
sub option1_click(index as integer)
if index=0 then
label1.fontsize=9
else
label1.fontsize=16
end if
end sub