Se non la smetti di sminuirti... non vengo là e ti prendo a... perché non me posso move ?come farlo meglio (che detto da me.....).
Se non la smetti di sminuirti... non vengo là e ti prendo a... perché non me posso move ?come farlo meglio (che detto da me.....).
@Sagenut temo di essermi perso un pò....
Intendi dire senza usare il Designer? Questo non so come farlo, o forse non ho capito.
Per quanto riguarda le lezioni di @ivanomonti non riesco a trovare lo spinner in B4a. ? ? ?
Si infila un cavo usb ed hai finito ?come si configura il telefono per b4a che non ricordo
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private btn As Button
End Sub
no guarda che su android si chiamano SeekBar1 io ho sbagliato (volutamente) a chiamarli spinner volevo vedere se li trovavi da solo@ivanomonti ciao, scusa ma ho vistoc he nel tuo esempio hai messo la SeekBar, non lo spinner.
Quindi devo mettere la SeekBar?
Nella SeekBar c'è anche il ValueChanged, va selezionato anche quello?
Ho capito quello che mi volevi dire, hai ragione.... ? ?no guarda che su android si chiamano SeekBar1 io ho sbagliato (volutamente) a chiamarli spinner
IDE di sviluppo
Me lo potresti spiegare in parole più semplici in modo da capire così la prossima volta so di cosa parliamo... Per capirci tu è come se mi avessi detto che questa è H2o, in parole semplici è acqua ?? (me lo potresti spiegare così almeno una volta così la prossima volta che me li nomini so di cosa parliamo grazie)sono proprietarie
Su questo ti devo contraddire perchè l'ho fatto, ma credo che per arrivare a fare quello che voglio devo ancora imparare bene le basi....disegnarti una app sul foglio (che non avrai fatto)
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private Button1 As Button
Private EditText1 As EditText
Private Label1 As Label
Private SeekBar1 As SeekBar
Private SeekBar2 As SeekBar
Private SeekBar3 As SeekBar
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Label1.Initialize("")
Label1.Text = "Lezione 1"
Label1.TextSize=(Label1.Height*50/100)
Label1.TextColor=Colors.Black
Activity.AddView(Label1,10dip,10dip,300dip,50dip)
SeekBar1.Initialize("seekBar1")
SeekBar1.max=100
SeekBar1.Value=50
Activity.AddView(SeekBar1,10dip,160dip,300dip,30dip)
SeekBar2.Initialize("seekBar2")
SeekBar2.Max=255
SeekBar2.Value=255
Activity.AddView(SeekBar2,10dip,200dip,300dip,30dip)
SeekBar3.Initialize("seekBar3")
SeekBar3.Max=255
SeekBar3.Value=0
Activity.AddView(SeekBar3,10dip,240dip,300dip,30dip)
EditText1.Initialize("EditText1")
EditText1.Text = "Prova a divertirti"
Activity.AddView(EditText1,10dip,340dip,300dip,30dip)
Button1.Initialize("EditText1")
Button1.Text = "Print Label"
Activity.AddView(Button1,10dip,380dip,300dip,40dip)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SeekBar3_ValueChanged (Value As Int, UserChanged As Boolean)
Label1.Color=Colors.ARGB(255,Value,255-Value,Value)
End Sub
Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean)
Label1.TextColor = Colors.ARGB(255,Value,255-Value,Value)
End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
Label1.TextSize=(Label1.Height*Value/100)
End Sub
Sub Button1_Click
Label1.text = EditText1.Text
End Sub
Ti avevo postato questo codice estratto dall'esempio XCLV@Sagenut mi sto perdendo ? ?
'Crea una View che gestisce le immagini
Dim iv1 As ImageView
'Inizializza l'oggetto e gli assegna un EventName (quì nullo)
iv1.Initialize("")
'Definisce le dimensioni dell'oggetto
iv1.SetLayout(0, 0, 60dip, 60dip)
'Aggiungiamo fisicamente l'oggetto al Pannello
p.AddView(iv1, 0, 0, iv1.Width, iv1.Height)
Dim btn As Button
btn.Initialize("giusto")
btn.Text = "IO SONO IL NUMERO 0"
btn.TextColor = Colors.Black
Activity.AddView(btn, 0, 0, 200, 50)
ItemClick è un Evento dello Spinner.@ivanomonti nello spinner va selezionato anche ItemClick??
Per "object" immagino che tu volessi dire "Views", che puoi posizionare e dimensionare facilmente col mouse, anziché scrivere:con quest'ultimo lavoro il doppio, crea il layout, metti gli obiect, nominali, dagli il parent, mettere i parametri che desideri alla fine l'ho scritto a codice in un terzo di tempo.