Lsteinme

In diesem Fall brauche ich defakto das LDAP um einen Namen auf zulösen. Ich meinte Global Catalog, sorry. also sowas in der Richtung hier: Binding to the Global Catalog (Windows)

Hallo, bisher hat folgender Code immer funktioniert und mir den korrekten Pfad zu meiner GC geliefert: 'Nach dem Connection String suchen Dim oCont As Object = GetObject("GC:") For Each gc As Object In oCont gcPath = gc.ADsPath Next Versuche ich das ganze nun aber unter Windows 7 auf einem Server, so bekomme ich immer ein leeres gcPath Objekt/String raus. Wie man sicher sicher denken kann, will ich später auch was aus der GC auslesen, wegen ich den Pfad brauche. Ich hab auch versucht einfach mal den String fix vorzugeben, auch das funktioniert im Serverkontext nicht, bzw ich bekomme eine "Network path not found" Com-Exception zurück wenn icher später versuche den Pfad zum abruf von Daten zu verwenden. Was jedoch funktioniert ist das ganze auf einer lokalen Rechner internen Festplatte laufen zu lassen. hier funktioniert alles wie bisher gewohnt. Ebenso funktioniert das gleiche Prozedere, mit dem Absolut gleichen Code, wenn man es von einem W-XP Rechner aus an startet ohne Probleme. Woran kann dieses verhalten liegen? wurde da von Windows XP zu Windows 7 irgendwas geändert in Sachen Zugriff auf die GC? Oder liegt da ehr beim Server was im argen? Hoffe jemand weiß da Rat, gruß Lucas

Hallolo, Ich hab aktuell mal wieder ein Problem das ich net so ganz nachvollziehen kann, (wer häts gedacht^^), und hoffe hier vielleicht jemand ne Idee hat wie das zu lösen ist. Problem is wie folgt: Ich hab ein Tablelayout das sich beliebig vergrößern kann in einem 2ten Tablelayout integriert. Das innere Tablelayout hat Autoscoll auf on gestellt. Wenn ich das Programm starte, und das Window ist zu klein für eine Volle anzeige, erscheinen auch die scrollbars. Drücke ich jetzt aber 2 mal Maximieren (lasse das fenster also wieder schrumpfen), so erscheinen die scrollbars nicht wieder und mein Content wird beschnitten. Woran liegts? Kann gern den Designercode dazu posten, denk aber net das das viel hilft^^

Hier mal eine Kurzversion des Codes der die bugs hervorruf: Logischer Teil: Public Class Form1 Dim contstrip As ContextMenuStrip Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. Dim dt As New DataTable("testtable") Dim dv As New DataView dv.Table = dt dt.Columns.AddRange({New DataColumn("Col1"), New DataColumn("Col2"), New DataColumn("Col3")}) Dgv.DataSource = dv contstrip = New ContextMenuStrip(Me.components) AddHandler contstrip.Opening, AddressOf openhandler For Each col As DataGridViewColumn In Dgv.Columns col.HeaderCell.ContextMenuStrip = contstrip Dim item As New ToolStripMenuItem(col.HeaderText) AddHandler item.Click, AddressOf clickhandler item.Checked = True item.CheckOnClick = True contstrip.Items.Add(item) Next End Sub Public Sub clickhandler() End Sub Public Sub openhandler(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Dim refofStrip As Integer = contstrip.GetHashCode Dim refoffirstitem As Integer = contstrip.Items(0).GetHashCode Dim refofsender As Integer = sender.GetHashCode End Sub End Class Designer: <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.Dgv = New System.Windows.Forms.DataGridView() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) CType(Me.Dgv, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Dgv ' Me.Dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.Dgv.Dock = System.Windows.Forms.DockStyle.Fill Me.Dgv.Location = New System.Drawing.Point(0, 0) Me.Dgv.Name = "Dgv" Me.Dgv.Size = New System.Drawing.Size(588, 463) Me.Dgv.TabIndex = 0 ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(588, 463) Me.Controls.Add(Me.Dgv) Me.Name = "Form1" Me.Text = "Form1" CType(Me.Dgv, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents Dgv As System.Windows.Forms.DataGridView Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip End Class Realcode is zwar komplizierter, tut aber mit dem CMS nicht mehr

ok ich hab nochmal bisle am Ablauf rum geforscht, es sieht so aus, als ob irgendwo während der Laufzeit, an einem Punkt, auf den ich keinen Einfluss habe, die Referenz auf eine Art Clon geändert wird. Nach der Inizialen zuweisung des CMS an die Columns, sind die Objekte nämlich, laut Hashcode, alle die gleichen. Der Unterschied tritt erst beim öffnen des CMS über den Columns auf. Ich weis aber mit absoluter Sicherheit, das ich zwischen der inizialisierung und der öffnung des Strips im Code NICHTS mit dem CMS der einzelnen Columns mache. kennt jemand so ein Problem und kann mir ne Lösung verraten? Ich wär auch schon froh wenn mir jemand sagen könnte, was das System veranlasst von einem Objekt, ohne expliziten Cloneaufruf, eine Kopie anzufertigen und diese zuzuweisen. Denn die Objekte sind Semantisch, bis auf die checked/unchecked werte gleich, alle haben die Gleichen items.

Nachtrag: durch kleinere Tests hab ich raus gefunden, das aus irgend einem Grund bei mir insgesammt n+1 Contextmenustrip existieren wobei n die anzahl der spalten ist. nämlich der eigentliche ColumnStrip sowie für jede Column ein eigener Strip. Erfahren hab ich das in dem ich die Hashwerte der Objekte verglichen hab die ein Open Event auslösen ich kann mir jedoch nicht erklären woran das liegt.

Hallolo, folgendes Problem: ich habe für einen DGV mit evtl vielen Columns einen Contextmenustrip eingebaut, in dem man die angezeigen spalten auswählen kann. Da ich vorher mit dem Cms noch nie gearbeitet habe, bitte ich um Nachsicht, wenn ich mich grad mal wieder wie der Hahn zum Eier legen anstelle^^ hier der Code dazu: Dim items(5 + Process_Dict.Count) As ToolStripMenuItem Dim count As Integer = 0 For Each c As DataGridViewColumn In accessor.DGV.Columns If (c.HeaderText.Equals("Dkey") Or c.HeaderText.Equals("key")) Then c.Visible = False Continue For End If Dim item As New ToolStripMenuItem(c.HeaderText) item.CheckOnClick = True If My.Settings.Cols.Contains(item.Text) Then item.Checked = True End If AddHandler item.Click, AddressOf ShowOrHideColumns items(count) = (item) c.HeaderCell.ContextMenuStrip = accessor.ColumnStrip If Not (My.Settings.Cols.Contains(c.HeaderText)) Then c.Visible = False End If count += 1 Next accessor.ColumnStrip.Items.AddRange(items) Das problem ist jetzt aber, das jede Column die ich anklicke einen eigenen Cms zu haben scheint. Wenn ich jetzt aber in Column 1 ein item ankreuze, dann wird das zwar versteckt/gezeigt, aber in allen anderen Columns ist das gleiche item immernoch nicht angekreut. Was ist da los? Gruß Lucas

ok stimmt im beschriebenen Fall geht das. Muss ich mal testen obs in meinem spezialfall auch geht, da kommen nämlich paar widrige umstände dazwischen^^ danke

kann man eigendlich, unabhängig von welchem .NET dilekt, eine methodenaufruf mit einem verzögerungsmerker belegenen? Beispiel in Psydocode: Methode1: call Methode 2; call Methode 3; return methode 2: return warte bis caller fertig ist dann Do Something; return methode 3: do Something; return. Die aufruf hierarchie sollte dann wie folgt aussehen: ->=call -->= return methode4-> methode1 methode1->methode2 --> methode1->methode3 --> methode1--> continue methode2(Teil2) continue methode4 Ich weiß, klingt erstmal ziemlich komisch, wäre nur recht praktisch zb wenn Events ins Spiel kommen und ein Eventhandler mehrere Dinge nacheinander tut, man aber auf den Handler selbst keinen Zugriff hat. Hoffe es ist einiger maßen verständlich was ich meine^^

Arg ja, das könnt es gut sein^^ Danke

Hallo mal wieder, heute gehts um Outlook^^ Ich soll jetzt unsere Outlookautoemailfunktion überarbeiten. Das Problem dabei ist, ich hab aus der DB teilweise Emailadressen von speziellen mitarbeitern, aber auch Verteilerlistennamen. Wenn ich nun stumpf die Verteilerlisten in den To: Bereich jage, und dann die Mitarbeiter die auch noch dabei seien sollen, kommt es oft vor das da Mitarbeiter mehrmals drin sind, einmal in einer Verteilerliste, einmal in den zusätzlichen (diese kommen meist aus den Mitgliedern von irgendwelchen Gruppen). Ich hab zwar auf Gewusst wie: Liste der Mitglieder einer Verteilerliste mithilfe von Outlook Object Model in Visual Basic .NET ne anleitung gefunden, wie ich mir listen auflösen lassen kann, aber irgendwie knallt das bei mir in der Zeile oDLs as Outlook.AddressLists= oNS.AdressLists immer. Begründung: "Attribut nicht gefunden" {Public member 'AdressLists' on type 'NameSpaceClass' not found} Teil A: wie kann das sein und wie kann ichs beheben? Teil B: gibts da nicht ne einfachere Möglichkeit eine bestimmte verteilerliste excel zu geben und aufgelöst zurück zu bekommen? Und für die codebegeisterten, hier mal mein bisheriger Pcode, auch wenn der glaub ich hier wenig bringt. einzig was das oNS.Logon() angeht frag ich mich ob das so passt, aber ich bekomm zumindest bei dem schritt keine Exception. If params.ContainsKey(C_MailToIdentifier) Then If params(C_MailToIdentifier).Length > 0 Then Dim oApp As Outlook.Application = New Outlook.Application Dim oNS As Outlook.NameSpace = olApp.GetNamespace("mapi") oNS.Logon() Dim oDLs As Outlook.AddressLists = oNS.AdressLists Dim oGal As Outlook.AddressList = oDLs.Item("Global Address List") Dim RealMailTo As String = "" Dim MailingmemberDict As New Dictionary(Of String, List(Of String)) Dim parts() As String = params(C_MailToIdentifier).Split(";") For Each part As String In parts If Not (part.Contains("@")) Then MailingmemberDict.Add(part, New List(Of String)) Dim sDL As String = part.Substring(0, part.Length - 2) Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries Dim oDL As Outlook.AddressEntry = oEntries.Item(sDL) Dim oEntry As Outlook.AddressEntry For i As Integer = 1 To oEntries.Count oEntry = oEntries(i) MailingmemberDict(part).Add(oEntry.Name) Next RealMailTo += part End If Next For Each part As String In parts Dim found As Boolean = False For Each list As List(Of String) In MailingmemberDict.Values For Each ma As String In list If ma.Equals(part.Substring(0, part.Length - 2)) Then found = True End If Next Next If found = False Then RealMailTo += part End If Next .To = RealMailTo End If gruß Lucas

Ok, das ist zwar keine vernünftige erklärung in meinen Augen, aber es kam vom Rollennamen. Nach dem ich hier hinter die .toString-methode ein Trim ran gehängt hab hat es funktioniert. Die rolle für dich ich den fehler bekommen hatte, hatte auch einen Whitespace in der Mitte, aber warum hat das den Hashcode beeinflust wenn ich ein Trim dahinter hänge? eigentlich sollte doch .toString, wenn ich es an den Namen der Rolle hänge, immer den gleichen Text liefern und da garnicht selbst dran rum pfuschen oder?

Hi, ich hab eben mal wieder ne Seltsamkeit gefunden, ich hab mir eine Grafische Oberfläche aufgebaut in der man sämmtliche Mitarbeiter eines Projekts sehen kann. Da es nicht möglich sein soll, 2mal die gleiche Mitarbeiter-Rolle-Projekt kombi in der Datenbank zu haben, hab ich vor dem Speichern eine Abfrage eingebaut, die durchtestet ob sich durch eine Änderung oder das hinzufügen eines Neuen Mitarbeiters zum Projekt eine Inkonsitenz ergeben hat. das tut die Methode in dem sie für jede Row in dem Tabellayout der Groupboxen(für die Unterschiedlichen Rollenkategorien[Verwaltung,Produktion, etc]) ein Objekt folgender Klasse erstellt: Public Class valueTrippel(Of typ1, typ2, typ3) Public val1 As typ1 Public val2 As typ2 Public val3 As typ3 Public Overrides Function Equals(obj As Object) As Boolean If obj.GetType.Equals(Me.GetType) Then Dim castedobj As valueTrippel(Of typ1, typ2, typ3) = CType(obj, valueTrippel(Of typ1, typ2, typ3)) 'Same Class but different variableTypes If Not (castedobj.val1.GetType.Equals(val1.GetType) AndAlso castedobj.val2.GetType.Equals(val2.GetType) AndAlso castedobj.val3.GetType.Equals(val3.GetType)) Then Return False End If Dim vg1 As Boolean = castedobj.val1.Equals(Me.val1) Dim vg2 As Boolean = castedobj.val2.Equals(Me.val2) Dim vg3 As Boolean = castedobj.val3.Equals(Me.val3) If (vg1 AndAlso vg2 AndAlso vg3) Then Return True End If End If Return False End Function Public Overrides Function GetHashCode() As Integer Dim hc As Integer = (val1.ToString & val2.ToString & val3.ToString).GetHashCode Return hc End Function End Class Die Rows können hierbei entweder 3 Lables oder aber eine checkbox und 2 spezialComponenten enthalten, welche ähnlich einer Combobox ein SelectedItem haben. Der eigentliche Consistenzcheck erfolgt dann so: Private Function SavePrecheck() As Boolean Dim trippellist As New Dictionary(Of valueTrippel(Of Projekt, Rollen_Typen, Mitarbeiter), Control()) Dim successfull As Boolean = True Dim doubles As String = "" For Each kat As Rollen_Kategorien In ControlsDict.Keys For Each Cont As Control() In ControlsDict(kat).Values If Not (Cont(1).GetType.Equals(GetType(TeamComboBox))) Then Continue For End If Dim trippel As New valueTrippel(Of Projekt, Rollen_Typen, Mitarbeiter) With {.val1 = project, .val2 = CType(CType(Cont(1), TeamComboBox).SelectedItem, Rollen_Typen), .val3 = CType(Cont(2), EmployeeButton).Employee} If Not trippellist.ContainsKey(trippel) Then trippellist.Add(trippel, Cont) Else successfull = False doubles += trippel.val2.ToString & trippel.val3.ToString & vbNewLine End If Next Next If Not successfull Then MsgBox("Error: At least one Entry was more then ones in the View, the values were:" & vbNewLine & doubles & "please fix this inconsistence before saving", MsgBoxStyle.Critical, "Error") End If Return successfull End Function Jetzt tauch hier aber ein komischer Hashwert fehler in der zeile If Not trippellist.ContainsKey(trippel) Then auf. Ich bin hier mehrmals im Debuger durchgegangen, und zuerst geht die ContainsKey-Methode ja immer in getHashcode. Hier jedoch kommt bei 2 Objekten bei denen die Variablen val1-val3 jeweils identisch sind unterschiedliche Hashwerte. Wie kann das sein? Einmal bekomm ich: -1597763128 und einmal -590045485 Die ToString Methoden sind sauber überschieben, und liefern jeweils den Projektnamen, Rollennamen und Mitarbeiternamen zurück Gruß Lucas

EDIT: Weiß zwar net was es war, habs aber wieder raus, da war auf einmal irgend ein Murks drin, vielleicht hab ich versehentlich nen Buchstaben erwischt als ich mirs angeschaut hab oder was auch immer

Arg was is den das jetzt wieder, seit ich das Teil mit Notepade++ geöffnet hab, spinnt das Visualbasic bei der DLL rum. sobald ich jetzt den Typ wieder umstelle, will er mir die Settings und den RessourceDesigner ein 2tes Mal unterjubeln, und erstellt da für auch gleich Dateien. Die folge davon: Es gibt nun für allerlei doppelte signaturen.... wie werd ich das wieder los? ich kanns zwar manuel aus dem Script löschen, aber der mist baut es beim nächsten welchel wieder ein

Das hilft mir schonmal viel weiter Danke, jetzt muss ich nurnoch raus kriegen wie ich manuell den Projekttyp fürs compilieren ändere:)

ahhh jetzt^^ bei mir sinds, weil Visual Basic vbproj files^^

Irgendwie steht ich wohl grad auf dem Schlauch, in dem Ordner wo das Programm liegt find ich kein .csproj file

aber mal zurück zu dem Build-Thema, wo liegt den eigentlich das BUILDScript mit dem VS mein Projekt baut, direkt im Projektverzeichnis oder irgendwo versteckt? Weil ich hab bis jetzt noch keine besonders auffällige Dateiendung bzw eine Datei mit dem namen einer meiner Build-Configs gesehen.

Ja Globale Variablen is hier vielleicht ein wenig blöd formuliert^^ Das sind (zu 90%) nur Dictionarys, die einfach aus so ziemlich jeder Ecke angegelotzt und manchmal sogar bearbeitet werden^^ Und um ehrlich zu sein, mit dem Programmierparadigma .NET hab ich mich bis jetzt nicht beschäftigt, das is nur ein Praktikum, und bald wieder vorbei^^ Trotzdem, mal ganz allgemein, was is gegen Globale Variablen einzuwenden? (oder definier ich mir den Begriff nur falsch? Ich versteh darunter ne statische Variable, oder in dem Fall ne Modulvariable die von vielen Klassen angefasst werden kann, und aus Datenkonsistenzgründen nicht in jeder Klasse einzeln existiert)

Ich stimm dir zu das es nicht all zu toll ist, hat aber einen Vorteil, da verschiedene Tool einen gemeinsamen Kern nutzen, dieser Kern ist in den DLLs enthalten. Es geht dabei hauptsächlich um Globale Variablen und Datenbankinteraktionen. Von daher ist das DLL konzept vielleicht nicht ganz verkehrt, es ist nur sau blöd zu debuggen, wenn mal wieder einer der Leute was hinzu gefügt hat, ohne es vorher zu testen^^

k aber direkt über Visual Studio gehts nicht? oder hat das ne Schnittstelle zum angenehmen Buildscript erstellen, ich kenn da nur ANT von Java, und bin froh, das ich es bisher nur einmal brauchte^^

Hi, Ich hab ein Projekt das ich normalerweise immer als DLL in andere einbinden möchte. Da sich DLLs aber über die DLL-Grenze hinweg so schlecht debuggen lässt, hab ich mir einen Modul geschrieben in dem Diverse Tests abgehandelt werden. Jetzt folgende Frage: kann ich in den Optionen für einen Build irgendwie festlegen das wenn dieser Spezielle Build gewählt wird, das Projekt als LIB zu behandeln ist und nicht als Consolapplication? Sonst muss ich vor jedem Compilieren, (ich mach das über ne Bat, weil bei jedem Compile automatische mehrere DLLs erstellt werden müssen) dran denken wieder von ConsoleApplication auf Lib umzustellen^^ Gruß Lucas

UPDATE: ok, dieser komische Fehler kommt sogar bei einem einfachen CheckedChange Listener, der ebenfalls über GetRow laufen muss um eine weitere Componete der Row abzufragen. es hat also nichts speziel mit den eigenen Componeten zutun

Hallo, mal wieder ne Frage^^ Ich hab aktuell das problem, das mir der folgende Code: Dim ctrl As Control = DirectCast(sender, Control) Dim tlp As TableLayoutPanel = CType(ctrl.Parent, TableLayoutPanel) Dim row As Integer = tlp.GetPositionFromControl(ctrl).Row eines Eventlisteners ziemlich seltsame ergebnise produziert. der genannte Listener ist für 2 selbstgeschriebene Button/Combobox Componenten listener. Diese Componeten werden im per Code unten, mehrfach mit unterschiedlichen inizialiserungen einem Tablelayout hinzugefügt. Function init3Controls(inactiv As Boolean, pma As Projekt_Mitarbeiter, Optional hassubs As Boolean = False, Optional OPXMitarbeiter As Boolean = False) As Control() Dim retarray(2) As Control Dim cbxRole As New System.Windows.Forms.CheckBox Dim cboRoleType As New TeamComboBox(Me) Dim btEmployee As New EmployeeButton(pma.Mitarbeiter.ID) With cbxRole If (inactiv) Then .Checked = False End If .AutoSize = True .Anchor = System.Windows.Forms.AnchorStyles.None .Name = pma.ID.ToString .TabIndex = 0 .Text = "" AddHandler .CheckedChanged, AddressOf cbxCheckedChangedEvent AddHandler .KeyDown, AddressOf KeyDownEvent End With With cboRoleType 'If (inactiv) Then ' .disableSelection = True 'End If If (hassubs Or inactiv) Then .Enabled = False End If .Anchor = System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right .FormattingEnabled = True .Name = pma.ID.ToString .AutoCompleteMode = AutoCompleteMode.Suggest .AutoCompleteSource = AutoCompleteSource.ListItems .DropDownStyle = ComboBoxStyle.DropDownList .Items.Add(pma.Rollen_Typ) .SelectedIndex = 0 AddHandler .SelectedIndexChanged, AddressOf ValueChangedEvent AddHandler .KeyDown, AddressOf KeyDownEvent End With With btEmployee Dim fo As System.Drawing.Font = .Font .Anchor = System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right .Name = pma.ID.ToString If (hassubs Or inactiv) Then .Enabled = False End If If Not (inactiv) Then AddHandler .EmployeeChanged, AddressOf ValueChangedEvent AddHandler .KeyDown, AddressOf KeyDownEvent AddHandler .Click, AddressOf BTEmployeeClick End If End With retarray(0) = cbxRole retarray(1) = cboRoleType retarray(2) = btEmployee Return retarray End Function Nun kommt aber später, wenn man einen der Buttons klickt MANCHMAL bei getRow -1 raus. MSDN meinte dazu nur -1 käme raus wenn die LayoutEngine eine Control setzt. Jetzt ist meine Frage, was sind die Bedingungen für die Layoutengine um eine Control zu setzen? Denn manche Buttons funktionieren ohne probleme, hier kommt bei getrow der richtige Wert raus, und bei anderen, im gleichen Layout, über die gleiche Schleife erstellt, liefert mir getrow -1. Hoffe mir kann da jemand die erleuchtung bringen, bin da grad etwas verwirrt, MSDN ist da auch nicht sehr hilfreich da ich hier nirgends gefunden habe WANN diese Engine eine Control setzt. Gruß Lucas