Visual Basic

Tags:    record

Hvordan laver jeg en post/record som i Pacal i gamle dage i Visual Basic i ved den gratis udgave Express 2013.
I stil med
Person_Type = Record
Navn = string
Point 1 til 10 as integer
End record




4 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
Jeg kender ikke så meget til Pascal, men umindbart vil jeg gætte på at du gerne vil oprette et nyt klasse objekt, hvilket du kan gøre i VB.NET på følgende måde.

Fold kodeboks ind/udVBDotNet kode 




Tak for svaret

Jeg prøver at tildele dem værdier

Jeg får fejl meddelelser:


Person.Navn = "Jørgen Mortensen"
Person.point = 36

Error 1 Reference to a non-shared member requires an object reference.
Error 2 'Point' is a type and cannot be used as an expression.







Husk at Oprette et nyt Objekt først.

Fold kodeboks ind/udVBDotNet kode 





Du skal da bare lave en classe Det er da stort set det samme som en record ville være. El. misforstår jeg ? Men her er hvordan:
class MYrecords
dim recordnr
public recordname as string
public recordpopyear as integer ( el. brug date )
public recordinfotxt as string

public function getrecname
return recordname
end fuction
osv.

den form hvor du skal bruge classen skriver du i toppen

Public mydefrecord As New ClassMYrecords
Public myclassrecord As New ArrayList
Public selectedrecord As ClassMYrecords

og for at oprette en record skriver du

Private Sub addrec(ByVal name As String, ByVal year As integer)
antalrecords += 1
Dim mynewrecord As New ClassMYrecords




mynewname.recordname = name
mynewname.nrname = antalrecords

mynewname.recordpopyear = year

mynewname.recordinfotxt="Ingen info.."

myclassname.Add(mynewname)

End Sub
add record med en knappe du har oprerttede i din form
private sub button_addrecord
addrec("Elvis Castello",1977)
addtekst() (jumps to sub addtekst)
end sub

private sub addtekst
nr=0 'ps den første record ligger altid på 0 men har du ikke oprettede nogle vil den gå i fejl
selectedrecord=myclassrecord(nr)
txtbox.text=selectedrecord.recordname
txtbox2.text=selectedrecord.recordyear

skal jeg skrive hvordan du saver og loader dine classe data så skriv lige



Indlæg senest redigeret d. 06.12.2016 21:48 af Bruger #21551
t