msgbox funksjonen vb2005

[toss]

hvordan skal jag få til msgbox i vb 2005?

har følgende kode:

  Private Sub mnuAvslutt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuAvslutt.Click
       shtresponse = MsgBox(Prompt:="Er du sikker på at du vil avslutte?", _
               Buttons:=MsgBoxStyle.YesNo + _
                        MsgBoxStyle.Question + _
               title:="Avslutte?")
       If shtresponse = MsgBoxResult.Yes Then
           End
       End If
   End Sub

 

har markert områdene som ikke godtaes med rødt

 

 

foresten, må jeg skrive inn en kommando for å lukke msgboxen?

Endret 27. august 2004 av toss

[Jonas]

Kan ikke noe i den vb-versjonen, men du trenger ingen variabel får å åpne boksen. Prøv sånn her:

Private Sub mnuAvslutt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuAvslutt.Click

If  MsgBox(Prompt:="Er du sikker på at du vil avslutte?", Buttons:=MsgBoxStyle.YesNo +  MsgBoxStyle.Question +  title:="Avslutte?") = MsgBoxResult.Yes Then
   
   End
   
End If

End Sub

btw, bbcode funker ikke når du legger det inni en "code"-tag

[toss]

tok vekk bb-kode taggene..

 

prøvde koden din men den vil ikke godta "title"..

vet noen hvorfor?

hva skal jeg bruke?

[Jonas]

Søkte litt og fant dette:

MsgBox("tekst her, og litt her", MsgBoxStyle.YesNo +  MsgBoxStyle.Question, "Titel")

Koden din vil da bli noe som dette:

Private Sub mnuAvslutt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuAvslutt.Click

If  MsgBox("Er du sikker på at du vil avslutte?", MsgBoxStyle.YesNo +  MsgBoxStyle.Question, "Avslutte?") = MsgBoxResult.Yes Then
  
  End
  
End If

End Sub

[toss]

takker

funker perfekt

[GeirGrusom]

... hva har := i VB2005 å gjøre? er ikke det PASCAL?

 

MsgBoxStyle.YesNo +  MsgBoxStyle.Question

 

Bare sånn info, dere kan slå meg hvis dere vil men,

"MsgBoxStyle.YesNo Or MsgBoxStyle.Question" er mer korrekt programmering, grunnet at:

00000010 + 00000011 = 00000101

mens

00000010 Or 00000011 = 00000011