'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 Menfkt. 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:
'Einfgen
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 ausgefhrt 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 einfgen
If ImgEdit.IsClipboardDataAvailable Then
ImgEdit.ClipboardPaste
Else
MsgBox "In der Zwischenablage sind keine Bilddaten enthalten!", _
vbExclamation, "Funktion nicht ausfhrbar"
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 mssen zun„chst ein Bild zur Bearbeitung laden!", _
vbExclamation, "Druckbefehl nicht ausfhrbar"
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 Scannuntersttzung " + 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
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.