Jag gör ett program till kompis och jag har t.ex en sak som heter Namn, där skriver han sitt namn, nu är saken den att jag vill att * ska visas på ett och samma ställe, oberoende hur mycket han skriver i textrutan.

Det ska t.ex se ut såhär:

* Namn: Peter *
* Ålder: 18 *
* *

Som ni ser är de högra asteriskerna precis under varandra.
(Ska vara när man har fixedsys som font i alla fall)
Det är detta jag vill åstadkomma i mitt program,
så jag behöver idéer hur jag ska gå vidare.

Pratar du om i textfilen eller i textboxen?

Litet exempel. Vet inte om du har användnng för det:
<code>
Private Function FormatData(Name As String, Value As String) As String
FormatData = Space(20)
Mid(FormatData, 1, 1) = "*"
Mid(FormatData, 3, 8) = Name
Mid(FormatData, 11, 8) = Value
Mid(FormatData, 20, 1) = "*"
End Function

Private Sub Form_Load()

Debug.Print FormatData("Namn:", "Peter")
Debug.Print FormatData("Ålder:", "18")


Debug.Print FormatData("Namn:", "Andreas Hillqvist")
Debug.Print FormatData("Ålder:", "18")

End Sub
</code>

Litet annat exempel:
<code>
Option Explicit

Private Type DataRow
Prefix As String * 2
Property As String * 7
Value As String * 15
Suffix As String * 4
End Type



Private Sub Command1_Click()
Dim FileNum As Long
Dim DataRow As DataRow

'Skapar fil
FileNum = FreeFile
Open App.Path & "\Test.txt" For Binary Access Write Lock Write As #FileNum

DataRow.Prefix = "* "
DataRow.Suffix = " *" & vbCrLf

DataRow.Property = "Name:"
DataRow.Value = "Peter"
Put #FileNum, , DataRow

DataRow.Property = "Ålder:"
DataRow.Value = "18"
Put #FileNum, , DataRow


Close #FileNum
End Sub
</code>

Tackar för koden men jag struntade i asteriskerna.
Sätter tråden som löst iaf.