frminfo.frm

国防工业部VB高级编程源码

VERSION 5.00
Begin VB.Form frmInfo 
   ClientHeight    =   3930
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5205
   Icon            =   "frmInfo.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   3930
   ScaleWidth      =   5205
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdClose 
      Caption         =   "关闭"
      Height          =   495
      Left            =   3240
      TabIndex        =   1
      Top             =   3000
      Width           =   1215
   End
   Begin VB.TextBox txtDev 
      Height          =   2175
      Left            =   720
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   480
      Width           =   3705
   End
   Begin VB.Label Label2 
      Caption         =   "物理字体："
      Height          =   405
      Left            =   720
      TabIndex        =   2
      Top             =   240
      Width           =   1005
   End
End
Attribute VB_Name = "frmInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdClose_Click()
'关闭窗口
Unload Me
End Sub

Private Sub Form_Load()
'显示物理字体的信息
    txtDev.Text = "字  体  样  式：" + g_strFontName
    If tmFont.tmCharSet And ANSI_CHARSET Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字    符    集：" + "ANSI字符集"
    ElseIf tmFont.tmCharSet And DEFAULT_CHARSET Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字    符    集：" + "缺省字符集"
    ElseIf tmFont.tmCharSet And OEM_CHARSET Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字    符    集：" + "OEM字符集"
    ElseIf tmFont.tmCharSet And SHIFTIS_CHARSET Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字    符    集：" + "SHIFTIS字符集"
    ElseIf tmFont.tmCharSet And SYMBOL_CHARSET Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字    符    集：" + "符号字符集"
    End If
    
    If (tmFont.tmPitchAndFamily And TMPF_TRUETYPE) <> 0 Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字  体  类  型：" + "TrueType字体"
    End If
    If (tmFont.tmPitchAndFamily And TMPF_DEVICE) <> 0 Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字  体  类  型：" + "设备字体"
    End If
    If (tmFont.tmPitchAndFamily And TMPF_FIXED_PITCH) <> 0 Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字  体  类  型：" + "宽度可变字体"
    Else
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字  体  类  型：" + "宽度固定字体"
    End If
    If (tmFont.tmPitchAndFamily And TMPF_VECTOR) <> 0 Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字  体  类  型：" + "向量字体"
    End If

    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字 符 的 宽 度：" + CStr(tmFont.tmHeight)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字符的平均宽度：" + CStr(tmFont.tmAveCharWidth)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字符的最大宽度：" + CStr(tmFont.tmMaxCharWidth)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "组合字符的宽度：" + CStr(tmFont.tmOverhang)
    
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字符顶部的高度：" + CStr(tmFont.tmInternalLeading)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字符行间的空间：" + CStr(tmFont.tmExternalLeading)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字符的上升高度：" + CStr(tmFont.tmAscent)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "水平轴    比例：" + CStr(tmFont.tmDigitizedAspectX)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "垂直轴    比例：" + CStr(tmFont.tmDigitizedAspectY)
    
    
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "字符的粗细程序：" + CStr(tmFont.tmWeight / 100)
    If tmFont.tmItalic = 0 Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "斜          体：否"
    Else
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "斜          体：是"
    End If
    If tmFont.tmUnderlined = 0 Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "下    划    线：无"
    Else
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "下    划    线：有"
    End If
    If tmFont.tmStruckOut = 0 Then
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "删    除    线：无"
    Else
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "删    除    线：有"
    End If
    
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "第一个字  符：" + CStr(tmFont.tmFirstChar)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "最后一个字符：" + CStr(tmFont.tmLastChar)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "分   隔   符：" + CStr(tmFont.tmBreakChar)
    txtDev.Text = txtDev.Text + Chr(13) & Chr(10) + "缺  省 字 符：" + CStr(tmFont.tmDefaultChar)
    
    
    
    
    
End Sub