Créer un contrôle sous ligne de codeRésolu

Question

Bonjour, je programme en VB 2005 .NET et j'essaye de créer des contrôles sur la fenêtre en ligne de code.

J'ai créé un timer nommé "ControlCreator", j'ai mis une image d' "alerte" dans les ressources nommée "Warning",
j'ai paramétré la fenêtre pour qu'elle soit en plein-écran couleur noire et j'ai paramétré "TransparencyKey" à la couleur noire donc le form doit être
maximisé,
transparent et des icônes avec des points d'exclamations doivent apparaître au hasard sur l'écran en émettant des sons.


J'ai mis ce code dans le timer mais il ne marche pas :

Public T = 1


    Private Sub ControlCreator_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlCreator.Tick

        T += 1

        Dim X As New Control

        X = New PictureBox

        X.Name = "Icon" & T

        X.BackgroundImage = My.Resources.warning

        X.Width = 32

        X.Height = 32

        X.BackColor = Color.Transparent

        X.Left = Int((Rnd() * My.Computer.Screen.Bounds.Width - 20) + 20)

        X.Top = Int((Rnd() * My.Computer.Screen.Bounds.Height - 20) + 20)


        My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)

    End Sub

Je remercie d'avance ceux qui m'aideront.

cs_casy · Accepted Answer

Private Sub ControlCreator_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ControlCreator.Tick T += 1 ~~Dim X As New Control~~ ~~X = New PictureBox~~ Dim X as New PictureBox X.Name = "Icon" & T X.BackgroundImage = My.Resources.warning X.Width = 32 X.Height = 32 X.BackColor = Color.Transparent Me.Controls.Add(X) X.Visible = True X.Left = Int((Rnd() * My.Computer.Screen.Bounds.Width - 20) + 20) X.Top = Int((Rnd() * My.Computer.Screen.Bounds.Height - 20) + 20) My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation) End Sub ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php

Utilisateur anonyme · Answer

Salut,

Si tu ne précise pas ce qui ne marche pas on est pas prés de pouvoir t'aider.
Mais je dirais que tu n'as pas ajouter le control sur la form.

__________
  Kenji

DxShadow · Answer

@Charles Racaud: Ce qui ne marche pas est facile à deviner: Les contrôles ne s'affichaient pas.

@casy: Merci! ça marche trop bien!

A+

Créer un contrôle sous ligne de code

3 réponses

Votre réponse

Discussions similaires