An example of what you can do with StatusDlg

[boku]

The StatusDlg is quite a handy little feature...

I was going to write a DialogEx page but then remembered it. Having used it only to show zipping before I decided to see what else I could make it do.

Here is my code for those interested (yes I know its a mess but its to make it easier for the less knowledgable to read/understand :rolleyes)


StatusDlg.Show(MB_ICONINFORMATION, false);
StatusDlg.SetTitle("Create New Tables");
StatusDlg.SetAutoSize(true);
StatusDlg.SetMeterRange(0, 6);
StatusDlg.ShowProgressMeter(true);

StatusDlg.SetMessage( "Table: Expenses Status: Waiting..."
.."\r\nTable: Projects Status: Waiting..."
.."\r\nTable: Rates Status: Waiting..."
.."\r\nTable: RateCodes Status: Waiting..."
.."\r\nTable: Tasks Status: Waiting..."
.."\r\nTable: ToDo Status: Waiting..."
);
--START BUILDING TABLES--
StatusDlg.SetStatusText("Building Table: Expenses");
Application.Sleep(2500);

StatusDlg.SetMeterPos(1);
StatusDlg.SetMessage( "Table: Expenses Status: Built"
.."\r\nTable: Projects Status: Waiting..."
.."\r\nTable: Rates Status: Waiting..."
.."\r\nTable: RateCodes Status: Waiting..."
.."\r\nTable: Tasks Status: Waiting..."
.."\r\nTable: ToDo Status: Waiting..."
);

StatusDlg.SetStatusText("Building Table: Projects");
Application.Sleep(2500);

StatusDlg.SetMeterPos(2);
StatusDlg.SetMessage( "Table: Expenses Status: Built"
.."\r\nTable: Projects Status: Built"
.."\r\nTable: Rates Status: Waiting..."
.."\r\nTable: RateCodes Status: Waiting..."
.."\r\nTable: Tasks Status: Waiting..."
.."\r\nTable: ToDo Status: Waiting..."
);

StatusDlg.SetStatusText("Building Table: Rates");
Application.Sleep(2500);

StatusDlg.SetMeterPos(3);
StatusDlg.SetMessage( "Table: Expenses Status: Built"
.."\r\nTable: Projects Status: Built"
.."\r\nTable: Rates Status: Built"
.."\r\nTable: RateCodes Status: Waiting..."
.."\r\nTable: Tasks Status: Waiting..."
.."\r\nTable: ToDo Status: Waiting..."
);

StatusDlg.SetStatusText("Building Table: RateCodes");
Application.Sleep(2500);

StatusDlg.SetMeterPos(4);
StatusDlg.SetMessage( "Table: Expenses Status: Built"
.."\r\nTable: Projects Status: Built"
.."\r\nTable: Rates Status: Built"
.."\r\nTable: RateCodes Status: Built"
.."\r\nTable: Tasks Status: Waiting..."
.."\r\nTable: ToDo Status: Waiting..."
);

StatusDlg.SetStatusText("Building Table: Tasks");
Application.Sleep(2500);

StatusDlg.SetMeterPos(5);
StatusDlg.SetMessage( "Table: Expenses Status: Built"
.."\r\nTable: Projects Status: Built"
.."\r\nTable: Rates Status: Built"
.."\r\nTable: RateCodes Status: Built"
.."\r\nTable: Tasks Status: Built"
.."\r\nTable: ToDo Status: Waiting..."
);

StatusDlg.SetStatusText("Building Table: ToDo");
Application.Sleep(2500);

StatusDlg.SetMeterPos(6);
StatusDlg.SetMessage( "Table: Expenses Status: Built"
.."\r\nTable: Projects Status: Built"
.."\r\nTable: Rates Status: Built"
.."\r\nTable: RateCodes Status: Built"
.."\r\nTable: Tasks Status: Built"
.."\r\nTable: ToDo Status: Built"
);

Application.Sleep(2500);

Dialog.Message("Create New Tables", "Table Creation Process Complete.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
StatusDlg.Hide();

This IS just an example, it doesnt actually create the tables ... yet ;) , just put above code in a button or something