WinForms

Απ: BackGroundWorker

yannis — Wed, 29 Apr 2009 22:23:33 GMT

ευχαριστω ΠΑΡΑ πολύ

Απ: BackGroundWorker

ikaragkiozoglou — Wed, 29 Apr 2009 22:14:02 GMT

Έκανα αυτήν την LoadingForm μονο που την έκανα σε C# γιατί δεν το έχω με την VBnet

πρέπει να κάνεις

using System.Windows.Forms;

using System.Threading;

using System.ComponentModel;

	class MyLoadingForm : Form
	{
		private Form FrmToLoad;
		private Label lblLoading;
		private string _loadingText;
		private BackgroundWorker bw;
		private void InitializeComponents()
		{
			// set the form properties
			this.Text = "";
			this.AutoSize = true;
			this.FormBorderStyle = FormBorderStyle.FixedSingle;
			
			// add a label
			lblLoading = new Label();
			lblLoading.AutoSize = true;
			lblLoading.Text = _loadingText;
			
			this.Controls.Add(lblLoading);
			
			bw = new BackgroundWorker();
			
			
			bw.DoWork += new DoWorkEventHandler(bw_DoWork);
			bw.RunWorkerCompleted+= new RunWorkerCompletedEventHandler(bw_RunWorkerCompleted);
			this.Load += new EventHandler(MyLoadingForm_Load);
		}

		void MyLoadingForm_Load(object sender, EventArgs e)
		{
			bw.RunWorkerAsync();
		}

		void bw_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e)
		{
			this.Close();
		}

		void bw_DoWork(object sender, DoWorkEventArgs e)
		{
			Thread th = new Thread(ShowDataForm);
			
			th.Start();			
		}
		
		void ShowDataForm()
		{
			FrmToLoad.ShowDialog();
		}
		
		public MyLoadingForm( Form frm, string LoadingText)
		{
			FrmToLoad = frm;
			_loadingText = LoadingText;
			
			InitializeComponents();	
		}
	}

και μετά φτιάχνεις την φόρμα που θες και το περνας σαν παράμετρο στον constructor και του περνάς και το loading text.

Form frm = new Form();
frm.Text = "DATA";
MyLoadingForm frml = new MyLoadingForm( frm, "LOADING");
frml.Show();

Απ: BackGroundWorker

yannis — Wed, 29 Apr 2009 21:32:36 GMT

Ευχαριστω για την απαντηση. Στον κωδικα που μου εστειλες θα πρεπει να δημιουργησω και ενα νεο threat το οποιο να ανοιγει μονο την loading.... form? Καταλαβα καλα?

Απ: BackGroundWorker

ikaragkiozoglou — Tue, 28 Apr 2009 03:10:17 GMT

Δες το Parallel Programming εδώ - http://blogs.msdn.com/pfxteam/

Και κατέβασε το CTP Για το .Net 3.5 http://www.microsoft.com/downloads/details.aspx?FamilyId=348F73FD-593D-4B3C-B055-694C50D2B0F3&displaylang=en

Αν δεν θές το PFX δοκίμασε να το κάνεις με threads. Κάνε μια στατική μέθοδο που δημιουργεί ένα νέο thread και βάλε να άνοίγει την φόρμα.

Imports System.Windows.Forms
Imports System.Threading
Module FormHandler
	Sub OpenFrm(ByVal frm As Form)
		Dim th As new Thread( Addressof frm.Show)
		th.Start()
	End Sub
End Module

Άν θες να έχει και μια φόρμα Loading, απλά την φτιάχνεις και βάζεις στο Load να καλεί την OpenFrm.

BackGroundWorker

yannis — Fri, 24 Apr 2009 03:35:43 GMT

Παιδιά καλησπέρα , έχω φάει τα λυσακά μου με το Backgroundworker.

Το χρησιμοποιω κανονικα σε φορμες για να τρεξω χρονοβορες διαδικασιες και ολα καλα.

θέλω όμως να φτιαξω μια Loadingform. στις περιπτωσεις που ανοιγω αλλες φορμες και κανουν ώρα να φορτώσουν data

αντι λοιπον να βαλω σε καθε φορμα backgroundworker εφτιαξα μια frmwait και δεν βγαζω ακρη απο που και πως θα καλω το backgroundworker.

Προσπαθησα να φτιαξω μια κλαση που να περναω το ονομα της φορμας που θελαω να ανοιξω και εγραψα αυτο τον κωδικα αλλα δεν καταλαβαινω πλεον τιποτα (ειμαι σχετικα ερασιτεχνης στον προγραμματισμο)

Μπορειτε να βοηθησετε να το κατανοησω

Public Sub ShowWait(ByVal show As Boolean, ByVal frmtoOpen As Form)

Try

AddHandler bg.DoWork, AddressOf workerDowork

AddHandler bg.RunWorkerCompleted, AddressOf workerCompleted

Dim fw As New frmWait

If show Then

Application.DoEvents()

fw.StartPosition = FormStartPosition.Manual

Dim bnd As New System.Drawing.Rectangle

bnd = My.Computer.Screen.Bounds

fw.Left = Math.Round(bnd.Width / 2) - Math.Round(fw.Width / 2)

fw.Top = Math.Round(bnd.Height / 2) + Math.Round(fw.Height / 2)

fw.TopMost = True

fw.Show()

Else

For Each fw1 As Form In My.Application.OpenForms

If fw1.Name = "frmwait" Then

fw1.Close()

Exit For

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub workerDowork(ByVal sender As Object, ByVal e As doworkeventargs)

Dim fn As New Form

fn = e.Argument

fn.Show()

End Sub

Private Sub workerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)

End Sub