bianliang.bas

哈哈

Attribute VB_Name = "bianliang"
Public pubconnstr As String      '连接数据库字符串
Public title As String     ' 对话框标题
Public fp As Boolean          '判断BOOLEAN变量
Public chooseclass As String  '存储当前选中班级
Public choosekey As String    '存储当前选中班级关键字
Public examstunum As Integer  '存储考场人数
Public examclassnum As Integer '存储考场个数
Public exambiaoshi As String   '存储考号标识
Public pxfs As String          '存储排序方式
Public mynode As nodetree
Public tuozhuainode As nodetree
Public tuozhuai As Boolean     '判断是否鼠标被拖拽
Public tuozhuai1 As Boolean
Public daochufangshi As String  '定义导出方式
'拖动窗体的API
'*******************************************************
Public Const HTCAPTION = 2
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'******************************************************
'鼠标动做
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 '  left button up

'********************************************************
Public listclass As nodetree
Public Function ConClass(nodestr As String) As String
    Dim strLen As Integer
    Dim newStr As String
    Dim tempstr As String
    Dim i As Integer
    For i = 1 To Len(nodestr)
        tempstr = Mid(nodestr, i, 1)
        Select Case tempstr
               Case "一"
                    newStr = newStr & "1"
               Case "二"
                    newStr = newStr & "2"
               Case "三"
                    newStr = newStr & "3"
               Case "四"
                    newStr = newStr & "4"
               Case "五"
                    newStr = newStr & "5"
               Case "六"
                    newStr = newStr & "6"
               Case "七"
                    newStr = newStr & "7"
               Case "八"
                    newStr = newStr & "8"
               Case "九"
                    newStr = newStr & "9"
               Case "十"
                    newStr = newStr & "0"
               Case Else
                    newStr = nodestr
        End Select
   Next
   ConClass = newStr
End Function