[vb net visual studio 2008] creare croci sul desktop

[Jeremy75]

Si hai ragione .... ricordavo(male) che fosse una variabile booleana .... devi impostare il colore di trasparenza uguale a quello del form.

Controls è la collezione in cui sono presenti i riferimenti a tutti i controlli del form, pertanto, se vuoi aggiungere dei controlli al form, devi agire su questa collezione con il metodo Add .... troverai maggiori dettagli anche su Msdn ...

Facci sapere....
Ciao

[napsteph]

continuo a non capire molto bene.... potresti farmi un esempio?

[Jeremy75]

TuoForm.Controls.add(new TextBox With {.Name="TextBox1",.Location= New Point(50, 50)})

Facci sapere....
Ciao

[napsteph]

ma in qst modo xo.... sempre ke me lo mette dentro il form....

non lo posso mettere fuori!!!

forse qll che non è chiaro è ke io voglio ke il desktop sia "utilizzabile" xo cn la rottura di scatole di ste textbox.... che possono essere qlsiasi cosa....

capito?

[Jeremy75]

Hai provato il TransparencyKey?????
NON PUOI aggiungere textbox al desktop!!!! Questo è sicuro!!!
Devi inserirle in un form che impostando il TransparencyKey uguale al colore BackGround del Form te lo rende invisibile ..... prova .... poi ne riparliamo.

Facci sapere....
Ciao

[MItaly]

Se non ricordo male la TransparencyKey fa sì che la finestra sia trasparente, oltre che visivamente, anche come comportamento; qualora non funzionasse, potresti anche creare questi controlli come finestre figlie della finestra-desktop, o come finestre senza padre e always-on-top, cosa che non puoi fare con VB senza ricorrere alle API.
In ogni caso, non so quanto sia lecito l'argomento della discussione; indipendentemente da questo, ti chiedo per cortesia di non scrivere come se fosse un SMS: il forum ti fornisce 13000 caratteri per post, è inutile lesinare.

[napsteph]

chiedo scusa è la forza dell'abitudine!

[napsteph]

ed ecco che grazie al vostro aiuto ho fatto la mia creazione

ecco il codice che ho usato.... ditemi se posso accorciarlo o se c sono cose inutili....

Public Class Form1
    Dim nform As Short = 1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a As New Form
        Dim p As New Point
        Dim rnd As New Random
        p.X = rnd.Next(0, 1600)
        p.Y = rnd.Next(0, 900)
        a.StartPosition = FormStartPosition.Manual
        a.MinimizeBox = False
        a.MaximizeBox = False
        a.BackColor = Color.White
        a.Controls.Add(New PictureBox With {.AutoSize = True, .Name = "picture1", .Image = System.Drawing.Bitmap.FromFile("C:\\Documents And Settings\tonino\desktop\cross.jpg")})
        a.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        a.TransparencyKey = Color.White
        a.ShowInTaskbar = False
        a.Location = p
        a.Show()
    End Sub

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Complimenti! Il tuo pc è appena stato infettato da un virus che riempie di croci il tuo desktop, fino al renderlo inutilizzabile! C'è un solo modo per interromperlo! Sta A te scoprire come!", MsgBoxStyle.Critical, "Virus")
        If MsgBoxResult.Ok Then
            Me.TransparencyKey = Me.BackColor
            Me.Width = 27
            Me.Height = 26
            Timer1.Start()
        End If
    End Sub
End Class

[MItaly]

        Dim a As New Form

Perché crei un nuovo form ad ogni tick?

        p.X = rnd.Next(0, 1600)
        p.Y = rnd.Next(0, 900)

Chi ti dice che lo schermo è a quella risoluzione?

C:\\Documents And Settings\tonino\desktop\cross.jpg

Che ne sai che il file necessario sta lì?

E tra l'altro sarebbe molto più efficiente disegnare le croci semplicemente sulla superficie del form, invece di stare a creare tutti quei picturebox.

[napsteph]

Originariamente inviato da MItaly

        Dim a As New Form

Perché crei un nuovo form ad ogni tick?

        p.X = rnd.Next(0, 1600)
        p.Y = rnd.Next(0, 900)

Chi ti dice che lo schermo è a quella risoluzione?

C:\\Documents And Settings\tonino\desktop\cross.jpg

Che ne sai che il file necessario sta lì?

E tra l'altro sarebbe molto più efficiente disegnare le croci semplicemente sulla superficie del form, invece di stare a creare tutti quei picturebox.

allora..... creo un nuovo form ad ogni tick... perchè cosi ho infinite croci
1600*900 è tra le risoluzioni medie di un pc....
per l'origine del file quella è una cosa provvisoria.

Ora... secondo te come dovrei cambiare queste tre parti di codice che mi hai segnato?

P.S. riguardo al fatto delle picture box, l'ho capito suito da solo, infatti già l'ho cambiato.