Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 01:20:14

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par pile_poil

RE : TRI AVEC RELATIONS par LIBRE_MAX

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par didyvine

RESEDIT (1.4.6)

ResEdit est un éditeur de ressources pour vos programmes Win32. Il vous permettra notamment d'int...

Cliquez pour télécharger ResEdit
ResEdit (1.4.6)
TODOLIST (5.8.7)

Pour organiser vos projets de programmation, un bon outil de planification est nécessaire. ToDoLi...

Cliquez pour télécharger ToDoList
ToDoList (5.8.7)
XNVIEW (1.96.2)

XnView est un outils puissant permettant de visualiser et convertir de nombreux format graphique ...

Cliquez pour télécharger XnView
XnView (1.96.2)
UTORRENT (1.8.3 BUILD 15772)

C'est un client BitTorrent très puissant et très performant. Comme son nom l'indique, uTorrent (m...

Cliquez pour télécharger uTorrent
uTorrent (1.8.3 Build 15772)
NOTEPAD++ (5.4.4)

Notepad++ est un editeur de code source qui supporte plusieurs langages. Ce programme, a pour but...

Cliquez pour télécharger Notepad++
Notepad++ (5.4.4)

+ de logiciels à télécharger

1 467 588 membres
9 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 660 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GENERATEUR DE MESSAGES BOXS

Information sur la source

Catégorie :Message Box Classé sous : msgbox, message, box, générateur Niveau : Débutant Date de création : 25/08/2001 Vu / téléchargé: 3 040 / 161

Auteur : OverDarck

Site perso

Ecrire un message privé

Note :

5,50 / 10

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Un petit programme tres simple que je compte bien ameliorer en un multi boxs generator
tous est dans le zip g quand meme mis le code mais bon vu le nombre de controles qu'il y a vous aurez du mal a la faire fonctioner sans telecharger le zip,
le code parait long mais c la meme chose c juste le nom de controle qui change

Source

Option Explicit
Dim v1, v2, v3, v4, v5, Title1, Picture1, Buton, v6, v7, v8, v9, v10, Title2, Pictur2, M As Integer
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check1.Caption = "Beep On"
ElseIf Check1.Value = 0 Then
Check1.Caption = "Beep Off"
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Check2.Caption = "Masquer On"
ElseIf Check1.Value = 0 Then
Check2.Caption = "Masquer Off"
End If
End Sub
Private Sub form_load()
Option1(0).Value = True
Option3(2).Value = True
Option2(0).Value = True
End Sub
Private Sub Form_unload(cancel As Integer)
End
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
'generation de la msgbox
Private Sub Command1_Click()
If Option1(0).Value = True Then
Picture1 = vbQuestion
End If
If Option1(1).Value = True Then
Picture1 = vbInformation
End If
If Option1(2).Value = True Then
Picture1 = vbExclamation
End If
If Option1(3).Value = True Then
Picture1 = vbCritical
End If
If Option3(0).Value = True Then
Buton = vbYesNo
End If
If Option3(1).Value = True Then
Buton = vbYesNoCancel
End If
If Option3(2).Value = True Then
Buton = vbOKOnly
End If
If Option3(3).Value = True Then
Buton = vbOKCancel
End If
If Option3(5).Value = True Then
Buton = vbRetryCancel
End If
If Option3(6).Value = True Then
Buton = vbAbortRetryIgnore
End If
If Not Text1.Text = "" Then
Title1 = Text1.Text
End If
If Not Text2.Text = "" Then
v1 = Text2.Text & Chr(10)
ElseIf Text2.Text = "Ligne 1" Then
v1 = ""
Else
Resume Next
End If
If Not Text3.Text = "" Then
v2 = Text3.Text & Chr(10)
ElseIf Text3.Text = "Ligne 2" Then
v2 = ""
Else
Resume Next
End If
If Not Text4.Text = "" Then
v3 = Text4.Text & Chr(10)
ElseIf Text4.Text = "Ligne 3" Then
v3 = ""
Else
Resume Next
End If
If Not Text5.Text = "" Then
v4 = Text5.Text & Chr(10)
ElseIf Text5.Text = "Ligne 4" Then
v4 = ""
Else
Resume Next
End If
If Not Text6.Text = "" Then
v5 = Text6.Text
ElseIf Text6.Text = "Ligne 5" Then
v5 = ""
Else
Resume Next
End If
If Not Text1.Text = "" Then
If Not Text1.Text = "Titre" Then
If Not Text2.Text = "Ligne 1" Then
If Not Text3.Text = "Ligne 2" Then
If Not Text4.Text = "Ligne 3" Then
If Not Text5.Text = "Ligne 4" Then
If Not Text6.Text = "Ligne 5" Then
msg0:
Call mask
Call bep
M = MsgBox(v1 & v2 & v3 & v4 & v5, Buton + Picture1, Title1)
If M = vbRetry Then
GoTo msg0
End If
Me.Visible = True
Exit Sub
End If
msg1:
Call mask
Call bep
M = MsgBox(v1 & v2 & v3 & v4, Buton + Picture1, Title1)
If M = vbRetry Then
GoTo msg1
End If
Me.Visible = True
Exit Sub
End If
msg2:
Call mask
Call bep
M = MsgBox(v1 & v2 & v3, Buton + Picture1, Title1)
If M = vbRetry Then
GoTo msg2
End If
Me.Visible = True
Exit Sub
End If
msg3:
Call mask
Call bep
M = MsgBox(v1 & v2, Buton + Picture1, Title1)
If M = vbRetry Then
GoTo msg3
End If
Me.Visible = True
Exit Sub
End If
msg4:
Call mask
Call bep
M = MsgBox(v1, Buton + Picture1, Title1)
Me.Visible = True
If M = vbRetry Then
GoTo msg4
End If
Exit Sub
End If
Me.Visible = True
MsgBox "Vous devez paramètrer le reste de la boite de dialogue !!", vbOKOnly + vbCritical, "Attention"
Me.Visible = True
Exit Sub
Else
Me.Visible = True
MsgBox "Vous devez ecrire un titre pour votre boite de dialogue !!", vbOKOnly + vbCritical, "Attention"
Me.Visible = True
Exit Sub
End If
Me.Visible = True
MsgBox "Vous devez paramètrer une boite de dialogue !!", vbOKOnly + vbCritical, "Attention"
Me.Visible = True
Exit Sub
End If
End Sub
Private Sub mask()
If Check2.Value = 1 Then
Me.Visible = False
ElseIf Check1.Value = 2 Then
Me.Visible = True
End If
End Sub
Private Sub bep()
If Check1.Value = 1 Then
Beep
Beep
Beep
End If
End Sub
'textboxs de la frame1
Private Sub Text1_Click()
If Text1.Text = "Titre" Then
Text1.Text = ""
End If
End Sub
Private Sub Text1_gotfocus()
Call Text1_Click
End Sub
Private Sub Text2_Click()
If Text2.Text = "Ligne 1" Then
Text2.Text = ""
End If
End Sub
Private Sub Text2_gotfocus()
Call Text2_Click
End Sub
Private Sub Text3_Click()
If Text3.Text = "Ligne 2" Then
Text3.Text = ""
End If
End Sub
Private Sub Text3_gotfocus()
Call Text3_Click
End Sub
Private Sub Text4_Click()
If Text4.Text = "Ligne 3" Then
Text4.Text = ""
End If
End Sub
Private Sub Text4_gotfocus()
Call Text4_Click
End Sub
Private Sub Text5_Click()
If Text5.Text = "Ligne 4" Then
Text5.Text = ""
End If
End Sub
Private Sub Text5_gotfocus()
Call Text5_Click
End Sub
Private Sub Text6_Click()
If Text6.Text = "Ligne 5" Then
Text6.Text = ""
End If
End Sub
Private Sub Text6_gotfocus()
Call Text6_Click
End Sub
Private Sub Text1_LostFocus()
If Text1.Text = "" Then
Text1.Text = "Titre"
End If
End Sub
Private Sub Text2_LostFocus()
If Text2.Text = "" Then
Text2.Text = "Ligne 1"
End If
End Sub
Private Sub Text3_LostFocus()
If Text3.Text = "" Then
Text3.Text = "Ligne 2"
End If
End Sub
Private Sub Text4_LostFocus()
If Text4.Text = "" Then
Text4.Text = "Ligne 3"
End If
End Sub
Private Sub Text5_LostFocus()
If Text5.Text = "" Then
Text5.Text = "Ligne 4"
End If
End Sub
Private Sub Text6_LostFocus()
If Text6.Text = "" Then
Text6.Text = "Ligne 5"
End If
End Sub
'textboxs de la frame2 (non exploitée !)
Private Sub Text7_Click()
If Text7.Text = "Titre" Then
Text7.Text = ""
End If
End Sub
Private Sub Text7_gotfocus()
Call Text7_Click
End Sub
Private Sub Text8_Click()
If Text8.Text = "Ligne 1" Then
Text8.Text = ""
End If
End Sub
Private Sub Text8_gotfocus()
Call Text8_Click
End Sub
Private Sub Text9_Click()
If Text9.Text = "Ligne 2" Then
Text9.Text = ""
End If
End Sub
Private Sub Text9_gotfocus()
Call Text9_Click
End Sub
Private Sub Text10_Click()
If Text10.Text = "Ligne 3" Then
Text10.Text = ""
End If
End Sub
Private Sub Text10_gotfocus()
Call Text10_Click
End Sub
Private Sub Text11_Click()
If Text11.Text = "Ligne 4" Then
Text11.Text = ""
End If
End Sub
Private Sub Text11_gotfocus()
Call Text11_Click
End Sub
Private Sub Text12_Click()
If Text12.Text = "Ligne 5" Then
Text12.Text = ""
End If
End Sub
Private Sub Text12_gotfocus()
Call Text12_Click
End Sub
Private Sub Text7_LostFocus()
If Text7.Text = "" Then
Text7.Text = "Titre"
End If
End Sub
Private Sub Text8_LostFocus()
If Text8.Text = "" Then
Text8.Text = "Ligne 1"
End If
End Sub
Private Sub Text9_LostFocus()
If Text9.Text = "" Then
Text9.Text = "Ligne 2"
End If
End Sub
Private Sub Text10_LostFocus()
If Text10.Text = "" Then
Text10.Text = "Ligne 3"
End If
End Sub
Private Sub Text11_LostFocus()
If Text11.Text = "" Then
Text11.Text = "Ligne 4"
End If
End Sub
Private Sub Text12_LostFocus()
If Text12.Text = "" Then
Text12.Text = "Ligne 5"
End If
End Sub

Option Explicit
Dim v1, v2, v3, v4, v5, Title1, Picture1, Buton, v6, v7, v8, v9, v10, Title2, Pictur2, M As Integer
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check1.Caption = "Beep On"
ElseIf Check1.Value = 0 Then
Check1.Caption = "Beep Off"
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Check2.Caption = "Masquer On"
ElseIf Check1.Value = 0 Then
Check2.Caption = "Masquer Off"
End If
End Sub
Private Sub form_load()
Option1(0).Value = True
Option3(2).Value = True
Option2(0).Value = True
End Sub
Private Sub Form_unload(cancel As Integer)
End
End Sub
Private Sub Command3_Click()
Unload Me
End Sub

'generation de la msgbox
Private Sub Command1_Click()

If Option1(0).Value = True Then
Picture1 = vbQuestion
End If
If Option1(1).Value = True Then
Picture1 = vbInformation
End If
If Option1(2).Value = True Then
Picture1 = vbExclamation
End If
If Option1(3).Value = True Then
Picture1 = vbCritical
End If

If Option3(0).Value = True Then
Buton = vbYesNo
End If
If Option3(1).Value = True Then
Buton = vbYesNoCancel
End If
If Option3(2).Value = True Then
Buton = vbOKOnly
End If
If Option3(3).Value = True Then
Buton = vbOKCancel
End If
If Option3(5).Value = True Then
Buton = vbRetryCancel
End If
If Option3(6).Value = True Then
Buton = vbAbortRetryIgnore
End If
If Not Text1.Text = "" Then
Title1 = Text1.Text
End If

If Not Text2.Text = "" Then
v1 = Text2.Text & Chr(10)
ElseIf Text2.Text = "Ligne 1" Then
v1 = ""
Else
Resume Next
End If

If Not Text3.Text = "" Then
v2 = Text3.Text & Chr(10)
ElseIf Text3.Text = "Ligne 2" Then
v2 = ""
Else
Resume Next
End If

If Not Text4.Text = "" Then
v3 = Text4.Text & Chr(10)
ElseIf Text4.Text = "Ligne 3" Then
v3 = ""
Else
Resume Next
End If

If Not Text5.Text = "" Then
v4 = Text5.Text & Chr(10)
ElseIf Text5.Text = "Ligne 4" Then
v4 = ""
Else
Resume Next
End If

If Not Text6.Text = "" Then
v5 = Text6.Text
ElseIf Text6.Text = "Ligne 5" Then
v5 = ""
Else
Resume Next
End If
If Not Text1.Text = "" Then
If Not Text1.Text = "Titre" Then
If Not Text2.Text = "Ligne 1" Then
    If Not Text3.Text = "Ligne 2" Then
        If Not Text4.Text = "Ligne 3" Then
            If Not Text5.Text = "Ligne 4" Then
                If Not Text6.Text = "Ligne 5" Then
msg0:
                Call mask
                Call bep
                M = MsgBox(v1 & v2 & v3 & v4 & v5, Buton + Picture1, Title1)
                If M = vbRetry Then
                GoTo msg0
                End If
                Me.Visible = True
                Exit Sub
                End If
msg1:
            Call mask
            Call bep
            M = MsgBox(v1 & v2 & v3 & v4, Buton + Picture1, Title1)
            If M = vbRetry Then
            GoTo msg1
            End If
            Me.Visible = True
            Exit Sub
            End If
msg2:
        Call mask
        Call bep
        M = MsgBox(v1 & v2 & v3, Buton + Picture1, Title1)
        If M = vbRetry Then
        GoTo msg2
        End If
        Me.Visible = True
        Exit Sub
        End If
msg3:
    Call mask
    Call bep
    M = MsgBox(v1 & v2, Buton + Picture1, Title1)
    If M = vbRetry Then
    GoTo msg3
    End If
    Me.Visible = True
    Exit Sub
    End If
msg4:
Call mask
Call bep
M = MsgBox(v1, Buton + Picture1, Title1)
Me.Visible = True
If M = vbRetry Then
GoTo msg4
End If
Exit Sub
End If
Me.Visible = True
MsgBox "Vous devez paramètrer le reste de la boite de dialogue !!", vbOKOnly + vbCritical, "Attention"
Me.Visible = True
Exit Sub
Else
Me.Visible = True
MsgBox "Vous devez ecrire un titre pour votre boite de dialogue !!", vbOKOnly + vbCritical, "Attention"
Me.Visible = True
Exit Sub
End If
Me.Visible = True
MsgBox "Vous devez paramètrer une boite de dialogue !!", vbOKOnly + vbCritical, "Attention"
Me.Visible = True
Exit Sub
End If
End Sub
Private Sub mask()
If Check2.Value = 1 Then
Me.Visible = False
ElseIf Check1.Value = 2 Then
Me.Visible = True
End If
End Sub
Private Sub bep()
If Check1.Value = 1 Then
Beep
Beep
Beep
End If
End Sub

'textboxs de la frame1

Private Sub Text1_Click()
If Text1.Text = "Titre" Then
Text1.Text = ""
End If
End Sub
Private Sub Text1_gotfocus()
Call Text1_Click
End Sub
Private Sub Text2_Click()
If Text2.Text = "Ligne 1" Then
Text2.Text = ""
End If
End Sub
Private Sub Text2_gotfocus()
Call Text2_Click
End Sub
Private Sub Text3_Click()
If Text3.Text = "Ligne 2" Then
Text3.Text = ""
End If
End Sub
Private Sub Text3_gotfocus()
Call Text3_Click
End Sub
Private Sub Text4_Click()
If Text4.Text = "Ligne 3" Then
Text4.Text = ""
End If
End Sub
Private Sub Text4_gotfocus()
Call Text4_Click
End Sub
Private Sub Text5_Click()
If Text5.Text = "Ligne 4" Then
Text5.Text = ""
End If
End Sub
Private Sub Text5_gotfocus()
Call Text5_Click
End Sub
Private Sub Text6_Click()
If Text6.Text = "Ligne 5" Then
Text6.Text = ""
End If
End Sub
Private Sub Text6_gotfocus()
Call Text6_Click
End Sub
Private Sub Text1_LostFocus()
If Text1.Text = "" Then
Text1.Text = "Titre"
End If
End Sub
Private Sub Text2_LostFocus()
If Text2.Text = "" Then
Text2.Text = "Ligne 1"
End If
End Sub
Private Sub Text3_LostFocus()
If Text3.Text = "" Then
Text3.Text = "Ligne 2"
End If
End Sub
Private Sub Text4_LostFocus()
If Text4.Text = "" Then
Text4.Text = "Ligne 3"
End If
End Sub
Private Sub Text5_LostFocus()
If Text5.Text = "" Then
Text5.Text = "Ligne 4"
End If
End Sub
Private Sub Text6_LostFocus()
If Text6.Text = "" Then
Text6.Text = "Ligne 5"
End If
End Sub

'textboxs de la frame2 (non exploitée !)

Private Sub Text7_Click()
If Text7.Text = "Titre" Then
Text7.Text = ""
End If
End Sub
Private Sub Text7_gotfocus()
Call Text7_Click
End Sub
Private Sub Text8_Click()
If Text8.Text = "Ligne 1" Then
Text8.Text = ""
End If
End Sub
Private Sub Text8_gotfocus()
Call Text8_Click
End Sub
Private Sub Text9_Click()
If Text9.Text = "Ligne 2" Then
Text9.Text = ""
End If
End Sub
Private Sub Text9_gotfocus()
Call Text9_Click
End Sub
Private Sub Text10_Click()
If Text10.Text = "Ligne 3" Then
Text10.Text = ""
End If
End Sub
Private Sub Text10_gotfocus()
Call Text10_Click
End Sub
Private Sub Text11_Click()
If Text11.Text = "Ligne 4" Then
Text11.Text = ""
End If
End Sub
Private Sub Text11_gotfocus()
Call Text11_Click
End Sub
Private Sub Text12_Click()
If Text12.Text = "Ligne 5" Then
Text12.Text = ""
End If
End Sub
Private Sub Text12_gotfocus()
Call Text12_Click
End Sub
Private Sub Text7_LostFocus()
If Text7.Text = "" Then
Text7.Text = "Titre"
End If
End Sub
Private Sub Text8_LostFocus()
If Text8.Text = "" Then
Text8.Text = "Ligne 1"
End If
End Sub
Private Sub Text9_LostFocus()
If Text9.Text = "" Then
Text9.Text = "Ligne 2"
End If
End Sub
Private Sub Text10_LostFocus()
If Text10.Text = "" Then
Text10.Text = "Ligne 3"
End If
End Sub
Private Sub Text11_LostFocus()
If Text11.Text = "" Then
Text11.Text = "Ligne 4"
End If
End Sub
Private Sub Text12_LostFocus()
If Text12.Text = "" Then
Text12.Text = "Ligne 5"
End If
End Sub

Conclusion

Bon si vous voulez pas le zip voici la liste des controles :
6 Textes boxs
4 images
2 bouton
2 frames
2 Checkboxs
2 groupes d'options (un de 4 et l'aute de 6)
et voila !
sinon tout est dans le zip !

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

critical.bmp 3 590 octets
Exclamation.bmp 3 590 octets
Form1.frm 20 641 octets
Form1.frx29 232 octets
Information.bmp 3 798 octets
Messages boxs.exe57 344 octets
Projet1.vbp 946 octets
Projet1.vbw 50 octets
question.bmp 3 590 octets
the ico.ico 3 590 octets

Télécharger le zip

Sources du même auteur

MP3 MASSIVE RENAMER - SEPCIAL BALADEUR MP3

FREE 50H - COMPTEUR INTERNET MULTI-POSTES

AFFICHER UN FORM MASQUE D'UN AUTRE PROGRAMME AVEC SON HANDLE

ADVANCED TITLE BAR ENTIERMENT CONFIGURABLE

ADVANCED MESSAGE BOX CRÉATOR

Toutes les sources de OverDarck

Sources de la même categorie

MSGBOX MULTILINGUE par Blodox

AUTRE PETITE FAQ par JLB59

INDEXER LE TEXTE D'UN LISTBOX (POUR UNE FAQ PAR EXEMPLE) par JLB59

TEXTE DÉFILANT DANS LE STYLE BANNIÈRE (OCX) par by2k

ERROR MESSAGE : ENVOYER DES MESSAGE D'ERREUR EN MSGBOX AVEC ... par Alucard49000

Toutes les sources de la catégorie Message Box

Sources en rapport avec celle ci

CREATION AUTOMATIQUE DE MSGBOX par trcdl

GENERATEUR DE MSGBOX par FlintHasForgetHisPass

AH ! LES MSGBOX RECORRIGÉES ET MODIFIÉES... par Win Druide

MESSAGEBOX AVEC UN X ROUGE par Nix

CONFIRMATION OUI/NON par Nix

Commentaires et avis

Commentaire de ShadowMan le 29/01/2002 21:54:10

Dire qu'ya des personnes qui ont assez de temps pour s'amuser à créer des petits programmes inutiles comme celui-là...
Y sert a quoi en fait

Commentaire de Urgo le 21/07/2003 14:36:23

Oui on pourrais en generer un executable seulement voila il foudrit un code source qui compile du vb !!

Voilà encore un nb qui sait pas programme mdr

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Message Box [ par xavier77 ] Salut, J'en ait un peu marre du MsgBox de VB, alors, j'ai donc décidé d'en créer un avec des nouvelles propriétés (couleur, des nouveau icones,...).J' Comment afficher plusieur message box ? [ par Mrx3 ] ... compatible vbscript . Quand je metMsgBox "texte1", ,"titre1"MsgBox "texte2", ,"titre2"Sa m'ouvre la première boite et apres la deuxieme, comment f Message Box non bloquante [ par Sapaya ] Voila, je voudrais savoir si c'est possible de faire une msgbox non bloquante.En bref, que le code situé apres l'appel de cet msgbox soit executé meme msgBox personnalisée [ par mickael3905 ] Bonjour,J'aimerais savoir s'il est possible de programmer une message box personnalisée.Cette message box aurait 2 boutons sur lesquels serait re message box [ par nana10 ] bonjour premierement bonne féte à tous les péres!!!!mon probléme c'est que je veux programmer en vb6un msgbox sous forme de combobox c'est à dire qu [vb.net]Message box oui/non [ par sisi35 ] Bonjour, Je voudrais avoir 2 boutons dans ma message box: "oui" et "non" et non pas "yes" et "no".Comment faire?Merci, Sylvie. lire le contenu d'un message box [ par CrazyMan19 ] salut tt le mondeje vx un bout d code qui me permitteras de lire le contenu d'un message box affiché par une application , et merçi :)Je suis né intel Envoyer un message distant [ par culie3 ] Bonjour, voila je voudrais avoir de l'aide pour savoir comment envoyer un message distant c'est à dire:Il y a 2 fichiers:-Le controle(sur votre ordi)- Probleme de msgbox [ par zizouth ] Salut,J'ai remarqué que lors qu'un affichage d'une msgbox le programme se met en pause jusqu'a qu'on appuis sur le buton ok (ou yes, no etc..) de la Envoyer une message box via winsock [ par alex_sex ] Be je pence que le titre est explicatif Enfin voila je cherche a envoyer une msgbox au serveur, comment j'pourais faire ca? Merci :)