modsave.bas

来自「中专学校的学生操行分管理系统,包含了网络查询的功能」· BAS 代码 · 共 67 行

Attribute VB_Name = "modSave"
Option Explicit

'Private Sub shpLine_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'    If Button = vbLeftButton And Shift = 0 And stCurType = shpSelect Then
'        bIsMove = True
'        sX = X
'        sY = Y
'        Me.MousePointer = 5
'    End If
'End Sub
'
'Private Sub shpLine_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'    If bIsMove And stCurType = shpSelect Then
'        shpLine(Index).Move shpLine(Index).Left + (X - sX), shpLine(Index).Top + (Y - sY)
'    End If
'End Sub
'
'Private Sub shpLine_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'    If bIsMove And stCurType = shpSelect Then
'        bIsMove = False
'        Me.MousePointer = 0
'    End If
'End Sub
'


'在Form_MouseUp事件中
'        Case shpShape
'            stCurType = shpSelect
'            tb.Buttons(1).Value = tbrPressed
'            shapeCount = shapeCount + 1
'            Load shpLine(shapeCount)
'            shpLine(shapeCount).Left = sX
'            shpLine(shapeCount).Top = sY
'            shpLine(shapeCount).Height = Y - sY
'            shpLine(shapeCount).Width = X - sX
'            shpLine(shapeCount).ZOrder
'            shpLine(shapeCount).Visible = True


'    If Me.Controls(strSelect)(intSelect).Height + (Y - sY) < 0 Then Y = sY - Me.Controls(strSelect)(intSelect).Height + 1
'    If Me.Controls(strSelect)(intSelect).Width + (X - sX) < 0 Then X = sX - Me.Controls(strSelect)(intSelect).Width + 1
'    Select Case Index
'        Case 3
'            If bIsResize And stCurType = shpSelect Then
'                Me.Controls(strSelect)(intSelect).Width = Me.Controls(strSelect)(intSelect).Width + (X - sX)
'                sX = X
'                sY = Y
'            End If
'        Case 4
'            If bIsResize And stCurType = shpSelect Then
'                Me.Controls(strSelect)(intSelect).Height = Me.Controls(strSelect)(intSelect).Height + (Y - sY)
'                Me.Controls(strSelect)(intSelect).Width = Me.Controls(strSelect)(intSelect).Width + (X - sX)
'                sX = X
'                sY = Y
'            End If
'        Case 5
'            If bIsResize And stCurType = shpSelect Then
'                Me.Controls(strSelect)(intSelect).Height = Me.Controls(strSelect)(intSelect).Height + (Y - sY)
'                sX = X
'                sY = Y
'            End If
'        Case Else
'    End Select