vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Re: Aufzählung erstellen 
Autor: iComupterfreak
Datum: 17.03.13 11:41

Achso... moment. Das geht ja so gar nicht...

In jedem Feld (F1, F2, F3,...) müssen die Werte X und Y ja schon als Konstanten vordefiniert sein

Ich lasse den Programmiertext einfach so wie er ist xD

Falls es wen interessiert:
Mein völlig umständlicher Text:

Module MinecraftInventar
    Public Structure R1
        Public Structure F1
            Const X As Integer = 750
            Const Y As Integer = 550
        End Structure
        Public Structure F2
            Const X As Integer = 800
            Const Y As Integer = 550
        End Structure
        Public Structure F3
            Const X As Integer = 850
            Const Y As Integer = 550
        End Structure
        Public Structure F4
            Const X As Integer = 900
            Const Y As Integer = 550
        End Structure
        Public Structure F5
            Const X As Integer = 950
            Const Y As Integer = 550
        End Structure
        Public Structure F6
            Const X As Integer = 1000
            Const Y As Integer = 550
        End Structure
        Public Structure F7
            Const X As Integer = 1050
            Const Y As Integer = 550
        End Structure
        Public Structure F8
            Const X As Integer = 1100
            Const Y As Integer = 550
        End Structure
        Public Structure F9
            Const X As Integer = 1150
            Const Y As Integer = 550
        End Structure
    End Structure
    Public Structure R2
        Public Structure F1
            Const X As Integer = 750
            Const Y As Integer = 600
        End Structure
        Public Structure F2
            Const X As Integer = 800
            Const Y As Integer = 600
        End Structure
        Public Structure F3
            Const X As Integer = 850
            Const Y As Integer = 600
        End Structure
        Public Structure F4
            Const X As Integer = 900
            Const Y As Integer = 600
        End Structure
        Public Structure F5
            Const X As Integer = 950
            Const Y As Integer = 600
        End Structure
        Public Structure F6
            Const X As Integer = 1000
            Const Y As Integer = 600
        End Structure
        Public Structure F7
            Const X As Integer = 1050
            Const Y As Integer = 600
        End Structure
        Public Structure F8
            Const X As Integer = 1100
            Const Y As Integer = 600
        End Structure
        Public Structure F9
            Const X As Integer = 1150
            Const Y As Integer = 600
        End Structure
    End Structure
'[2 Weitere Reihen]
End Module

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Aufzählung erstellen1.678iComupterfreak16.03.13 21:40
Re: Aufzählung erstellen1.109sv0001016.03.13 22:34
Re: Aufzählung erstellen1.120Manfred X16.03.13 22:35
Re: Aufzählung erstellen1.070iComupterfreak17.03.13 11:37
Re: Aufzählung erstellen1.108iComupterfreak17.03.13 11:41
Re: Aufzählung erstellen1.218Manfred X17.03.13 14:52

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel