text box popup menu

[ quit @ 12.05.2007. 09:34 ] @

da li je uopste moguce ukloniti "paste" iz popup menija kad kliknem desnim klikom na text box ?

dali neko moze a mi pomogne ,hitno je !?
hvala !!!

[ goranvuc @ 12.05.2007. 10:01 ] @

Razmisli sta ces sa CTRL+V, a evo ti resenje: http://support.microsoft.com/d...24/3/02.ASP&NoWebContent=1

[ Aleksandar Ružičić @ 12.05.2007. 14:46 ] @

zar ne mozes jednostavno da podesis Locked na True?

[ quit @ 12.05.2007. 18:41 ] @

pa mogo sam,ustvari i jesam ali paste radi i na locked text box :(

[ rgdrajko @ 12.05.2007. 18:41 ] @

Da sa Text1.Locked = True sprecice svaki upis u text box ali ne i da se pojavi paste u meniju sa desnim klikom.

Da bi sve normalno radilo i bio potpuno dozvoljen upis u text box ali ne i paste u meniju sa desnim klikom(a to je ono sto je trazeno) upisati sledeci kod:

Code:

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Button = 0
        Clipboard.Clear
        Exit Sub
    End If
End Sub

[ icobh @ 12.05.2007. 19:19 ] @

Za ovo ti treba jedan Textbox na formi imena Text1 i jedan tajmer imena Timer1 sa intervalom od npr. 1ms. Ovo je samo Ctrl + V opcija! Ovaj interval je kao fazon za koliko će se željeni text vratiti u clipboard, tako da se može koristiti u drugim programima, kao da nije rađen clean...

Code:
Public a As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 22 Then
        a = Clipboard.GetText
        Clipboard.Clear
        Timer1.Enabled = True
    End If
End Sub
Private Sub Timer1_Timer()
    Clipboard.SetText a
    Timer1.Enabled = False
End Sub

_{[Ovu poruku je menjao icobh dana 12.05.2007. u 20:44 GMT+1]}

[ icobh @ 12.05.2007. 21:37 ] @

Napravio sam još jedno rješenje, jest da ostaje Paste u meni-u ali ne radi ništa...

[ quit @ 13.05.2007. 00:59 ] @

ok Hvala vam svima,problem je rijesen..

imao bi jos jedno pitanje u vezi text da ne otvaram novu temu :
kako iz jedne recenice oznaciti(zamijniti) samo jednu odredjenu rijec,a da ostali text ostane nepromijen ?

[ Aleksandar Ružičić @ 13.05.2007. 11:55 ] @

pogledaj Replace funkciju

[ Aleksandar Ružičić @ 13.05.2007. 13:07 ] @

evo sad naidjoh na neki svoj stari kod, mozda ti ovako nesto treba:

Code:

Public Function ReplaceWord(ByVal s As String, needle As String, _
                           replaceWith As String, _
                           Optional delimiters As String = _
                           ".,<>/?\|][]{};'"":~`!@#$%^&*()_+-= " & vbTab, _
                           Optional compare As VbCompareMethod = vbTextCompare) _
                           As String

    Dim pos As Long
    Dim l   As Boolean
    Dim r   As Boolean

    pos = -Len(replaceWith)

    Do
        pos = InStr(pos + Len(replaceWith) + 1, s, needle, compare)

        If pos > 0 Then

            l = True
            r = True

            If pos > 1 Then l = InStr(1, delimiters, Mid$(s, pos - 1, 1)) > 0
            If pos < Len(s) - Len(needle) Then r = InStr(1, delimiters, Mid$(s, pos + Len(needle), 1)) > 0

            If l And r Then

                s = Mid$(s, 1, pos - 1) & replaceWith & Mid$(s, pos + Len(needle))

            End If

        End If

    Loop Until pos < 1

    ReplaceWord = s

End Function