[VB6] Disegnare una linea da codice

[evilsaint]

Salve, sto provando in tutti i modi a disegnare una linea da codice sia in una picturebox che in un form:
ho provato a disegnarla dichiarando un oggetto line

dim linea as Line
set linea= form.Controls.Add("Vb.Line","linea")
with linea
    .X1=100
    .Y2=200
    .X2=2000
    .Y2=200
    .BorderColor=0
    .Visible=true
    .zOrder(0)
end with

Ma la linea non la vedo, poi ho provato anche così

form.Line (100,200)-(2000,200), vbBlack

ma la linea nn si visualizza

Quale potrebbe essere il problema?
Grazie
Aiutatemi, sto uscendo pazzo!!!

[ciro78]

se avessi usato l'msdn avresti notato che almeno a quanto dice, il blocco with non può essere usato.

La seconda va bene ma devi impostare la proprietà del form AutoRedraw su true

ciao

edit


devi scrivere me.Line

non form.line

[oregon]

Scusa ... ma il VB non ti avverte che c'e' qualcosa che non va nell'oggetto

form

??

Non esiste un oggetto chiamato form (semmai qualcosa come form1 ...) ma va bene anche ometterlo, cosi'

set linea= Controls.Add("Vb.Line","linea")

[evilsaint]

Grazie, bastava settare autoRedraw=true

Mi ero dimenticato d mettere il titolo alla discussione, se qualche amministratore può farlo è meglio, per facilitare agli altri la ricerca.
Gentilissimi!!!
Ciao

[oregon]

No ... non e' solo questo!

Non dovevi scrivere

form.Controls.Add("Vb.Line","linea")

ma solamente

Controls.Add("Vb.Line","linea")

Hai letto la mia risposta?

[evilsaint]

Si, l'ho letta, ma ho caricato da codice delle textbox e ho fatto così:

nomeform.Controls.Add("Vb.Textbox","nometextbox")

e funziona, invece per le linee no?
io non ho provato perchè sto usando la funzione "Line"

[oregon]

Funziona anche per le linee ... hai provato?

[evilsaint]

Si ho provato, funziona tutto alla grande!!!
Grazie ancora

[evilsaint]

Mannaggia!!! Ora invece nn mi funziona con le label

Dim labelStagione As Label
      Set labelStagione = amministrazione.Controls.Add("Vb.Label", "labelStagione")
      With labelStagione
                .Caption = "Dal"
                .Visible = False
                .Height = 300
                .Width = 1500
                .Left = 3000
                .Top = 500
                .Alignment = 2
                .BackColor=255
                .ForeColor = 0
                .AutoSize = True
                .Visible = True
                .ZOrder (0)
        End With

nel form amministrazione ho messo autoRedraw=true
Cosa potrebbe essere?

[oregon]

L'unica cosa che potrebbe non essere corretta e' il riferimento a

amministrazione

Sei sicuro che sia il corretto nome del form?

Ma poi "non mi funziona" cosa vuol dire? Hai degli errori? Quali? In quali linee? Cosa ti indica il VB?