Automatsko pravljenje dugmica - Problem sa nasim slovima!!!

[ Mydoom.f @ 06.07.2005. 12:39 ] @

Ovaj kod sam pravi dugmice, i rasporedjuje ih po formi u zavisnosti od njene sirine. Znaci napravi se jedno dugme (Name: cmdSlovo; Caption: A; Index: 0), i ovaj kod se ubaci u Form_Load. Problem je u tome sto za Caption stavlja engleska slova. Kako bi mogao kod da se uradi da umesto engleskih stavlja nasa slova?

Code:

    Private Sub Form_Load()
    Dim I As Integer
    cmdSlovo(0).Width = (Form1.ScaleWidth - 2 * cmdSlovo(0).Left) / 26
    For I = 1 To 25
    Load cmdSlovo(I)
    cmdSlovo(I).Left = cmdSlovo(I - 1).Left + cmdSlovo(0).Width
    cmdSlovo(I).Caption = Chr(vbKeyA + I)
    cmdSlovo(I).Visible = True
    Next I
    End Sub

_{[Ovu poruku je menjao Mydoom.f dana 06.07.2005. u 17:52 GMT+1]}

[ Aleksandar Ružičić @ 06.07.2005. 13:39 ] @

pa (u design time-u) postavi Font property cmbSlovo tako da Script bude Eastern European ili Cyrilic...

[ Mydoom.f @ 06.07.2005. 14:22 ] @

Nece. I dalje stavlja engleska slova.

[ Burgos @ 06.07.2005. 16:20 ] @

Problem je u:

Code:
Chr(vbKeyA + I)

Ti u stvari dodajes I ascii slovu A (decimalno 65)

Pogledaj ascii tabelu:

http://www.lookuptables.com/

[ Mydoom.f @ 06.07.2005. 16:46 ] @

Pa kako bi moglo da se uradi da ispisuje nasa slova (latinica) - ako je uopste moguce?

[ Aleksandar Ružičić @ 06.07.2005. 23:06 ] @

otukcaj

Code:

?asc("Č")

u immediate prozoru i pritisni enter... i sve ce ti se samo kasti :D

[ Mydoom.f @ 07.07.2005. 14:54 ] @

Mislis na:

Code:

Print Asc("Č")

[ Aleksandar Ružičić @ 07.07.2005. 17:48 ] @

pa mozes u kodu da pises Debug.Print Asc("Č") ali onda bi morao da pokreces program pa da cekas dok se kompiluje :p zar ne?
ovako otkucas samo ?asc("Č") u Immediate (odnosno Debug) prozoru i dobijes isto (ako ti nije ukljucen Immediate prozor mozes preko Alt+G da ga ukljucis)

[ Mydoom.f @ 10.07.2005. 20:37 ] @

E, uopste ne kapiram u cemu je fora sa ovim "?asc("Č")". Jel mozes malo da mi pojasnis?

[ Aleksandar Ružičić @ 10.07.2005. 23:49 ] @

:D
pa da si probao, dobio bi kao rezultat 200 (asc vraca ascii vreednost karaktera koji mu prosledis)
a ti ovako ubacujes karaktere:

Code:

For I = 1 To 25
...
cmdSlovo(I).Caption = Chr(vbKeyA + I)
...

e sad, vbKeyA ti je 65 a ako mu dodajes +1 .. +25 ti nikad neces dobiti Č, zar ne? :D
isto tako neces dobiti ni A jer je A 65 a tebi je I od 1 do 25, dok bi trebalo da ide od 0 do 24 plus sto treba "rucno" da ubacujes nasa slova. :D

_{[Ovu poruku je menjao krckoorascic dana 11.07.2005. u 00:58 GMT+1]}