for i=6 to 72 step 2
select case i
case 6
combox1.additem "六号"
case 8
combox1.additem "八号"
...
other case
combox1.additem i
end select具体设置还需你去写罗
执行时可以
private sub combox1_click()
if combox1.listindex<中文字号的最大项目 then
object.fontsize=combo1.listindex*2+6 '我们假设最小字号为六号
else
object.fontsize=combo1.text
end if
end sub
差不多这个思路啦
select case i
case 6
combox1.additem "六号"
case 8
combox1.additem "八号"
...
other case
combox1.additem i
end select具体设置还需你去写罗
执行时可以
private sub combox1_click()
if combox1.listindex<中文字号的最大项目 then
object.fontsize=combo1.listindex*2+6 '我们假设最小字号为六号
else
object.fontsize=combo1.text
end if
end sub
差不多这个思路啦
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货