johnjr

hi all....does anyone have code which will allow me to enter my details like name on a form with a textbox and then for the prog to write the name on the blue bar across the top of the mainform.when the program next runs..it must display the name everytime....can someone help


thanks

JDT

If you are trying to have the text in a text box become the title of the window everytime the program runs then I would use the registry to store that data for me.

<pre>Private Sub Form_Load()

Me.Caption = GetSetting("App_Name", "Startup", "Caption", "Default_Name")

End Sub

Private Sub Form_Unload(Cancel As Integer)

SaveSetting "App_Name", "Startup", "Caption", Text1.Text

End Sub</pre>

JDT

johnjr

hi.thanks for the code......could i use a form with a textbox on it requesting ones name and only when it was entered would it load the mainfrm ???

JDT

Yes you could do that. Here is an example that uses the InputBox instead of a form. You could easily change the code if you realy want to use a form to get the name.

<pre>Option Explicit

Private Sub Form_Load()

Dim blnCancelLoop As Boolean
Dim strMessage As String
Dim strInput As String

strMessage = "What is your name?"

Do

strInput = InputBox(strMessage, "Name", "Your name here")

If StrPtr(strInput) = 0 Then '<-------------Cancel was pressed
blnCancelLoop = True '<-------------------End loop
Unload Me '<------------------------------Quit program
ElseIf strInput = vbNullString Then '<------Pressed OK with no text
strMessage = "You must enter something."
blnCancelLoop = False '<------------------Continue loop
Else '<-------------------------------------Name was entered
Me.Caption = strInput '<------------------Set caption to name
blnCancelLoop = True '<-------------------End loop
End If

Loop Until blnCancelLoop = True

End Sub</pre>

JDT