Nouveaux messages

JavaScript est désactivé. Pour une meilleure expérience, s'il vous plaît activer JavaScript dans votre navigateur avant de continuer.

Partage CatsInToilets + Source

DiamondWolf · 2017-02-14T00:04:43+00:00

Je vous salue membres de :ih: Aujourd'hui j'ai crée un logiciel sympas (ou pas) qui consiste à afficher des images aléatoires. Voici un petit aperçu : Il y a en tout 13 images de chat différentes, je vous laisse toutes les découvrir :emoji_wink: Fonctionnalités : - Un clic sur l'image mettras le logiciel en pause. - Clic droit pour avoir accès à un petit menu. - La fenêtre resteras toujours en premier plan. Téléchargement de CatsInToilets : Taille : 1,77 Mb (Fichier compressé) Taille : 534 Ko (Logiciel seul) fireMediafire Aperçu rapide du code : Public Class Form1 Dim RndImage As Random = New Random Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() Me.TopMost = True End Sub Private Sub CatLoop() If RndImage.Next(1, 14) = 1 Then PictureBox1.Image = My.Resources.cat_bd_icon ElseIf RndImage.Next(1, 14) = 2 Then PictureBox1.Image = My.Resources.cat_drink_icon ElseIf RndImage.Next(1, 14) = 3 Then PictureBox1.Image = My.Resources.cat_fish_icon ElseIf RndImage.Next(1, 14) = 4 Then PictureBox1.Image = My.Resources.cat_laptop_icon ElseIf RndImage.Next(1, 14) = 5 Then PictureBox1.Image = My.Resources.cat_makeup_icon ElseIf RndImage.Next(1, 14) = 6 Then PictureBox1.Image = My.Resources.cat_mask_icon ElseIf RndImage.Next(1, 14) = 7 Then PictureBox1.Image = My.Resources.cat_phone_icon ElseIf RndImage.Next(1, 14) = 8 Then PictureBox1.Image = My.Resources.cat_radio_icon ElseIf RndImage.Next(1, 14) = 9 Then PictureBox1.Image = My.Resources.cat_smoke_icon ElseIf RndImage.Next(1, 14) = 10 Then PictureBox1.Image = My.Resources.cat_torture_icon ElseIf RndImage.Next(1, 14) = 11 Then PictureBox1.Image = My.Resources.cat_vote_icon ElseIf RndImage.Next(1, 14) = 12 Then PictureBox1.Image = My.Resources.cat_wizard_icon ElseIf RndImage.Next(1, 14) = 13 Then PictureBox1.Image = My.Resources.cat_plain_icon End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick CatLoop() End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click If Me.Text = "CatsInToilets *Off" Then Me.Text = "CatsInToilets *On" Timer1.Start() ElseIf Me.Text = "CatsInToilets *On" Then Me.Text = "CatsInToilets *Off" Timer1.Stop() End If End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click MsgBox(" [-} About {-]" + vbNewLine + vbNewLine + "Icon artist : Iconka.com (Denis) " + vbNewLine + "Software Creator : DiamondWolf") End Sub Private Sub MinimiseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MinimiseToolStripMenuItem.Click Me.WindowState = FormWindowState.Minimized End Sub End Class Vous allez sûrement tous vous demander à quoi ça sert, en fait j'avais prévu de créer un petit logiciel, une sorte d'assistant, comme le vieux Clippy, que je connais que sous Windows Xp. J'aimerais avoir vos avis sur cet éventuel projet :) Merci, et à bientôt. DiamondWolf

Auteur de la discussion
Date de début 14/2/17
Tags

assistants chat diamondwolf logiciel vb.net

14/2/17

Lire la version complète de cette discussion...

Malheureusement, vous devez être connecté sur Instant-Hack pour voir ce sujet !

Je vous salue membres de

Aujourd'hui j'ai crée un logiciel sympas (ou pas) qui consiste à afficher des images aléatoires.

Voici un petit aperçu :

Il y a en tout 13 images de chat différentes, je vous laisse toutes les découvrir...

Inscrivez-vous !

Inscrivez-vous et profitez immédiatement de toutes les discussions ! C'est simple
et rapide
!

S'inscrire

Dernière édition: 14/2/17