module1.bas

常驻人口户籍管理系统DELPHI开的的,还不错.学习用

Attribute VB_Name = "Module1"
Public Mdata As Database
Public Mrec As Recordset
Option Explicit
Sub Main()
    frmLogin.Show
End Sub

Public Function StrAdjust(Str As String, Relen As Integer, isAdjust As Boolean)
'不要修改此函数 功能:修改字符串Str至指定长度。不足则末尾补" "；超过则加"..."
    '返回指定长度的修改后字符串
    Dim i As Integer, j As Integer, k As Integer, l As String
    For i = 1 To Len(Str)
        '如果字符的ASCII码小于0，则说明是扩展字符，简单区分汉字和字母字符
        If Asc(Mid(Str, i, 1)) >= 0 Then j = j + 1 Else j = j + 2
    Next
    If j > Relen Then
        j = 0: GoTo Ad1
    ElseIf j = Relen Then
        StrAdjust = Str: Exit Function
    ElseIf j < Relen Then
        For i = 1 To Relen - j
            l = " " + l
        Next
        StrAdjust = Str + l: Exit Function
    End If


'重新计算，以进行修改
Ad1: For i = 1 To Len(Str)
        '如果字符的ASCII码小于0，则说明是扩展字符，简单区分汉字和字母字符
        If Asc(Mid(Str, i, 1)) >= 0 Then j = j + 1 Else j = j + 2
        If j > Relen Then
            '再调用StrAdjust(str,relen-3)然后返回修改字符串
            '字符串修改为省略显示方式,最后3位为"..."
            If isAdjust Then
                l = StrAdjust(Left(Str, i - 1), Relen - 3, False) + "..."
                StrAdjust = StrAdjust(l, Relen, True)
            Else
                StrAdjust = Left(Str, i - 1)
            End If
            Exit Function
        End If
    Next
    StrAdjust = Str '字符串符合长度
End Function