Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Endlos- Textbox, alle Werte ausgeben
Autor: Annabelle
Datum: 10.12.04 13:04
Das ist diese Clipboards Funktion die ich benutze. Option Compare Database Option Explicit Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Declare Function CloseClipboard Lib "user32" () As Long Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long Declare Function EmptyClipboard Lib "user32" () As Long Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags&, ByVal dwBytes As Long) As Long Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _ bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C Type RECT_Type Left As Long Top As Long Right As Long Bottom As Long End Type Declare Function GetActiveWindow Lib "user32" () As Long Declare Function GetDesktopWindow Lib "user32" () As Long Declare Sub GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT_Type) Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Declare Function CreateCompatibleBitmap Lib "gdi32" _ (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _ ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Public Const GHND = &H42 Public Const CF_TEXT = 1 Public Const MAXSIZE = 4096 Global Const SRCCOPY = &HCC0020 Global Const CF_BITMAP = 2 Function ClipBoard_GetData() Dim hClipMemory As Long Dim lpClipMemory As Long Dim MyString As String Dim retval As Long If OpenClipboard(0&) = 0 Then MsgBox "Cannot open Clipboard. Another app. may have it open" Exit Function End If hClipMemory = GetClipboardData(CF_TEXT) If IsNull(hClipMemory) Then MsgBox "Could not allocate memory" GoTo OutOfHere End If lpClipMemory = GlobalLock(hClipMemory) If Not IsNull(lpClipMemory) Then MyString = Space$(MAXSIZE) retval = lstrcpy(MyString, lpClipMemory) retval = GlobalUn Lock (hClipMemory) MyString = Mid(MyString, 1, InStr(1, MyString, Chr$(0), 0) - 1) Else MsgBox "Could not lock memory to copy string from." End If OutOfHere: retval = CloseClipboard() ClipBoard_GetData = MyString End Function Function ClipBoard_SetData(MyString As String) Dim hGlobalMemory As Long, lpGlobalMemory As Long Dim hClipMemory As Long, X As Long hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1) lpGlobalMemory = GlobalLock(hGlobalMemory) lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString) If GlobalUnlock(hGlobalMemory) <> 0 Then MsgBox "Could not unlock memory location. Copy aborted." GoTo OutOfHere2 End If If OpenClipboard(0&) = 0 Then MsgBox "Could not open the Clipboard. Copy aborted." Exit Function End If X = EmptyClipboard() hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory) OutOfHere2: If CloseClipboard() = 0 Then MsgBox "Could not close Clipboard." End If End Function Function ScreenDump() Dim AccessHwnd As Long, DeskHwnd As Long Dim hdc As Long Dim hdcMem As Long Dim Rect As RECT_Type Dim junk As Long Dim fwidth As Long, fheight As Long Dim hBitmap As Long DoCmd.Hourglass True DeskHwnd = GetDesktopWindow() AccessHwnd = GetActiveWindow() Call GetWindowRect(AccessHwnd, Rect) fwidth = Rect.Right - Rect.Left fheight = Rect.Bottom - Rect.Top hdc = GetDC(DeskHwnd) hdcMem = CreateCompatibleDC(hdc) hBitmap = CreateCompatibleBitmap(hdc, fwidth, fheight) If hBitmap <> 0 Then junk = SelectObject(hdcMem, hBitmap) junk = BitBlt(hdcMem, 0, 0, fwidth, fheight, hdc, Rect.Left, Rect.Top, SRCCOPY) junk = OpenClipboard(DeskHwnd) junk = EmptyClipboard() junk = SetClipboardData(CF_BITMAP, hBitmap) junk = CloseClipboard() End If junk = DeleteDC(hdcMem) junk = ReleaseDC(DeskHwnd, hdc) DoCmd.Hourglass False End Function Function PrtScn(Alles As Boolean) If Not Alles Then keybd_event VK_SNAPSHOT, 0, 0, 0 'bScan einfach auf 1: Else: keybd_event VK_SNAPSHOT, 1, 0, 0 End If End Function Function ClipBoard_Clear() Call OpenClipboard(0&) Call EmptyClipboard Call CloseClipboard End Function t?tet keine v?gel, wir v?geln auch keine toten!

Endlos- Textbox, alle Werte ausgeben	4.217	Annabelle	08.12.04 11:50
Re: Endlos- Textbox, alle Werte ausgeben	3.048	Prian0815	08.12.04 12:56
Re: Endlos- Textbox, alle Werte ausgeben	3.170	Annabelle	08.12.04 13:10
Re: Endlos- Textbox, alle Werte ausgeben	3.093	Prian0815	08.12.04 13:31
Re: Endlos- Textbox, alle Werte ausgeben	3.084	Annabelle	08.12.04 13:36
Re: Endlos- Textbox, alle Werte ausgeben	3.134	Prian0815	08.12.04 13:48
Re: Endlos- Textbox, alle Werte ausgeben	3.054	Annabelle	08.12.04 13:56
Re: Endlos- Textbox, alle Werte ausgeben	3.011	Prian0815	08.12.04 14:28
Re: Endlos- Textbox, alle Werte ausgeben	2.983	Annabelle	08.12.04 14:42
Re: Endlos- Textbox, alle Werte ausgeben	3.155	Prian0815	08.12.04 13:59
Re: Endlos- Textbox, alle Werte ausgeben	3.012	Annabelle	08.12.04 14:09
Re: Endlos- Textbox, alle Werte ausgeben	2.978	Prian0815	08.12.04 14:42
Re: Endlos- Textbox, alle Werte ausgeben	3.036	Annabelle	08.12.04 14:52
Re: Endlos- Textbox, alle Werte ausgeben	3.095	Prian0815	08.12.04 15:07
Re: Endlos- Textbox, alle Werte ausgeben	3.085	Annabelle	08.12.04 13:41
Re: Endlos- Textbox, alle Werte ausgeben	3.049	Annabelle	09.12.04 12:48
Re: Endlos- Textbox, alle Werte ausgeben	2.993	Prian0815	09.12.04 13:51
Re: Endlos- Textbox, alle Werte ausgeben	3.073	Annabelle	09.12.04 14:11
Re: Endlos- Textbox, alle Werte ausgeben	3.055	Prian0815	09.12.04 15:08
Re: Endlos- Textbox, alle Werte ausgeben	3.020	Annabelle	10.12.04 08:10
Re: Endlos- Textbox, alle Werte ausgeben	3.054	Annabelle	10.12.04 08:53
Re: Endlos- Textbox, alle Werte ausgeben	3.054	Prian0815	10.12.04 09:14
Re: Endlos- Textbox, alle Werte ausgeben	3.031	Annabelle	10.12.04 09:32
Re: Endlos- Textbox, alle Werte ausgeben	2.980	Annabelle	10.12.04 09:36
Re: Endlos- Textbox, alle Werte ausgeben	2.915	Prian0815	10.12.04 10:06
Re: Endlos- Textbox, alle Werte ausgeben	3.003	Annabelle	10.12.04 10:34
Re: Endlos- Textbox, alle Werte ausgeben	2.922	Prian0815	10.12.04 11:14
Re: Endlos- Textbox, alle Werte ausgeben	2.993	Annabelle	10.12.04 11:18
Re: Endlos- Textbox, alle Werte ausgeben	3.034	Prian0815	10.12.04 11:42
Re: Endlos- Textbox, alle Werte ausgeben	3.029	Annabelle	10.12.04 11:49
Re: Endlos- Textbox, alle Werte ausgeben	3.073	Annabelle	10.12.04 11:27
Re: Endlos- Textbox, alle Werte ausgeben	3.070	Prian0815	10.12.04 12:01
Re: Endlos- Textbox, alle Werte ausgeben	2.951	Annabelle	10.12.04 12:10
Re: Endlos- Textbox, alle Werte ausgeben	3.010	Prian0815	10.12.04 12:50
Re: Endlos- Textbox, alle Werte ausgeben	3.082	Annabelle	10.12.04 13:04
Re: Endlos- Textbox, alle Werte ausgeben	2.918	Prian0815	10.12.04 13:24
Re: Endlos- Textbox, alle Werte ausgeben	2.966	Annabelle	10.12.04 13:40
Re: Endlos- Textbox, alle Werte ausgeben	2.977	Annabelle	10.12.04 12:15
Re: Endlos- Textbox, alle Werte ausgeben	3.008	Prian0815	10.12.04 12:56
Re: Endlos- Textbox, alle Werte ausgeben	3.016	Annabelle	10.12.04 13:10
Re: Endlos- Textbox, alle Werte ausgeben	2.959	Prian0815	10.12.04 13:36
Re: Endlos- Textbox, alle Werte ausgeben	2.957	Annabelle	10.12.04 13:43
Re: Endlos- Textbox, alle Werte ausgeben	3.019	Annabelle	10.12.04 13:47
Re: Endlos- Textbox, alle Werte ausgeben	2.978	Prian0815	13.12.04 09:05
Re: Endlos- Textbox, alle Werte ausgeben	2.974	Annabelle	13.12.04 09:16
Re: Endlos- Textbox, alle Werte ausgeben	2.919	Prian0815	13.12.04 11:13
GESCHAFFT!!!	2.995	Annabelle	13.12.04 09:51
Re: GESCHAFFT!!!	2.999	Annabelle	13.12.04 10:05
Re: GESCHAFFT!!!	3.046	Prian0815	13.12.04 11:09
If Anweisung	2.973	Annabelle	13.12.04 11:14
Re: If Anweisung	3.173	Prian0815	13.12.04 11:32
Re: If Anweisung	2.973	Annabelle	13.12.04 11:44
Re: If Anweisung	2.969	Prian0815	13.12.04 11:58
Re: GESCHAFFT!!!	2.978	Prian0815	13.12.04 10:55

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen