PraizesLiberato
Registered User.
- Local time
- Today, 07:30
- Joined
- Dec 6, 2009
- Messages
- 69
Private Sub RelationshipHistoryArt_DblClick(Cancel As Integer)
If counter = 0 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 2
DateofArt.Height = DateofArt.Height * 2
Me.Detail.Height = Me.Detail.Height * 2
counter = counter + 1
ElseIf counter = 1 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 1.5
DateofArt.Height = DateofArt.Height * 1.5
Me.Detail.Height = Me.Detail.Height * 1.5
counter = counter + 1
ElseIf counter = 2 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 1.5
DateofArt.Height = DateofArt.Height * 1.5
Me.Detail.Height = Me.Detail.Height * 1.5
counter = 3
Else
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height / 4.5
DateofArt.Height = DateofArt.Height / 4.5
Me.Detail.Height = Me.Detail.Height / 9
counter = 0
End If
End Sub
I need to turn this into a function that can make my input textboxes in my continuous form to resize without Typing in the name of the Textboxes each time.
Or Something that searches for a control with the Keyword input and Loops through till all the Key worded names are expanded.
If counter = 0 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 2
DateofArt.Height = DateofArt.Height * 2
Me.Detail.Height = Me.Detail.Height * 2
counter = counter + 1
ElseIf counter = 1 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 1.5
DateofArt.Height = DateofArt.Height * 1.5
Me.Detail.Height = Me.Detail.Height * 1.5
counter = counter + 1
ElseIf counter = 2 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 1.5
DateofArt.Height = DateofArt.Height * 1.5
Me.Detail.Height = Me.Detail.Height * 1.5
counter = 3
Else
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height / 4.5
DateofArt.Height = DateofArt.Height / 4.5
Me.Detail.Height = Me.Detail.Height / 9
counter = 0
End If
End Sub
I need to turn this into a function that can make my input textboxes in my continuous form to resize without Typing in the name of the Textboxes each time.
Or Something that searches for a control with the Keyword input and Loops through till all the Key worded names are expanded.