I'd like to update my scriptprogress userform so it will display during my 5.64 Meditech script sessions.
Problem: minimal screen real-estate available due to Meditech taking up
the entire window (about 40 pixels above and below available).
Solution: itty bitty userform text, thin progress bar line, and hide the
titlebar (along with the X control)
Problem: everything I've found on the internet shows ways to do this in
VBA for Excel (which doesn't quite work) or full-blown VB (which uses
calls to set variables and conditions that vba doesn't have)
My Userform code without the code to get rid of the titlebar:
'********************************************
'** BEGIN : CHRISTUS Health ScriptProgress **
'** form for use in scripting of looping **
'** scripts. To be used with the **
'** ProgressBar function in the Common **
'** module. **
'** **
'** Last Updated: 06/11/10, Mitch Lawrence **
'********************************************
'
'****Define Subroutines****
Private Sub UserForm_Initialize()
Me.Left = 200
Me.Top = 0
If VarType(F("Script Name")) = vbError Then
lblScriptName = ""
Else
lblScriptName = F("Script Name")
End If
lblStatus.Caption = "0 <-- Current Record"
lblTotalRecords.Caption = "Total Records --> 0"
ProgressBar1.Enabled = True
End Sub
'
'********************************************
'** END : CHRISTUS Health ScriptProgress **
'** form for use in scripting of looping **
'** scripts **
'** **
'** Last Updated: 06/11/10, Mitch Lawrence **
'********************************************
Can anyone provide the extra code required to get rid of the titlebar of
my userform when it is initialized (hopefully without affecting any
other windows on the screen, as I had one solution that seemed to work
until it all of the sudden killed my meditech session).
Thank you,
Mitch Lawrence
Lead Applications Analyst
Enterprise Data Standards - NPR/Automation
CHRISTUS Information Management
(tm): [email protected]
<mailto:[email protected]>
--- To post a message to this list, send mail to: [email protected] You are
currently subscribed as: [email protected] Unsubscribe in the
customer center on our website:
http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx <<image001.png>>
