| |
VB & Windows APIStretchBLT aufrufen | | | Autor: NorbertM | Datum: 17.02.10 19:38 |
| Hallo,
seit drei Tagen versuche ich irgendwie das ganz Thema Handle etc zu verstehen und offen gestanden: Es gibt 100 Seiten zu VB aber nix gscheites zu VBA
Ich will ein Bild mit VBA in Excel gemacht aus einem Scrennshot vom Bildschirm in eine Picture-Box laden, dann mit der maus ein Rechteck wählen und den Ausschnitt bestimmen und dann beschneiden und ggf. nochmals zeigen und final sichern.
Ich kann schon einen Scrennshot machen, anzeigen, den Ausschnitt bestimmen und die Koordinaten festlegen. Ich kann die StretchBLT schin declaren, den Code übersetzen, aber er tut nicht:
Denn ich muss ich das nur noch irgendwie an diese nette StretchBlt übergeben:
Was ich habe ist:
UserForm1.Image1.picture = loadpicture("d:\file.bmp") ' oder anders hergestellt per Screenshot
UserForm2.Image2.picture ' ist momentan noch leer und soll mit dem Ausschnitt mal befüllt werden.
Const vbSrcCopy = 13369376
x,y,w,h sind vier Long variablen mit den
Beschneidungsparamtern (in Prozent zum Orginalbild), dessen Größe ich kenne, kann das also auf die exakten Pixel des orginalbildes umrechnen.
und jetzt?
hdctarget= ????
hdcSource = UserForm1.image1.picture (???)
StretchBlt hdctarget, x, y, w, h, hdcSource, x, y, w, h, vbSrcCopy
Kann mir einer erklären, was ich da als Übergabeparameter aufrufen muss?
Ich danke uim Voraus für erklärende Worte
oder Links wo man sowas Verständlich erklärt bekommt.
Norbert | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|