Italian Problemi di visualizzazione con HTC diamond

Discussion in 'Italian Forum' started by corrado, Feb 16, 2009.

  1. corrado

    corrado Member Licensed User

    Ciao a tutti. Ho un problema con la visualizzazione di una piccola applicazione
    che ho caricato nell'HTC diamond.
    Nel PC, le dimensioni del form sono esatte, nel cellulare sono molto piccole e posizionate in alto a sinistra.
    Ho modificato lo screen size a 640 x 480
    ma, rimane tutto come prima. Inoltro ho notato che il testo delle label viene
    troncato a 17 caratteri.
    Grazie per l'aiuto.
     
  2. Filippo

    Filippo Expert Licensed User

    Ciao corrado

    e benvenuto nel forum.
    Se mi dai la possibilità die dare una guardatina nel tuo codice forse ti posso dare una mano di aiuto.


    Ciao,
    Filippo
     
  3. corrado

    corrado Member Licensed User


    Ciao Filippo ti ringrazio per la risposta e ti mando il codice.

    Sub Globals
    'Declare the global variables here.
    Dim number
    End Sub

    Sub App_Start
    Form1.Show
    txtNumber.Focus
    number = Rnd(1,10) ' Randomly chooses a number
    End Sub

    Sub btnGuess_Click
    If Not(IsNumber(txtNumber.Text)) Then
    Msgbox ("please enter a valid number")
    Return
    End If
    If txtNumber.Text > number Then ' Check the user quess
    Msgbox ("My number is smaller")
    Else
    If txtNumber.Text < number Then
    Msgbox ("My number is larger")
    Else
    If Msgbox ("this is my number" & CRLF & "do you want to play
    a new game ?","",cMsgboxYesNo) = cYes Then
    number = Rnd(1,100)
    Else
    AppClose
    End If
    End If
    End If
    End Sub

    Sub btcExit_Click
    AppClose
    End Sub

    PPC: HTC Diamond 4gb

    Ciao
    Corrado
     
  4. Filippo

    Filippo Expert Licensed User

    Ciao corrado,

    Modificando lo screen size non si risolve in questo caso niente.
    Per ottenere quello che vuoi tu, si devono modificare tutti i controlli.

    1) Aggiungi nel "Sub App_Start"
    If form1.Height > 400 Then
    ChangeToVga
    End If

    2) Aggiungi questo "Sub"
    Sub ChangeToVGA
    Controls() = GetControls("")
    For i = 0 To ArrayLen(Controls())-1
    Select ControlType(Controls(i))
    Case "ListBox","NumUpDown","Button","TextBox","Label","ComboBox","Panel","RadioBtn","Table","ImageButton","CheckBox","Image"
    Control(Controls(i)).Left = 2 * Control(Controls(i)).Left
    Control(Controls(i)).Top = 2 * Control(Controls(i)).Top
    Control(Controls(i)).Height = 2 * Control(Controls(i)).Height
    Control(Controls(i)).Width = 2 * Control(Controls(i)).Width
    End Select
    Next
    End Sub
     
  5. corrado

    corrado Member Licensed User

    Ciao Filippo.
    Ho aggiunto le modifiche che mi hai suggerito,
    adesso il Form riempe tutto lo schermo .
    Dopo tanti anni di programmazione non si finisce mai
    di imparare.
    Ciao e grazie
    Corrado
     
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