problem s kirilitzata

здравейте,
имам малък проблем с кирилицата и незнам защо(то може ми защото не съм наясно с visual basic-а ама нейсе) та ..пиша си на VB 6.0 и ми трябва кирлица... ама то като пиша ми излизат само маймуни. Уж проверих настройки и на Виндоса ама пак неще. некой ще може ли да ми помогне....

Ок де. Но къде излизат тез маймуни? Там дето пишеш кода ли?

Ако е така - отиваш в меню Tools - Options, намираш втория таб Editor Options, и там избираш кирилизиран шрифт, например "Courier New Cyr" върши работа.


Щирлиц

Мерси това много ми помогна. Ако може още един въпрос.....Можеш ли да кажеш тожа защо не иска да работи....



Public Sub aNode()
Dim rs As New ADODB.Recordset
Dim tRelt As String
Dim tKey As String
Dim csNode As Node


Tv1.Nodes.Clear
Set csNode = Tv1.Nodes.Add(, , "cs", "Õîðà")

Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrà", "À")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrá", "Á")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrÂ", "Â")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrÃ", "Ã")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrÄ", "Ä")

Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wræ", "Æ")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrÇ", "Ç")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrè", "È")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wré", "É")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrê", "Ê")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrë", "Ë")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrì", "Ì")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrí", "Í")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrî", "Î")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrï", "Ï")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrð", "Ð")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrñ", "Ñ")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrò", "Ò")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wró", "Ó")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrô", "Ô")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrõ", "Õ")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrö", "Ö")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wr÷", "×")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrø", "ø")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrù", "Ù")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrú", "Ú")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrþ", "Þ")
Set csNode = Tv1.Nodes.Add("cs", tvwChild, "wrÿ", "ß")

csNode.EnsureVisible
rs.Open "select rid,Ime from hora", con, adOpenKeyset, adLockReadOnly
If rs.EOF = False Then
Do While Not rs.EOF
tRelt = "wr" & LCase(Mid(rs("Ime"), 1, 1))
tKey = "Node" & rs("rid")
Set csNode = Tv1.Nodes.Add(tRelt, tvwChild, tKey, rs("Ime"))

rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
End Sub





Идеята е да има Nodes в едно меню а базата данни е на access 2003 и е на кирилица.....