eniv.cls

来自「金算盘软件代码」· CLS 代码 · 共 46 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Eniv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  环境类
'  作者：黄涛
'  日期：1998.02.21
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

'机器名最大长度
Private Const MachineNameLen As Long = 16

'机器名
Public Property Get MachineName() As String
    Dim mstrMachineName As String * MachineNameLen
    
    GetComputerName mstrMachineName, MachineNameLen
    
    MachineName = strLeft(mstrMachineName, MachineNameLen)
End Property

'水平滚动条高度
Public Property Get HScrollHeight() As Integer
   HScrollHeight = GetSystemMetrics(SM_CYHSCROLL) * Screen.TwipsPerPixelY
End Property

'垂直滚动条宽度
Public Property Get VScrollWidth() As Integer
   VScrollWidth = GetSystemMetrics(SM_CXVSCROLL) * Screen.TwipsPerPixelX
End Property