[VB6]: Disposizione controlli Label e TextBox su due colonne

[Boolean]

beh... è un evento... e viene rilasciato nel momento in cui si cambia riga o colonna...

puoi sfruttarlo per rilevare il cambiamento di selezione della cella.

ti faccio un esempio per rendere più chiaro il funzionamento...

in un nuovo form, metti una MSHFlexGrid e un TextBox... lascia i nomi di default, e copia nel codice del form queste righe:

Dim OldRow As Integer, OldCol As Integer

Private Sub Form_Activate()
MSHFlexGrid1.Row = 1
MSHFlexGrid1.Col = 1
OldRow = 1
OldCol = 1
MSHFlexGrid1_RowColChange
End Sub

Private Sub MSHFlexGrid1_RowColChange()
With MSHFlexGrid1
    .TextMatrix(OldRow, OldCol) = Text1.Text
    OldRow = .Row
    OldCol = .Col
    Text1.Text = .TextMatrix(.Row, .Col)
    Text1.Move .CellLeft + .Left - 15, .CellTop + .Top - 15, .CellWidth, .CellHeight
    Text1.SetFocus
End With
End Sub

Boolean

[ELF]

Grazie tante! mi stai salvando

[ELF]

scusa se continuo a stressarti Se volessi fare in modo che in alcune celle non dovesse apparire la textbox per scrivere come potrei fare?

[Boolean]

nella routine che ti ho dato nel post precedente, controlli che il valore di .Row o di .Col non sia quello in cui non si deve scrivere, altrimenti esci dalla routine senza spostare il TextBox...

in poche parole bastano un paio di If...Then

Boolean

[andrea toniolo]

Originariamente inviato da Boolean
una soluzione relativamente semplice, consiste nell'utilizzo di 2 PictureBox nidificate.

nella prima (quella più interna) viene dimensionata alla misura che serve per visualizzare tutti i controlli che vi disporrai dentro (le Label e i TextBox)
la seconda verrà dimensionata sulla misura che ti serve per la visualizzazione sul Form.
poi la prima (quella contenente i controlli) viene posizionata *dentro* la seconda, e accanto a quest'ultima dovrai disporre le 2 ScrollBars che ti servono.

a questo punto devi impostare i valori Min e Max delle ScrollBars, che dovrebbero essere:

ScrollVerticale.Min = 0
ScrollVerticale.Max = Pic2.Height - Pic1.Height 
ScrollOrizzontale.Min = 0
ScrollOrizzontale.Max = Pic2.Width - Pic1.Width

adesso, per spostare la PictreBox interna (Pic1) basta che nell'evento Scroll o Change delle ScrollBars si assegna il valore della Proprietà Value, rispettivamente alla Top e alla Left della Pic1.

Boolean

ho provato questo codice, puoi dirmi perche' non va?

Private Sub Form_Load()
ScrollVerticale.Min = 0
ScrollVerticale.Max = Pic2.Height - Pic1.Height
ScrollOrizzontale.Min = 0
ScrollOrizzontale.Max = Pic2.Width - Pic1.Width
End Sub

Private Sub ScrollOrizzontale_Scroll()
ScrollOrizzontale.Value = Pic1.Left
End Sub

Private Sub ScrollVerticale_Scroll()
ScrollVerticale.Value = Pic1.Top
End Sub

[Boolean]

"non va" mi sembra piuttosto generico....

cosa significa?
che non fa quello che ti serve?
che ti da degli errori?
se si, quali? (numero e descrizione)

forse è il caso di aprire una separata discussione?...

Boolean

[andrea toniolo]

sotto saggio consiglio di Boolean ne ho aperta una nuova
non mi da nessun errore, semplicemente non scorre, cioe' io muovo il quadratino ma non si muove l'immagine 1 (pic1)

[alka]

Trattandosi dello stesso argomento, potete affrontarlo tranquillamente qui.