| |

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 |
  |
|
sevOutBar 4.0 
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 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
|
|