dotNETportal.cz

Dobrý den,

už nějakou dobu řešim jak vytvořit seznam s odkazy na komponenty.

Pro vysvětlení: Mám komponentu, která mi zprostředkovává přístup k api. Tyto komponenty však musím ještě inicializovat na stisk tlačítka. Otázkou je, zda jde vytvořit seznam(např. ve Form1) a v komponentě vlastnost, v které by se určilo k jakému seznamu patří, pak by se v konstruktoru přidal odkaz na danou kopmponentu do seznamu.

Pokud vytvořím odkaz na jednu komponentu tak je vše OK

	Private _PLCValRead As ComPLCBit
	<Category("PLC API"), DisplayName("PLC register Read")> _
	Public Property PlcRegRead() As ComPLCBit
		Get
			Return _PLCValRead
		End Get
		Set(ByVal value As ComPLCBit)
			_PLCValRead = value
		End Set
	End Property

a při otevření této vlastnosti se mi zobrazí seznam vložených komponent, z kterých si mohu jednu vybrat.

Při použití Listu

	Private _seznamAdr As List(Of ComPLCBit)
	Public Property SeznamAdr() As List(Of ComPLCBit)
		Get
			Return _seznamAdr
		End Get
		Set(ByVal value As List(Of ComPLCBit))
			_seznamAdr = value
		End Set
	End Property

se při přidání komponenty do seznamu vytvoří zcela nová.

Děkuji za jakýkoliv nápad

Dobrý den, zajímalo by mě jak uvnitř struktury definovat pole, seznam atp. a nebo ještě lépe, jak uvnitř jedné struktury vytvořit pole obsahující jinou mou strukturu. Tady je příklad.

structure Triplet
dim value as string
dim startTime as dateTime
dim endTime as dateTime
End Structure

structure Entry
dim severity as Integer
dim status() as Triplet
End Structure

'..................
dim myEntry as New Entry
myEntry.severity=5
myEntry.status(0).value="run"
myEntry.status(0).startTime=CDate(Format(Now,"dd/MM/yyyy"))
myEntry.status(0).endTime=CDate(Format(Now,"dd/MM/yyyy"))
myEntry.status(1).value="wait"

Tak tohle bohužel nefunguje. Jak jinak vytvořit takovou strukturu navíc, abych nebyl omezen velikostí pole?

Děkuji moc za případnou odpověď.

Petr

To bude tím, že pole není inicializované (nemá žádnou velikost). Zkuste právě na tohle použít List:

Structure Entry
   Dim severity As Integer
   Dim status As List(Of Triplet)
End Structure

Dobrý den,

tohle jsem zkoušel ale neumím to potom naplnit.

    Structure TripletStr
        Dim value As String
        Dim startDate As DateTime
        Dim endDate As DateTime
    End Structure

    Structure Entry
        Dim nr As String
        Dim status As List(Of TripletStr)
    End Structure

Private Sub Form1_Load....
Dim iss As New Entry()
Dim stat As New TripletStr()

iss.nr = "12345678-01"
stat.value = "run"
stat.startDate = CDate(Format(Now, "dd/MM/yyyy"))
stat.endDate = CDate(Format(Now, "dd/MM/yyyy"))
iss.status.Add(stat) ' NullReferenceException was unhandled
end Sub

Pokud chci naplnit iss.status, hlásí mi to chybu. Nevěděl by jste co s tím?

Petr

Protože nemáte tuto proměnnou inicializovanou. iss.status je prázdný. Je potřeba ho před plněním vytvořit:

Private Sub Form1_Load....
Dim iss As New Entry()
Dim stat As New TripletStr()

iss.nr = "12345678-01"
stat.value = "run"
stat.startDate = CDate(Format(Now, "dd/MM/yyyy"))
stat.endDate = CDate(Format(Now, "dd/MM/yyyy"))
iss.status = New List(Of TripletStr)() ' inicializovat objekt
iss.status.Add(stat) ' vše už proběhne ok
end Sub

Aha, děkuju moc. Nevěděl jsem kam to New nacpat.

Jinak co se vašich článků týká, doufám že jich bude přibývat, jsou krátké a výstižné, je v nich vše co pro dané téma mohu použít.

Děkuju moc!

Petr

Dobrý den,

přemýšlím jak nejlépe a efektivně načítat nějaká data z textového dokumentu a napadlo mě využití seznamu.

 Structure Osoba
        Dim Jmeno, Prijmeni As String
        Dim Vek As Byte
    End Structure

ve Form1_Load pak:

Dim seznam As New System.Collections.Generic.List(Of Osoba)()
        Dim os As New Osoba
        os.Jmeno = "Jan"
        os.Prijmeni = "Beran"
        os.Vek = 30
        seznam.Add(os)

        os.Jmeno = "Pavel"
        os.Prijmeni = "Soukup"
        os.Vek = 50
        seznam.Add(os)

Zajímalo by mě, zda je možné nyní použít sort seznamu podle položky struktury, nebo odstranění záznamu podle položky.

Něco jako seznam.Jmeno.sort() nebo seznam.Prijmeni.remove("Soukup")

Toto ale nefunguje.

Děkuji,

Petr

Takto jednoduché to bohužel nebude.

Sortování je popsané v tomto článku:

http://www.vbnet.cz/blog-clanek--170-net...

A mazání znamená procházet záznam po záznamu a v případě shody smazat. Také je možné použít Linq k vybrání záznamů ke smazání, ale asi rozebírat nebudu, princip stejně zůstane stejný.

Děkuji za rychlou odpověď.

Ještě by mě zajímalo jaká je běžná praxe v načítání dat takového charakteru, aby se s nimi později manipulovalo co nejjednodušeji a aby to v případě tisíce položek nijak nezpomalovalo.

Petr