[VB.NET] Scrollbar per la form (PocketPC)

[plasticity]

Ho provato in tutti i modi ma non sono riuscito a dare il comando alla scrollbar (verticale) di far scendere giu il contenuto della form! Qualcuno ha qualche idea?
E' tutto per Pocket pc indendiamo

[plasticity]

Help!!

[maurorog]

Non ho capito bene cosa intendi !!!!
Vuoi creare una form + grande di 320*200 ?

[plasticity]

Siccome non mi entrano tutte le cose che vorrei mettere in una form di un pocket pc, allora ho pensato di utilizzare delle scrollbar!

Ho trovato questo codice su internet, per vb.net, e nelle applicazioni per pc normali funziona benissimo, ma provandolo su applicazioni per pocket pc da degli errori di codice!! Qualcuno saprebbe dirmi come aggiustare magari il codice?


-----------------------------------------------------
dim oldpos as short
-----------------------------------------------------
Private Sub scroll()
Dim ctl As Control
For Each ctl In Me.Controls
If Not (TypeOf ctl Is ScrollBar) Then
ctl.Top = ctl.Top + oldpos - Me.VScrollBar1.Value
End If
Next
oldpos = Me.VScrollBar1.Value
End Sub
-----------------------------------------------------
Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs ) Handles VScrollBar1.Scroll
Call scroll()
End Sub
-----------------------------------------------------
Private Sub VScrollBar1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.LocationChanged
Call scroll()
End Sub
-----------------------------------------------------


Quelli in rosso sono gli errori!!!
Vi ho messo anche le linee per farlo sembrare a vb

[tas]

La cosa si può realizzare in un modo molto più semplice, un po' come si faceva col buon vecchio VB6.

Nel form metti una barra di scorrimento verticale (VScrollBar1) allineata a dx, mentre a dx metti un Panel (Panel1) largo quanto lo spazio rimanente e alto quanto basta per contenere tutto quello che desideri.

Ecco il codice necessario per effettuare lo scroll del contenuto:

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        VScrollBar1.Maximum = Panel1.Height - Me.ClientSize.Height
    End Sub

    Private Sub VScrollBar1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.ValueChanged
        Panel1.Top = -VScrollBar1.Value
    End Sub

[plasticity]

Grazie mille tas!!

ciaoooo!!!

[plasticity]

Ragazzi scusatemi ma la dimensione massima in lunghezza che può raggiungere una form di un pocket pc è di 612???? Se è così non c'è qualche cosa che lo sblocchi ??? Se no sono fregatoooo!!! Devo fare un programma che utilizzi le scroll e quindi devo avere una form se non infinita di lunghezza, quasi, visto i tanti contenuti che ci saranno!!! HELP!!!!

[tas]

Non è il form che deve essere allungato (il ppc infatti ha uno schermo a dimensione e risoluzione fissa) bensì il controllo Panel contenuto all'interno che ti serve per fare lo scroll (come ti avevo suggerito nell'altro tuo post).

[plasticity]

Scusami, io ho visto che il panel si aumenta all'infinito, però come sorpassa la dimensione in lunghezza della form, se ne va sotto lei, e quindi io non posso + vedere dove mettere i pulsanti!!! Io aumentavo quindi sia la form che il panel, così da evitare questo problema. Qualche suggerimento?

[alka]

Originariamente inviato da plasticity
Ragazzi scusatemi ma [...]

Dato che l'argomento centrale della nuova discussione era correlato alla tua discussione precedentemente aperta, ho fuso entrambe.

Ciao!