msgbox without buttons?

I do't want more froms in my aplicattion, just a msgbox that I can call like me.mousepointer or something like this

Make a New Form and and set the borderstyle to 0 with this the user cannot close the Form. Design at will. Then you will have the power of loading and unloading. You can then Add a Progressbar and shape the form that it only see the progressbar. and Do Frm.PB.Value = Whatever

There is no way to do so with the msgbox function

why not just add a textbox that is not visible until you want the message box to appear, that way your app doesn't lose control and you can make it dissappear whenever you want.

osp70

Maybe you can use a Frame.Just make it visible when you want to show it,and hide it when you are done with it.

Consider the following code (it's from the API Guide application www.allapi.net)
...it will create a window.... then when the DestroyWindow method is called close the window.


Option Explicit

Const WS_EX_STATICEDGE = &H20000
Const WS_EX_TRANSPARENT = &H20&
Const WS_CHILD = &H40000000
Const CW_USEDEFAULT = &H80000000
Const SW_NORMAL = 1
Private Type CREATESTRUCT
    lpCreateParams As Long
    hInstance As Long
    hMenu As Long
    hWndParent As Long
    cy As Long
    cx As Long
    y As Long
    x As Long
    style As Long
    lpszName As String
    lpszClass As String
    ExStyle As Long
End Type
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim mWnd As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim CS As CREATESTRUCT
    'Create a new label
    mWnd = CreateWindowEx(WS_EX_STATICEDGE Or WS_EX_TRANSPARENT, "STATIC", "Hello World !", WS_CHILD, 0, 0, 300, 50, Me.hwnd, 0, App.hInstance, CS)
    Me.Caption = mWnd
    'Show our label
    ShowWindow mWnd, SW_NORMAL
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'destroy our label
    DestroyWindow mWnd
End Sub

joboy is near, but  that's not the solution I need. I need a floating window to put a text like "Wait, please" when some code is executing, but I don't want to use more forms in my aplicattion, just a modal window message to put on the top while the code is executing.

anyway thankyou for your responses and hope you understand what I need.

A Messagebox function with or without buttons is still
adding (at least the net effect of) another form to your application.

If you insist on doing this way then make your own component
insert the objects on the Form publish whatever events you want
etc and use the component in your app.

You might be able to solve this by using the API graphics functions to
draw directly on the Desktop if you want the please wait to be on
top of all other windows without making your form Modal.
If you don't want to do it that way then exit the function that
draws the graphics at the beginning if the form does not have
focus.

You can even make a bitmap with your message and use the API
to display it, just call the function to display it on a Timer event.

I'm curious now as to why you don't want more forms when adding a specialized message box is more work.
please enlighten us

osp70

osp70,
that's my first comments!!! i am unable to get my head around to adding a simple form against pages of coding!!!

so you do not have visual studio or such an enviroment.  Just the raw code?

osp70,
it was "jonasito74" who asked the question and not me!!! the plot thickens!!!

for the raw code you will see a section similar to this

    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Button2 As System.Windows.Forms.Button

add to this
 
   Friend WithEvents lblMessage As System.Windows.Forms.Label

below that will be a sub

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       
add to that

   Me.lblMessage = New System.Windows.Forms.Label

below that in the same sub will be a section for describing the control

add this

        '
        'lblMessage
        '
        Me.lblMessage.Location = New System.Drawing.Point(160, 184)  
        Me.lblMessage.Name = "lblMessage"
        Me.lblMessage.Size = New System.Drawing.Size(152, 56)
        Me.lblMessage.TabIndex = 8
        Me.lblMessage.Text = "myMessage"
        Me.lblMessage.Visible = False   ' this will make it invisible

(let me know if you need more controls, ie colour etc.)


you must know the code well enough to say when you want the message to pop up.
In those areas use the code
lblMessage.Visible = True
-- do your stuff ---
lblMessage.Visible = False

Hope this helps and is what you were looking for.

Since nobody give me a good answer, I'm waiting for it

Please give me more options, I'm waiting and the 500 points too

the label and textbox options are good answers.
personally i'd use a status bar

Recommedation: Delete/Refund Points