CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 4 of 4
  1. #1
    Join Date
    May 2002
    Location
    Minneapolis
    Posts
    98

    [VB] Form.Show vbModal problem

    Hello all,

    I really need some help on this one, any suggestions will help out alot.

    we are beta testing an application out in the field that is going to be released pretty soon and I am seeing a problem with about 1 in 30 customers where they click on a menu option and that click event does the following
    '**************************
    On Error GoTo propErrorTrap
    Timer1.Enabled = False
    'brings up the properties page
    frmProperties.Show vbModal
    Unload frmProperties
    Timer1.Enabled = True

    Exit Sub

    propErrorTrap:
    addToDebug "error in the properties click**" & vbCrLf
    Resume Next
    '***************************



    Here is the form_load code for frmProperties

    '**************************************
    Me.Top = (Screen.Height / 2) - (Me.Height / 2)
    Me.Left = (Screen.Width / 2) - (Me.Width / 2)

    Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
    SWP_NOSIZE Or SWP_NOMOVE)


    addToDebug "PROPERTIES_LOAD..looking for username" & vbCrLf
    user = GetString(HKEY_LOCAL_MACHINE, registryMachine, User)
    addToDebug "PROPERTIES_LOAD.. user:" & user & vbCrLf
    addToDebug "PROPERTIES_LOAD..looking for Password" & vbCrLf

    If (GetNumFromReg(HKEY_LOCAL_MACHINE, registryMachine, Save_pass) = 1) Then
    chkSave.value = vbChecked
    pass = GetString(HKEY_LOCAL_MACHINE, registryMachine, Pass)
    addToDebug "PROPERTIES_LOAD.. pass:" & pass & vbCrLf
    End If


    If Len(user) = 0 Then
    txtUser.Text = "EMPTY"
    Else
    txtUser.Text = user
    End If

    If Len(pass) = 0 Then
    txtPass.Text = ""
    Else
    txtPass.Text = pass
    End If



    addToDebug "PROPERTIES_LOAD.. looking for device id" & vbCrLf
    deviceID = GetString(HKEY_LOCAL_MACHINE, registryMachine, registryDevice)
    addToDebug "PROPERTIES_LOAD.. device_id:" & deviceID & vbCrLf



    lblDeviceID.Caption = "Device Id: " & deviceID & vbCrLf

    SSTab1.Tab = 0
    cmdApply.Enabled = False

    '********************************************


    I am thinking it could be something to do with the users access to the LOCAL_MACHINE registry hive ... but haven't been able to nail it down..


    thanks in advanced...

    regards,
    Jay

  2. #2
    Join Date
    Apr 2002
    Location
    Egypt
    Posts
    2,210
    I am thinking it could be something to do with the users access to the LOCAL_MACHINE registry hive ... but haven't been able to nail it down..
    Hi
    what is the error you get exactly ?
    check the permissions of users ..
    do these 1/30 customers have permissions to read the LOCAL_MACHINE ?
    can HKEY_CURRENT_USER be more appropriate ?

    also please try to make your posts' subjects more relative to the problem.
    Hesham A. Amin
    My blog , Articles


    <a rel=https://twitter.com/HeshamAmin" border="0" /> @HeshamAmin

  3. #3
    Join Date
    May 2002
    Location
    Minneapolis
    Posts
    98

    [VB] Local machine question

    Hello and thank you for the quick response.
    sorry about the subject.

    they are not getting an error message, it simply does not come up.

    How would I be able to find out about the ability to read the LOCAL_MACHINE hive?

    I guess I could change it all over to CURRENT_USER if that will reduce my problems and be more appropriate.


    regards,
    Jay

  4. #4
    Join Date
    Apr 2002
    Location
    Egypt
    Posts
    2,210
    sorry .. i'm not an expert in Windows permissions
    but try to login to their machines suing their user/pass and try to open the LOCAL_MACHINE using regedit ..
    you can get extra info about this is the OS forum.
    Hesham A. Amin
    My blog , Articles


    <a rel=https://twitter.com/HeshamAmin" border="0" /> @HeshamAmin

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