modcentral.bas

这个代码是基于软盘修复

Attribute VB_Name = "modCentral"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/03/20
'描    述：软盘分析修复维护工具 Ver 1.3.0
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit

'-----------------------------------------------------Public
Public mModWin As Long                  'modo para tamanho janela 0-Central View,1-Surface View,2-Small View,3-Full View
Public mLightScan(1 To 10) As Boolean   'ON/OFF para op珲es Scan
Public mLightFormat(1 To 6) As Boolean  'ON/OFF para op珲es Format
Public mLightRecover(1 To 5) As Boolean 'ON/OFF para op珲es Recover
Public mLightEdit(1 To 9) As Boolean    'ON/OFF para op珲es Scan
Public mUserOp(1 To 10) As Boolean      'ON/OFF para user pref
Public mOperation As Byte               'Posi玢o para opera珲es
Public mLightRead As Byte               'Posi玢o para Read N
Public mJumpNext As Long                'number to Jump Next Sector
Public oldNow As Long                   'Control old clock display
Public PosGO As Long                    'Go Animation
Public MouseGO As Boolean               'Mouse in GO button
Public mSaveName As String              'Image name for Recover Save/Load

'----------------------------------------------ReDisplayTool
Public Sub ReDisplayTool()
  Select Case mOperation
    Case 1: Call DisplayScanOp
    Case 2: Call DisplayFormatOp
    Case 3: Call DisplayRecoverOp
    Case 4: Call DisplayEditOp
  End Select
End Sub

'---------------------------------------------ToolTipAtMouse
Public Sub ToolTipAtMouse(ByRef MainOp As Byte, ByRef SubOp As Byte, ByVal X As Long, ByVal Y As Long)
  Dim Y1 As Long
  
  Y1 = Y + Central.PicCentral.Top - 21
  Select Case mOperation
    Case 1:  'Scan
      'Repair/Check/User
      If IsInsideBox(X, Y, 114, 40, 41, 13) Then  'Repair
        MainOp = 1: SubOp = 1: Exit Sub
      End If
      If IsInsideBox(X, Y, 114, 57, 41, 13) Then  'Check
        MainOp = 1: SubOp = 2: Exit Sub
      End If
      If IsInsideBox(X, Y, 114, 74, 41, 13) Then  'User
        MainOp = 1: SubOp = 3: Exit Sub
      End If
      'Read/Write/Verify
      If IsInsideBox(X, Y, 173, 39, 14, 20) Then 'Read
        MainOp = 1: SubOp = 4: Exit Sub
      End If
      If IsInsideBox(X, Y, 165, 62, 18, 19) Then 'Write
        MainOp = 1: SubOp = 5: Exit Sub
      End If
      If IsInsideBox(X, Y, 186, 59, 19, 13) Then 'Verify
        MainOp = 1: SubOp = 6: Exit Sub
      End If
      'Mark/Jump/Depth/Copy
      If IsInsideBox(X, Y, 214, 31, 32, 15) Then  'Mark
        MainOp = 1: SubOp = 7: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 46, 32, 15) Then  'Jump
        MainOp = 1: SubOp = 8: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 61, 32, 15) Then  'Depth
        MainOp = 1: SubOp = 9: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 76, 32, 15) Then  'Copy
        MainOp = 1: SubOp = 10: Exit Sub
      End If
    Case 2:  'Format
      'Full/Quick
      If IsInsideBox(X, Y, 166, 40, 41, 13) Then  'Full
        MainOp = 2: SubOp = 1: Exit Sub
      End If
      If IsInsideBox(X, Y, 166, 57, 41, 13) Then  'Quick
        MainOp = 2: SubOp = 2: Exit Sub
      End If
      'Mark/Jump
      If IsInsideBox(X, Y, 214, 31, 32, 15) Then  'Mark
        MainOp = 2: SubOp = 3: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 46, 32, 15) Then  'Jump
        MainOp = 2: SubOp = 4: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 61, 32, 15) Then  'Read
        MainOp = 2: SubOp = 5: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 76, 32, 15) Then  'Verify
        MainOp = 2: SubOp = 6: Exit Sub
      End If
      If IsInsideBox(X, Y, 112, 39, 50, 15) Then  'Bad Sectors
        MainOp = 2: SubOp = 7: Exit Sub
      End If
      If IsInsideBox(X, Y, 112, 54, 50, 15) Then  'Data Sectors
        MainOp = 2: SubOp = 8: Exit Sub
      End If
      If IsInsideBox(X, Y, 111, 75, 30, 13) Then  '% Free
        MainOp = 2: SubOp = 9: Exit Sub
      End If
      If IsInsideBox(X, Y, 146, 76, 68, 15) Then  'Data Space
        MainOp = 2: SubOp = 10: Exit Sub
      End If
    Case 3:  'Recover
      'Save/Load
      If IsInsideBox(X, Y, 167, 41, 41, 13) Then   'Save
        MainOp = 3: SubOp = 1: Exit Sub
      End If
      If IsInsideBox(X, Y, 167, 58, 41, 13) Then   'Load
        MainOp = 3: SubOp = 2: Exit Sub
      End If
      'Mark/Jump/Depth
      If IsInsideBox(X, Y, 214, 31, 32, 15) Then  'Mark
        MainOp = 3: SubOp = 3: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 46, 32, 15) Then  'Jump
        MainOp = 3: SubOp = 4: Exit Sub
      End If
      If IsInsideBox(X, Y, 214, 61, 32, 15) Then  'Depth
        MainOp = 3: SubOp = 5: Exit Sub
      End If
      'Up/Down
      If IsInsideBox(X, Y, 149, 65, 11, 6) Then   'Up
        MainOp = 3: SubOp = 6: Exit Sub
      End If
      If IsInsideBox(X, Y, 138, 65, 11, 6) Then   'Down
        MainOp = 3: SubOp = 7: Exit Sub
      End If
      'File
      If IsInsideBox(X, Y, 109, 69, 25, 7) Then  'File
        MainOp = 3: SubOp = 8: Exit Sub
      End If
      If IsInsideBox(X, Y, 109, 76, 137, 15) Then 'File
        MainOp = 3: SubOp = 8: Exit Sub
      End If
      'Sectors Left
      If IsInsideBox(X, Y, 114, 39, 46, 13) Then 'Sectors left
        MainOp = 3: SubOp = 9: Exit Sub
      End If
      'Next Jump
      If IsInsideBox(X, Y, 114, 52, 46, 13) Then 'Next Jump
        MainOp = 3: SubOp = 10: Exit Sub
      End If
    Case 4:  'Edit
      'Mark/Copy/Read/Write/Verify
      If IsInsideBox(X, Y, 112, 39, 37, 9) Then  'Mark
        MainOp = 4: SubOp = 1: Exit Sub
      End If
      If IsInsideBox(X, Y, 112, 49, 37, 9) Then  'Copy
        MainOp = 4: SubOp = 2: Exit Sub
      End If
      If IsInsideBox(X, Y, 112, 59, 37, 9) Then  'Read
        MainOp = 4: SubOp = 3: Exit Sub
      End If
      If IsInsideBox(X, Y, 112, 69, 37, 9) Then  'Write
        MainOp = 4: SubOp = 4: Exit Sub
      End If
      If IsInsideBox(X, Y, 112, 79, 37, 9) Then  'Verify
        MainOp = 4: SubOp = 5: Exit Sub
      End If
      'Format/Overwrite/Mark/Unmark
      If IsInsideBox(X, Y, 219, 31, 27, 15) Then  'Format
        MainOp = 4: SubOp = 6: Exit Sub
      End If
      If IsInsideBox(X, Y, 219, 46, 27, 15) Then  'Overwrite
        MainOp = 4: SubOp = 7: Exit Sub
      End If
      If IsInsideBox(X, Y, 219, 61, 27, 15) Then  'Mark
        MainOp = 4: SubOp = 8: Exit Sub
      End If
      If IsInsideBox(X, Y, 219, 76, 27, 15) Then  'Unmark
        MainOp = 4: SubOp = 9: Exit Sub
      End If
      'Space
      If IsInsideBox(X, Y, 181, 47, 15, 5) Then   'N