Change MsgBox title from VBScript to custom

crmpicco · #1 (**permalink**) February 20th, 2006, 06:40 AM

Code:

<INPUT TYPE="BUTTON" NAME="button0" VALUE="Click Here!">
<SCRIPT LANGUAGE="VBScript"> 
Sub button0_onclick 
   MsgBox "Please Click OK", VBYesNo
End Sub 
</SCRIPT>

Is there a way i can Change MsgBox title from VBScript to custom?

www.crmpicco.co.uk

crmpicco · #2 (**permalink**) February 20th, 2006, 07:24 AM

also....is there a way to redirect to another page with VBScript? my function (so far):

Code:

<SCRIPT LANGUAGE="VBScript"> 
sub Ibrox_Or_Parkhead
    dim the_response
    the_response = MsgBox ("Do you want to perform a Stadium Search?", VBYesNo)
        If the_response = vbYes then

        end If
end sub 
</SCRIPT>

www.crmpicco.co.uk

crmpicco · #3 (**permalink**) February 20th, 2006, 08:50 AM

Code:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>CRMPicco</title>
<SCRIPT LANGUAGE="VBScript">
<!--
sub Ibrox_Or_Parkhead
    dim response
    response = MsgBox ("Do you want to perform a stadium Search?", VBYesNo, "Glasgow Rangers")
    If response = vbYes then
        window.location = "rfc_book.asp"
    ElseIf response = vbNo then
        window.location = "multicups/multicups.asp"
    end If
end sub
-->
</SCRIPT> 
</head>
<body onLoad="Ibrox_Or_Parkhead">
</body>
</html>

This is my working function above.
I was wondering if there is a way still to change the 'title' or 'heading' to my MsgBox?
Currently it appears as "VBScript: Glasgow Rangers" in the title of the MsgBox, is there a way to change it to read just "Glasgow Rangers"?
Omitting the VBScript:

Also, are the <!-- lines valid in VBScript as they are in JavaScript?

www.crmpicco.co.uk

dashoh · #4 (**permalink**) May 15th, 2008, 07:56 PM

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'your code should appear exactly as shown
'drag and drop a label from the control box (Label1)
'you are allowed to copy paste
'study keenly how the MsgBox() Title and Caption
'was named and the the attribute declared response As String!
Dim response As String
        response = MsgBox("You wanna know your the time?", vbYesNo, "Check out") 'VbYesNo are the buttons that will appear
' you can also check out others by clicking help or search
'then go to Index and type MsgBox and press enter
        If response = vbYes Then ' the msgbox will appear
'at form_load. It will have two conditions
'the first one, if the user will click on Yes
'this is what will happen
            MsgBox("Hi today is:" & GetTime())
            Label1.Text = GetTime()
'and if the user will click on No(VbNo)
'this is what will happen
        ElseIf response = vbNo Then
            MsgBox("Do Worry")
            Label1.Visible = False
        End If

    End Sub
    Function GetTime()
        Return CStr(Now)
    End Function
End Class

Need to download code?

Navigation