Italian Problemi di visualizzazione con HTC diamond

corrado

Member
Licensed User
Longtime 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.
 
D

Deleted member 103

Guest
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
 

corrado

Member
Licensed User
Longtime 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


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
 
D

Deleted member 103

Guest
Ciao corrado,

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.
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
 

corrado

Member
Licensed User
Longtime 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
 
Top