Visual Basic
VBA
VB7 (.NET)
3GL
4GL
DB-
web- VBScript
-
-
-
-
- Internet Explorer 3.0
VBScript
-
- VBScript?
- ?
- VBScript HTML-
- VBSCRIPT
- VBScript
-
- VBScript
- VBScript
- VBScript
-
-
- VBScript
- VBScript
- VBScript Internet Explorer
-
- VBScript
- VBScript
- VBA, VBScript
- VBScript, VBA
- Scripting Run-Time Library Reference Features
-
- Class
- Dictionary
- Err
- FileSystemObject
- FileSystemObject
- FileSystemObject
- Drive
- File
- TextStream
- Match
- RegExp
|
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>.
,
- 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 , ,
. , .
