---
title: "Skriva ut resultat från en Matris, snyggt"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/100364-skriva-ut-resultat-från-en-matris-snyggt"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "firstchoice"
published: "2004-03-26T15:24:38.000Z"
updated: "2004-03-29T09:45:06.000Z"
replies: 4
views: 380
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/100364-skriva-ut-resultat-från-en-matris-snyggt"
---

# Skriva ut resultat från en Matris, snyggt

## #1 — firstchoice, 2004-03-26T15:24Z

Har skapat en matris enligt följande

```
Dim Matris(1 To 4, 1 To 4) As Integer
```

alltså typ en tabell med 4 rader och 4 kolumner

när jag skall skriva ut detta i en "listbox" eller "label" vill jag att det skall bli i snygga kolumner, hur får jag det?

se bifogad bild för att se hur jag vill ha det!

???

Bilagor:

- [ruta_firstchoice.jpg](https://www.webforum.nu/a/3145.jpg)

Permalänk: https://www.webforum.nu/p/100364

## #2 — Thure, 2004-03-26T22:25Z

Det ordar vi!

'Du har din matris:
Dim Matris(1 to 4, 1 to 4) as integer
'Jag skulle lägga till 
Dim FixWidth as String \* 20
Dim UtRad as String 
' Gör en sträng som ALLTID är 20 tecken lång, de som är \_  tomma fylls ut med mellanslag automatiskt. UtRad ska skrivas till \_
t.ex din listbox. Det är svårt att formatera Label´s, så kör istället med t.ex en textruta med multiline aktiverat.

Dim iX as integer ' Gör ett index till For loopen som stegar ner.
Dim iY as integer ' Gör ett index till For loopen med radens värden.

For iX = 1 to 4 step 1 ' Stegar "nedåt" i din Matris
UtRad = "" ' Tömmer UtRad
       For iY = 1 to 4 step 1 ' Loopar ut värdena på raden
       FixWidth = Matris(iX,iY) ' FixWidth blir värdet 
       'på koordinaten och utfylld med mellanslag tills den är 
       ' 20 tecken lång.
       UtRad = UtRad & FixWidth
       Next iY ' Nästa Fält i Raden
 List1.additem = UtRad ' Skriver raden till List1
Next iX 'Nästa Rad i matrisen

Detta ska funka, har inte testkört koden, men det ska inte vara några problem.

Hör av dig isf.

Rickard

Permalänk: https://www.webforum.nu/p/1310426

## #3 — Nexus86, 2004-03-27T02:34Z

Jag personligen hade löst det på följande sätt:

```
Dim Matris(1 To 4, 1 To 4) As Integer
Dim iX As Integer, iY As Integer
Dim sBuffer As String

For iX = 1 To 4
	sBuffer = ""
	For iY = 1 To 4
		sBuffer = sBuffer & Matris(iX, iY) & vbTab
	Next iY
	List1.AddItem Left$(sBuffer, Len(sBuffer) - 1)
Next iX
```

Permalänk: https://www.webforum.nu/p/1310472

## #4 — firstchoice, 2004-03-27T15:48Z

Nexus86 exempel var det bästa...men inte riktigt bra eftersom att jag vill om det tex är en 1:a så skall den in ett tecken till
så det inte blir som nedan:

1
12

utan 
  1
12

!!!

Permalänk: https://www.webforum.nu/p/1310614

## #5 — Nexus86, 2004-03-29T09:45Z

Bättre? Om inte får du helt enkelt byta font till en monospace-font (t.ex. Courier/Courier New).

```
Dim Matris(1 To 4, 1 To 4) As Integer
Dim iX As Integer, iY As Integer
Dim sBuffer As String

For iX = 1 To 4
	sBuffer = ""
	For iY = 1 To 4
		sBuffer = sBuffer & Right$(" " & CStr(Matris(iX, iY)), 2) & vbTab
	Next iY
	List1.AddItem Left$(sBuffer, Len(sBuffer) - 1)
Next iX
```

R// Detta funkar endast om siffrorna som ska stå i kolumnerna bara är max tvåsiffriga.

Permalänk: https://www.webforum.nu/p/1311174

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/100364-skriva-ut-resultat-från-en-matris-snyggt