我用VB编了个记事本,想用个下拉菜单Combobox1 将系统中的所以字体寸在里面,该怎么做啊!????
解决方案 »
- 请教个TXT文本输出的问题
- 利用Printer.Print制作的打印,如何调用打印预览功能(在线等待)
- 在线等,连接ACCESS数据库问题
- 如何把隐藏的菜单设置成自绘画模式
- 我想跨表更新数据表的数据,但总是错误,请高手们帮帮我,谢谢
- 太简单了..............
- 如何调用存储过程?
- 怎样让DATAGRID中当前记录显示红色
- 请教VB中的发送邮件,如何用 iframe 引用其它网页?
- 再問一遍.數字0-9,共能分成多少個10位數的組.比如:” 0123456789”,” “2934561708”,” 1293456708”,組中的數字不能重復. 給出源碼.
- 求助:如果数据库中某些数据改变 已经打开这些数据的结果集能否知道?
- 我想打开服务器上,d:\aaa\a.txt的文件。请教各位,谢谢。
Label1.Caption="ABCabc显示字体"
For I = 0 To Screen.FontCount - 1 '确定字体数
List1.AddItem Screen.Fonts(I) '把每一种字体放进列表框.
Next I
End SubPrivate Sub List1_Click()
I = List1.ListIndex ' 获取当前字体的索引值
Label1.Font = List1.List(I) '把当前字体赋予Label1
End Sub