Kleine "request" voor een code.

[ElmigoMG]

Hallo, ik zoek (als dit mogelijk is) een code die je bij een MsgBox kan gebruiken, waarbij de gebruiker alleen maar op de MsgBox kan klikken en niet op de rest van het beeldscherm om (bv) een ander venster te openen. Ik heb al op internet gezocht met meerdere trefwoorden maar ik heb helaas nog niks kunnen vinden.
Alvast vriendelijk bedankt

 

[CaptainBri]

Wat nou als je een form laat zien die 5000x5000 is, en de opacity(doorzichtigheid) 0% maakt? Daar zet je de messagebox op en mensen kunnen alleen op de msgbox klikken, lijkt me

 

[ElmigoMG]

lol bedankt, dat ik daar niet op gekomen ben zeg.. Zit ik me soms suf te piekeren hoe ik iets kan maken en dan komt iemand anders in 1x met de juiste oplossing haha bedankt!

 

[The Mighty Atom]

Een MessageBox of MsgBox doet dat al. Je moet eerste de Box wegklikken voordat je weer het onderliggende formulier kan gebruiken.

Als je ditzelfde ook met een formulier wilt, moet je deze aanroepen met

NaamVanForm.ShowDialog()

Hiermee moet je eerst het form wegklikken voordat je weer verder kunt met een onderliggende form.

Met

NaamVanForm.Show()

... is dat niet het geval.

 

[JoZ1]

Volgens mij kan dat ook als je van de MessageBox een 'System Modal' maakt.

MsgBox("Bericht", MsgBoxStyle.SystemModal, "Titel")

Of zo:

MsgBox("Bericht",4096, "Titel")

Je kunt natuurlijk ook gewoon zo doen:

Me.Enabled = False
MsgBox("Bericht","Titel")
Me.Enabled = True

Maar ik raad je de System Modal aan

 

[ElmigoMG]

Hallo allemaal, bedankt voor jullie reacties, het heeft me erg veel verder geholpen!

 

[toxisoftstudios]

RE: MsgBox Code

Als je bedoelt dat als je bijv, op 'YES' drukt dat ie dan naar een andere window gaat dan adviseer ik om deze code te gebruiken:

[* Gewoon maar een voorbeeld (Oftw : dit is optioneel)]

Dim ansW as String
ansW = msgbox("Do you accept the terms of use *",vbYesNo)
if AnsW = vbYes then
Me.hide()
Form2.show()
elseIf ansW = vbNo then
msgbox("Since you didn't accept the terms of use the program will now close *")
Me.close()
End
End If

 

[The Mighty Atom]

Als je bedoelt dat als je bijv, op 'YES' drukt dat ie dan naar een andere window gaat dan adviseer ik om deze code te gebruiken:

[* Gewoon maar een voorbeeld (Oftw : dit is optioneel)]

Dim ansW as String
ansW = msgbox("Do you accept the terms of use *",vbYesNo)
if AnsW = vbYes then
Me.hide()
Form2.show()
elseIf ansW = vbNo then
msgbox("Since you didn't accept the terms of use the program will now close *")
Me.close()
End
End If

Dat is oude VB6 code. De VB.NET variant daarvan is als volgt:

If MessageBox.Show("Do you accept the terms of use?", Application.ProductName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Me.hide()
Form2.show()
Else
MessageBox.Show("Since you didn't accept the terms of use the program will now close.")
Me.close()
End If