VB9(2008)的答案(也许2005的可以给下)  
 
怎么做下拉菜单里放着所有的字体名称  
 
怎么做一个程序,然后点一个文件选择打开方式选择那个程序  
那个程序一打开就能自动加载(加载过程已有)

解决方案 »

  1.   

    还有两个问题,VB2008的richtextbox选中的字体下面(font)的各个属性为什么是只读?
    这样不就不能一次只改一个属性了吗?怎么让菜单栏、快捷菜单栏能像Word等大软件一样能到处拖动
      

  2.   

    VB6 CODE
    枚举所有字体:
    Dim i As Long
    For i = 0 To Screen.FontCount - 1
        Debug.Print Screen.Fonts(i)
    NextPS:文字编辑器的设置字体都是调用系统的对话框的,
    不是把所有的字体加载进来。
      

  3.   

    VB2008没有Screen.FontCount 这个玩意