Italian Oggetti del designer

Discussion in 'Italian Forum' started by Cheneil, Jul 27, 2019.

  1. Cheneil

    Cheneil New Member

    Ciao ,

    Ho appena iniziato con B4A.
    Vorrei chiedervi come cambiare le proprietà degli oggetti non dallo script del designer ma
    dalla finestra principale

    ad esempio dovrei fare
    Code:
    Sub Button1_Click
      
       ImageView1.( il metodo per cambiare immagine)

    End Sub
    ma ImageView1 non esiste , al contrario lo riconosce solo nella finestra dello script di Visual Designer
    Lo scopo è cambiare immagine ogni volta che premo un pulsante
    Grazie
     
    Last edited: Jul 28, 2019
  2. GIS

    GIS Active Member Licensed User

    Intendi una cosa del genere?

    Code:
    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 ImageView1 As ImageView
        
    Private foto As Int = 0
        
    Private nomefoto(4As String
     
    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("immagine")

    caricofoto

        
    If foto = 0 Then
             ImageView1.Bitmap = 
    LoadBitmap(File.DirAssets, nomefoto(foto))
        
    End If
         
         






    End Sub

    Sub Activity_Resume

    End Sub

    Sub Activity_Pause (UserClosed As Boolean)

    End Sub
    Sub caricofoto
     
        nomefoto(
    0)= "cattura 2.png":nomefoto(1)= "cattura2.png":nomefoto(2)= "cattura3.png":nomefoto(3)= "cattura.png"
    End Sub

    Sub Button1_Click
     
     
     
     
        
    If foto >= 0 And foto  < 3 Then
         
            foto = foto + 
    1
         
        
    Else  
            foto = 
    0
        
    End If
     
     
     
        
    Log(nomefoto(foto))
     
        ImageView1.Bitmap = 
    LoadBitmap(File.DirAssets, nomefoto(foto))
     
     
     
     
     
     
     
    End Sub
     
    Last edited: Jul 28, 2019
    sirjo66 likes this.
  3. Cheneil

    Cheneil New Member

    Si grazie guardando il tuo codice mi sono accorto che non ho dichiarato l'oggetto

    Code:
    Private ImageView1 As ImageView
    per questo non lo riconosceva.

    Perchè esiste la possibilità di scriptare anche nella finestra visual design ?
    grazie
     
  4. GIS

    GIS Active Member Licensed User

    Non so casa intendi. So che si può inserire dello script nel designer per la collocazione degli oggetti in modo che rimangano in quella posizione anche su diversi dimensioni di schemi. Per il resto non saprei non sono un esperto.
     
  5. LucaMs

    LucaMs Expert Licensed User

    upload_2019-8-2_0-34-3.png

    upload_2019-8-2_0-34-51.png

    In questo modo, ad esempio, verrà generata la dichiarazione di Panel1 e l'evento Panel1_Click
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice