Just thinking. It\'s 10.30PM over here and I\'m still on the forum. Why is it that sometimes we stick around too long? I know I\'m not the only one. \r\nHey, I learned VBA for work, but I left work 6 hours ago. I must be doing something wrong. Am I a codaholic? \r\n
\r\n
Code:
\r\n
\'Code below should be in the ThisBody module of your project.\r\n\'It can be used in the PositionChange event of the ThisBody module, but...\r\n\'remember that the BoyfriendActionChange event of the ThisGirlfriend module\r\n\'might also be triggered at the same time.\r\n\r\nSelect Case Position \r\nCase Vertical\r\n Select Case Location\r\n Case AtWork\r\n MsgBox "No problem" & vbCrLf & "Keep working"\r\n Case AtHome\r\n If Computer.MozillaFireFox.CurrentSite = _\r\n [url]http://www.xtremevbtalk.com[/url] Then\r\n MsgBox "You\'re a codaholic!", vbCritical\r\n GirlfriendWarning = Inputbox("Is you girlfriend angry about your coding again?", vbQuestion)\r\n If GirlfriendWarning = vbYes Then\r\n Call GirlfriendCritical\r\n End If\r\n End If\r\n End Select\r\nCase Horizontal\r\n If LeftEye is Open and RightEye is Open Then\r\n MsgBox "You are probably doing something nice" \'possibly also check where you are\r\n Else\r\n Exit Sub\r\n End If\r\nEnd Select\r\n\r\nPublic Sub GirlfriendCritical()\r\nMsgBox "Shut down all machines and buy flowers for Girlfriend", vbCritical\r\nEnd Sub
\r\n
Maybe I have to do some debugging...
\r\n \r\n\r\n
\r\n
\r\n
\r\n \r\n\r\n \r\n \r\n\r\n \r\n \r\n
\r\n __________________ \r\n "Accept what you can not change and change what you can not accept" - Me \r\n"Normal is the average of all oddities" - Me \r\n"Don\'t re-invent the wheel!" - My dad \r\nPlease enclose your code in [vb] and [/vb] tags\r\n
\r\n \r\n \r\n\r\n \r\n\r\n \r\n \r\n
\r\n \r\n \r\n \r\n Last edited by Wheels1978; 02-01-2005 at 03:06 PM.\r\n \r\n \r\n \r\n
Just thinking. It's 10.30PM over here and I'm still on the forum. Why is it that sometimes we stick around too long? I know I'm not the only one.
Hey, I learned VBA for work, but I left work 6 hours ago. I must be doing something wrong. Am I a codaholic?
Code:
'Code below should be in the ThisBody module of your project.
'It can be used in the PositionChange event of the ThisBody module, but...
'remember that the BoyfriendActionChange event of the ThisGirlfriend module
'might also be triggered at the same time.
Select Case Position
Case Vertical
Select Case Location
Case AtWork
MsgBox "No problem" & vbCrLf & "Keep working"
Case AtHome
If Computer.MozillaFireFox.CurrentSite = _
[url]http://www.xtremevbtalk.com[/url] Then
MsgBox "You're a codaholic!", vbCritical
GirlfriendWarning = Inputbox("Is you girlfriend angry about your coding again?", vbQuestion)
If GirlfriendWarning = vbYes Then
Call GirlfriendCritical
End If
End If
End Select
Case Horizontal
If LeftEye is Open and RightEye is Open Then
MsgBox "You are probably doing something nice" 'possibly also check where you are
Else
Exit Sub
End If
End Select
Public Sub GirlfriendCritical()
MsgBox "Shut down all machines and buy flowers for Girlfriend", vbCritical
End Sub
Maybe I have to do some debugging...
__________________
"Accept what you can not change and change what you can not accept" - Me
"Normal is the average of all oddities" - Me
"Don't re-invent the wheel!" - My dad
Please enclose your code in [vb] and [/vb] tags
Last edited by Wheels1978; 02-01-2005 at 03:06 PM.
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET. subscribe
\r\n\r\n\r\n
Why am I here at this time of day?
Threaded Mode
