LISTING2.TXT Driver File Contents (ct9704.zip)

'linke obere Koordinate einer markierten Anmerkung
Dim mX As Long
Dim mY As Long
Dim mType As Integer'aktuelle H”he/Weite eines gezeichneten Auswahlrechtecks
Dim RectW As Single
Dim RectH As Single

Private Sub btnUser_Click(Index As Integer)
  'benutzerdefinierte Symbolschaltfl„chen
  'auf entsprechende Menfkt. umleiten
  Select Case Index
    Case 0:
      '™ffnen
      mnuOpen_Click
    Case 1:
      'Speichern
      mnuSaveAs_Click
    Case 2:
      'Drucken
      mnuPrint_Click
    Case 3:
      'Ausschneiden
      mnuCut_Click
    Case 4:
      'Kopieren
      mnuCopy_Click
    Case 5:
      'Einfgen
      mnuPaste_Click
    Case 6:
      'Eigenschaften
      Select Case mType
        Case 1, 2, 3, 4
          'Grafikeigenschaft
          mnuDoAnnotate_Click 3
        Case 7, 8, 9, 10
          'Texteigenschaft
          mnuDoAnnotate_Click 2
      End Select
    Case 7:
      'Scannen
      mnuDoScan_Click 2
  End Select
End Sub

Private Sub Form_Load()
  'dynamische Steuerlemente an Form anpassen
  'Thumb-GrӇen
  ImgThumb.ThumbHeight = 85
  ImgThumb.ThumbWidth = 110
  'Bildverwaltung
  ImgThumb.Top = lbTop.Height
  ImgThumb.Left = 0
  ImgThumb.Width = 1000
  ImgThumb.Height = Me.ScaleHeight - lbTop.Height - lbBottom.Height
  'Splitter-Bar
  Splitter.Top = lbTop.Height
  Splitter.Left = ImgThumb.Width
  Splitter.Height = ImgThumb.Height
  'bearbeitbares Bild
  ImgEdit.Top = lbTop.Height
  ImgEdit.Left = Splitter.Left + Splitter.Width
  ImgEdit.Height = ImgThumb.Height
  ImgEdit.Width = Me.ScaleWidth - ImgThumb.Width - Splitter.Width
  'Scannerfunktionen aktivieren/deaktivieren
  If ImgScan.ScannerAvailable Then
      mnuScann.Enabled = True
      btnUser(7).Enabled = True
    Else
      mnuScann.Enabled = False
      btnUser(7).Enabled = False
  End If
  'Auswahlmarkierung zulassen
  ImgEdit.SelectionRectangle = True
  'Standardm„áig Vorschaufkt. ausblenden
  mnuViewPicList_Click
  'neues Bild anlegen
  mnuNew_Click
End Sub

Private Sub Form_Resize()
  'Steuerlemente an neue FormgrӇe anpassen
  On Error Resume Next
  'Thumb-GrӇen
  ImgThumb.ThumbHeight = 85
  ImgThumb.ThumbWidth = 110
  ImgThumb.Height = Me.ScaleHeight - lbTop.Height - lbBottom.Height
  Splitter.Height = ImgThumb.Height
  ImgEdit.Height = ImgThumb.Height
  If ImgThumb.Visible Then
      ImgEdit.Width = Me.ScaleWidth - ImgThumb.Width - Splitter.Width
    Else
      ImgEdit.Width = Me.ScaleWidth
  End If
End Sub

Private Sub ImgAnnTool1_Click(Index As Integer)
  'angew„hlte Funktion Bildfeld bergeben
  On Error Resume Next
  ImgEdit.SelectTool Index
  If Index = 10 Then
    'Stempeleigenschaften
    mnuRubberDlg_Click
  End If
End Sub

Private Sub ImgEdit_MarkEnd(ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long, ByVal MarkType As Integer, ByVal GroupName As String)
  'Markierung wird aufgehoben
  mType = 0
  mX = 0
  mY = 0
End Sub

Private Sub ImgEdit_MarkSelect(ByVal Button As Integer, ByVal Shift As Integer, ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long, ByVal MarkType As Integer, ByVal GroupName As String)
  'markierter Typ
  mType = MarkType
  'Position der Markierung global sichern
  mX = Height
  mY = Width
End Sub

Private Sub ImgEdit_SelectionRectDrawn(ByVal Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long)
  RectW = Width
  RectH = Height
End Sub

Private Sub mnuCopy_Click()
  'Kopie des aktuellen Bildes in Zwischenablage
  ImgEdit.ClipboardCopy
End Sub

Private Sub mnuCut_Click()
  'Bild ausschneiden und in Zwischenablage bernehmen
  ImgEdit.ClipboardCut
End Sub

Private Sub mnuDoAnnotate_Click(Index As Integer)
  On Error GoTo ErrAnnotate
  Dim Msg As String
  With ImgEdit
    Select Case Index
      Case 0
        'Anmerkungen l”schen
        If mX > 0 And mY > 0 Then
          .DeleteSelectedAnnotations
        End If
      Case 1
        'markierte Anmerkungen in Grafik einbrennen
        If mX > 0 And mY > 0 Then
            'nur markierte Anmerkungen einbrennen
            .BurnInAnnotations 2, 2
          Else
            'alle Anmerkungen einbrennen
            .BurnInAnnotations 0, 2
        End If
      Case 2
        'Textanmerkung bearbeiten
        If mX > 0 And mY > 0 Then
          .EditSelectedAnnotationText mX, mY
        End If
      Case 3
        'Anmerkungsattribute bearbeiten
        If mX > 0 And mY > 0 Then
          .ShowAttribsDialog
        End If
    End Select
  End With
  Exit Sub
ErrAnnotate:
  'Fehlermeldung
  Msg = "Die von Ihnen gew„hlte Funktion kann mit dem aktuell" + vbCrLf
  Msg = Msg + "markierten Objekt nicht ausgefhrt werden. Žndern Sie " + vbCrLf
  Msg = Msg + "die Markierung und versuchen Sie es anschlieáend erneut."
  MsgBox Msg, vbExclamation, "Bearbeitungsfehler"
  Exit Sub
End Sub

Private Sub mnuDoFit_Click(Index As Integer)
  'Bildanpassung
  With ImgEdit
    Select Case Index
      Case 0: .FitTo 2 'Weite
      Case 1: .FitTo 1 'H”he
      Case 2: .FitTo 0 'optimal
    End Select
  End With
End Sub

Private Sub mnuDoRotate_Click(Index As Integer)
  'Rotation
  With ImgEdit
    Select Case Index
      'nach links rotieren
      Case 0: .RotateLeft
      'nach rechts rotieren
      Case 1: .RotateRight
      'um 180 Grad spiegeln
      Case 2: .Flip
    End Select
  End With
End Sub

Private Sub mnuDoScan_Click(Index As Integer)
  On Error Resume Next
  'Žnderungen an aktueller Grafik
  CheckForChanges
  'neues Bild
  lbBottom.Caption = "kein Name vergeben"
  ImgAdmin.Image = ""
  mnuNew_Click
  'Scan-Funktionen
  With ImgScan
    Select Case Index
        'Komprimierungseinstellungen
      Case 0: .ShowScanPreferences
        'Scannerwahl
      Case 1: .ShowSelectScanner
      Case 2:
        'Einstellungen
        .ShowSetupBeforeScan = True
        'Abbruch zulassen
        .StopScanBox = True
        'Scannen
        .StartScan
    End Select
  End With
End Sub

Private Sub mnuNew_Click()
  CheckForChanges
  ImgEdit.DisplayBlankImage 500, 500
  ImgEdit.Image = ""
  ImgThumb.Image = ImgEdit.Image
  'keine Vorschaufkt.
  mnuViewPicList.Checked = True
  ImgThumb.Visible = False
  Splitter.Visible = False
  ImgEdit.Left = 0
  ImgEdit.Width = Me.ScaleWidth
End Sub

Private Sub mnuPaste_Click()
  'Zwischenablageinhalt einfgen
  If ImgEdit.IsClipboardDataAvailable Then
      ImgEdit.ClipboardPaste
    Else
      MsgBox "In der Zwischenablage sind keine Bilddaten enthalten!", _
        vbExclamation, "Funktion nicht ausfhrbar"
  End If
End Sub

Private Sub mnuPercent_Click(Index As Integer)
  'Zoomfunktion
  On Error Resume Next
  Dim Value As Integer
  'abh„ngig vom Indexwert Zoomfaktor setzen
  Select Case Index
    Case 0: Value = 25
    Case 1: Value = 50
    Case 2: Value = 75
    Case 3: Value = 100
    Case 4: Value = 200
    Case 5: Value = 500
    Case 6:
      'markierten Bereich vergrӇern
      If RectW > 0 And RectH > 0 Then
        ImgEdit.ZoomToSelection
      End If
      Exit Sub
  End Select
  'zoomen
  With ImgEdit
    .Zoom = Value
    .Refresh
  End With
End Sub

Private Sub mnuPrint_Click()
  'Bild ausdrucken
  CheckForChanges
  If ImgEdit.Image <> "" Then
      ImgAdmin.Image = ImgEdit.Image
      ImgAdmin.ShowPrintDialog
    Else
      MsgBox "Sie mssen zun„chst ein Bild zur Bearbeitung laden!", _
        vbExclamation, "Druckbefehl nicht ausfhrbar"
  End If
End Sub

Private Sub mnuRubberDlg_Click()
  'Eigenschaftsdialog der Stempeleigenschaften
  ImgEdit.ShowRubberStampDialog
End Sub

Private Sub mnuSave_Click()
  'Datei unter bekanntem Namen speichern
  If ImgEdit.Image = "" Then
      mnuSaveAs_Click
    Else
      'Sichern
      ImgEdit.Save False
  End If
End Sub

Private Sub mnuSaveAs_Click()
  'Bild speichern als...
  On Error Resume Next
  ImgAdmin.Image = ImgEdit.Image
  ImgAdmin.Filter = "TIFF-Dateien (*.tif)|*.tif|AWD-Dateien (*.awd)|*.awd|BMP-Dateien* (*.bmp)|*.bmp|"
  ImgAdmin.ShowFileDialog 1
  If Err = 32755 Then Exit Sub
  If ImgAdmin.Image = ImgEdit.Image Then
      ImgEdit.Save False
    Else
      ImgEdit.SaveAs ImgAdmin.Image, ImgAdmin.FilterIndex
      ImgEdit.Image = ImgAdmin.Image
      ImgAdmin.Image = ImgEdit.Image
  End If
End Sub


Private Sub mnuTools_Click()
  'Werkzeugsammlung einblenden
  '(alternativ per Doppelklick auf Bildfeld)
  ImgEdit.ShowAnnotationToolPalette
End Sub

Private Sub mnuViewPicList_Click()
 'verkleinerte Bildlistenvorschau optional ausblendbar
 If mnuViewPicList.Checked = False Then
      mnuViewPicList.Checked = True
      ImgThumb.Visible = False
      Splitter.Visible = False
      ImgEdit.Left = 0
      ImgEdit.Width = Me.ScaleWidth
    Else
      mnuViewPicList.Checked = False
      ImgThumb.Visible = True
      Splitter.Visible = True
      ImgEdit.Left = Splitter.Left + Splitter.Width
      ImgEdit.Width = Me.ScaleWidth - ImgThumb.Width - Splitter.Width
  End If
End Sub

Private Sub Splitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  'Anwahl durch Farb„nderung veranschaulichen
  Splitter.BackColor = vb3DShadow
End Sub

Private Sub Splitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  'Teilungsbalken zur Gr”áen„nderung
  If Button Then
    If Splitter.Left + x < 10 Then
      x = Splitter.Left + 10
      Exit Sub
    End If
    If Splitter.Width + x > Width - 1000 Then
      x = Width - 1000 - Splitter.Left
      Exit Sub
    End If
    Splitter.Left = Splitter.Left + x
    Splitter.Refresh
  End If
End Sub

Private Sub Splitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  'Teilungsbalken zur Gr”áen„nderung nutzen
  Splitter.BackColor = vb3DLight
  'sinnvolle Gr”áen berwachen
  If Splitter.Left < 500 Then Splitter.Left = 500
  If Splitter.Left > 7600 Then Splitter.Left = 7600
  If Splitter.Left <> 0 Then
    ImgThumb.Width = Splitter.Left
    ImgEdit.Left = ImgThumb.Width + Splitter.Width
    ImgEdit.Width = Me.ScaleWidth - ImgThumb.Width - Splitter.Width
    Splitter.ZOrder
  End If
End Sub

Private Sub ImgEdit_DblClick()
  'Doppelklick auf berabeitbares Bild bringt
  'Werkzeugsammlung zur Ansicht
  ImgEdit.ShowAnnotationToolPalette
End Sub

Private Sub ImgThumb_Click(ByVal ThumbNumber As Long)
  'angew„hltes Bild zur Bearbeitung anzeigen
  If ThumbNumber = 0 Then Exit Sub
  CheckForChanges
  ImgEdit.Page = ThumbNumber
  ImgEdit.Display
  ImgThumb.DeselectAllThumbs
  ImgThumb.ThumbSelected(ThumbNumber) = True
End Sub

Private Sub mnuAbout_Click()
  'Programminformationen
  Dim Title As String
  Dim Msg As String
  Dim CL As String
  Title = "šber..."
  CL = vbCrLf + vbCrLf
  Msg = "ScanPic 1.0" + CL
  Msg = Msg + "Bildmanagement, Bildverarbeitung und Scannuntersttzung " + vbCrLf
  Msg = Msg + "(via TWAIN) mit Hilfe der Wang-Systemkomponenten" + CL
  Msg = Msg + "(c)1997 by IngES/Dipl.-Ing. Andreas Maslo"
  MsgBox Msg, vbInformation, Title
End Sub

Private Sub mnuExit_Click()
  'Programm nach Sicherheitsabfrage beenden
  CheckForChanges
  If MsgBox("Wollen Sie 'ScanPic' wirklich beenden?", _
    vbInformation + vbYesNo, "Programm beenden") = vbYes Then
    End
  End If
End Sub

Private Sub mnuOpen_Click()
  'Datei ”ffnen
  On Error Resume Next
  CheckForChanges
  ImgAdmin.Filter = "Bilddateien (*.tif, *.bmp, *.awd, *.jpg)|*.tif;*.bmp;*.awd;*.jpg|Alle Dateien (*.*)|*.*|"
  ImgAdmin.ShowFileDialog 0
  If Err = 32755 Then Exit Sub
  lbBottom.Caption = ImgAdmin.Image
  ImgEdit.Image = ImgAdmin.Image
  ImgEdit.Display
  ImgThumb.Image = ImgEdit.Image
  ImgThumb.GenerateThumb 1
  'falls mehr als ein Bild in einer ge”ffneten
  'datei enthalten ist, automatisch Bildvorschau-
  'liste einblenden
  If ImgThumb.ThumbCount > 1 Then
    mnuViewPicList.Checked = False
    ImgThumb.Visible = True
    Splitter.Visible = True
    ImgEdit.Left = Splitter.Left + Splitter.Width
    ImgEdit.Width = Me.ScaleWidth - ImgThumb.Width - Splitter.Width
  End If
End Sub

Private Sub CheckForChanges()
  Dim Msg As String
  If ImgEdit.ImageModified Then
    Msg = "Am aktuell bearbeiteten Bild wurden Žnderungen "
    Msg = Msg + "vorgenommen. Sollen diese Žnderungen jetzt "
    Msg = Msg + "gespeichert werden?"
    If MsgBox(Msg, vbQuestion + vbYesNo, "Žnderungen speichern") = vbYes Then
      'Žnderungen speichern
      If ImgEdit.Image = "" Then
          mnuSaveAs_Click
        Else
          mnuSave_Click
      End If
    End If
  End If
End Sub
Download Driver Pack

How To Update Drivers Manually

After your driver has been downloaded, follow these simple steps to install it.

  • Expand the archive file (if the download file is in zip or rar format).

  • If the expanded file has an .exe extension, double click it and follow the installation instructions.

  • Otherwise, open Device Manager by right-clicking the Start menu and selecting Device Manager.

  • Find the device and model you want to update in the device list.

  • Double-click on it to open the Properties dialog box.

  • From the Properties dialog box, select the Driver tab.

  • Click the Update Driver button, then follow the instructions.

Very important: You must reboot your system to ensure that any driver updates have taken effect.

For more help, visit our Driver Support section for step-by-step videos on how to install drivers for every file type.

server: web5, load: 0.88