compile error: method or data member not found

por SrEstranho12 Qui 03 Jan 2013, 18:06

Olá galera do (MMORPGBR), estou pedindo ajuda, pois minha client da error ao (Compilar) o erro é esse:

compile error method or data member not found

aperto em (OK) e ae sublinha essa linha:

_____________________
Private Sub Form_Load()

(Ln 64, Col 1)

O texto todo da linha:

Private Sub Form_Load()
ResetAllEditVals
GetEditColors
EditorSetVals

If Dir(App.Path & "\" & AFileName) <> vbNullString Then
hFile = FreeFile
Open App.Path & "\" & AFileName For Input As #hFile
frmEditor.RT.Text = Input$(LOF(hFile), hFile) < < Close #hFile
End If
End Sub

por Caio~ C10 Qui 03 Jan 2013, 18:25

Que form é essa?

por SrEstranho12 Qui 03 Jan 2013, 18:35

(EEB) frmEditor

por SrEstranho12 Sex 04 Jan 2013, 05:00

linha do erro :

Private Function RT_KeyPress(ByVal Control As CodeSenseCtl.ICodeSense, ByVal KeyAscii As Long, ByVal Shift As Long) As Boolean

por Kazutoo Sex 04 Jan 2013, 10:32

Cuidado com o Double Post man Razz

Bom instala o Runtime, e alguns arquivos necessários pois isso já deu comigo quando instalei o dll files.

por Caio~ C10 Sex 04 Jan 2013, 11:26

Eu te aconselho a não usar esse editor de scripts. Quando for editar seus scripts use o Notepad++, é um editor de texto muito bom e é leve.
Pra tirar esse editor de texto basta substituir todo o código da form por esse:

Código:: ' Copyright (c) 2008 - Elysium Source. Alguns direitos reservados. ' Tradução e revisão por MMODEV Brasil @ http://www.mmodev.com.br ' Este código está licensiado sob a licença EGL. 'Dim sLastWord As String 'Dim sIntellText As String 'Dim LBoxPos As Long 'Public Sub EditorSetVals() ' RT.Language = "Basic" ' ' RT.SetColor cmClrBookmark, ClrData(0).frClr ' RT.SetColor cmClrBookmarkBk, ClrData(0).bgClr ' RT.SetColor cmClrCommentBk, ClrData(1).bgClr ' RT.SetColor cmClrComment, ClrData(1).frClr ' RT.SetColor cmClrHDividerLines, ClrData(2).frClr ' RT.SetColor cmClrVDividerLines, ClrData(3).frClr ' RT.SetColor cmClrHighlightedLine, ClrData(4).frClr ' RT.SetColor cmClrKeyword, ClrData(5).frClr ' RT.SetColor cmClrKeywordBk, ClrData(5).bgClr ' RT.SetColor cmClrLeftMargin, ClrData(6).frClr ' RT.SetColor cmClrLineNumber, ClrData(7).frClr ' RT.SetColor cmClrLineNumberBk, ClrData(7).bgClr ' RT.SetColor cmClrNumber, ClrData(8).frClr ' RT.SetColor cmClrNumberBk, ClrData(8).bgClr ' RT.SetColor cmClrOperator, ClrData(9).frClr ' RT.SetColor cmClrOperatorBk, ClrData(9).bgClr ' RT.SetColor cmClrScopeKeyword, ClrData(10).frClr ' RT.SetColor cmClrScopeKeywordBk, ClrData(10).bgClr ' RT.SetColor cmClrString, ClrData(11).frClr ' RT.SetColor cmClrStringBk, ClrData(11).bgClr ' RT.SetColor cmClrTagElementName, ClrData(12).frClr ' RT.SetColor cmClrTagElementNameBk, ClrData(12).bgClr ' RT.SetColor cmClrTagEntity, ClrData(13).frClr ' RT.SetColor cmClrTagEntityBk, ClrData(13).bgClr ' RT.SetColor cmClrTagAttributeName, ClrData(14).frClr ' RT.SetColor cmClrTagAttributeNameBk, ClrData(14).bgClr ' RT.SetColor cmClrTagText, ClrData(15).frClr ' RT.SetColor cmClrTagTextBk, ClrData(15).bgClr ' RT.SetColor cmClrText, ClrData(16).frClr ' RT.SetColor cmClrTextBk, ClrData(16).bgClr ' RT.SetColor cmClrWindow, ClrData(17).frClr ' ' Dim iHG As Integer ' iHG = CInt(GetSetting(App.EXEName, "EditOptions", "Highlight", "1")) ' If iHG = 0 Then ' RT.HighlightedLine = -1 ' End If ' RT.LineNumbering = CBool(GetSetting(App.EXEName, "EditOptions", "linenumber", "1")) ' RT.DisplayLeftMargin = CBool(GetSetting(App.EXEName, "EditOptions", "leftmargin", "1")) ' RT.DisplayWhitespace = CBool(GetSetting(App.EXEName, "EditOptions", "whitespace", "0")) ' RT.SmoothScrolling = CBool(GetSetting(App.EXEName, "EditOptions", "smoothscroll", "1")) ' RT.LineNumberStart = 1 ' RT.EnableDragDrop = True ' RT.ExpandTabs = True ' RT_SelChange RT ' 'End Sub 'Private Sub Command1_Click() ' Picture1.Visible = False 'End Sub ' 'Private Sub Form_Load() 'ResetAllEditVals 'GetEditColors 'EditorSetVals ' 'If Dir(App.Path & "\" & AFileName) <> vbNullString Then ' hFile = FreeFile ' Open App.Path & "\" & AFileName For Input As #hFile ' frmEditor.RT.Text = Input$(LOF(hFile), hFile) ' Close #hFile 'End If 'End Sub ' 'Public Sub DoHighLight() ' Dim R As CodeSenseCtl.Range ' Set R = RT.GetSel(True) ' If CInt(GetSetting(App.EXEName, "EditOptions", "Highlight", "1")) = 1 Then ' RT.HighlightedLine = R.EndLineNo ' End If 'End Sub ' 'Private Sub Form_Resize() ' If Me.WindowState <> 1 Then ' RT.Width = Me.Width - 120 ' RT.Height = (Me.Height) - 800 ' End If 'End Sub ' 'Private Sub mnuBClearALL_Click() ' RT.DisplayLeftMargin = True ' RT.ExecuteCmd cmCmdBookmarkClearAll 'End Sub ' 'Private Sub mnuBGoPrev_Click() ' RT.DisplayLeftMargin = True ' RT.ExecuteCmd cmCmdBookmarkPrev 'End Sub ' 'Private Sub mnuBJumpFirst_Click() ' RT.DisplayLeftMargin = True ' RT.ExecuteCmd cmCmdBookmarkJumpToFirst 'End Sub ' 'Private Sub mnuBJumpLast_Click() ' RT.DisplayLeftMargin = True ' RT.ExecuteCmd cmCmdBookmarkJumpToLast 'End Sub ' 'Private Sub mnuBNext_Click() ' RT.DisplayLeftMargin = True ' RT.ExecuteCmd cmCmdBookmarkNext 'End Sub ' 'Private Sub mnuBToggle_Click() ' RT.DisplayLeftMargin = True ' RT.ExecuteCmd cmCmdBookmarkToggle 'End Sub ' 'Private Sub mnuCopy_Click() ' Clipboard.Clear ' Clipboard.SetText RT.SelText 'End Sub ' 'Private Sub mnuCut_Click() ' Clipboard.Clear ' Clipboard.SetText RT.SelText ' RT.SelText = vbNullString 'End Sub ' 'Private Sub mnuDelete_Click() ' RT.SelText = vbNullString 'End Sub ' 'Private Sub mnuExit_Click() ' Unload Me 'End Sub ' 'Private Sub mnuFind_Click() ' RT.ExecuteCmd cmCmdFind 'End Sub ' 'Private Sub mnuFindNext_Click() ' RT.ExecuteCmd cmCmdFindNext 'End Sub ' 'Private Sub mnuGoLine_Click() ' RT.ExecuteCmd cmCmdGotoLine, -1 'End Sub ' 'Private Sub mnuPaste_Click() ' RT.Paste 'End Sub 'Private Sub mnuRedo_Click() ' RT.Redo 'End Sub ' 'Private Sub mnuReplace_Click() ' RT.ExecuteCmd cmCmdFindReplace 'End Sub ' 'Private Sub mnuSave_Click() ' Open App.Path & "\" & AFileName For Output As #1 ' Print #1, RT.Text ' Close #1 ' ' ' If you are making this editor edit more than scripts... ' ' Find a way to change this! ' Call SendData("NEWMAIN" & SEP_CHAR & RT.Text & END_CHAR) ' ' Unload Me 'End Sub ' 'Private Sub mnuSC_Click() ' Picture1.Visible = True 'End Sub ' 'Private Sub mnuSelAll_Click() ' RT.ExecuteCmd cmCmdSelectAll 'End Sub ' 'Private Sub mnuSelLine_Click() ' RT.ExecuteCmd cmCmdSelectLine 'End Sub ' 'Private Sub mnuUndo_Click() ' RT.Undo 'End Sub ' 'Private Function RT_KeyPress(ByVal Control As CodeSenseCtl.ICodeSense, ByVal KeyAscii As Long, ByVal Shift As Long) As Boolean ' GetRange 'End Function ' 'Private Function RT_KeyUp(ByVal Control As CodeSenseCtl.ICodeSense, ByVal KeyCode As Long, ByVal Shift As Long) As Boolean 'Dim R As CodeSenseCtl.Range ' ' If KeyCode = 9 Or KeyCode = 13 Then ' AddIntellWord ' End If ' ' If RT.CurrentWord <> "." Then ' sLastWord = RT.CurrentWord ' End If ' ' If KeyCode = 190 Then ' ' Set R = RT.GetSel(False) ' ' LBoxPos = R.EndColNo ' RT.ExecuteCmd cmCmdCodeList ' End If 'End Function 'Private Function RT_CodeList(ByVal Control As CodeSenseCtl.ICodeSense, ByVal ListCtrl As CodeSenseCtl.ICodeList) As Boolean ' 'ListCtrl.hImageList = IMGIntellisence.hImageList 'End Function ' 'Private Function RT_CodeListCancel(ByVal Control As CodeSenseCtl.ICodeSense, ByVal ListCtrl As CodeSenseCtl.ICodeList) As Boolean ' AddIntellWord ' RT_CodeListCancel = False 'End Function 'Private Function RT_CodeListChar(ByVal Control As CodeSenseCtl.ICodeSense, ByVal ListCtrl As CodeSenseCtl.ICodeList, ByVal wChar As Long, ByVal lKeyData As Long) As Boolean ' RT_CodeListChar = False 'End Function 'Private Function RT_CodeListSelChange(ByVal Control As CodeSenseCtl.ICodeSense, ByVal ListCtrl As CodeSenseCtl.ICodeList, ByVal lItem As Long) As String ' sIntellText = ListCtrl.GetItemText(lItem) ' RT_CodeListSelChange = vbNullString 'End Function 'Private Function RT_CodeListSelMade(ByVal Control As CodeSenseCtl.ICodeSense, ByVal ListCtrl As CodeSenseCtl.ICodeList) As Boolean ' AddIntellWord ' RT_CodeListSelMade = False 'End Function 'Private Function RT_CodeListSelWord(ByVal Control As CodeSenseCtl.ICodeSense, ByVal ListCtrl As CodeSenseCtl.ICodeList, ByVal lItem As Long) As Boolean ' RT_CodeListSelWord = True 'End Function 'Private Function RT_CodeTip(ByVal Control As CodeSenseCtl.ICodeSense) As CodeSenseCtl.cmToolTipType ' RT_CodeTip = cmToolTipTypeNormal 'End Function 'Private Function RT_MouseDown(ByVal Control As CodeSenseCtl.ICodeSense, ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) As Boolean ' GetRange ' If Button = 2 Then ' Me.PopupMenu Me.mnuEdit ' End If 'End Function ' 'Private Function RT_MouseUp(ByVal Control As CodeSenseCtl.ICodeSense, ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) As Boolean ' GetRange 'End Function ' 'Private Sub RT_SelChange(ByVal Control As CodeSenseCtl.ICodeSense) ' DoHighLight 'End Sub ' 'Private Sub GetRange() 'Dim R As CodeSenseCtl.Range 'Dim LLine As Long 'Dim LCurrent As Long ' Set R = RT.GetSel(False) ' LLine = R.EndLineNo ' LCurrent = R.EndColNo ' LLine = LLine + 1 ' LCurrent = LCurrent + 1 'End Sub ' 'Private Sub AddIntellWord() 'Dim R As CodeSenseCtl.Range ' If sIntellText <> vbNullString Then ' Set R = RT.GetSel(False) ' R.StartColNo = LBoxPos ' R.EndColNo = R.EndColNo ' RT.SetSel R, False ' R.StartColNo = R.EndColNo + Len(sIntellText) ' R.EndColNo = R.EndColNo + Len(sIntellText) ' RT.SelText = sIntellText ' RT.SetSel R, False ' ' sIntellText = vbNullString ' End If 'End Sub

Quando quiser que volte ao normal basta tirar o ' no começo da linha. Vê se funciona ae ^^

por Conteúdo patrocinado

compile error: method or data member not found

compile error: method or data member not found

Re: compile error: method or data member not found

Re: compile error: method or data member not found

compile error: method or data member not found

Re: compile error: method or data member not found

Re: compile error: method or data member not found

Re: compile error: method or data member not found