WinForms

Απ: Κάλεσμα propertys μίας άγνωστης φόρμας

Demelene — Tue, 09 Jan 2007 21:46:18 GMT

Ο κώδικάς μου από μια βιβλιοθήκη που έχω φτοιάξει.

using System;
using System.Reflection;

namespace GiveYourNamespace

{
public class Property
{
  public Property()
  {
  }
  protected static void SetValue(object TargetObject,PropertyInfo Property,object Value)
  {
   Property.SetValue(TargetObject,Value,null);
  }

  protected static object GetValue(object TargetObject,PropertyInfo Property)
  {
   return Property.GetValue(TargetObject,null);
  }
  public static void SetValue(object TargetObject,string PropertyName,object Value)
  {
   if(PropertyName=="")
    return;
   PropertyInfo xInfo=GetProperty(TargetObject.GetType().GetProperties(),PropertyName);
   if(xInfo==null)
    return;
   SetValue(TargetObject,xInfo,Value);
  }

  public static object GetValue(object TargetObject,string PropertyName)
  {
   if(PropertyName=="")
    return null;
   PropertyInfo xInfo=GetProperty(TargetObject.GetType().GetProperties(),PropertyName);
   if(xInfo==null)
    return null;
   return GetValue(TargetObject,xInfo);
  }

  protected static PropertyInfo GetProperty(PropertyInfo[] Properties,string PropertyName)
  {
   for(int i=0;i<Properties.Length;i++)
   {
    if(Properties.Name==PropertyName)
     return Properties;
   }
   return null;
  }
}
}

Η χρήση πχ GiveYourNamespace.Property.SetValue(oForm,"Visible",true);

Στο λαμπτήρα είναι σε άγκιστρα το i του for-loop αλλά έχει bug η εμφάνιση.

Απ: Κάλεσμα propertys μίας άγνωστης φόρμας

Dimitris Papadimitriou — Sun, 07 Jan 2007 04:30:50 GMT

Ο anjelinio έχει δίκιο. Με την InvokeMember μπορεί να κάνεις τη δουλειά, αλλά δεν είναι ο ενδεικνυόμενος τρόπος.

Βάλε κάπου στο project σου το παρακάτω

Public Interface IMyInterface

WriteOnly Property ContactID as String

End Interface

Στην φόρμα σου, αμέσως μετά το Public Form myForm, γράψε την επόμενη γραμή

Implements IMyInterface

Άλλαξε την γραμμή Public WriteOnly Property ContactID() As String

με την γραμμή Public WriteOnly Property ContactID() As String Implements IMyInterface.ContactID

πριν το frm.ShowDialog(Me) γράψε το εξής:

Dim frm1 as IMyInterface = CType(frm, IMyInterface)

frm1.ContactID = "1234"

Απ: Κάλεσμα propertys μίας άγνωστης φόρμας

Παναγιώτης Καναβός — Sun, 07 Jan 2007 04:23:42 GMT

Χίλιες φορές καλύτερα να φτιάξεις ένα Interface. H VB.NET πάντως επιτρέπει να καλέσεις άγνωστες μεθόδους σε ένα αντικείμενο, αν πρώτα το κάνεις cast σε Object.

Απ: Κάλεσμα propertys μίας άγνωστης φόρμας

Aris — Sun, 07 Jan 2007 03:54:30 GMT

Γιά την InvokeMember, δες http://msdn2.microsoft.com/en-us/library/66btctbe.aspx.

Πάντως, η καλύτερη μέθοδος είναι να ορίσεις (και να υλοποιήσεις στις φόρμες) ένα απλό interface, για το property.

Απ: Κάλεσμα propertys μίας άγνωστης φόρμας

anjelinio — Sat, 06 Jan 2007 06:43:22 GMT

Νομίζω οτι το να υλοποιήσεις ένα κοινό interface απο τις φόρμες σου είναι πιο "καθαρή" ιδέα Άρη. Εάν θεωρήσεις οτι οι φόρμες αυτές λειτουργούν πάνω κάτω σαν plugin modules, είναι πολύ σωστό να υλοποιούν και ένα κάποιο βασικό interface όλες.

Το reflection θα πρέπει να το δείς ως λύση last resort. Παρόλα αυτά, αν θές δες εδώ ένα παράδειγμα απο ένα παλιό post το οποίο κάνει ακριβώς αυτό που θες - set property value με reflection.

Απ: Κάλεσμα propertys μίας άγνωστης φόρμας

mkoukou — Sat, 06 Jan 2007 02:55:47 GMT

Βασικά δεν έχω χρησιμοποιήσει την InvokeMember ξανά. Μήπως μπορείς να μου πεις πιο αναλυτικά πως γίνεται διότι δεν βρήκα τον τρόπο.

Ευχαριστώ

Απ: Κάλεσμα propertys μίας άγνωστης φόρμας

Aris — Fri, 05 Jan 2007 23:33:56 GMT

Θα μπορούσες να χρησιμοποιήσεις ένα base class γιά τις φόρμες αυτές, που να ενσωματώνει το property ή (καλύτερα) ένα interface. Και αντίστοιχο type casting με την CType. Αυτό θα επέτρεπε απ' ευθείας χρήση του property.

Επίσης, μπορείς να χρησιμοποιήσεις την InvokeMember πάνω στον τύπο που φτιάχνεις.

Κάλεσμα propertys μίας άγνωστης φόρμας

mkoukou — Fri, 05 Jan 2007 21:38:20 GMT

Γειά σας,

Έχω 5 φόρμες οι οποίες όλες έχουν το συγκεκριμένο property

Public WriteOnly Property ContactID() As String

Set(ByVal value As String)

m_ContactID = value

End Set

End Property

Αυτές οι φόρμες καλούνται από μία parent μέσω του

Dim frm As Form = CType(Assembly.GetExecutingAssembly().CreateInstance(My.Application.Info.ProductName & "." & EditFormName, True), Form)

frm.ShowDialog(Me)

όπου το EditFormName περιέχει το όνομα μίας από τις 5 φόρμες.

Αυτό που θέλω να κάνω είναι να δίνω τιμή και στο ContactID της φόρμας. Υπάρχει κάποιος τρόπος για να γίνει αυτό;

Ευχαριστώ