tchem
Messages postés14Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention19 février 2008
-
21 sept. 2006 à 23:13
tchem
Messages postés14Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention19 février 2008
-
22 sept. 2006 à 10:59
J'ai un souci à un endroit dans mon programme, lorsque j'appelle une fonction. Cette fonction ne crash pas tout le temps, si elle se crash pas la 1ere fois, elle ne se cashera plus apres. Par contre 2 fois sur 3 elle me crashe des le debut.
Crash = *.exe se ferme, et en mode debug meme VB se ferme !
Voila le code, merci d'avance
'-----------------------------------------------------------------------------
' Recupere le presse-papier
' -------------------------
Public Function Presse_Papier() As String
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
' Obtain the handle to the global memory
' block that is referencing the text.
hClipMemory = GetClipboardData(CF_TEXT)
If IsNull(hClipMemory) Then
MsgBox "Could not allocate memory"
GoTo OutOfHere
End If
' Lock Clipboard memory so we can reference
' the actual data string.
lpClipMemory = GlobalLock(hClipMemory)
If Not IsNull(lpClipMemory) Then
MyString = Space$(MAXSIZE)
RetVal = lstrcpy(MyString, lpClipMemory)
RetVal = GlobalUnlock(hClipMemory)
' Peel off the null terminating character.
Else
MsgBox "Could not lock memory to copy string from."
End If
OutOfHere:
RetVal = CloseClipboard()
Presse_Papier = MyString
End Function
cs_Jack
Messages postés14007Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201578 21 sept. 2006 à 23:46
Salut
Bah faut poser la question à l'auteur de ce bout de code !
Mais pour récupérer une chaine dans le presse-papier, pas besoin de tout ce code, ceci devrait suffire :
MyString = Clipboard.GetText (ClipBoardConstants.vbCFText)
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005 Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
tchem
Messages postés14Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention19 février 2008 22 sept. 2006 à 07:57
Merci beaucoup, je vais tester cela tout de suite.
Je n'utilise pas clipboard.gettext parce qu'il plante beaucoup trop souvent (impossible d'ouvrir le presse-papier) donc je voulais tester par cette API