| 发表于:2007-10-06 12:13:123楼 得分:0 |
private sub form_load () dim i ' 声明变量. list1.move 50, 50, 2000, 1750 ' 排列列表框. list2.move 2500, 50, 3000, 1750 for i = 0 to screen.fontcount -1 ' 使用屏幕字体. list1.additem screen.fonts(i) ' 填充两个列表框 list2.additem screen.fonts(i) next i end sub | | |
|