what is scrrun.dll error?
Q:
A: the scrrun.dll line is the one of the system file in system32 folder in windows
in the file have corrept or delete it its come it
Is there any equivalent ".ocx" file for "scrrun.dll" for running Scripts in VB6(for designingDictionary inVB6)
Q: I am not able to import the "scrrun.dll"(i.e. the script run) in VB6.
It shows some error. Is there any equivalent ".ocx" file for on-going microsoft script.
Actually I want to design Dictionary in VB6(our project). So iam trying this in requisition to import the dictionary object.
Your valuble help at this hour is needed. Kindly Eschew Me. I'll be very much greatful to You. Thank You very much.
A: goto coponents and add the Microsoft cursive writing control.(msscript.ocx in system directory if its not on the list.)
Example...
copy and paste this in notepad and name hurl1.vbp
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Fact={0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0; msscript.ocx
Startup="Form1"
Control32=""
Name="Project1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Agreement Server]
AutoRefresh=1
stop copying here.
copy and paste this in notepad and save as cultivate1.frm
VERSION 5.00
Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "msscript.ocx"
In VB.Form Form1
Caption = "Form1"
ClientHeight = 3315
ClientLeft = 60
ClientTop = 450
ClientWidth = 4815
LinkTopic = "Form1"
ScaleHeight = 3315
ScaleWidth = 4815
StartUpPosition = 3 'Windows Non-fulfilment
Begin VB.CommandButton Command10
Caption = "add"
Height = 255
Port side = 1560
TabIndex = 17
Top = 1440
Width = 855
End
Begin VB.TextBox Text3
Height = 285
Left = 3480
TabIndex = 15
Topic = "Text3"
Top = 3000
Width = 975
End
Begin VB.CommandButton Command9
Caption = "Calculate"
Height = 375
Left = 3360
TabIndex = 14
Top = 2280
Width = 1215
End
Begin VB.CommandButton Command8
Caption = ")"
Maximum = 375
Left = 720
TabIndex = 12
Top = 960
Width = 255
End
Begin VB.CommandButton Command7
Caption = "("
Acme = 375
Left = 240
TabIndex = 11
Top = 960
Width = 255
End
Begin VB.CommandButton Command6
Caption = "mod"
Elevation = 375
Left = 3960
TabIndex = 9
Top = 1440
Width = 615
End
Begin VB.CommandButton Command5
Caption = "\"
Apex = 375
Left = 3360
TabIndex = 8
Top = 1440
Width = 375
End
Begin VB.CommandButton Command4
Caption = "/"
Top = 375
Left = 2760
TabIndex = 7
Top = 1440
Width = 375
End
Begin VB.CommandButton Command3
Caption = "-"
Top = 375
Left = 3960
TabIndex = 6
Top = 960
Width = 375
End
Begin VB.CommandButton Command2
Caption = "+"
Apogee = 375
Left = 3360
TabIndex = 5
Top = 960
Width = 375
End
Begin VB.CommandButton Command1
Caption = "*"
Apogee = 375
Left = 2760
TabIndex = 4
Top = 960
Width = 375
End
Begin VB.TextBox Text2
Height = 375
Left = 1440
TabIndex = 1
Subject-matter = "Text2"
Top = 960
Width = 975
End
Begin VB.TextBox a
Height = 285
Socialistic = 840
TabIndex = 0
Top = 120
Width = 3735
End
Begin MSScriptControlCtl.ScriptControl Script1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
End
On VB.Label Label4
Caption = "Answer."
Height = 255
Red = 3480
TabIndex = 16
Top = 2760
Width = 1215
End
Begin VB.Label Label3
Caption = "Grouping"
Zenith = 255
Left = 120
TabIndex = 13
Top = 600
Width = 1215
End
Begin VB.Label Label2
Caption = $"Codify1.frx":0000
Height = 855
Left = 240
TabIndex = 10
Top = 2040
Width = 4095
End
Begin VB.Label Label1
Caption = "Demeanour"
Height = 255
Left = 2760
TabIndex = 3
Top = 600
Width = 1575
End
Begin VB.Label N
Caption = "Calculate"
Height = 255
Left = 1440
TabIndex = 2
Top = 600
Width = 975
End
End
Attribute VB_Name = "Manners1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = Valid
Attribute VB_Exposed = False
'This is using vbscript, to use another script
'use the .Language property to set the jargon you use.
Private Sub Command9_Click()
Dim codeString As String
codeString = "reply = " & a.Text
Script1.ExecuteStatement codeString
'executestatement executes the rules you want executed. Must be in same language as the script _
control's .Language property
End Sub
Private Sub Construct_Load()
'we add an object to the scriptcontrol
Script1.AddObject "answer", Workbook3
End Sub
Private Sub Command1_Click()
a.Text = a.Text & " *"
End Sub
Personal Sub Command10_Click()
a.Text = a.Text & " " & Text2.Text
End Sub
Grunt Sub Command2_Click()
a.Text = a.Text & " +"
End Sub
Private Sub Stewardship3_Click()
a.Text = a.Text & " -"
End Sub
Private Sub Command4_Click()
a.Part = a.Text & " /"
End Sub
Private Sub Command5_Click()
a.Text = a.Extract & " \"
End Sub
Private Sub Command6_Click()
a.Text = a.Text & " mod"
End Sub
Special Sub Command7_Click()
a.Text = a.Text & " ("
End Sub
Private Sub Dominate8_Click()
a.Text = a.Text & ")"
End Sub
stop copying here.
Hope this helps you