Just a simple question

I wan't to show the differents money simbols that where located in the Regional Configuration of the Control Panel, i looked for it in the registry without an answer.


I hope someone knows about it




Thanxs

Here are some ASCII nr's for money symbols

$: 36
ƒ: 131

ah wait, just put this code on a form.
Make sure the font is set to Courier new, and maximize the form.

Code:

---

Private Sub Form_Paint()
  Dim intT As Integer, dim intS As Integer
    CLS
  For intT = 32 To 248 Step 8
  For intS = 0 To 7
    Print Format(intT + intS, "@@@@@@") & ": " & Chr(intT + intS)
  Next intS
  Print
  Next intT
End Sub

---

Just look up the ASCII codes for the charachters you need!

O.K. That works if i just want to put the symbol that I want but my question is how can i insert the number format that are located especifically in the Regional Configuration of the Control Panel. I looked for that group of format types in the registry.



Thanx

Oh sorry, I have no idea how to do that, sorry!

Thanx Jop, I will look for it in the web.

You can use the Format function:

Code:

---

Dim sngMySavings As Single
sngMySavings = 0.1
MsgBox Format(sngMySavings, "Currency")

---

Good luck!

Hey that's cool Joacim, it actually works :)
cool

Thankx joacim, it works. Now I´m going to make a procedure that insert on a combo box all the Currency format types.

Quote:

---

Originally posted by Jop
Hey that's cool Joacim, it actually works :)
cool

---

Yeah it is kind of cool isn't it.
Here are some more named numeric formats (copied from MSDN library)

• General Number = Display number with no thousand separator.
• Currency = Display number with thousand separator, if appropriate; display two digits to the right of the decimal separator. Output is based on system locale settings.
• Fixed = Display at least one digit to the left and two digits to the right of the decimal separator.
• Standard = Display number with thousand separator, at least one digit to the left and two digits to the right of the decimal separator.
• Percent = Display number multiplied by 100 with a percent sign (%) appended to the right; always display two digits to the right of the decimal separator.
• Scientific = Use standard scientific notation.
• Yes/No = Display No if number is 0; otherwise, display Yes.
• True/False = Display False if number is 0; otherwise, display True.
• On/Off = Display Off if number is 0; otherwise, display On.

Have fun!

Great man, thanx

Hey Joacim do tell me the website do you enter in MSDN

How knows if the registry contains the Currency fonts that Excell has?, because i look for it without an answer.


Thanx