tutorials.de Buch-Aktion 05/2012
ERLEDIGT
NEIN
ANTWORTEN
4
ZUGRIFFE
1075
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. 13.02.05 21:08 #1
    Blaggi Blaggi ist offline Mitglied
    Registriert seit
    Nov 2003
    Beiträge
    19
    :<

    Ich versuche gerade, ein Prgramm mit Menüleiste zu erstellen....
    aber dann kommt es...
    HANDLERS

    error BC30506: Handles clause requires a WithEvents variable.

    Ich gebe einfach mal den kompletten Quelltext..

    Code :
    1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

    Imports System
Imports System.Drawing
Imports System.Windows.Forms
 
Namespace DefaultNamespace
    
    Public Class Form1
        Inherits System.Windows.Forms.Form
        Private mainMenu1 As System.Windows.Forms.MainMenu
        Private menuItem2 As System.Windows.Forms.MenuItem
        Private menuItem1 As System.Windows.Forms.MenuItem
        
        Public Sub New()
            MyBase.New
        End Sub
        
        Private Sub InitializeComponent()
            Me.menuItem1 = New System.Windows.Forms.MenuItem
            Me.menuItem2 = New System.Windows.Forms.MenuItem
            Me.mainMenu1 = New System.Windows.Forms.MainMenu
            '
            'menuItem1
            '
            Me.menuItem1.Index = 0
            Me.menuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem2})
            Me.menuItem1.Text = "Menu 1"
            '
            'menuItem2
            '
            Me.menuItem2.Index = 0
            Me.menuItem2.Text = "SubMenu 1"
            '
            'mainMenu1
            '
            Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem1})
            '
            'Form1
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(292, 54)
            Me.Menu = Me.mainMenu1
            Me.Name = "Form1"
            Me.Text = "Form1"
        End Sub
        
        Private Sub MenuItem1Click(sender As System.Object, e As System.EventArgs) Handles MenuItem1.Click
            MessageBox.Show("O_o", "o_O", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
        End Sub
        
    End Class
End Namespace

    Ich arbeite übrigens mit SharpDevelop, da ich mir kein 50.000$ Programm zulegen will O_o

    Ich habe schon Dutzend mal versucht, einen Handler zu erstellen..
    AddHandler menuItem1.Click AdressOf menuItem1Click

    Aber nie funktioniert es.

    Was müsste ich am Code ändern, damit mein Programm läuft?
    Ich weiss, dass der Handler dort erstellt werden muss, wo auch im Quelltext das Element dazu erstellt wurde.
     
    Zitieren Zitieren
  2. 26.02.05 18:40 #2
    Blaggi Blaggi ist offline Mitglied
    Registriert seit
    Nov 2003
    Beiträge
    19
    hmmm.. kann oder will mir niemand helfen? ich kenn die lösung immer noch nciht O_o
     
    Zitieren Zitieren
  3. 03.06.05 13:29 #3
    chrissyLE chrissyLE ist offline Grünschnabel
    Registriert seit
    Aug 2004
    Beiträge
    1
    Hallo Grünschnabel,
    ich hätte auch gern eine Antwort darauf. Habe das selbe Problem.
    Und richtig fündig wird man bei google leider auch nicht.
     
    Zitieren Zitieren
  4. 03.06.05 13:54 #4
    Avatar von Speedkill
    Speedkill Speedkill ist offline Mitglied Gold
    Registriert seit
    Nov 2004
    Beiträge
    135
    Probier mal vor die Items die einen Handler erhalten sollen ein withevents einzufügen, das Handles in der sub zu entfernen und ein Addhandler auf das item zu machen in etwa so.

    Code :
    1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

     [size=2][color=#0000ff]
 
Imports[/color][/size][size=2] System
 
[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Drawing
 
[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Windows.Forms
 
[/size][size=2][color=#0000ff]Namespace[/color][/size][size=2] DefaultNamespace
 
[/size][size=2][color=#0000ff]Public[/color][/size][size=2][color=#0000ff]Class[/color][/size][size=2] Form1
 
[/size][size=2][color=#0000ff]Inherits[/color][/size][size=2] System.Windows.Forms.Form
 
[/size][size=2][color=#0000ff]Private [/color][/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] mainMenu1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.MainMenu
 
[/size][size=2][color=#0000ff]Private[/color][/size][size=2] menuItem2 [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.MenuItem
 
[/size][size=2][color=#0000ff]Private[/color][/size][size=2] menuItem1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.MenuItem
 
[/size][size=2][color=#0000ff]Public[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2][color=#0000ff]New[/color][/size][size=2]()
 
[/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].New()
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub
 
[/color][/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] InitializeComponent()
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem1 = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.MenuItem
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem2 = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.MenuItem
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].mainMenu1 = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.MainMenu
 
[/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#008000]'menuItem1
 
[/color][/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem1.Index = 0
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem1.MenuItems.AddRange([/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.MenuItem() {[/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem2})
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem1.OwnerDraw = [/size][size=2][color=#0000ff]True
 
[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem1.Text = "Menu 1"
 
[/size][size=2][color=#0000ff]AddHandler[/color][/size][size=2] menuItem1.Click, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] MItem1Click
 
[/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#008000]'menuItem2
 
[/color][/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem2.Index = 0
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem2.Text = "SubMenu 1"
 
[/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#008000]'mainMenu1
 
[/color][/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].mainMenu1.MenuItems.AddRange([/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.MenuItem() {[/size][size=2][color=#0000ff]Me[/color][/size][size=2].menuItem1})
 
[/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#008000]'Form1
 
[/color][/size][size=2][color=#008000]'
 
[/color][/size][size=2][color=#0000ff]Me[/color][/size][size=2].AutoScaleBaseSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(5, 13)
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].ClientSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(292, 54)
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Menu = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].mainMenu1
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Name = "Form1"
 
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Text = "Form1"
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub
 
[/color][/size][size=2][color=#0000ff]Private[/color][/size][size=2][color=#0000ff]Sub[/color][/size][size=2] MItem1Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs)
 
MessageBox.Show("O_o", "o_O", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Sub
 
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Class
 
End[/color][/size][size=2][color=#0000ff]Namespace
 
[/color][/size]

    Keine Garantie daß es geht aber so ähnlich habe ich es mit meinen Checkboxen damals auch gemacht.

    Grüße
    Speedy
     
    Hinter dir.... ein dreiköpfiger Affe!
    Zitieren Zitieren
  5. 03.06.05 14:24 #5
    Avatar von Norbert Eder
    Norbert Eder Norbert Eder ist offline Mitglied Diamant
    Registriert seit
    Feb 2004
    Ort
    Österreich / Graz
    Beiträge
    5.137
    Blog-Einträge
    51
    Schau dir einfach den folgenden Link durch und dann solltest verstehen wie Events funktionieren, wie sie deklariert und verwendet werden.

    http://msdn.microsoft.com/library/de...vastmEvent.asp
     
    Zitieren Zitieren
« Runde Elemente | CheckedListBox »

Ähnliche Themen

  1. Fehler in Where Clause
    Von dsNDesign im Forum Relationale Datenbanksysteme
    Antworten: 1
    Letzter Beitrag: 16.08.10, 10:40
  2. Fehler: Parse error: parse error, unexpected T_STRING in
    Von BladeNeo im Forum PHP
    Antworten: 3
    Letzter Beitrag: 14.02.07, 13:51
  3. Parse error: parse error, unexpected T_VARIABLE - Finde den Fehler nicht :(
    Von Natheedo im Forum PHP
    Antworten: 2
    Letzter Beitrag: 07.01.06, 09:06
  4. WEP Fehler | Wep Error
    Von Kenny im Forum Netzwerke
    Antworten: 1
    Letzter Beitrag: 27.03.05, 18:19
  5. Vermutung Fehler error 405?
    Von wieseline im Forum PHP
    Antworten: 1
    Letzter Beitrag: 02.02.05, 22:19