CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Page 1 of 2 12 LastLast
Results 1 to 15 of 24
  1. #1
    Join Date
    Apr 2012
    Posts
    33

    Question Hi, i need some help with this error

    Hi, i downloaded this program from planet source code.com and i fond what i was looking for, what im assking if anymore can fixs this or show me how please, and if you help me, i will pay some money for it. Or i can make you a program visual basic 2010, just tell me what you would like. thanks for looking at my post.http://www.mediafire.com/?7k4zrq5c6n7a2hh this is the download link. thanks agine everyone

  2. #2
    Join Date
    Jan 2006
    Location
    Fox Lake, IL
    Posts
    15,007

    Re: Hi, i need some help with this error

    Send email to the writer of the software. That's the best way to fix a problem with someone else's code.
    David

    CodeGuru Article: Bound Controls are Evil-VB6
    2013 Samples: MS CODE Samples

    CodeGuru Reviewer
    2006 Dell CSP
    2006, 2007 & 2008 MVP Visual Basic
    If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

  3. #3
    Join Date
    Apr 2012
    Posts
    33

    Question Re: Hi, i need some help with this error

    The problom im haveing is i tryed to e-mailing and website the program was 2002, all his emails donot work or his website, so what sould i do.
    I still need help.

  4. #4
    Join Date
    Jul 2001
    Location
    Sunny South Africa
    Posts
    11,283

    Re: Hi, i need some help with this error

    People do not tend to go to external links to download stuff... Post the file(s) in .zip format here and we can then have a look. Also, explain to us where is the error and when it occurs.

  5. #5
    Join Date
    Apr 2012
    Posts
    33

    Question Re: Hi, i need some help with this error

    Hi, the error i get is(Compile error method or data member not found)
    And I would upload the file, but i have tryed to do that and it comes up with an error so i cant upload the file thats way i put the link. thanks everyone.

  6. #6
    Join Date
    Apr 2012
    Posts
    33

    Re: Hi, i need some help with this error

    Please Help me with this I will pay or make you a program on visual basic 2010, im just learning visual basic 6.0. I have made a lot of programs with it but im more familiar with visual basic 2010, I found that they are almost the same, but anyway I need some help with this program. I would up load it here but it says the file is to big. So thanks, Oh I can program using C#2010 or C++ 2010 just tell me what you would like on a program and what language you want me to use. Thanks for looking at my post, Oh, I tried to e-mail, but the owner hasn't
    got back to me. Thanks.

  7. #7
    Join Date
    Jul 2008
    Location
    WV
    Posts
    5,362

    Re: Hi, i need some help with this error

    Post the section of code where the error occurs and highlight the line the error occurs on. No need to upload the file(s) just copy the revelant section and paste into a post. Be sure to use code tags to retain formatting for readability.
    Always use [code][/code] tags when posting code.

  8. #8
    Join Date
    Apr 2012
    Posts
    33

    Re: Hi, i need some help with this error

    Code:
    'Save Icons Pos.
    Main.SaveIconPositions
    If Media_Player.MPlayer(0).PlayState = mpPlaying Or Media_Player.MPlayer(0).PlayState = mpPaused Then
    (the error that shows up when I try to make it to exe is the second sentence line here is the error
    (.playstate), and here is the code of the rest that its in

    Code:
    'Save Icons Pos.
    Main.SaveIconPositions
    If Media_Player.MPlayer(0).PlayState = mpPlaying Or Media_Player.MPlayer(0).PlayState = mpPaused Then
    Media_Player.MPlayer(0).Stop
    Media_Player.MPlayer(0).FileName = ""
    Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
    Main.MediaBar_Progress.Value = 0
    Media_Player.playimg_timer.Enabled = False
    End If
    If Media_Player.MPlayer(1).PlayState = mpPlaying Or Media_Player.MPlayer(1).PlayState = mpPaused Then
    Media_Player.MPlayer(1).Stop
    Media_Player.MPlayer(1).FileName = ""
    Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
    Main.MediaBar_Progress.Value = 0
    Media_Player.playimg_timer.Enabled = False
    End If
    Thanks for your help

  9. #9
    Join Date
    Jan 2009
    Posts
    596

    Re: Hi, i need some help with this error

    What does this mean?
    Quote Originally Posted by andrewjrmill825 View Post
    (the error that shows up when I try to make it to exe is the second sentence line here is the error
    (.playstate)
    In order for anyone to be able to help you must post the exact error messages. It also looks like you will need to provide a lot more information on the classes involved in this, i.e. what is Media_Player.MPlayer(0)?

    The best way to do this is to make a complete, but minimal, program which when compiled demonstrates the error. If this involves classes/functions which are not standard VB ones include the relevant (and minimal) code for these also.

  10. #10
    Join Date
    Apr 2012
    Posts
    33

    Re: Hi, i need some help with this error

    Ok I made a text file that shows all the work and what error coms up.
    I would post it here but it say its to big. I wanted to post my code and I even tried to upload I text file I made but it sys
    Your file of 116.0 KB bytes exceeds the forum's limit of 100.0 KB for this filetype.

    what sould I do.

  11. #11
    Join Date
    Jan 2009
    Posts
    596

    Re: Hi, i need some help with this error

    116 KB is a lot of code. Do you really need all that code to demonstrate this error?

  12. #12
    Join Date
    Apr 2012
    Posts
    33

    Re: Hi, i need some help with this error

    No but I tried this. here is the error
    When I make it to a exe the error i get is(Compile error method or data member not found)(.PlayState) that's the error

  13. #13
    Join Date
    Jan 2009
    Posts
    596

    Re: Hi, i need some help with this error

    OK, so whatever Media_Player.MPlayer(0) is, it doesn't have a PlayState member. But what is Media_Player.MPlayer(0)?

    If you provided enough code for us to compile and reproduce this error, we would be able to see this. For example, presumably the source code is not all in the same file. So start with the file which has this error, and start cutting irrelevant bits out. Then post the remainder, along with any other files from the project which include classes/functions referred to from this cut-down file.

    The goal should be to get to the minimum amount of code which reproduces the original error.

  14. #14
    Join Date
    Apr 2012
    Posts
    33

    Re: Hi, i need some help with this error

    Code:
    'Save Icons Pos.
    Main.SaveIconPositions
    If Media_Player.MPlayer(0).PlayState = mpPlaying Or Media_Player.MPlayer(0).PlayState = mpPaused Then
    Media_Player.MPlayer(0).Stop
    Media_Player.MPlayer(0).FileName = ""
    Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
    Main.MediaBar_Progress.Value = 0
    Media_Player.playimg_timer.Enabled = False
    End If
    If Media_Player.MPlayer(1).PlayState = mpPlaying Or Media_Player.MPlayer(1).PlayState = mpPaused Then
    Media_Player.MPlayer(1).Stop
    Media_Player.MPlayer(1).FileName = ""
    Main.MediaBar.Picture = Media_Player.playimg_dead.Picture
    Main.MediaBar_Progress.Value = 0
    Media_Player.playimg_timer.Enabled = False
    End If
    
    KCK = True ' Set Kicker Var to unload all forms with no trouble
    Dim I   ' Declare loop variable.
    'Unload all forms
    fz:
    If NexNetOn = True Then killnet_Click
    If VB.Forms.Count = 0 Then GoTo 2224
    If VB.Forms.Count = 1 Then GoTo 2224
    For I = 0 To VB.Forms.Count - 1
    If VB.Forms(I).Caption = Main.Caption Then GoTo eeex
    If VB.Forms.Count = 1 Then GoTo 2224
    Unload VB.Forms(I)
    GoTo fz
    eeex:
    Next I

  15. #15
    Join Date
    Apr 2012
    Posts
    33

    Re: Hi, i need some help with this error

    Code:
    'Show Login Dialog
    Main.WindowState = 1
    KCK = False 'Unset Kicker Var
    Main.Enabled = False
    PasswordScreen.Show
    PasswordScreen.SetFocus
    PasswordScreen.UserName.Locked = False
    
    'Reset Shell Monitor Vars
    WbShlLst = 0
    ShLst = 0
    ShellMonSect = ""
    Exit Sub
    End If
    
    
    If cmd = "#newfolder" Then
    NewFolder.NewFolderWizard
    Exit Sub
    End If
    If cmd = "#newicon" Then
    NewIcon.NewIconWizard
    Exit Sub
    End If
    If cmd = "#newgame" Then
    NewGame.NewGameWizard
    Exit Sub
    End If
    If cmd = "#snake" Then
    SnakeMain.Show 'MsgBox "Nexus Special Edition could not find the 'Snake 2000' applet. You may not have access to Nexus games, or there was an error during installation. Please see your Nexus Administrator", 16
    Exit Sub
    End If
    If cmd = "#snake2000" Then
    MsgBox "Nexus Special Edition could not find the 'Snake 2000' applet. You may not have access to Nexus games, or there was an error during installation. Please see your Nexus Administrator", 16
    Exit Sub
    End If
    If cmd = "#sms" Then
    If polDisSMS = True Then PROBas.AccessDeniedMsg: Exit Sub
    SMSDude.Show
    Exit Sub
    End If
    If cmd = "#iconmanager" Then
    IconManager.Show
    Exit Sub
    End If
    If cmd = "#programmanager" Then
    NexusSpecial.programman.Show
    Exit Sub
    End If
    If cmd = "#nexusloc" Then
    If polDisNexusLOC2000 = True Then PROBas.AccessDeniedMsg: Exit Sub
    NexusLOC.Show
    Exit Sub
    End If
    If cmd = "#lockenvironment" Then
    locker_Click
    Exit Sub
    End If
    If cmd = "#lock" Then
    locker_Click
    Exit Sub
    End If
    If cmd = "#themes" Then
    If polDisThemeManager = True Then PROBas.AccessDeniedMsg: Exit Sub
    ThemeMan.Show
    Exit Sub
    End If
    If cmd = "#minibrowzer" Then
    If polDisMB6 = True Then PROBas.AccessDeniedMsg: Exit Sub
        Set frmD = New MiniBrowzer
        frmD.Show
    
    Exit Sub
    End If
    If cmd = "#thememanager" Then
    If polDisThemeManager = True Then PROBas.AccessDeniedMsg: Exit Sub
    ThemeMan.Show
    Exit Sub
    End If
    If cmd = "#loginsettings" Then
    If polDisSettings = True Then PROBas.AccessDeniedMsg: Exit Sub
    N2000LSettings.Show
    Exit Sub
    End If
    If cmd = "#shellstring" Then
    shellman_Click
    Exit Sub
    End If
    If cmd = "#open" Then
    shellman_Click
    Exit Sub
    End If
    If cmd = "#run" Then
    shellman_Click
    Exit Sub
    End If
    If cmd = "#musicshare" Then
    If polDisMUSICShare = True Then PROBas.AccessDeniedMsg: Exit Sub
    Call ConnectToNet.MP3Client
    Exit Sub
    End If
    If cmd = "#nexver" Then
    NexVer.Show
    Exit Sub
    End If
    If cmd = "#closenexus" Then
    Unload Main
    Exit Sub
    End If
    If cmd = "#taskmonitor" Then
    If polDistaskMon = True Then PROBas.AccessDeniedMsg: Exit Sub
    Tasks.Show
    Exit Sub
    End If
    If cmd = "#chat" Then
    chatter_Click
    Exit Sub
    End If
    If cmd = "#fileclient" Then
    netfiles_Click
    Exit Sub
    End If
    If cmd = "#tasks" Then
    If polDistaskMon = True Then PROBas.AccessDeniedMsg: Exit Sub
    Tasks.Show
    Exit Sub
    End If
    If cmd = "#pathfile" Then
    If polDisPathfile = True Then PROBas.AccessDeniedMsg: Exit Sub
    Sheller PATHFile
    Exit Sub
    End If
    If cmd = "#usermanager" Then
    u_manager_Click
    Exit Sub
    End If
    If cmd = "#servadmin" Or cmd = "#serveradmin" Then
    servadmin_Click
    Exit Sub
    End If
    If cmd = "#trafficmonitor" Or cmd = "#trafficmonitor" Then
    netmonitor_Click
    Exit Sub
    End If
    If cmd = "#nexnetadmin" Or cmd = "#nexnexaccounts" Then
    nexnetAdmin_Click
    Exit Sub
    End If
    If cmd = "#icu" Or cmd = "#usermonitor" Then
    icu_dude_Click
    Exit Sub
    End If
    If cmd = "#icu4" Then
    icu_dude_Click
    Exit Sub
    End If
    If cmd = "#setuptemplate" Or cmd = "#edittemplate" Then
    edit_template_Click
    Exit Sub
    End If
    If cmd = "#gamemanager" Or cmd = "#editgamemenu" Then
    adgames_Click
    Exit Sub
    End If
    If cmd = "#foldermanager" Or cmd = "#editgamemenu" Then
    Main.edfoldermenu_Click
    Exit Sub
    End If
    If cmd = "#rcc" Or cmd = "#remotecontrol" Then
    netcontrol_Click
    Exit Sub
    End If
    If cmd = "#ircc" Or cmd = "#remotecontrolconsole" Then
    netcontrol_Click
    Exit Sub
    End If
    'Menu Shortcuts
    If cmd = "#menu.nexus" Then
    PopupMenu mnuNexus, , , , shellman
    Exit Sub
    End If
    If cmd = "#menu.network" Then
    If polHideNetworkMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
    PopupMenu netmenu, , , , netchat
    Exit Sub
    End If
    If cmd = "#menu.nexustools" Then
    If polHideToolsMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
    PopupMenu toolmenu, , , , newiconbaby
    Exit Sub
    End If
    If cmd = "#menu.desktop" Then
    If polDisDeskMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
    PopupMenu DeskMenu, , , , newico
    Exit Sub
    End If
    If cmd = "#menu.programs" Then
    If polHideProgramsMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
    PopupMenu Programs
    Exit Sub
    End If
    If cmd = "#menu.games" Then
    If polHideGamesMenu = True Then PROBas.AccessDeniedMsg: Exit Sub
    PopupMenu mnuGame
    Exit Sub
    End If
    If cmd = "#menu.folders" Then
    If polHideFolders = True Then PROBas.AccessDeniedMsg: Exit Sub
    PopupMenu mnuFavFolders
    Exit Sub
    End If
    
    
    MsgBox "The applet shortcut that was requested is unavailable. Try re-wording the command and try again.", 16, "Nexus Special Edition - Applet Shortcuts"
    Exit Sub
    End If
    
    'Dont use Minibrowzer Varible
    Dim DMB As Boolean
    p = PROBas.INIGetSetting("subids", "subid6", PATHFile + "Users\" + CurrentUser + ".itc")
    If p = "1" Then DMB = True Else DMB = False
    '----------------------------------
    
    'See if shell is media that can be put in the media bar
    If UCase$(ShellString) Like "*.WMA" = True Then GoTo loadtomediabar
    If UCase$(ShellString) Like "*.WAV" = True Then GoTo loadtomediabar
    If UCase$(ShellString) Like "*.ASX" = True Then GoTo loadtomediabar
    If UCase$(ShellString) Like "*.MP3" = True Then GoTo loadtomediabar
    If UCase$(ShellString) Like "*.SND" = True Then GoTo loadtomediabar
    GoTo 4444
    
    loadtomediabar:
    msga = MsgBox("The file you are opening is a recognised audio media file. Would you like to hear it through the Media Bar?", vbQuestion + vbYesNoCancel)
    If msga = vbYes Then
    Media_Player.PlaySingle (ShellString)
    Exit Sub
    Else
    If msga = vbCancel Then Exit Sub
    End If
    
    4444
    Tester.Picture = LoadPicture("")
    On Error Resume Next
    Tester.Picture = LoadPicture(ShellString)
    If Err <> 0 Then GoTo fd
    'File is a picture
    ShLst = ShLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
    Viewer.ShowPIC ShellString
    Exit Sub
    fd:
    If Right$(ShellString, 1) = "\" Or Left$(UCase$(ShellString), 3) = "WWW" Or Left$(UCase$(ShellString), 5) = "FILE:" Or Left$(UCase$(ShellString), 5) = "HTTP:" Or Left$(UCase$(ShellString), 6) = "HTTPS:" Or UCase$(ShellString) Like "*.HTML" = True Or UCase$(ShellString) Like "*.HTM" = True Or UCase$(ShellString) Like "*.JPG" = True Or UCase$(ShellString) Like "*.GIF" = True Then
    If Not InStr(vbNull, UCase$(ShellString), "A:\") = 0 Then
    If MsgBox("Please insert the floppy disk that contains the file '" + ShellString + "', and click OK. If you want to discard this request, click 'Cancel'.", vbQuestion + vbOKCancel, "Insert Floppy Disk") = vbOK Then
    If DMB = False Then
    If CheckFileLOC(ShellString) = True Then
    If NoWarn = False Then
    If polDisNexusLOC2000 = True Then GoTo 52
    MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
    52
    End If
    End If
        
        If polDisMB6 = True Then MsgBox "Your Nexus Administrator has disabled Minibrowzer 6.0. The shell sting will be opened with the standard Windows shell.", 48, "Access Denied": GoTo 22237
        Set frmD = New MiniBrowzer
        frmD.Show
    
    WbShlLst = WbShlLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, WbShlLst, ServPath + "RC2000\" + CurrentUser + "\Web Shell List.ini"
    
    frmD.brwWebBrowser.Navigate ShellString
    Else
    If CheckFileLOC(ShellString) = True Then
    If NoWarn = False Then
    If polDisNexusLOC2000 = True Then GoTo 909
    MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
    909
    End If
    End If
    ShLst = ShLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
    
    OpenIt Main, ShellString
    End If
    Else
    Exit Sub
    End If
    Else
    If DMB = False Then
    If CheckFileLOC(ShellString) = True Then
    If NoWarn = False Then
    If polDisNexusLOC2000 = True Then GoTo 335
    MsgBox "The file or folder you are opening may be protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
    335
    End If
    End If
    
        If polDisMB6 = True Then MsgBox "Your Nexus Administrator has disabled Minibrowzer 6.0. The shell sting will be opened with the standard Windows shell.", 48, "Access Denied": GoTo 22237
        Set frmD = New MiniBrowzer
        frmD.Show
    
    WbShlLst = WbShlLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, WbShlLst, ServPath + "RC2000\" + CurrentUser + "\Web Shell List.ini"
        
    On Error Resume Next
    frmD.brwWebBrowser.Navigate ShellString
    Else
    If CheckFileLOC(ShellString) = True Then
    If NoWarn = False Then
    If polDisNexusLOC2000 = True Then GoTo 2572
    MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
    2572
    End If
    End If
    22237
    ShLst = ShLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
    
    OpenIt Main, ShellString
    End If
    
    End If
    Exit Sub
    End If
    p = Len(ShellString) + 1
    Do
    p = p - 1
    If p = 0 Then MsgBox "Could not change directory! Please re-specify shell string.", 48:: GoTo 72
    thedir = Left(ShellString, p - 1)
    Loop Until Right(thedir, 1) = "\" Or Len(thedir) = 2
    72
    On Error GoTo serr
    If Not InStr(vbNull, UCase$(ShellString), "A:\") = 0 Then
    If MsgBox("Please insert the floppy disk that contains the file '" + ShellString + "', and click OK. Click cancel to cancel", vbOKCancel + vbQuestion, "Insert Floppy Disk") = vbOK Then
    ChDir thedir
    If CheckFileLOC(ShellString) = True Then
    If NoWarn = False Then
    If polDisNexusLOC2000 = True Then GoTo 127
    MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
    127
    End If
    End If
    ShLst = ShLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
    
    Call shell(ShellString, vbNormalFocus)
    Else
    Exit Sub
    End If
    Else
    On Error Resume Next
    ChDir thedir
    Err.Clear
    If Not UCase(ShellString) Like "*.EXE" Then GoTo trystart
    If CheckFileLOC(ShellString) = True Then
    If NoWarn = False Then
    If polDisNexusLOC2000 = True Then GoTo 8832
    MsgBox "The file you are opening is protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
    8832
    End If
    End If
    ShLst = ShLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
    Call shell(ShellString, vbNormalFocus)
    End If
    Exit Sub
    serr:
    If Err = 5 Or Err = 76 Then GoTo trystart
    MsgBox "Could not shell the string specified. (" + Err.Description + ")", 48, "Error Number " & Err
    Exit Sub
    trystart:
    Err.Clear
    'On Error Resume Next
    ChDir thedir
    If CheckFileLOC(ShellString) = True Then
    If NoWarn = False Then
    If polDisNexusLOC2000 = True Then GoTo 678
    MsgBox "The file you are opening may be protected by Interworks NexusLOC 2000. You will not be able to modify this file in any way, or you may not have access to it.", 48, "NexusLOC 2000 Warning"
    678
    End If
    End If
    ShLst = ShLst + 1
    PROBas.INISaveSetting PROBas.IntelliCrypt_EnCrypt(ShellString), ShellMonSect, ShLst, ServPath + "RC2000\" + CurrentUser + "\Shell List.ini"
    Call OpenIt(Main, ShellString)
    End Sub

Page 1 of 2 12 LastLast

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  





Click Here to Expand Forum to Full Width

Featured