Hei.
onkohan vb6:lle tehty mitään mikä ilmoittaa kun tieto leikepöydällä vaihtuu. Haluaisin tehdä koodin pätkän joka etsii tiettyjä sanoja suurehkosta joukosta. haluisin poimia tämän tietyn sanan jälkeisen sanan talteen. tämän etsintä koodin osaan tehdä, mutta millä saan sen "liipaistua" käyntiin kun leikepöydän tieto vaihtuu. Olisi tarkoitus että tämän sanajoukon kopioin leikepöydälle. Näitä sana joukkoja on useita.
Sovellat tuota http://www.delphidabbler.com/articles?article=9
MOrjens Arto!
ei sitten tullut mieleen mikään näin yksinkertainen viritelmä..?
Private cliptag As String
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000 '1 sekunti (esim.)
End Sub
Private Sub Timer1_Timer()
CheckClipboard
End Sub
Sub CheckClipboard()
Timer1.Enabled = False
Dim cliptext As String
cliptext = Trim(Clipboard.GetText)
'Mikäli halutaan, että ohjelma tunnistaa leikepöydältä tekstin,
'joka on tarkoitettu vain oman ohjelman käyttöön niin leikepöydälle
'kopioitavaan tekstiin esim. alkuun voidaan lisätä joikin tunniste
'(esim. MyVB6Clip_)
'If InStr(cliptext, "MyVB6Clip_") > 0 Then 'jos tunniste löytyy
'cliptext = Replace(cliptext, "MyVB6Clip_", "") 'poistetaan tunniste
If cliptext <> "" And cliptext <> cliptag Then
'tee jotain...
cliptag = cliptext
End If
'ClipBoard.Clear 'ja lopulta tyhjennetään leikepöytä
'End If
cliptext = ""
Timer1.Enabled = True
End SubAihe on jo aika vanha, joten et voi enää vastata siihen.