求一VB小程序
程序要求如下:1、程序运行后,窗体初始化时,在左边列表框1(名称为List1)中列出当前屏幕对象(Screen)的所有字体,screen对象的fonts属性(fonts属性是一个数组)能够得到屏幕使用的所有字体,FontCount属性能够得到字体的数量,利用一个循环,将Screen对象的每个Fonts(i)添加到列表框1中; 2、窗体初始化时,在右边的列表框2(名称为List2)中列出8、10、12、14……72的数字,表示字号。 3、当用户在列表框1中单击选中某种字体名时,或在列表框2中单击选中某一字号时,使窗体下半部的标签框(名称为Label1)中文字设置为相应字体与字号,实现字体字号预览。