Automatsko pravljenje dugmica - Problem sa nasim slovima!!!

Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 06.07.2005. u 13:39 · pre 259 meseci #1

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

Potpis

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 06.07.2005. u 14:39 · pre 259 meseci #2

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 06.07.2005. u 15:22 · pre 259 meseci #3

Nece. I dalje stavlja engleska slova.

Potpis

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 06.07.2005. u 17:20 · pre 259 meseci #4

Problem je u:

Code:
Chr(vbKeyA + I)

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

Pogledaj ascii tabelu:

http://www.lookuptables.com/

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 06.07.2005. u 17:46 · pre 259 meseci #5

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

Potpis

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 07.07.2005. u 00:06 · pre 259 meseci #6

otukcaj

Code:

?asc("Č")

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 07.07.2005. u 15:54 · pre 259 meseci #7

Mislis na:

Code:

Print Asc("Č")

Potpis

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 07.07.2005. u 18:48 · pre 259 meseci #8

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)

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 10.07.2005. u 21:37 · pre 259 meseci #9

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

Potpis

"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett

Re: Automatsko pravljenje dugmica - Problem sa nasim slovima!!! 11.07.2005. u 00:49 · pre 259 meseci #10

: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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Forum kao aplikacija na telefonu

Srodne teme