Visual Basic   VBA   VB7 (.NET)       3GL   4GL   DB-

web- VBScript

Visual Basic Script . , VBScript Visual Basic, VBScript VBA. , , . . VBScript, .

VBScript? . . , Visual Basic Script , . , .

-. VBScript , , , , SCADA-. , SCADA- Reliance Visual Basic Script, .

. . , , .

, Visual Basic Script, Visual Basic. VBScript , Internet, ( ) (, , . .) Web-. HTML-, Visual Basic. Microsoft Internet Explorer 3.0. . - Microsoft VBScript Sun JavaScript. IE 3.0. Netscape JavaScript.

VBScript . HTML-. Visual Basic Visual Basic for Applications, VBScript.

VBScript, VBScript HTML- <SCRIPT> </SCRIPT>. LANGUAGE . - Visual Basic Script ( JavaScript). "VBScript":

<HTML>
<HEAD><TITLE>     VBScript</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!-
Sub Button1_OnClick
        MsgBox "VBScript - Rulez Forever!"
End Sub
-></SCRIPT>
</HEAD>
<BODY>
<H3>  </H3><HR>
<FORM><INPUT NAME="Button1" TYPE="BUTTON" VALUE="Click Here"></FORM>
</BODY>
</HTML>

<SCRIPT> - </SCRIPT>. ! <!-...->, HTML . , , , . - .

VBScript , , , . Internet Explorer 3.0 ActiveX. , VBScript .

- , . . , . , . , . .

VBScript : (Sub) (Function). (Sub) - VBScript-, Sub End Sub. (, , ), . , . VBScript - InputBox MsgBox. , . Celsius.

<SCRIPT LANGUAGE="VBScript">
<!-
Sub ConvertTemp()
temp = InputBox("Please enter the temperature in degrees 
                F.", 1)
MsgBox "The temperature is " & Celsius(temp) & " degrees C."
End Sub
-></SCRIPT>

(Function) - VBScript, Function End Function. , , . (, , ). , Function . Function - Variant.

Celsius . ConvertTemp, , -, . MsgBox.

<SCRIPT LANGUAGE="VBScript">
<!-
 Sub ConvertTemp()
     temp = InputBox("Please enter the temperature in 
            degrees F.", 1)
     MsgBox "The temperature is " & Celsius(temp) & " 
            degrees C."
 End Sub

 Function Celsius(fDegrees)
     Celsius = (fDegrees - 32) * 5 / 9
 End Function
->
</SCRIPT>

. <HEAD> HTML-. <HEAD>. Function Sub, VBScript, <SCRIPT LANGUAGE="VBScript"> </SCRIPT> . , (<! - - >) <SCRIPT>, , , VBScript.

. ( ) . . fDegrees Celsius :

<SCRIPT LANGUAGE="VBScript">
<!-
 Function Celsius(fDegrees)
    Celsius = (fDegrees - 32) * 5 / 9
 End Function
->
</SCRIPT>

, .

, , :

<SCRIPT LANGUAGE="VBScript">
<!-
 Temp = Celsius(fDegrees)
->
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
<!-
 MsgBox "The Celsius temperature is " & Celsius(fDegrees) & 
       " degrees."
->
</SCRIPT>

, , . Call . - , . MyProc. Call, - . .

<SCRIPT LANGUAGE="VBScript">
<!-
 Call MyProc(firstarg, secondarg)
 MyProc firstarg, secondarg
->
</SCRIPT>

, , Call .

(Object) - , , . - , , . - . - , , - . , , , . , , , . .

ActiveX Label ( VBScript ). . (Caption), (BackColor), (ForeColor), (FontSize) (FontName). About Box, ActiveX. Label Label. <OBJECT> HTML-. : <OBJECT> <PARAM>. - , , ; - , <OBJECT>, <PARAM>. <OBJECT> . 1, <PARAM> - . 2.

1.
<OBJECT>.

ID
CLASSID , ; Java. ActiveX -
DATA , ;
CODEBASE ,
TYPE Internet MIME (: application/x-oleobject OLE-, )
HEIGHT
WIDTH

2.
<PARAM>.

NAME ,
VALUE , , NAME

, - Label.

<HTML> 
<HEAD> 
<TITLE>,   ActiveX</TITLE> 
</HEAD> 
<BODY BGCOLOR="steelblue"> 
<OBJECT ID="mylabel" WIDTH="100" HEIGHT="51" 
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"> 
<PARAM NAME="_ExtentX" VALUE="2646"> 
<PARAM NAME="_ExtentY" VALUE="1349"> 
<PARAM NAME="Caption" VALUE="This is label 1"> 
<PARAM NAME="Angle" VALUE="0"> 
<PARAM NAME="Alignment" VALUE="4"> 
<PARAM NAME="Mode" VALUE="1"> 
<PARAM NAME="FillStyle" VALUE="0"> 
<PARAM NAME="FillStyle" VALUE="0"> 
<PARAM NAME="ForeColor" VALUE="#000000"> 
<PARAM NAME="BackColor" VALUE="#C0C0C0"> 
<PARAM NAME="FontName" VALUE="Arial"> 
<PARAM NAME="FontSize" VALUE="12"> 
<PARAM NAME="FontItalic" VALUE="0"> 
<PARAM NAME="FontBold" VALUE="0"> 
<PARAM NAME="FontUnderline" VALUE="0"> 
<PARAM NAME="FontStrikeout" VALUE="0"> 
<PARAM NAME="TopPoints" VALUE="0"> 
<PARAM NAME="BotPoints" VALUE="0"> 
</OBJECT> 
</BODY> 
</HTML>

<OBJECT> , . "mylabel", : . "CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2" , . <PARAM> Label. NAME , , , VALUE - . ActiveX Control Pad. , (. " ActiveX Web", " ", # 2/97, . 51).

, HTML- <OBJECT></OBJECT>, - <PARAM>. Visual Basic, <PARAM> - . , <OBJECT> <PARAM> ( Visual Basic) ActiveX Label:

<OBJECT
        classid="clsid:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"
        id=lblActiveLbl
        width=250
        height=250
        align=left
        hspace=20
        vspace=0>
<PARAM NAME="Angle" VALUE="90">
<PARAM NAME="Alignment" VALUE="2">
<PARAM NAME="BackStyle" VALUE="0">
<PARAM NAME="Caption" VALUE="A Simple Desultory Label">
<PARAM NAME="FontName" VALUE="Arial">
<PARAM NAME="FontSize" VALUE="20">
<PARAM NAME="FontBold" VALUE="1">
<PARAM NAME="FrColor" VALUE="0">
</OBJECT>

, , . , , <FORM>, Label:

<FORM NAME="LabelControls">
<INPUT TYPE="TEXT" NAME="txtNewText" SIZE=25>
<INPUT TYPE="BUTTON" NAME="cmdChangeIt" VALUE="Change Text">
<INPUT TYPE="BUTTON" NAME="cmdRotate" VALUE="Rotate Label">
</FORM>

cmdChangeIt Label:

<SCRIPT LANGUAGE="VBScript">
<!-
Sub cmdChangeIt_onClick
        Dim TheForm
        Set TheForm = Document.LabelControls
        lblActiveLbl.Caption = TheForm.txtNewText.Value
End Sub
->
</SCRIPT>

( ) ActiveX (), . <A>, <BODY>, <INPUT> <OBJECT>. , , Label:

<HTML> 
<HEAD> 
<TITLE>   </TITLE> 
</HEAD> 
<BODY BGCOLOR="slateblue"><BR> 
<CENTER> 
<OBJECT ID="MyLabel" WIDTH=215 HEIGHT=93 
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"> 
<PARAM NAME="_ExtentX" VALUE="5689"> 
<PARAM NAME="_ExtentY" VALUE="2461"> 
<PARAM NAME="Caption" VALUE="Watch me change!!"> 
<PARAM NAME="Angle" VALUE="0"> 
<PARAM NAME="Alignment" VALUE="4"> 
<PARAM NAME="BackStyle" VALUE="1"> 
<PARAM NAME="Mode" VALUE="1"> 
<PARAM NAME="FillStyle" VALUE="0"> 
<PARAM NAME="FillStyle" VALUE="1"> 
<PARAM NAME="ForeColor" VALUE="#00FF00"> 
<PARAM NAME="BackColor" VALUE="#DDAADD"> 
<PARAM NAME="FontName" VALUE="Times"> 
<PARAM NAME="FontSize" VALUE="12"> 
<PARAM NAME="FontItalic" VALUE="0"> 
<PARAM NAME="FontBold" VALUE="0"> 
<PARAM NAME="FontUnderline" VALUE="0"> 
<PARAM NAME="FontStrikeout" VALUE="0"> 
<PARAM NAME="TopPoints" VALUE="0"> 
<PARAM NAME="BotPoints" VALUE="0"> 
</OBJECT></CENTER><BR><BR><CENTER> 
<INPUT TYPE="button" value="click ME to change" 
onclick="changes" Language="VBScript"></CENTER> 
<SCRIPT> 
sub changes 
MyLabel.Caption="See. . . I TOLD YOU!" 
MyLabel.ForeColor = "6316128" 
MyLabel.BackColor = "167111680" 
MyLabel.FontName = "Arial" 
end sub 
sub MyLabel_Click 
MyLabel.Caption="Watch me change!!" 
MyLabel.ForeColor = "65280" 
MyLabel.BackColor = "14527197" 
MyLabel.FontName = "Times" 
end sub 
</SCRIPT> 
</BODY> 
</HTML>

, Label, . -, Label, <INPUT> Button. , Label . . . , , . OnClick <INPUT> , . OnClick , VBScript, . , . Button (), - Label (), . , Label (MyLabel) , (MyLabel_Click). , OnClick , , .

Microsoft ActiveX Control Pad, Visual Basic . , .

VBScript. :

<SCRIPT>
...
ObjectName.property = value
...
</SCRIPT>

ObjectName - , ID NAME; property - , ObjectName; value - . , :

...
MyLabel.Caption="Watch me change!"
MyLabel.ForeColor = "65280"
MyLabel.BackColor = "14527197"
MyLabel.FontName = "Times"
...

Caption () "Watch me change!". ForeColor ( ), BackColor ( ) FontName ( ). .

VBScript - - . , . 3, . , . . , . , LANGUAGE <SCRIPT> (. . 4) .

3.
VBScript.

OnClick
MouseOver
DblClick
OnLoad

4.
<SCRIPT>.

EVENT ( , FOR), , <SCRIPT>
FOR , , , EVENT
LANGUAGE . "VBScript" VBScript, "JavaScript" JavaScript
EventName . : <BODY>, <INPUT>, <OBJECT> <A>. ( VBScript, JavaScript). , , . 3. ActiveX

: <...EventName="method" LANGUAGE="VBScript"...>, EventName - , method - , - . , . 4, <SCRIPT>, , , . :

<SCRIPT LANGUAGE="VBSCRIPT" FOR="ObjectName" EVENT="EventName"> 
... 
</SCRIPT>

FOR , ; EVENT , .

- , . , , , :

<SCRIPT LANGUAGE="VBScript"> 
... 
sub ObjectName_ObjectEvent 
... 
end sub 
... 
</SCRIPT>

. , :

... 
<INPUT TYPE="button" value="click ME to change" 
onclick="changes" Language="VBScript"></CENTER> 
<SCRIPT> 
sub changes 
MyLabel.Caption="See. . . I TOLD YOU!" 
MyLabel.ForeColor = "6316128" 
MyLabel.BackColor = "167111680" 
MyLabel.FontName = "Arial" 
end sub 
...
... 
sub MyLabel_Click 
MyLabel.Caption="Watch me change!" 
MyLabel.ForeColor = "65280" 
MyLabel.BackColor = "14527197" 
MyLabel.FontName = "Times" 
end sub 
...

, :

call ProcedureName(arguments)

ProcedureName - , ; arguments - , . , , - , :

<SCRIPT> 
... 
sub MyObject_Click() 
alert "This is a subroutine which is called _ 
when the Click event happens for the MyObject object." 
end sub 
... 
</SCRIPT>

Click, . . . , - , . , , :

<SCRIPT> 
... 
y = 2 
x = GiveValue(y) 
alert x 
... 
function GiveValue(a) 
GiveValue = a + 4 
end function 
... 
</SCRIPT>

:

<HTML> 
<HEAD> 
<TITLE> HTML,    ActiveX   </TITLE> 
</HEAD> 
<BODY BGCOLOR="mistyrose"> 
<OBJECT ID="IeLabel1" WIDTH=170 HEIGHT=93 
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"> 
<PARAM NAME="_ExtentX" VALUE="3625"> 
<PARAM NAME="_ExtentY" VALUE="2461"> 
<PARAM NAME="Caption" VALUE="Click Me"> 
<PARAM NAME="Angle" VALUE="0"> 
<PARAM NAME="Alignment" VALUE="4"> 
<PARAM NAME="Mode" VALUE="1"> 
<PARAM NAME="FillStyle" VALUE="0"> 
<PARAM NAME="FillStyle" VALUE="1"> 
<PARAM NAME="ForeColor" VALUE="#FF0000"> 
<PARAM NAME="BackColor" VALUE="#373737"> 
<PARAM NAME="BackStyle" VALUE="1"> 
<PARAM NAME="FontName" VALUE="Courier"> 
<PARAM NAME="FontSize" VALUE="24"> 
<PARAM NAME="FontItalic" VALUE="0"> 
<PARAM NAME="FontBold" VALUE="0"> 
<PARAM NAME="FontUnderline" VALUE="0"> 
<PARAM NAME="FontStrikeout" VALUE="0"> 
<PARAM NAME="TopPoints" VALUE="0"> 
<PARAM NAME="BotPoints" VALUE="0"> 
</OBJECT><BR CLEAR="ALL"> 
<INPUT TYPE="button" NAME="button1" VALUE="Get Value"> 
Enter Angle: 
<INPUT TYPE="text" NAME="AngleInpt" VALUE="0" SIZE="10"
MAXLENGTH="10"> 
The Sine is: 
<INPUT TYPE="text" NAME="SineInpt" VALUE="0" SIZE="10" MAXLENGTH="10">
<SCRIPT LANGUAGE="VBScript"> 
dim pi 
pi = 4 * atn(1.0) 
sub button1_OnClick 
dim angle, sinangle 
angle = AngleInpt.value 
sinangle = getsin(angle) 
SineInpt.value = sinangle 
end sub 
function getsin(angle) 
getsin = sin((pi * angle)/180) 
end function 
sub ieLabel1_Click 
call ieLabel1.AboutBox 
end sub 
</SCRIPT> 
</BODY> 
</HTML>

Label, About Box. ( ). , "Enter Angle", , , . - , button1. , . , . , AngleInpt, . , AngleInpt. , ( VBScript). (getsin), . , SineInpt.

: button1_OnClick, , , , , getsin(angle), angle - , . ActiveX Label ( ): , , (ieLabel1_Click), ieLabel.AboutBox(). , :

call ObjectName.MethodName()

call . ObjectName - , , MethodName() - , . . , .

Internet Explorer 3.0

Window. Window , . . 1 - 3. Window , . , window.name name.

1.
Window.

Frames , ().
Location
Name ,
Parent ,

2.
Window.

Open . : , , , . , window.open(filename,windowname), filename - , windowname - .
Prompt . : , . : window.prompt(ExpString, DftString), ExpString - , DftString - . . ( x=prompt("stuff","more stuff")), , , ""
Close
Navigate URL. : window.navigate(URL), URL - URL,

3.
Window.

OnLoad , , . <BODY>
OnUnLoad , , . <BODY>

Document

Document HTML-. : Link, Anchor Form, link, anchor form. , Form Element, . . 4. Document, , .

4.
Document.

BgColor . #rrggbb
FgColor . BgColor
Referrer URL , . , - : http://www.nm.org/welcome.htm http://www.someplace.com, Referrer : http://www.someplace.com, ; Null
LastModified
Open HTML. : document.open()
Write HTML- , . : document.write(somestring), somestring , HTML,
Close , : document.write, document.close.

Frame

Frame - () . . URL- , . Window, . , .

History

History . , History. . 5. History .

5.
History.

Go , , . : history.go(n), n - ,
Forward , . : history.forward(n), n - , " "
Back , , " " . : history.back(n), n - , " "

Location

Internet Explorer. . 6. .

6.
Location.

Href URL URL<
Protocol (FTP HTTP)
Host URL
Hostname URL

, , , . , VBScript , , . , .

Visual Basic   VBA   VB7 (.NET)       3GL   4GL   DB-


, , - . , , . , .




 10.11.2021 - 12:37: - Personalias -> WHO IS WHO - - _.
10.11.2021 - 12:36: - Conscience -> . ? - _.
10.11.2021 - 12:36: , , - Upbringing, Inlightening, Education -> ... - _.
10.11.2021 - 12:35: - Ecology -> - _.
10.11.2021 - 12:34: , - War, Politics and Science -> - _.
10.11.2021 - 12:34: , - War, Politics and Science -> . - _.
10.11.2021 - 12:34: , , - Upbringing, Inlightening, Education -> , - _.
10.11.2021 - 09:18: - New Technologies -> , 5G- - _.
10.11.2021 - 09:18: - Ecology -> - _.
10.11.2021 - 09:16: - Ecology -> - _.
10.11.2021 - 09:15: , , - Upbringing, Inlightening, Education -> - _.
10.11.2021 - 09:13: , , - Upbringing, Inlightening, Education -> - _.
Bourabai Research -  XXI Bourabai Research Institution