M
Mark Durrenberger
Ok, I now know more about the situation.
On connection fires normally.
In the onconnection code, I launch a form (frmTest.show(vbmodal)
Somehow, launching this form kicks off another instance of MS Project
With the new instance of Project, OnConnection fires again.
To my knowledge, I am not doing anything to create a new instance of MS
Project?????
Thanks
Mark
the form load event code is below:
Private Sub Form_Load()
Dim strTempFile As String
If gblblnFirstTime = True Then
' put a temporary key into the text box
Me.Label1.Caption = "The key below will allow a 30 day trial. A temporary
key can also be found in the directory."
Me.keyString = "longstringhere"
Else
Me.Label1.Caption = "Please enter a permanent key."
Me.keyString = ""
End If
With picRangerLogo
.Width = ScaleX(291, vbPixels, vbTwips)
.Height = ScaleY(77, vbPixels, vbTwips)
.Left = Me.ScaleWidth / 2 - .Width / 2
.Visible = True
End With
Call oakGetGIFFile(101, strTempFile)
Set picRangerLogo.Picture = LoadPicture(strTempFile)
Kill strTempFile
strTempFile = ""
With lblVersion
.AutoSize = True
.Caption = gblOakVersion
.Move Me.ScaleWidth - .Width, Me.ScaleHeight - .Height
End With
With picMiniLogo
.BorderStyle = 0
.Width = ScaleX(72, vbPixels, vbTwips)
.Height = ScaleY(14, vbPixels, vbTwips)
.Left = Me.ScaleLeft
.Top = Me.ScaleHeight - .Height
End With
Call oakGetGIFFile(103, strTempFile)
Set picMiniLogo.Picture = LoadPicture(strTempFile)
Kill strTempFile
End Sub
--
_________________________________________________________
Mark Durrenberger, PMP
Principal, Oak Associates, Inc, www.oakinc.com
"Advancing the Theory and Practice of Project Management"
________________________________________________________
The nicest thing about NOT planning is that failure
comes as a complete surprise and is not preceded by
a period of worry and depression.
- Sir John Harvey-Jones
On connection fires normally.
In the onconnection code, I launch a form (frmTest.show(vbmodal)
Somehow, launching this form kicks off another instance of MS Project
With the new instance of Project, OnConnection fires again.
To my knowledge, I am not doing anything to create a new instance of MS
Project?????
Thanks
Mark
the form load event code is below:
Private Sub Form_Load()
Dim strTempFile As String
If gblblnFirstTime = True Then
' put a temporary key into the text box
Me.Label1.Caption = "The key below will allow a 30 day trial. A temporary
key can also be found in the directory."
Me.keyString = "longstringhere"
Else
Me.Label1.Caption = "Please enter a permanent key."
Me.keyString = ""
End If
With picRangerLogo
.Width = ScaleX(291, vbPixels, vbTwips)
.Height = ScaleY(77, vbPixels, vbTwips)
.Left = Me.ScaleWidth / 2 - .Width / 2
.Visible = True
End With
Call oakGetGIFFile(101, strTempFile)
Set picRangerLogo.Picture = LoadPicture(strTempFile)
Kill strTempFile
strTempFile = ""
With lblVersion
.AutoSize = True
.Caption = gblOakVersion
.Move Me.ScaleWidth - .Width, Me.ScaleHeight - .Height
End With
With picMiniLogo
.BorderStyle = 0
.Width = ScaleX(72, vbPixels, vbTwips)
.Height = ScaleY(14, vbPixels, vbTwips)
.Left = Me.ScaleLeft
.Top = Me.ScaleHeight - .Height
End With
Call oakGetGIFFile(103, strTempFile)
Set picMiniLogo.Picture = LoadPicture(strTempFile)
Kill strTempFile
End Sub
--
_________________________________________________________
Mark Durrenberger, PMP
Principal, Oak Associates, Inc, www.oakinc.com
"Advancing the Theory and Practice of Project Management"
________________________________________________________
The nicest thing about NOT planning is that failure
comes as a complete surprise and is not preceded by
a period of worry and depression.
- Sir John Harvey-Jones