Question Text Box Formatting Question

[smith4595]

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.

 

[digitaldrew]

I may be wrong here...but you might want to look into Graphics.MeasureString: Graphics.MeasureString Method (System.Drawing)

 

[smith4595]

Any chance you could provide an example?

 

[digitaldrew]

Any chance you could provide an example?

After thinking about it some more..why not just do something like this:

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

 

[IanRyder]

Hi,

I have not tried this myself, but have a look at this article to see if this does the trick for you:-

RichEdit Full Justify by Greg Boot

Hope that helps.

Cheers,

Ian

 

[JohnH]

String Constructor (Char, Int32) (System)
Count is total length subtracting length of other strings.

 

[smith4595]

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.

 

[JohnH]

You are padding an empty string, shouldn't you pad an existing string?

 

[Solitaire]

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)