PopMenu

[bodoora]

Hi...
in my project i have a function (translate()) it can translate a words frome notepade file to other notepade file, then i want to take the words in the second notepade to replace it with the words in popmenu.
(The popmenu appear when we click right click on the word we have it in RichTextBox)

please, help me if any body have an idea?

[gavio]

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then PopupMenu [I]menuNameHere[/I]
End Sub

[bodoora]

Hi gavio...
i do this step in project..
But now i want to replace the word in this popmenu with the words in notepade file.
How?

[gavio]

You mean with the selected word?

[bodoora]

hi..
when i do right click on the word in RichTxetBox, the word is highlight and the PopMenu appear with some words in it, So i want to replace (translate) these word in PopMenu with the word in NotePade.
Thanks

[gavio]

Try something like this:

Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
        With RichTextBox1
            If .SelText <> vbNullString Then
                mnuSubMenu.Caption = .SelText
            Else
                mnuSubMenu.Caption = "No word selected"
            End If
                PopupMenu mnuMenu
        End With
    End If
End Sub

[bodoora]

Hi gavio...
This is my code to what i say it before about right click on the word, So i want now to replace the word that appear in popup menu with the word i have it in notepade...
Is there any idea to do that?

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim sLoc As Integer
    Dim eLoc As Integer
    Dim wrds() As String
    Dim tmp() As String
    Dim i As Integer
    If Button = 2 Then
        If Trim(RichTextBox1.SelText) = "" Then
            If RichTextBox1.SelStart = 0 Then Exit Sub
            sLoc = InStrRev(RichTextBox1.Text, " ", RichTextBox1.SelStart)
            eLoc = InStr(RichTextBox1.SelStart, RichTextBox1.Text, " ") - 1
            RichTextBox1.SelStart = sLoc
            RichTextBox1.SelLength = eLoc - sLoc '+ 1
        End If
        If Trim(RichTextBox1.SelText) <> "" Then
            For x = mnuWord.UBound To 1 Step -1
                Unload mnuWord(x)
            Next
           mnuWord(0).Caption = "NOT FOUND"
            For x = 0 To UBound(WORDLIST)
                tmp = Split(WORDLIST(x), ":")
                If tmp(0) = Trim(RichTextBox1.SelText) Then
                    wrds = Split(tmp(1), ";")
                    For i = 0 To UBound(wrds)
                        If i = 0 Then
                            mnuWord(0).Caption = wrds(i)                               
                        Else
                            Load mnuWord(i)
                            mnuWord(i).Visible = True
                            mnuWord(i).Caption = wrds(i)
                        End If
                    Next
                End If
            Next
            PopupMenu mnuPop
        End If
    End If 
End Sub

[bodoora]

Hi...
please, help me to do my project...
Thanks.

[gavio]

Can you post the form (.frm) file you curently have?

[bodoora]

Hi gavio...
i attach the form, But this is the second form the first form we called it main and in the main form we have textBox (txtFileText) we load in it arabic paragraph then we run in DOS (Buckwalter code),
After that it will go to that form (first) and get that paragraph to the RichTextBox, So when we do right click on any word we show a popupmenu with one word or more and these words in buckwalter transelation.
and i want to back these word in Buckwalter to Arabic (we have arabic word in translate() function)
for example:
if we do right click then in PopMenu we can find that:
$amasa
$amisa
$am~asa
$amos
$amos
we want to chang the above words with the below words and these words we can find it in translate function in (newoutfile.txt) NotePade file..
شَمَسَ
شَمِسَ
شَمَّسَ
شَمْس
شَمْس

can we make join between the PopUpMenu and the notepade in translate function..
thanks,

[bodoora]

Hi gavio..
I send the form see it, and if U have any solution please replay to me

Thanks a lot

[bodoora]

Hi...
I need help please.