For j = 0 To Screen.FontCount - 1
 Combo1.AddItem Screen.Fonts(j)
Next j


上面是个加载字体的代码.   请问Screen.FontCount后面为什么要加上- 1呢,教程里的解释是第一个字体名的索引值为0,第二个为1,总数量就是减去1,我不明白为什么总数量就是减去1呢.   


另外我的VB中InputBox函数必须用上左边上边参数,否则对话框输入区显示的是乱码.

谢谢!!

For j = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(j)
Next j


假如有50种字体，那么 screen.fonts(0to 49)，而 screen.fontcount=50
那么如果 你取 screen.fonts(50) 时，程序就立马报错。

我还是不太明白

是不是说screen.fonts是从0开始数,而screen.fontcount是从1开始数.

是的.
screen.fonts 是从0 开始.
screen.fontcount 是总个数,从1开始算起的.

感谢版主!  总于搞定了.