Inndataboken og kommandoen Print

[clfever]

Hei!

 

Har ikke helt forstått kommandoen "Print" og inndataboksen. Kan noen her forklare meg hva dem er?

Endret 23. september 2008 av sirkelens ende

[Manfred]

Hæ? Hvor? Hva?

[aadnk]

Har ikke helt forstått kommandoen "Print" og inndataboksen. Kan noen her forklare meg hva dem er?

Det enkleste er nok å forklare med eksempler. Førstnevnte skriver ut tekst på en form/bildeboks:

' Er ikke nødvendig om du allerede har satt AutoRedraw i Properties-vinduet til True.

AutoRedraw = True ' er funksjonelt identisk med følgende:

Me.AutoRedraw = True

 

' Skriver ut tre nye linjer på formen

Print "Hallo verden!"

Print "2 + 2 = " & 2 + 2

Print "5 * 5 ="; 5 * 5

 

' Bildebokser støtter òg denne operasjonen (legg inn en PictureBox

' eller slett disse to linjene)

Picture1.AutoRedraw = True

Picture1.Print "Test"

 

' Det er sågar mulig å endre tekstens startposisjon og skriftegenskaper

CurrentX = 120 ' twips (1/15 (Screen.TwipsPerPixel) av en piksel)

CurrentY = 720 ' twips

FontBold = True

ForeColor = vbRed ' Setter skriftfarge

FontSize = 12

FontName = "Times New Roman"

Print "Test"

 

' Nye utskrifter vil nå bære samme skriftegenskaper.

ScaleMode = vbPixels ' Lar oss bruke piksler fremfor twips i størrelser og koordinater

CurrentX = 8

'CurrentY = 1080 ' Y-posisjonen oppdateres automatisk

Print "Rød skrift."

 

' Du må tilbakestille egenskapene om ikke lenger ønsker å benytte denne skrifttypen

FontBold = False

ForeColor = vbBlack

FontSize = 8

FontName = "MS Sans Serif"

Print "" ' Skriver ut en tom linje

Print "Ordinær tekst."

 

' Skriver ut en tom linje SAMT en ny linje med tekst

Print vbCrLf & "Et nytt avsnitt!"

En inndataboks (antar du siktet til InputBox) brukes for å be brukeren om inndata. Bruk gjerne en egen form om du behøver flere svar, forhåndsdefinerte svar (via en ComboBox) eller må forhindre brukeren i å taste inn ugyldige verdier (uten å avbryte prosessen med en MsgBox):

Dim Name As String

 

' Viser en dialogboks med henholdsvis tekst, tittel og standardverdi

Name = InputBox("Hva er ditt navn?", "Navn", "Ole Nordmann")

 

If Len(Name) = 0 Then ' Name = ""

   ' Brukeren trykket på Cancel eller skrev inn et tomt navn

   MsgBox "Ugyldig navn!", vbCritical, "Feil"

Else

   MsgBox "Hallo, " & Name, vbInformation, "Hei!"

End If

Endret 24. september 2008 av aadnk