Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!
Monthly Scheduler
Hi EE
I am playing with developing a simple Monthly scheduler the text box for each day is
Width 3cm and Height is 2cm. Is there a way via vba when clicking on a text box it can expand to a given size. I would like to click on a given day, box opens up then enter text for that day when exit the box shrinks back to original size. Any help appreciated
chestera
I am playing with developing a simple Monthly scheduler the text box for each day is
Width 3cm and Height is 2cm. Is there a way via vba when clicking on a text box it can expand to a given size. I would like to click on a given day, box opens up then enter text for that day when exit the box shrinks back to original size. Any help appreciated
chestera
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
You could use this code:
Dim sLastOne As String
Const cmTwips As Integer = 567
Private Sub ExpandMe()
'expand textbox
With Me.ActiveControl
.Width = 5 * cmTwips
.Height = 4 * cmTwips
sLastOne = Me.ActiveControl.name
End With
End Sub
Private Sub RestoreMe()
'restore textbox
If sLastOne <> "" Then
Me.Controls(sLastOne).Width = 3 * cmTwips
Me.Controls(sLastOne).Height = 1 * cmTwips
End If
End Sub
Private Sub Detail_Click()
RestoreMe
End Sub
Private Sub tDay1_GotFocus()
ExpandMe
End Sub
Private Sub tDay2_GotFocus()
ExpandMe
End Sub
Private Sub tDay3_GotFocus()
ExpandMe
End Sub
Private Sub tDay1_LostFocus()
RestoreMe
End Sub
Private Sub tDay2_LostFocus()
RestoreMe
End Sub
Private Sub tDay3_LostFocus()
RestoreMe
End Sub
chestera: you can assign points as you like. Ron's solution is universal - you can use it on any control if they have same siza.
Premium Content
You need an Expert Office subscription to comment.Start Free Trial