>>Using VB6 Enterprise Edition.
>>
[quoted text clipped - 13 lines]
>
>Chuck
Finally got what I want. added code at the very top of the data input form:
Private Sub Form Load ()
MsgBox"......." & Chr$(13) & "......")
End Sub
Notice the Chr$(13) for line feed. The VB6 book that I have shows Chr(13)
without the $. If the $ is left our there is a compile error.
The message doesn't fill the whole screen, but it looks good and is centered
nicely. There are 14 lines of text and the box has an OK button that closes
the message box and opens the data input form.
Is it possible to format only the first line of text to a larger font and make
it bold?
Chuck
--
> Finally got what I want. added code at the very top of the data input form:
> Private Sub Form Load ()
[quoted text clipped - 3 lines]
> Notice the Chr$(13) for line feed. The VB6 book that I have shows Chr(13)
> without the $. If the $ is left our there is a compile error.
I would have written
"......." & vbCrLf & "......")
vbCrLf is a pre-defined constant that puts a carriage return and line feed into
a string.
> The message doesn't fill the whole screen, but it looks good and is centered
> nicely. There are 14 lines of text and the box has an OK button that closes
> the message box and opens the data input form.
>
> Is it possible to format only the first line of text to a larger font and make
> it bold?
You can just create your own message form, with whatever properties you need,
including a one line label in bold followed by a multi-line label in regular.
To run it, I would change your project to start with Sub Main, and then in a
module write
Sub Main()
MsgForm.Show vbModal
' vbModal = code stops and waits for form to close...
FormMain.Show
End Sub
Chuck - 14 Dec 2006 13:10 GMT
>> Finally got what I want. added code at the very top of the data input form:
>> Private Sub Form Load ()
[quoted text clipped - 28 lines]
> FormMain.Show
>End Sub
Thanks Steve.
I don't understand exactly what you'r telling me, but I'm going to play around
with it and see what I can do. I'll get back and let you know what happens.
Chuck
--