Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 260
  • Last Modified:

additional settings

I have two programs with the same code and the same properties settings (project -> right mouse click). One program I have got from a cd, the other I wrote on my own. I don't see any differences between them two, but one work and the other not.
The program is:

Option Explicit

Dim n%
Private Sub Form_Load()
    n = 1
End Sub
Private Sub btnNeu_Click(Index As Integer)
  Dim h
  If n >= 10 Then Exit Sub
  Load btnNeu(n)
  btnNeu(n).Top = btnNeu(n - 1).Top + btnNeu(0).Height + 120
  btnNeu(n).Visible = True
  h = btnNeu(n).Top + btnNeu(n).Height + 120
  Height = h + Height - ScaleHeight
  n = n + 1
End Sub


Private Sub btnEntfernen_Click()
    Dim h
    If n = 1 Then Exit Sub
    n = n - 1
    Unload btnNeu(n)
    h = btnNeu(n - 1).Top + btnNeu(n - 1).Height + 120
    Height = h + Height - ScaleHeight
End Sub


Private Sub btnEnde_Click()
    End
End Sub


If I want to compile it, I get the error Message:
"Compile error, procedure declaration does not match description of event or procedure having the same name"
In fact, some programs who do work at other computers, don't work be me.
Are there any additional settings to be done. I have deinstalled and reinstalled VB. This doesn't solve it.
I use a NT4, 48MB Ram, 100 MHs Pentium with two 1GB SCSI-drives and connected to network.
thanks
Martin
0
mkdjo
Asked:
mkdjo
  • 2
1 Solution
 
swiltCommented:
Look at the Cammand Button named btnNeu its sub has an extra parameter, therefore it must be in a control array.  Set the property 'Index' for btnNeu to 0 at design time
0
 
mkdjoAuthor Commented:
I don't know what you mean. Can you please post an example.(Code)
0
 
mkdjoAuthor Commented:
Yes, I got it. Thank you very much.

0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now