Hvordan usynlig teknologi forvandler sikkert hybridarbejde til en daglig virkelighed
Slettet bruger
10. december 2003 - 22:09#1
Du kan prøve at smide vbTab imellem teksterne:
str = Navn & vbTab & Mobil & vbTab & tlf
Synes godt om
Slettet bruger
10. december 2003 - 22:11#2
Du er måske nødt til at teste på hvor mange tegn der er i navn for at finde ud af hvor mange tab du skal have for at næste kolonne kommer til at stå under hinanden.
Private Sub CommandButton1_Click() b = Len(TB1) + Len(TB2) + 1 LB1.AddItem TB1 & " " & TB2 & Space(40 - b) & TB3 & Space(12 - Len(TB3)) & Space(12 - Len(TB4)) & TB4 End Sub
TB1 til T4 er tekstboksene TB1 til fornavn og TB2 er beregnet til efternavn, derfor kun 1 mellemrum Space() indsætter mellemrum udregnet efter strenglængde. LB1 er listboksen
Listboxens font sættes til courier 8, fordi den er ens i tegn bredden, alså en ikke skalerbar font.
Sammen med de andre kontroller. Højreklik evt. for at tilføje flere kontroller
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.