各位大侠,帮帮忙 label.ToolTipText的字体可以变大不?
程序代码:
FOR i =1 TO 32
j=TRANSFORM(i)
b=THISform.label&j..caption
a=chrtran(b,'0123456789.','')
d=chrtran(a,'abcdefghijklmnopqrstuvwxyz.','')
C=ALLTRIM(d)
SELECT 单词 FROM aq WHERE 汉意=C INTO ARRAY go
thisform.label&j..ToolTipText=go(1)
thisform.Refresh
endfor