Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Tabcontrol Buttons in den Tabs Code hinzufügen?

Frage Entwicklung VB for Applications

Mitglied: darkmaterial

darkmaterial (Level 1) - Jetzt verbinden

01.09.2008, aktualisiert 04.09.2008, 6736 Aufrufe, 2 Kommentare

Hallo ich möchte meinen button (neuerbutto) welcher in jedem neu erzeugtem tab erzeugt wird mit einem sourcecode belegen
mein code sieht jetzt so aus:

01.
Public Class Form1 
02.
 
03.
    Public i As Integer 
04.
 
05.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
06.
 
07.
        Dim NeuesTab As New TabControl 
08.
        Dim NeuerButto As New Button 
09.
        Dim Hallo As New Button 
10.
        'Tab der Form hinzufügen 
11.
 
12.
        'TabPage dem Tab hinzufügen 
13.
        TabControl1.TabPages.Add("Test") 
14.
        i = i + 1 
15.
 
16.
        'Button in erstes TabPage des Tabs einfügen 
17.
        TabControl1.TabPages(i).Controls.Add(NeuerButto) 
18.
 
19.
        NeuerButto.Text = "Test" 
20.
 
21.
 
22.
    End Sub 
23.
 
24.
 
25.
 
26.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
27.
        i = -1 
28.
    End Sub 
29.
End Class
Ich möchte jetz aber auf die generierten buttons ähnlich wie mit
01.
Private Sub Neuerbotto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Neuerbutto.Click 
02.
03.
04.
05.
Hier kommt code  
06.
07.
08.
09.
end sub
Zugriff haben allerdings kommt dann dieser fehler
01.
Fehler	1	Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.	C:\Users\Daniel\Desktop\Darkfire\Darkfire\Form1.vb	24	102	Darkfire


Danke für eure Hilfe

mfg
Darkmtaterial
Mitglied: darkmaterial
02.09.2008 um 12:47 Uhr
Helft mir bitte es ist wirklich dringend
mfg
Bitte warten ..
Mitglied: darkmaterial
04.09.2008 um 00:54 Uhr
So obwohl es hier eh keinen interessieren zu scheint, ich hab eine lösung
01.
Public Class Form1 
02.
 
03.
    Inherits System.Windows.Forms.Form 
04.
    Private btnArray(50) As Button 
05.
 
06.
    Public i As Integer 
07.
    Public butary As Integer 
08.
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
09.
        If butary < 50 Then 
10.
 
11.
            Dim NeuesTab As New TabControl 
12.
 
13.
            'Tab der Form hinzufügen 
14.
 
15.
            'TabPage dem Tab hinzufügen 
16.
            TabControl1.TabPages.Add("Test") 
17.
            i = i + 1 
18.
            butary = butary + 1 
19.
            btnArray(i) = New Button 
20.
            'Button in erstes TabPage des Tabs einfügen 
21.
            TabControl1.TabPages(i).Controls.Add(btnArray(butary)) 
22.
            btnArray(butary).Text = butary 
23.
            With btnArray(butary) 
24.
 
25.
                AddHandler .Click, AddressOf btnArray_Click 
26.
 
27.
            End With 
28.
        Else 
29.
            MsgBox("Maximale Anzahl an Fächern erreicht ") 
30.
        End If 
31.
 
32.
    End Sub 
33.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
34.
        i = -1 
35.
        butary = -1 
36.
    End Sub 
37.
 
38.
    Private Sub btnArray_Click(ByVal sender As Object, _ 
39.
            ByVal e As System.EventArgs) 
40.
        ' Click-Ereignis des Button-Arrays auswerten 
41.
        Dim itemClicked As Button = CType(sender, Button) 
42.
        Dim index As Integer = -1I 
43.
 
44.
        ' Das betroffene Element im Array suchen (allgemein); 
45.
        ' Möglich wäre etwa auch das Vorgehen über die eigens 
46.
        ' zugewiesene Name-Eigenschaft des Buttons. 
47.
        For i As Integer = LBound(btnArray) To UBound(btnArray) 
48.
            If btnArray(i) Is itemClicked Then 
49.
                index = i 
50.
                Exit For 
51.
            End If 
52.
        Next 
53.
 
54.
        If index >= 0 Then ' Element im Array gefunden (sonst index = -1) 
55.
            ' Kurze Informations-MessageBox für das Codebeispiel 
56.
            MessageBox.Show("Sie haben den Button Nr. " & CStr(index) & " angeklickt", _ 
57.
                "Index des Buttons ermittelt", _ 
58.
                MessageBoxButtons.OK, _ 
59.
                MessageBoxIcon.Information) 
60.
        End If 
61.
 
62.
    End Sub 
63.
 
64.
End Class
Ich hoffe ich kann jemand anderem damit helfen.
Bitte warten ..
Ähnliche Inhalte
C und C++
C-sharp andere Scrollbar hinzufügen (2)

Frage von Yanmai zum Thema C und C ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Windows Systemdateien
gelöst JDK MSI verteilen mit Error Code 1603 (1)

Frage von WinLiCLI zum Thema Windows Systemdateien ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(29)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Windows Server

Exchange 2010 Active Directory und Windows Server 2016

(4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Internet
gelöst Mitarbeiter surft auf unerwünschter Seite - Wie damit umgehen? (44)

Frage von sabines zum Thema Internet ...

Netzwerke
Wie erstelle ich ein Intranet (19)

Frage von Leonardnet zum Thema Netzwerke ...

LAN, WAN, Wireless
gelöst Eintägige Netzwerkunterbrechung trotz Backupleitung (15)

Frage von iAmbricksta zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2012 R2 - Zugriff Verweigert bei jeglicher Tätigkeit (13)

Frage von DarkLevi zum Thema Windows Server ...