Question Text Box Formatting Question

smith4595

New member
Joined
Jan 24, 2013
Messages
3
Programming Experience
Beginner
I'm relatively new to programming in VB.Net. I've dabbled in it before, but I'm trying to be more proactive at work and create some applications to make some of my work easier (and also help out our end-users).

I've created a tool that will pull information about a computer such as username, computer name, serial, etc. The tool places this information into a multi-line text box. What I'm trying to figure out how to do is display the text as follows so it fills the entire width of the text box.

User Name..........................XXXXXXX
Computer Name...................XXXXXXX
Serial Number......................XXXXXXX
Etc

Where the the text will be autoformated to right justification with the appropriate number of "....." Hopefully this makes sense.

To recap, I want the text box display info like this "User Name" & APPROPRIATE NUMBER OF ...... & (Right Justification "XXXXXXXX") & vbclrf _ next line...

The problem maybe I just don't know how to explain what I'm trying to accomplish. Any help would be much appreciated.
 

smith4595

New member
Joined
Jan 24, 2013
Messages
3
Programming Experience
Beginner
Any chance you could provide an example?
 

digitaldrew

Well-known member
Joined
Nov 10, 2012
Messages
145
Programming Experience
Beginner
Any chance you could provide an example?
After thinking about it some more..why not just do something like this:

Code:
txtLog.AppendText("User Name" & ".........................." & "XXXXXXX" & vbCrLf)
txtLog.AppendText("Computer Name" & "..................." & "XXXXXXX" & vbCrLf)
txtLog.AppendText("Serial Number" & "......................" & "XXXXXXX" & vbCrLf)
 

smith4595

New member
Joined
Jan 24, 2013
Messages
3
Programming Experience
Beginner
Been messing around with some options and come up with the following:

TextBox9.Text = "User Name" & "".PadLeft(30, CChar(".")) & strusername & vbCrLf & _
"Computer Name" & "".PadLeft(30, CChar(".")) & strmachinename & vbCrLf & _
"Serial Number" & "".PadLeft(30, CChar(".")) & SystemSerialNumber() & vbCrLf & _
"IP Address" & "".PadLeft(30, CChar(".")) & strip & vbCrLf & _
"Manufacturer" & "".PadLeft(30, CChar(".")) & strmake & vbCrLf & _
"Model" & "".PadLeft(30, CChar(".")) & strmodel & vbCrLf & _
"OS Version" & "".PadLeft(30, CChar(".")) & stros & vbCrLf & _
"Domain" & "".PadLeft(30, CChar(".")) & strdomain

however it's not lining up properly as I want it.
 

Solitaire

Well-known member
Joined
Jun 28, 2004
Messages
465
Location
New York
Programming Experience
10+
Textbox.Text = mystring.PadLeft(30, " "c)

will work, but you need to use a non-proportional font (such as Courier New) that keeps the same size for each character.

I would also suggest using a listbox for each item, rather than a textbox. That would be a lot neater than using all the concatenation and newline code. Just add another instruction for each data item:

Listbox.Items.Add(mystring.PadLeft(30, " "c)
 
Top Bottom