View original (French)

VB6 - SSTab

Solved
Fenril'Skanenruf -  
lermite222 Posted messages 9042 Status Contributor -
Hello everyone,

I have the Enterprise version of Visual Studio 6.0, a version purchased directly from Microsoft.
However, I have some issues with Socket; during compilation, it cannot find the member "Socket".
I decided to reinstall VB6. I uninstalled Visual Studio through the folders and reinstalled it with the CDs.
At the end of the installation (still on CD1), I received an error message:
"The installer could not create a DCOM user account to register: C:\Program Files\Microsoft Visual Studio\Common\Tools\VS-Ent98\Vanalyzr\valec.exe".
After clicking the only OK button, the program stops and informs me that the installation could not be completed.

I still do not have a Socket and I have a problem related to SSTab:
In a Frame within an SSTab, I created a horizontal Scrollbar that adjusts (according to its Value) the Caption of a label. But these two members: Value for the Scroll and Caption for the label seem to be unknown to VB in an SSTab (I tried outside the SSTab and the frame, and it recognizes the members there). The problem seems to be with the SSTab.

Here is a small screenshot of the options available to me after the name of the Scroll: http://img505.imageshack.us/img505/7253/problemegs9.png

Thank you very much for your forthcoming help,
Fenril'Skanenruf, Groupe-Midgard.com
Configuration: Windows XP Internet Explorer 6.0

6 answers

  1.
    lermite222 Posted messages 9042 Status Contributor 1 199
     
    Good evening,
    When you have a menu like that, it means your control is indexed....
    like HScroll1(Index).value
    Cheers!
    0
    1. Fenril'Skanenruf
       
      Hello, thank you for your response.

      This code worked perfectly until I wanted to put everything into an SSTab. I created an SSTab and copied all the elements (arranged in several frames) by copying a frame and pasting the frames (with all the elements) into the SSTab.
      During testing, the debugger got stuck on the first function and suggested this: (Index as Integer) at the end of each event. I added that without fully understanding to my events. But the debugger got stuck on the value of the Hscroll and the caption of the label, as mentioned above, right after. I still haven't been able to compile.

      Here is the code that worked before moving to the SSTab, which no longer works now. 
      Private Sub Couleur() Label4.Caption = HScroll1.Value Label5.Caption = HScroll2.Value Label6.Caption = HScroll3.Value Label7.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub Private Sub cmdCouleursEcriture_Click() frmCouleursEcriture.Show End Sub Private Sub cmdCouleursTheme_Click() frmCouleursTheme.Show End Sub Private Sub cmdCredits_Click() frmCredits.Show End Sub End Sub Private Sub cmdReset_Click() HScroll7.Value = 0 HScroll8.Value = 0 HScroll9.Value = 0 HScroll10.Value = 0 HScroll11.Value = 0 HScroll12.Value = 0 End Sub Private Sub cmdReset2_Click() HScroll1.Value = 0 HScroll2.Value = 0 HScroll3.Value = 0 HScroll4.Value = 0 HScroll5.Value = 0 HScroll6.Value = 0 End Sub Private Sub cmdResetText_Click() txtChoice.Text = "" End Sub Private Sub Form_Load() Label4.Caption = HScroll1.Value Label5.Caption = HScroll2.Value Label6.Caption = HScroll3.Value Label7.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) Label13.Caption = HScroll4.Value Label14.Caption = HScroll5.Value Label15.Caption = HScroll6.Value Label16.ForeColor = RGB(HScroll4, HScroll5, HScroll6) Label16.Caption = txtChoice.Text txtRougeRes.Text = HScroll7.Value txtVertRes.Text = HScroll8.Value txtBleuRes.Text = HScroll9.Value lblRes.BackColor = RGB(HScroll7, HScroll8, HScroll9) txtRougeRes2.Text = HScroll10.Value txtVertRes2.Text = HScroll11.Value txtBleuRes2.Text = HScroll12.Value lblRes2.BackColor = RGB(HScroll10, HScroll11, HScroll12) lblTime.Caption = Date & " | " & Time txtResultat.Text = "[FOND]" & vbNewLine & "R=" & HScroll7.Value & vbNewLine & "V=" & HScroll8.Value & vbNewLine & "B=" & HScroll9.Value & vbNewLine & "[BARE]" & vbNewLine & "R=" & HScroll10.Value & vbNewLine & "V=" & HScroll11.Value & vbNewLine & "B=" & HScroll12.Value txtChemin.Text = "C:\Program Files\FRoG Creator V0.4\Client\Themes\" & txtTheme.Text & "\Couleur.ini" txtTheme.Text = "Mon thème" End Sub Private Sub HScroll1_Change() Couleur End Sub Private Sub HScroll1_Scroll() Couleur End Sub Private Sub HScroll10_Change() Rescouleur2 End Sub Private Sub HScroll10_Scroll() Rescouleur2 End Sub Private Sub HScroll11_Change() Rescouleur2 End Sub Private Sub HScroll11_Scroll() Rescouleur2 End Sub Private Sub HScroll12_Change() Rescouleur2 End Sub Private Sub HScroll12_Scroll() Rescouleur2 End Sub Private Sub HScroll2_Change() Couleur End Sub Private Sub HScroll2_Scroll() Couleur End Sub Private Sub HScroll3_Change() Couleur End Sub Private Sub HScroll3_Scroll() Couleur End Sub Private Sub couleur2() Label13.Caption = HScroll4.Value Label14.Caption = HScroll5.Value Label15.Caption = HScroll6.Value Label16.ForeColor = RGB(HScroll4, HScroll5, HScroll6) End Sub Private Sub HScroll4_Change() couleur2 End Sub Private Sub HScroll4_Scroll() couleur2 End Sub Private Sub HScroll5_Change() couleur2 End Sub Private Sub HScroll5_Scroll() couleur2 End Sub Private Sub HScroll6_Change() couleur2 End Sub Private Sub HScroll6_Scroll() couleur2 End Sub Private Sub HScroll7_Change() Rescouleur End Sub Private Sub HScroll7_Scroll() Rescouleur End Sub Private Sub HScroll8_Change() Rescouleur End Sub Private Sub HScroll8_Scroll() Rescouleur End Sub Private Sub HScroll9_Change() Rescouleur End Sub Private Sub HScroll9_Scroll() Rescouleur End Sub End Sub Private Sub tmHeure_Timer() lblTime.Caption = Date & " | " & Time End Sub Private Sub txtChoice_Change(Index As Integer) Label16.Caption = txtChoice.Text End Sub Private Sub Rescouleur() txtRougeRes.Text = HScroll7.Value txtVertRes.Text = HScroll8.Value txtBleuRes.Text = HScroll9.Value lblRes.BackColor = RGB(HScroll7, HScroll8, HScroll9) txtResultat.Text = "[FOND]" & vbNewLine & "R=" & HScroll7.Value & vbNewLine & "V=" & HScroll8.Value & vbNewLine & "B=" & HScroll9.Value & vbNewLine & "[BARE]" & vbNewLine & "R=" & HScroll10.Value & vbNewLine & "V=" & HScroll11.Value & vbNewLine & "B=" & HScroll12.Value End Sub Private Sub Rescouleur2() txtRougeRes2.Text = HScroll10.Value txtVertRes2.Text = HScroll11.Value txtBleuRes2.Text = HScroll12.Value lblRes2.BackColor = RGB(HScroll10, HScroll11, HScroll12) txtResultat.Text = "[FOND]" & vbNewLine & "R=" & HScroll7.Value & vbNewLine & "V=" & HScroll8.Value & vbNewLine & "B=" & HScroll9.Value & vbNewLine & "[BARE]" & vbNewLine & "R=" & HScroll10.Value & vbNewLine & "V=" & HScroll11.Value & vbNewLine & "B=" & HScroll12.Value End Sub Private Sub txtTheme_Change() txtChemin.Text = "C:\Program Files\FRoG Creator V0.4\Client\Themes\" & txtTheme.Text & "\Couleur.ini" End Sub


      Note: I simply copied the frames containing all the elements into the SSTab.
      During compilation (for testing), I get an alert message from the debugger on this line:
      http://img329.imageshack.us/img329/1189/troubleox0.png

      Can you help me?
      Thank you very much!
      0
  2. lermite222 Posted messages 9042 Status Contributor 1 199
     
    If it worked this way before, it means there were no indexed controls.
    But your answer does correspond to the problem I pointed out.
    You need to go through all the controls and check the Index properties; there should be NOTHING as a parameter, if you find anything, you select the number written and press delete (not zero).
    0
  3. Fenril'Skanenruf
     
    Lermite222, thank you for your second reply, but I have entered the word "delete" in each parentheses of the subs and still the same reaction (this time on this sub: Private Sub cmdReset_Click(delete)). I then tried to remove all the delete to leave it empty (like before) and it crashed during the test on this sub: Private Sub cmdReset_Click(). (the same.

    Note: I am sure that if I add Index as Integer inside it will do the same for the next one. That’s what I did at first. And once all the subs were indexed, I encountered the problem of missing functions (first screenshot).

    What should I do?
    Thanks again infinitely.
    0
  4. lermite222 Posted messages 9042 Status Contributor 1 199
     
    You didn't understand my explanation....
    In the design of the form (not in the code), you select the controls one by one and in the properties window, you check if nothing is indicated next to INDEX

    In your first post, you wrote...I still don't have a Socket what do you mean by socket?

    If you check as explained and find nothing, it means the problem comes from the VB installation and unfortunately, I can't do anything about it.
    See you!
    0
    1. Fenril'Skanenruf
       
      Hello,

      I did as you said and some of the objects had nothing, others had 0, and still others had 1. I set everything to 0 and I'm still getting the same procedure error. I suppose the problem comes from the Visual Basic installation. I am therefore grateful for your help.

      As for the Socket, in another program, when I compile, it says .Socket (highlighted) "Member not found." I reinstalled VB on another computer where it did the same thing, and I no longer have this problem. However, I have something named .LoadMovie that is not found. On the computer I am using, I couldn't reinstall VB Enterprise as I did on the other one.

      So I have many issues, but I think they all stem from my Visual Studio which is not working properly, even though it's the Enterprise version.

      Do you know where to find VB for free, even if it's just the basic version?
      Thanks again.
      0
      1. lermite222 Posted messages 9042 Status Contributor 1 199 > Fenril'Skanenruf
         
        You need to learn how to read !!!!!!!!!!!!!!!!!!!!!
        I said NOTHING, NOTHING and again NOTHING !!!!!!!!!!!!!!!!!!!!!!!!!!
        Double click on the 0 (zero) >> Type delete. It MUST be empty. No zero either
        A+
        Edit: If you can install your VB on other PCs, then the problem doesn't come from the CD but from the computer.
        The VB you have only has one version (no premium or anything) and the other one is Pro.
        VB6 is no longer sold, maybe available second-hand on eBay.
        --
        Experience teaches more surely than advice. (André Gide)
        0
  6. Fenril'Skanenruf
     
    I apologize if I didn't understand everything in your explanations.
    I indeed emptied each Index field (in the properties) of each element.
    So nothing is indexed anymore, but I still have the same problem, this screenshot:
    http://img329.imageshack.us/img329/1189/troubleox0.png

    I suppose the problem is with my computer, it's extremely bothersome.
    I thank you for your help and consider the subject closed.
    0
    1. lermite222 Posted messages 9042 Status Contributor 1 199
       
      You are wrong to give up, the error you show regarding the link has nothing to do with the VB app.
      If you want, I can share my email with you via private message and you can send me the complete project for me to debug it.
      See you!
      --
      Experience teaches more reliably than advice. (André Gide)
      0
  7. Fenril'Willem Posted messages 7 Status Member
     
    Thank you for your patience.
    Here is my account (I finally found the exact login and password) I created it a long time ago.
    It’s very nice of you. Here’s my email address:

    fenril.willem[REMOVE]@groupe-midgard.com
    (Remove the [REMOVE], it's to divert spam)

    I will send you the program code in response to your address.
    Thanks again infinitely.
    Fenril'Skanenruf.
    0
    1. lermite222 Posted messages 9042 Status Contributor 1 199
       
      Following the feedback via email of the debugged app, it was indeed some indexes wandering around everywhere.

      --
      Experience teaches more surely than advice. (André Gide)
      0