[VB.Net] conversione VB6 -> VB.NET

[elilo]

Salve, ho trovato un codice per usare le scrollbar su un frame con contenuto dinamico. Il fatto è che il codice è scritto in VB6 e non riesco a capire come tradurre un pezzo

Il codice è questo:

Private Sub Form_Load()
VScrollBar1.Min = 0
VScrollBar1.Max = PictureInterna.ScaleHeight - PictureEsterna.ScaleHeight
End Sub

Private Sub VScrollBar1_Scroll()
PictureInterna.Top = -VscrollBar1.Value
End Sub

Private Sub VScrollBar1_Change()
Call VScrollBar1_Scroll
End Sub

non riesco a trovare la funzione Change() della scrollbar...sapete darmi una mano??
grazie

[Cteniza]

Non credo che sia del codice semplicemente da tradurre.
Soluzione: studiati la classe
http://msdn.microsoft.com/en-us/libr...scrollbar.aspx
Apri un form su .net
Metti il controllo
Fai la stessa cosa su vb6
Confronta il codice che funziona su vb6 con le proprietà ed i metodi presenti su vb.net

[elilo]

ho provato a guardare ma il codice è il C#..

se qualcuno riesce a tradurre il codice che ho postato nel primo post

grazie

[elilo]

ho provato a risolvere unsando una formula che darebbe andata bene solo per la mia form. Nelle prove funzionava ma creando dinamicamente il contenuto della PictureBox interna non funziona più.

Quindi se qualcuno riesce a dirmi qual'è la funzione ScrollBar_Change in VB.Net e che parametri devo usare per chiamare la funzione ScrollBar_Scroll

VScrollBar_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs)


' -------------------------------------------'


Call VScrollBar_Scroll(cosa ci metto??, cosa ci metto??)

[andreaciao_22]

L'evento è il valuechange...

comunque puoi benissimo creare un'applicazione windows in vb.net, inserire il controllo, selezionarlo e nel riquadro Proprietà cliccare l pulsante Eventi (icona di un fulmine... li ci sono tutti gli eventi per quel controllo...

per il problema dell'evento scroll gli handles oppure basta che clicchi due volte sul controllo e lui ti scrive già la sub con l'evento scroll (basta che togli Handles + nome evento e metti nella sub in cui crei il controllo addandler NomeControllo.Evento, AddressOf nomesub)...
comunque queste sono le basi dell'ìde di vb.net.. e un buon libro sull'argomento IDE di Visual Studio prima di cominciare a programmare sarebbe l'ideale...

[elilo]

grazie per avermi detto qual'era la funzione da usare.

ma adesso che parametri devo mettere quando richiamo VScrollBar_Scroll??

[andreaciao_22]

parametri? non devi passargli nulla... devi solo dagli il nome della sub all'addressof... leggiti qualcosa su addhandler e vb.net

http://www.thescarms.com/dotnet/EventHandler.aspx

[elilo]

forse non mi sono spiegato bene

io la scrollbar non la creo dinamicamente, creo dinamicamente solo il contenuto della picturbox che viene spostata dalla scrollbar. per fare questo volevo tradurre questo codice che ho trovato sul forum:

VB6

Private Sub Form_Load()
VScrollBar1.Min = 0
VScrollBar1.Max = PictureInterna.ScaleHeight - PictureEsterna.ScaleHeight
End Sub

Private Sub VScrollBar1_Scroll()
PictureInterna.Top = -VscrollBar1.Value
End Sub

Private Sub VScrollBar1_Change()
Call VScrollBar1_Scroll
End Sub

Per adesso sono riuscito a tradurlo così

VB.Net

 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
VScrollBar.Minimum = 0
            VScrollBar.Maximum = (pbInt.Height - pbEst.Height)
    End Sub

    Private Sub VScrollBar_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar.Scroll
        pbInt.Top = -VScrollBar.Value
    End Sub

    Private Sub VScrollBar_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar.ValueChanged
        Call VScrollBar_Scroll(sender, e)
    End Sub

solo che mi da errore in Call VScrollBar_Scroll(sender, e): Impossibile eseguire il cast di oggetti di tipo 'System.EventArgs' sul tipo 'System.Windows.Forms.ScrollEventArgs'

se non mi ero ben spiegato prima chiedo scusa

[andreaciao_22]

invece di e prova a passargli Nothing... tanto la variabile e tu non la usi, giusto?

oppure a tutte e due gli eventi richiami una sub creata da te:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
VScrollBar.Minimum = 0
            VScrollBar.Maximum = (pbInt.Height - pbEst.Height)
    End Sub

    Private Sub VScrollBar_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar.Scroll
        Call SpostaImmagine()
    End Sub

    Private Sub VScrollBar_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar.ValueChanged
        Call SpostaImmagine()
    End Sub

    Sub SpostaImmagine()
        pbInt.Top = -VScrollBar.Value
    End Sub

Fammi sapere se funziona

[elilo]

ok adesso mettendo Nothing funziona

ho dovuto usare un pannello esterno al posto della pictureBox esterna (pbEst) perchè spostando la picturebox interna (pbInt) andava a sovrapporla, mentre con il pannello rimane "contenuta".

grazie per le risposte