L
learner
On my XP Pro PC, apparently there is .Net 1.1 framework installed with C#
but no where can I find the vbc.exe.
What and how should I do get the .Net visual basic in there without
upsetting the C# setup or the studio that was installed? OD I have to
download the entire dot.framework again after uninstall the other one?
Btw how do I compile some VB source into an object and associated it with a
program ID lets say IEScript.Instance. The VB source is to expose the
document in Internet Explorer to script.
'Getting the Running Instance
Private Declare Function GetForegroundWindow _
Lib "user32" () As Long
Private Declare Function GetWindowText _
Lib "user32" Alias "GetWindowTextA" ( _
ByVal HWND As Long, _
ByVal lpString As String, _
ByVal cch As Long _
) As Long
Private Declare Function GetWindowTextLength _
Lib "user32" Alias "GetWindowTextLengthA" ( _
ByVal HWND As Long _
) As Long
Public Property Get HWND() As Long
HWND = GetForegroundWindow()
End Property
Public Property Get Title() As String
Dim text As String
Dim nLen As Long
Dim hwndFocus As Long
hwndFocus = GetForegroundWindow()
nLen = GetWindowTextLength(hwndFocus) + 1
text = String(nLen, 0)
GetWindowText hwndFocus, text, nLen
Title = text
End Property
Public Property Get IEDocument() As Object
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Set IEDocument = Nothing
For Each IE In SWs
If IE.HWND = HWND Then
Set IEDocument = IE.Document
End If
Next
End Property
Public Property Get IEObject() As Object
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Set IEObject = Nothing
For Each IE In SWs
If IE.HWND = HWND Then
Set IEObject = IE
End If
Next
End Property
but no where can I find the vbc.exe.
What and how should I do get the .Net visual basic in there without
upsetting the C# setup or the studio that was installed? OD I have to
download the entire dot.framework again after uninstall the other one?
Btw how do I compile some VB source into an object and associated it with a
program ID lets say IEScript.Instance. The VB source is to expose the
document in Internet Explorer to script.
'Getting the Running Instance
Private Declare Function GetForegroundWindow _
Lib "user32" () As Long
Private Declare Function GetWindowText _
Lib "user32" Alias "GetWindowTextA" ( _
ByVal HWND As Long, _
ByVal lpString As String, _
ByVal cch As Long _
) As Long
Private Declare Function GetWindowTextLength _
Lib "user32" Alias "GetWindowTextLengthA" ( _
ByVal HWND As Long _
) As Long
Public Property Get HWND() As Long
HWND = GetForegroundWindow()
End Property
Public Property Get Title() As String
Dim text As String
Dim nLen As Long
Dim hwndFocus As Long
hwndFocus = GetForegroundWindow()
nLen = GetWindowTextLength(hwndFocus) + 1
text = String(nLen, 0)
GetWindowText hwndFocus, text, nLen
Title = text
End Property
Public Property Get IEDocument() As Object
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Set IEDocument = Nothing
For Each IE In SWs
If IE.HWND = HWND Then
Set IEDocument = IE.Document
End If
Next
End Property
Public Property Get IEObject() As Object
Dim SWs As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer
Set IEObject = Nothing
For Each IE In SWs
If IE.HWND = HWND Then
Set IEObject = IE
End If
Next
End Property