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]
"My Guitars are my umbilical cord. They're directly wired into my head"-Kirk Hammett