Case a cocher [Résolu]

Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention - 1 févr. 2013 à 11:00 - Dernière réponse : Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention
- 14 févr. 2013 à 15:00
Bonjour,

Je suis un débutant en programmation et j'ai du mal à trouver la bonne syntaxe, j'aimerai vérifier que l'une des 3 checkbox est cochée.

Voici mon code

le problème c'est qu'il affiche bien la box d'avertissement mais continue l’exécution alors que j'aimerai qu'il finisse

Select Case CBBOX.SelectedIndex
Case CBBOX.Text = "SIEGE"
If cbcable.Checked = True Then
Else
cbcable.Checked = False
MsgBox(" merci de cocher ")
On Error GoTo (0)

' Partie LAN
Dim myprocess As New Process()
myprocess.StartInfo.FileName = "cmd.exe" 'application
myprocess.StartInfo.Arguments = "/c ipconfig /release"
myprocess.Start()
myprocess.WaitForExit() 'attend qu'il soit terminé avant d'aller plus loin
myprocess.Close() 'ferme le process


Merci

Cordialement,
Afficher la suite 

Votre réponse

13 réponses

Meilleure réponse
Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention - 14 févr. 2013 à 14:31
3
Merci
c'est bon j'ai trouver, en faisant des IF voici mon code
If Me.CBBOX.SelectedItem <> "" And (cbcable.Checked <> False Or cbwifi.Checked <> False Or cbtel.Checked <> False) Then
            'SIEGE
            If Me.CBBOX.SelectedItem = "SIEGE" Then
                If cbcable.Checked = True Then[code=vb]


la suite du code...




Else
            'erreur sur cbbox
            If Me.CBBOX.SelectedItem "" And (cbcable.Checked False And cbwifi.Checked = False And cbtel.Checked = False) Then
                MsgBox("Merci de selectionner le lieu et le type de connexion")
            ElseIf Me.CBBOX.SelectedItem = "" Then
                MsgBox("Merci de selectionner le lieu ")
            Else
                MsgBox("Merci de selectionner un type de connexion")
            End If
        End If

Merci Yovbs 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de Yovbs
4u4me4us 781 Messages postés lundi 22 janvier 2007Date d'inscription 30 octobre 2013 Dernière intervention - 1 févr. 2013 à 11:33
0
Merci
C quoi comme type de d'objet CBBOX?
Commenter la réponse de 4u4me4us
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 1 févr. 2013 à 11:41
0
Merci
Bonjour,
Select Case CBBOX.SelectedIndex
Case CBBOX.Text = "SIEGE"

ne me parait pas très orthodoxe.
(un select case d'une chose qui traiterait les "case" d'une autre chose)
Est-ce normal, sous VB.Net, un tel procédé ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Commenter la réponse de ucfoutu
Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention - 1 févr. 2013 à 13:35
0
Merci
CBBOX.text est une combobox de selection, dans cette COMBOBOX il y a le nom des agences : SIEGE, RHONE-ALPES, etc...

Je fais un select CASE en fonction de l'agence.

C'est un logiciel qui va permettre de modifier les adresses Ip des cartes réseaux en fonction de l'agence sélectionnées.
Commenter la réponse de Yovbs
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 1 févr. 2013 à 13:48
0
Merci
Ta "réponse" ne réponds en aucun cas à ma remarque, que je te demande de relire.
Je vais donc m'adresser à d'autres VB.Nettistes ===>> le "procédé" que j'ai montré du doigt est-il normal sous VB.Net ?


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Commenter la réponse de ucfoutu
4u4me4us 781 Messages postés lundi 22 janvier 2007Date d'inscription 30 octobre 2013 Dernière intervention - 1 févr. 2013 à 17:18
0
Merci
Ok g compris ce qu'est CBBOX.

Donc je te suggère de modifier ton code ansi

Select Case CBBOX.Text
  Case "SIEGE"
    If Not cbcable.Checked Then
     cbcable.Checked = False 
     MsgBox(" merci de cocher ") 
     end
    End If
  Case Else
  End Select


G pas oublier ton "On Error GoTo (0)" mais vu que ton code va s’arrêter au niveau du End il n'est plus utile.

C juste une suggestion, je souhaite un bon week-end !
Commenter la réponse de 4u4me4us
Utilisateur anonyme - 1 févr. 2013 à 18:05
0
Merci
Bonjour,

le "procédé" que j'ai montré du doigt est-il normal sous VB.Net ?


Je pense qu'il y a moyen de faire plus simple.

La propriété selectedIndex donne l'Indice du nom sélectionné dans le combobox. Le seul moyen de changer l'ordre, c'est de changer le programme, ou d'ajouter des éléments; ce qui ne semble pas être la priorité du moment. Donc, il peut sans crainte tester directement l'index. Et, puisque, en VB.net la propriété Sorted est à true par défaut, il lui suffit de s'ajuster en conséquence

select case cbox.selectedindex
case 0
xxxxxxxxxxxxxxxxxxx
case 1
***************
end select

Mais le plus simple, c'est te tester la propriété SelectedItem. Il va l'avoir directement en texte. S'il a Option Strict en force, il va devoir tester SelectedItem.tostring, parce que, en fait SelectedItem est un objet et que Option Strict interdit le transtypage automatique.

select case cbox.selecteditem.tostring
case "Fred"
xxxxxxxxxxxxxxxxxxx
case "Barney" or "Arthur"
***************
Case "Delima"
yyyyyyyyyyyyyyyyyyyyyyy
end select

Par ailleurs en VB.net, l'utilisation du bloc try catch end try est de loin supérieure au on error de VB6-VBA
Commenter la réponse de Utilisateur anonyme
Utilisateur anonyme - 1 févr. 2013 à 18:08
0
Merci
Excusez pardon, j'ai oublié la coloration syntaxique.
Commenter la réponse de Utilisateur anonyme
Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention - 5 févr. 2013 à 16:46
0
Merci
Re bonjour,

Bon j'ai tester le code de 4u4meu4s

cela ne fonctionne pas
Select Case CBBOX.SelectedIndex
Case CBBOX.Text = "SIEGE"
If Not cbcable.Checked = True Then
MsgBox(" merci de cocher")
End If

cbcable.Checked = True
'Fichier de log dans la textbox
Me.TXTINFO.Text = "Paramétrage de l'IP / DNS en DHCP" & Environment.NewLine


--- > j'ai bien le message comme quoi il faut qu'il coche la case mais quand la case est cochée rien ne se produit.

il y a en tout trois cases à cocher.

en ce qui concerne ta réponse ucfoutu, désolé je suis débutant en DEV et je ne comprends pas, pour le moments les thermes techniques.

Je précise aussi que je le langage est du DOTNET.

j'aimerai juste avoir un message d'avertissement quand l'utilisateur ne coche pas la case.
Commenter la réponse de Yovbs
Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention - 5 févr. 2013 à 16:47
0
Merci
moi aussi j'ai zapper la couleur, désolé
Commenter la réponse de Yovbs
ucfoutu 18039 Messages postés lundi 7 décembre 2009Date d'inscriptionContributeurStatut 11 avril 2018 Dernière intervention - 5 févr. 2013 à 17:31
0
Merci
Bon j'ai tester le code de 4u4meu4s

Je n'en ai absolument pas l'impression !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Commenter la réponse de ucfoutu
Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention - 14 févr. 2013 à 14:31
0
Merci
c'est bon j'ai trouver, en faisant des IF voici mon code
If Me.CBBOX.SelectedItem <> "" And (cbcable.Checked <> False Or cbwifi.Checked <> False Or cbtel.Checked <> False) Then
            'SIEGE
            If Me.CBBOX.SelectedItem = "SIEGE" Then
                If cbcable.Checked = True Then[code=vb]


la suite du code...


Else
'erreur sur cbbox
If Me.CBBOX.SelectedItem "" And (cbcable.Checked False And cbwifi.Checked = False And cbtel.Checked = False) Then
MsgBox("Merci de selectionner le lieu et le type de connexion")
ElseIf Me.CBBOX.SelectedItem = "" Then
MsgBox("Merci de selectionner le lieu ")
Else
MsgBox("Merci de selectionner un type de connexion")
End If
End If
/code
Commenter la réponse de Yovbs
Yovbs 26 Messages postés lundi 26 décembre 2011Date d'inscription 14 février 2013 Dernière intervention - 14 févr. 2013 à 15:00
0
Merci
@ ucfoutu :

Je n'en ai absolument pas l'impression !

tu deviens limite arrogant.
Commenter la réponse de Yovbs

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.