Basiscursus Visual Basic 3

Visual Basic 3 voor gevorderden

Basiscursus Visual Basic 4

Visual Basic 4 voor gevorderden

Basiscursus Visual Basic 5

Visual Basic 5 voor gevorderden

Basiscursus Visual Basic 6

Basiscursus Visual Basic 6 voor gevorderden

Basiscursus Visual Basic 2005 Express Edition

Bovenkant pagina

Sommige lezers vinden het wat moeilijk om de code te bedenken die nodig is om de beschreven handelingen te laten uitvoeren. De volgende procedures zijn nodig:

'Tekst boxes legen

In.Text = ""

Uit.Text = ""

'Formulier goedzetten

Form1.Height = 915

'Lijn goedzetten

Lijn.X1 = 130

Lijn.X2 = 130
Lijn.Visible = True

'Bestand openen

On Error Resume Next

DialoogVenster.DialogTitle = "Te verzenden tekst"

DialoogVenster.Filter =  _

   "Tekst bestanden *.TXT)|*.txt| Alle bestanden(*.*)|*.*"

DialoogVenster.Action = 1

If Err Then Exit Sub

NietStoren = True 'Interrupt onderdrukken

' Zie COMM_ONCOMM ( )

Open DialoogVenster.Filename For Input As #1

Stap = (4440 - 130) / LOF(1)

Do Until EOF(1)

Line Input #1, Regel$

Comm.Output = Regel$ & _

   Chr$(13) & Chr$(10)

'Lijn bijwerken

Lijn.X2 = Lijn.X2 + Len(Regel$) * Stap 

Do Until Comm.OutBufferCount = 0 

'Is het buffer leeg?

'Operating system, 

'video bijwerken (lijn)

DoEvents 

Loop 'Dan volgende regel verzenden

Loop

Close #1

Lijn.Visible = False

NietStoren = False 'Interrupt accepteren

Uit.SetFocus

'Formulier goedzetten

Form1.Height = 4950

In tabel 10.5 wordt voorgesteld een textbox met de naam Tijd te gebruiken. Beter is een Label toe te passen omdat de gebruiker de inhoud daarvan niet kan wijzigen. Geef het label de Name property lblTijd. Pas de code die in de tip gegeven wordt zo aan:

Pagina 49

De enumeratie bij punt 4 moet Public gedeclareerd worden in plaats van Private.

Het blijkt dat de programma niet-gedocumenteerde fouten op kan leveren bij het creëren van een embedded of linked object. Op bepaalde machines werkt het wel, op andere niet. Dat wijst op een bug in een of andere library van Microsoft.

Pagina 67

In tabel 7.1 zijn de instellingen van properties uit VB 4 blijven staan. De tabel moet er zo uitzien:

Instancing 2 - MultUse
Name Inloggen

Bovenkant pagina

Pagina 84, punt 3

De listing is correct, maar in de alinea daaronder wordt 3 als indexnummer genoemd voor de schuifbalk voor blauw. Dit moet 2 zijn.

Pagina 86, paragraaf 6.3.6

Punt 1: Private Sub mnuWerking_Click() moet zijn:
  Private Sub mnuKopieer_Click()

Pagina 86, paragraaf 6.3.6

In de listing bij punt 1 wordt de variabel strTitel gedeclareerd en geïnitialiseerd, terwijl in de listing de variabele Titel gebruikt wordt. Dit moet natuurlijk ook strTitel zijn.

Pagina 86, paragraaf 6.3.6

In de code moet Info 7 x vervangen worden door strInfo.

Pagina 87, punt 1

In de code is tweemaal een dubel aanhalingsteken weggevallen, na klembord en voor vervangen.

Pagina 179, tabel 12.1:

Voeg voor het object PictureBox de volgende eigenschap Index toe met de instelling 0 (nul).
De property MultiLine van de textbox moet de waarde True krijgen.

Pagina 202:

In de derde regel code van het eind wordt Flags = 0 aangepast in:
 .Flags = 0

Enkele opmerkingen van Hendrik Olaerts:

Pagina 8:

Derde regel van boven: textboxes moet zijn checkboxes

Pagina 57:

Bij punt 1 moeten dubbele aanhalingstekens gebruikt worden:

"om deze af te laten drukken:

Pagina 209:

In paragraaf 14.1.3 is de komma achter Print #1 tweemaal weggevallen en de laatste regel op de pagina moet als volgt luiden:

Open "Bestand" For Append As #1

Pagina 214:

Derde regel van boven:

LOF(#1) moet zijn LOF(1)
 

Van Hans Dwarshuis komen de volgende opmerkingen:

Pagina 130:

In figuur 9.7  staat een 1 ipv. een 2 als grondtal. Zo moet 1^7 natuurlijk 2^7 zijn, immers de computer werkt in het tweetallige stelsel.

Pagina 256:

Plaats voor Loop (net boven het label HierVerder:):

intT = intT + 1

Wordt dit weggelaten, dan wordt het hele bestand getoond, tot de textbox vol is uiteraard.

Bovenkant pagina

LET OP!!!

Om succesvol met dit boek te kunnen werken, hebt u tenminste de Professionele Editie nodig! De Learning Edition bezit niet díe functionaliteit die nodig is voor de hoofdstukken:  7, 8, 9, 12 (gedeeltelijk), 13, 16, 17 en 18.

De volgende punten gelden voor de eerste druk.

Pagina 34:

De derde regel van onder moet zijn: 0-Manual - Er kan geen...

Pagina 36:

In de het grijze kader moet OLEDragMode vervangen worden door OLEDropMode. Voor de duidelijkheid: deze eigenschap van het doelobject moet in de properties list zo zijn ingesteld.

Pagina's 54, 55 en 57:

Er is een enumeratie gedefinieerd op pagina 54 met twee constanten (cstBestandOpenen en cstBestandOpslaan). In de code op pagina 54, 55 en 57 worden deze constanten gebruikt, maar is het voorvoegsel cst vergeten.

Pagina 221:

In de derde regel van onderen ontbreekt de punt voor de eigenschap Text.

Pagina 245:

Bij punt 3 wordt het woord module gebruikt. Dit moet zijn procedure.

De volgende opmerkingen zijn allemaal afkomstig van

Bovenkant pagina