【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-7.6.3.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form Form7 
       Caption         =   "Form7"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form7"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
       Begin VB.Timer Timer1 
          Left            =   1800
          Top             =   2280
       End
       Begin VB.PictureBox Picture1 
          Height          =   1815
          Left            =   1320
          ScaleHeight     =   1755
          ScaleWidth      =   1635
          TabIndex        =   0
          Top             =   120
          Width           =   1695
       End
    End
    Attribute VB_Name = "Form7"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Timer1_Timer()
       Static screenfontscount As Integer
       If screenfontscount < Screen.FontCount Then
          Screen.ActiveControl.Cls
          Screen.ActiveControl.Print Screen.Fonts(screenfontscount)
          If Trim(Screen.Fonts(screenfontscount)) = "Arial" Then
              Timer1.Enabled = False
              MsgBox "这就是我想要的字体"
              Exit Sub
          End If
          screenfontscount = screenfontscount + 1
       End If
    End Sub
    
    

上一篇：7.6.2.frm
下一篇：关于家庭自动化系统