Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Nov 17, 1998

Floating an Edit Box

To minimize the number of controls on my forms, I use a text box as a floating input control that I either overlay onto a grid or swap with a label. Here is my swap subroutine:
 
Public Sub SwapControls(cHide As Control, _
	cShow As Control, Optional Value)
	With cHide
		.Visible = False
		cShow.Move .Left, .Top, .Width, .Height
	End With
	If IsMissing(Value) Then
		If TypeOf cShow Is TextBox Or _
			TypeOf cShow Is Label Then
				cShow = cHide
		End If
	Else
		cShow = Value
	End If

	With cShow
		.Visible = True
		.ZOrder
		If TypeOf cShow Is TextBox Then
			.SelStart = 0
			.SelLength = Len(cShow)
			If .Visible Then
				.SetFocus
			End If
		End If
	End With
End Sub
When I enter the statement "SwapControls lblData, txtData," lblData disappears and txtData appears in its place with the value of lblData selected and the focus set to it. After you make your entry, execute the statement "SwapControls txtData, lblData."
Calogero S.
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date