Italian Chiacchiericci

[Star-Dust]

Mancano i numeri e i tasti speciali, per il progetto originale non servivano.

Visto che c'è gente di buon cuore che alle richieste del forum ha quasi sviluppato l'intera App, speravo di approfittarne

 

[udg]

È un mio obfuscator personale

La tua fortuna è che sei 'gggiovane e quindi ti ricordi cosa hai fatto e perchè..
Tra qualche anno forse ricorderai il cosa ma non più il perchè
E poi non ricorderemo più nulla e vivremo felici e contenti

 

[Star-Dust]

Il codice è troppo piccolo per confondersi

 

[Star-Dust]

Forse è meglio che creo la tastiera con XmlBuilder. Ho visto che EmmeLunga lo usa per creare i layout

 

[Emme Developer]

Forse è meglio che creo la tastiera con XmlBuilder. Ho vis5o che EmmeLunga lo usa per creare i layout

Chi lo usa? Erel ha detto di non usarlo

 

[Star-Dust]

Ha detto di non usarlo spesso non di non usarlo mai, altrimenti se non servisse per quale ragione sarebbe stata creata?

( congiuntivo e condizionale Indovinati nella stessa frase )

 

[Emme Developer]

I don't recommend you to use XmlLayoutBuilder at all. This is not the way B4A is designed to work.

 

[Star-Dust]

Avevo tradotto che non andava usato per tutto. Intendendo di usarlo solo alcune volte ma non si adatta a tutto.

Ma in italiano che usiamo 2 negazioni "(1)Non usarlo per (2)niente" si traduco "(1)Non usarlo per tutto".... Sono scarso in inglese

 

[Star-Dust]

Ho creato tempo fa questo codice per creare una tastiera da codice per trasformare una label come una EditText:

Sub KeyBoard
    PanelKeyboard.RemoveAllViews
    Dim Dist As Int = PanelKeyboard.Width/10
    Dim ButtonWidth As Int = 40dip
    'qwertyuiop
    'asdfghjkl<
    'zxcvbnmX
    Dim S As String = "qwertyuiop" & "asdfghjkl" & Chr(0xF137) & "zxcvbnm" & Chr(0xF014) & Chr(0xF002)
   
    Log(FontAwesone.TypeFace)  '--- insert on design a Button with TypeFace = FontAwesone
    For i=0 To S.Length-1

        Dim B As Button ' or Label
        B.Initialize("btn")
        B.Color=Colors.Black
        B.TextColor=Colors.White
        B.Gravity=Gravity.CENTER
        B.TextSize=18
        ' for special car in FontAwesone
        If S.charat(i)=Chr(0xF137) Or s.CharAt(i)=Chr(0xF014) Or s.CharAt(i)=Chr(0xF002) Then b.Typeface = AnagramWord.Typeface

        B.Text=S.charat(i)
        If i=S.Length-1 Then
            PanelKeyboard.AddView(b,(i Mod 10)*Dist,Floor(i/10)*ButtonWidth+1dip,(Dist*2)-1dip,ButtonWidth-1dip)
        Else
            PanelKeyboard.AddView(b,(i Mod 10)*Dist,Floor(i/10)*ButtonWidth+1dip,Dist-1dip,ButtonWidth-1dip)
        End If
    Next
End Sub

secondo voi come si può migliorare per rendere meglio il codice?
Vorrei creare una customView, un EditText personalizzata con tastiera personalizzabile

Attendo vostri pareri

Insomma l'idea di creare una tastiera personalizzata non interessa a nessuno

 

[MaAncheNo]

Insomma l'idea di creare una tastiera personalizzata non interessa a nessuno

Non ne sarei così sicuro.....

 

[Emme Developer]

Insomma l'idea di creare una tastiera personalizzata non interessa a nessuno

Io non uso quelle già fatte da altri, figurati xD

 

[LucaMs]

Test... are you ready?

 

[LordZenzo]

Test... are you ready?

Humm... Boooooooo!!!!!!!

 

[LordZenzo]

volete fare soldi facili?
qualche mese fa ho comprato 10€ in BitCoin, ora ho 33€ in BitCoin

 

[Star-Dust]

volete fare soldi facili?
qualche mese fa ho comprato 10€ in BitCoin, ora ho 33€ in BitCoin

rivendili vedi quanto ti danno

 

[LordZenzo]

rivendili vedi quanto ti danno

31€ e qualcosa, ci sono 1,99 di commissioni a prescindere dal valore movimentato

 

[Star-Dust]

Non sono così convinto

 

[MaAncheNo]

Spero di non per chi ci investe, ma non vorrei diventasse la più grande "bolla" del secolo....

 

[Star-Dust]

Spero di non per chi ci investe, ma non vorrei diventasse la più grande "bolla" del secolo....

Non lo é già?

 

[Star-Dust]

E' un pò come la mia tastiera alternativa...