Alex Bierhaus - VBMagazin KnowledgeBase http://www.vb-magazin.de/KnowledgeBase/writers/Alex%20Bierhaus.aspx VB-Magazin KnowledgeBase de-de Enter Substitution Variable in Oracle sql developer vermeiden <p>Führt man ein PL/SQL Script, wie zb folgendes </p> <p>@&quot;C:\Users\alex\Desktop\TICKET\TICKET.SQL&quot;</p> <p>mit dem Oracle SQL Developer aus kann es vorkommen, dass man aufgefordert wird eine Variable einzugeben. Möchte man dieses vermeiden reicht die Ergänzung:</p> <p>set define off;</p> http://www.vb-magazin.de/KnowledgeBase/articles/2013/09/27/306-enter-substitution-variable-in-oracle-sql-developer-vermeiden.aspx Alex Bierhaus ' ', hexadecimal value 0x06, is an invalid character. DocumentFormat.OpenXml.OpenXmlElement <p>Versucht man über OpenXML Microosft Office Dokumente zu erzeugen kann es zu folgender Fehlermeldung kommen:</p> <p>&#160;</p> <p><em>System.ArgumentException: '', hexadecimal value 0x01, is an invalid character. at System.Xml.XmlUtf8RawTextWriter.InvalidXmlChar(Int32 ch, Byte* pDst, Boolean entitize) at System.Xml.XmlUtf8RawTextWriter.WriteElementTextBlock(Char* pSrc, Char* pSrcEnd) at System.Xml.XmlUtf8RawTextWriter.WriteString(String text) at System.Xml.XmlWellFormedWriter.WriteString(String text) at DocumentFormat.OpenXml.OpenXmlLeafTextElement.WriteContentTo(XmlWriter w) at DocumentFormat.OpenXml.OpenXmlElement.WriteTo(XmlWriter xmlWriter) at DocumentFormat.OpenXml.OpenXmlCompositeElement.WriteContentTo(XmlWriter w) at DocumentFormat.OpenXml.OpenXmlElement.WriteTo(XmlWriter xmlWri ... http://www.vb-magazin.de/KnowledgeBase/articles/2013/07/10/305--hexadecimal-value-0x06-is-an-invalid-character-documentformat-openxml-openxmlelement.aspx Alex Bierhaus Area in MVC Action Link definieren <p>Eine Area kann in einem MVC Action Link wie gefolgt definiert werden:</p> <p>&#160;</p> <p>@Html.ActionLink(&quot;Link Text&quot;, &quot;ActionName&quot;, &quot;ControllerName&quot;, New With {&#160;&#160;&#160;&#160; .Area = &quot;AreaName&quot; }, New With {})</p> http://www.vb-magazin.de/KnowledgeBase/articles/2013/02/13/304-area-in-mvc-action-link-definieren.aspx Alex Bierhaus Error Code: 65543 Word Automation Services auf Domaincontroller <p>Hat man SharePoint 2010 auf einem Domaincontroller installiert (beispielsweise in seiner Testumgebung) kann es vorkommen, dass bei Konvertierung eines Dokumentes der Fehler 65543 angezeigt ist.</p> <p>Folgendes PowerShell-Skript schafft Abhilfe:</p> <p>$serviceApplication = Get-SPServiceApplication | where {$_.TypeName.Equals(&quot;Word Automation Services&quot;)}&#160; <br />$serviceApplication.DisableSandbox = $true <br />$serviceApplication.Update() </p> http://www.vb-magazin.de/KnowledgeBase/articles/2012/09/21/303-error-code-65543-word-automation-services-auf-domaincontroller.aspx Alex Bierhaus Linq2SharePoint ChoiceAttribute Value auslesen <p>Wenn man mithilfe des SPMetal Tools der Linq2SharePoint Datenkontext generiert werden wird automatisch für jedes Choice-Feld eine Enum angelegt, die neben den eigentlichen Wert auch den Klarnamen der Auswahlmöglichkeit beinhaltet:</p> <p>Z.B.:</p> <p>&#160;</p> <div style="border-bottom: silver 1px solid; text-align: left; border-left: silver 1px solid; padding-bottom: 4px; line-height: 12pt; background-color: #f4f4f4; margin: 20px 0px 10px; padding-left: 4px; width: 97.5%; padding-right: 4px; font-family: &#39;Courier New&#39;, courier, monospace; direction: ltr; max-height: 200px; font-size: 8pt; overflow: auto; border-top: silver 1px solid; cursor: text; border-right: silver 1px solid; padding-top: 4px" id="codeSnippetWrapper"> <div style="border-bottom-style: none; text-align: ... http://www.vb-magazin.de/KnowledgeBase/articles/2012/08/20/302-linq2sharepoint-choiceattribute-value-auslesen.aspx Alex Bierhaus SharePoint statischen Listen Namen ermitteln <p>Um den Namen einer SharePoint-Liste zu ermitteln (d.h. der Name, mit dem dies einitial angelegt worden ist und der sich auch in der Url wiederfindet) kan die Eigenschaft RootFolder.Name genutzt werdn:</p> <p>&#160;</p> <p>&#160;</p> <div style="border-bottom: silver 1px solid; text-align: left; border-left: silver 1px solid; padding-bottom: 4px; line-height: 12pt; background-color: #f4f4f4; margin: 20px 0px 10px; padding-left: 4px; width: 97.5%; padding-right: 4px; font-family: &#39;Courier New&#39;, courier, monospace; direction: ltr; max-height: 200px; font-size: 8pt; overflow: auto; border-top: silver 1px solid; cursor: text; border-right: silver 1px solid; padding-top: 4px" id="codeSnippetWrapper"> <div style="border-bottom-style: none; text-align: left; padding-bottom: 0px; li ... http://www.vb-magazin.de/KnowledgeBase/articles/2012/07/26/301-sharepoint-statischen-listen-namen-ermitteln.aspx Alex Bierhaus Fehler im iCalendar-Format &ldquo;Die vCalendar-Datei kann nicht importiert werden&rdquo; <p>Beim Setzen des falschen Encodings kann es in früheren Versionen von Outlook vor, dass bei der Generierung einer ics bzw. vcs-Datei folgende Fehlermeldung erscheint:</p> <p><em>Die vCalendar-Datei kann nicht importiert werden. Dieser Fehler kann durch den Versuch auftreten, eine Mondkalender-Terminserie im iCalendar-Format zu speichern. Um diesen Fehler zu vermeiden, stellen Sie die Terminoption auf &quot;Gregorianisch&quot; anstelle von &quot;Mondkalender&quot;.&quot;</em></p> <p><em></em></p> <p>Um dieses Problem zu beheben ist das Encoding der Datei auf ANSI zu setzen. Z.b.:</p> <blockquote> <p>Response.AddHeader(&quot;Content-Disposition&quot;, string.Format(&quot;attachment; filename=Datum{0}.vcs&quot;, name)) <br /><font style="background-color: #ffff00">Response.Content ... http://www.vb-magazin.de/KnowledgeBase/articles/2012/07/25/300-fehler-im-icalendar-format-ldquo-die-vcalendar-datei-kann-nicht-importiert-werden-rdquo-.aspx Alex Bierhaus Multi Lookup mit dem SharePoint 2010 Client Object Model bef&uuml;llen <p>Mit folgendem Code ist es möglich eine Multi Lookup Spalte einer Liste über das SharePoint 2010 Client Object Model per Code zu befüllen</p> <p>&#160;</p> <div style="border-bottom: silver 1px solid; text-align: left; border-left: silver 1px solid; padding-bottom: 4px; line-height: 12pt; background-color: #f4f4f4; margin: 20px 0px 10px; padding-left: 4px; width: 97.5%; padding-right: 4px; font-family: &#39;Courier New&#39;, courier, monospace; direction: ltr; max-height: 200px; font-size: 8pt; overflow: auto; border-top: silver 1px solid; cursor: text; border-right: silver 1px solid; padding-top: 4px" id="codeSnippetWrapper"> <div style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; background-color: #f4f4f4; border-left-style: none; padding-le ... http://www.vb-magazin.de/KnowledgeBase/articles/2012/06/19/299-multi-lookup-mit-dem-sharepoint-2010-client-object-model-bef-uuml-llen.aspx Alex Bierhaus Create failed for Database. The file is compressed but does not reside in a read-only database or filegroup. The file must be decompressed. <p>Seit der Version 2005 erlaubt der SQL Server nicht Datenbanken in einem komprimierten Ordner/ Laufwerk anzulegen bzw. zu restoren. Um die Datenbank anzulegen kann in den Eigenschaften des Ordners/ der Datei unter dem Punkt “Advanced” die Komprimierung abgestellt werden.</p> <p>&#160;</p> <p>&#160;</p> <p><a href="http://www.vb-magazin.de/KnowledgeBase/uploads/Alex%20Bierhaus/Windows-Live-Writer/is-compressed-but-does-not-reside-in-a-_9972/sqlcompress_2.png"><img style="background-image: none; border-bottom: 0px; border-left: 0px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="sqlcompress" border="0" alt="sqlcompress" src="http://www.vb-magazin.de/KnowledgeBase/uploads/Alex%20Bierhaus/Windows-Live-Writer/is-compress ... http://www.vb-magazin.de/KnowledgeBase/articles/2012/06/14/298-create-failed-for-database-the-file-is-compressed-but-does-not-reside-in-a-read-only-database-or-filegroup-the-file-must-be-decompressed-.aspx Alex Bierhaus SharePoint 2010 Client Object Model: Pr&uuml;fen ob Ordner existiert <p>&#160;</p> <p>Mit folgendem Code ist es mit dem SharePoint 2010 Client Object Model möglich zu prüfen, ob ein Ordner existiert:</p> <p>&#160;</p> <div style="border-bottom: silver 1px solid; text-align: left; border-left: silver 1px solid; padding-bottom: 4px; line-height: 12pt; background-color: #f4f4f4; margin: 20px 0px 10px; padding-left: 4px; width: 97.5%; padding-right: 4px; font-family: &#39;Courier New&#39;, courier, monospace; direction: ltr; max-height: 200px; font-size: 8pt; overflow: auto; border-top: silver 1px solid; cursor: text; border-right: silver 1px solid; padding-top: 4px" id="codeSnippetWrapper"> <div style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; background-color: #f4f4f4; border-left-style: none; padding-left: 0px; ... http://www.vb-magazin.de/KnowledgeBase/articles/2012/05/16/297-sharepoint-2010-client-object-model-pr-uuml-fen-ob-ordner-existiert.aspx Alex Bierhaus DataTable in MVC 3 anzeigen <pre><code>Folgender Code ermöglicht die Anzeige eine DataTable in der MVC View:</code></pre><pre><code></code>&nbsp;</pre><pre>&nbsp;</pre> <div style="border-bottom: silver 1px solid; text-align: left; border-left: silver 1px solid; padding-bottom: 4px; line-height: 12pt; background-color: #f4f4f4; margin: 20px 0px 10px; padding-left: 4px; width: 97.5%; padding-right: 4px; font-family: 'Courier New', courier, monospace; direction: ltr; max-height: 200px; font-size: 8pt; overflow: auto; border-top: silver 1px solid; cursor: text; border-right: silver 1px solid; padding-top: 4px" id="codeSnippetWrapper"> <div style="border-bottom-style: none; text-align: left; padding-bottom: 0px; line-height: 12pt; background-color: #f4f4f4; border-left-style: none; padding-left: 0px; width: 100%; paddi ... http://www.vb-magazin.de/KnowledgeBase/articles/2012/02/14/296-datatable-in-mvc-3-anzeigen.aspx Alex Bierhaus DropDownList in MVC 3 und Razor <p>Möchte man in seiner ASP.NET MVC Applikation eine DropDownListe anzeigen, um etwa dazugehörige Attribute aus einer anderen Tabelle auszuwählen, ist es zunächst erforderlich in seinem Controller die passenden Daten in sein Model- Objekt bzw. in die ViewBag zu laden.</p> <p>Hierbei kann die SelectList verwendet werden, die als ersten Parameter die Datenquelle, als zweiten den Value und als drittes den Text, der angezeigt werden soll erwartet. Optional kann noch der Wert angegeben werden, die vorab ausgewählt sein soll (z.b. der vorhandene Wert aus der jeweiligen Tabelle)</p> <p>&#160;</p> <div style="border-bottom: silver 1px solid; text-align: left; border-left: silver 1px solid; padding-bottom: 4px; line-height: 12pt; background-color: #f4f4f4; margin: 20px 0px 10px; padding-left: 4p ... http://www.vb-magazin.de/KnowledgeBase/articles/2011/10/25/293-dropdownlist-in-mvc-3-und-razor.aspx Alex Bierhaus SharePoint Server Enterprise Site Collection features in WebTemplate aktivieren <p>Um die SharePoint Server Enterprise Site Collection features beim Provisioning einer Seite zu aktivieren ist folgender Eintrag in der SiteFeatures Auflistung in der onet.xml:</p> <p>&lt;SiteFeatures&gt; <br />&#160;&#160;&#160;&#160;&#160;&#160;&#160; &lt;!--SharePoint Server Enterprise Site Collection features--&gt; <br />&#160;&#160;&#160;&#160;&#160;&#160;&#160; &lt;Feature ID=&quot;8581A8A7-CF16-4770-AC54-260265DDB0B2&quot; /&gt; <br />&lt;/SiteFeatures&gt;</p> http://www.vb-magazin.de/KnowledgeBase/articles/2011/09/23/291-sharepoint-server-enterprise-site-collection-features-in-webtemplate-aktivieren.aspx Alex Bierhaus An Unhandled exception ('System.ServiceModel.EndpointNotFoundException') occurred in OWSTIMER.EXE <p>Bei der Entwicklung auf einem System, auf dem SharePoint 2010 installiert ist, kann es zu einer An Unhandled exception ('System.ServiceModel.EndpointNotFoundException') occurred in OWSTIMER.EXE Fehlermeldung kommen.</p> <p>Um dieses Problem zu beheben ist der <strong>Forefront Identity Manager</strong> Service zu starten.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2011/08/23/290-an-unhandled-exception-system-servicemodel-endpointnotfoundexception-occurred-in-owstimer-exe.aspx Alex Bierhaus SPMetal SharePoint 2010 Ordner <p>Das Tool SPMetal ist im SharePoint 14-Hive Ordner unter %commonprogramfiles%\Microsoft Shared\web server extensions\14\bin zu finden.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2011/03/09/288-spmetal-sharepoint-2010-ordner.aspx Alex Bierhaus SharePoint 2010 Projekt: DLLs aus eigenem Projekt in Package/ Deployment hinzuf&uuml;gen <p>Möchte machte in Visual Studio 2010 in seinem Projekt DLLs – z.B.: 3rd Party oder aus eigenen Projekten – hinzufügen kann dieses über den Advanced Tab in den Package- Einstellungen erfolgen.</p> <p>&#160;</p> <p><a href="http://www.vb-magazin.de/KnowledgeBase/uploads/Alex%20Bierhaus/Windows-Live-Writer/SharePoint-2010_8903/packagedll_4.png"><img style="background-image: none; border-bottom: 0px; border-left: 0px; padding-left: 0px; padding-right: 0px; display: inline; border-top: 0px; border-right: 0px; padding-top: 0px" title="packagedll" border="0" alt="packagedll" src="http://www.vb-magazin.de/KnowledgeBase/uploads/Alex%20Bierhaus/Windows-Live-Writer/SharePoint-2010_8903/packagedll_thumb_1.png" width="797" height="424" /></a></p> http://www.vb-magazin.de/KnowledgeBase/articles/2011/03/09/287-sharepoint-2010-projekt-dlls-aus-eigenem-projekt-in-package-deployment-hinzuf-uuml-gen.aspx Alex Bierhaus Thumbnail aus Bild in Visual Basic erstellen <p>Möchte man aus einem Bild ein Thumbnail erstellen, um es z.B. in einer Bildergalerie anzuzeigen, kann folgender Code verwendet werden:</p> <p>&#160;</p> <pre class="csharpcode"> <span class="kwrd">Public</span> <span class="kwrd">Function</span> GetThumbnail(<span class="kwrd">ByVal</span> myImagePath <span class="kwrd">As</span> <span class="kwrd">String</span>) <span class="kwrd">As</span> <span class="kwrd">Byte</span>() <span class="kwrd">Dim</span> myimgBytes <span class="kwrd">As</span> <span class="kwrd">Byte</span>() <span class="rem">'Image aus Pfadangabe erstellen</span> Using myImage <span class="kwrd">As</span> System.Drawing.Image = System.Drawing.Image.FromFile(myImagePath) <span class="rem">' Thumbnail erstellen, welches ... http://www.vb-magazin.de/KnowledgeBase/articles/2011/03/02/286-thumbnail-aus-bild-in-visual-basic-erstellen.aspx Alex Bierhaus ADO.NET SQL Server Stored Procedure Output Parameter in Visual Basic verwenden <p>Folgendes Beispiel zeigt, wie man einen Output Parameter in einer T-SQL Funktion/ Stored Procedure verwendet. Hierbei wird eine Parameter- Instanz angelegt und der Rückgabetype auf Output gesetzt. Anstelle einen Reader zu öffnen bzw. sich den Skalar zurückgeben zu lassen wird die ExecuteNonQuery- Methode ausgeführt. Der Inhalt ist dann über die Value- Eigenschaft des Parameters wieder zu bekommen.</p> <p>&#160;</p> <pre class="csharpcode"> <span class="kwrd">Dim</span> myReturnValue <span class="kwrd">As</span> <span class="kwrd">String</span> = <span class="kwrd">String</span>.Empty Using con <span class="kwrd">As</span> SqlClient.SqlConnection = CreateConnection() <span class="rem">'Verbindung erzeugen</span> Using cmd <span class="kwrd">As</span> Sy ... http://www.vb-magazin.de/KnowledgeBase/articles/2011/02/28/285-ado-net-sql-server-stored-procedure-output-parameter-in-visual-basic-verwenden.aspx Alex Bierhaus ASP.NET Session l&ouml;schen/ zur&uuml;cksetzen <p>Möchte man seine ASP.NET Session per Code zurücksetzen ist dieses mit den Aufruf&#160;&#160; <pre class="csharpcode"><span class="kwrd">Me</span>.Session.Abandon()</pre> <style type="text/css"> .csharpcode, .csharpcode pre { font-size: small; color: black; font-family: consolas, "Courier New", courier, monospace; background-color: #ffffff; /*white-space: pre;*/ } .csharpcode pre { margin: 0em; } .csharpcode .rem { color: #008000; } .csharpcode .kwrd { color: #0000ff; } .csharpcode .str { color: #006080; } .csharpcode .op { color: #0000c0; } .csharpcode .preproc { color: #cc6633; } .csharpcode .asp { background-color: #ffff00; } .csharpcode .html { color: #800000; } .csharpcode .attr { color: #ff0000; } .csharpcode .alt { background-color: #f4f4f4; width: ... http://www.vb-magazin.de/KnowledgeBase/articles/2011/02/23/284-asp-net-session-l-ouml-schen-zur-uuml-cksetzen.aspx Alex Bierhaus Kompression in ASP.NET <p>ASP.NET bietet die Möglichkeit (soweit vom IIS unterstützt) den ausgelieferten per Kompression zu verkleinern. Dieses ist insbesondere dann interessant, wenn die Benutzer über eine langsame Interentverbindung auf die Applikation zugreifen.</p> <p>&#160;</p> <p>In der <strong>global.asax</strong> gilt es folgende Methode zu überschreiben</p> <p>&#160;</p> <pre class="csharpcode"><span class="kwrd">Sub</span> Application_AuthenticateRequest(<span class="kwrd">ByVal</span> sender <span class="kwrd">As</span> <span class="kwrd">Object</span>, <span class="kwrd">ByVal</span> e <span class="kwrd">As</span> EventArgs) <span class="rem">'Compression </span> <span class="kwrd">If</span> Request.HttpMethod = <span class="str">&quot;POST&quot;</span> <span class="kwrd">Then</s ... http://www.vb-magazin.de/KnowledgeBase/articles/2011/02/23/283-kompression-in-asp-net.aspx Alex Bierhaus Feature in allen Webs in SharePoint aktivieren <p>Folgendes Code- Beispiel zeigt, wie ein Feature per Rekursion in allen Webs einer SharePoint Seite aktiviert werden kann: </p> <p>&#160;</p> <p>/// &lt;summary&gt; <br />&#160;&#160;&#160; /// Activates the feature in current web and all sub webs. <br />&#160;&#160;&#160; /// &lt;/summary&gt; <br />&#160;&#160;&#160; /// &lt;param name=&quot;web&quot;&gt;The web.&lt;/param&gt; <br />&#160;&#160;&#160; /// &lt;param name=&quot;featureid&quot;&gt;The featureid.&lt;/param&gt; <br />&#160;&#160;&#160; internal static void ActivateFeature(SPWeb web, Guid featureid) <br />&#160;&#160;&#160; {</p> <p>&#160;&#160;&#160;&#160;&#160;&#160;&#160; //Add feature to the Feature Collection. Note: Feature must already be installed on the farm <br />&#160;&#160;&#160;&#160;&#160;&# ... http://www.vb-magazin.de/KnowledgeBase/articles/2011/02/22/282-feature-in-allen-webs-in-sharepoint-aktivieren.aspx Alex Bierhaus jQuery DataTables Sortieren Plugin <p>&#160;</p> <p>Das jQuery DataTables Plugin (<a href="http://www.datatables.net">http://www.datatables.net</a>), welches eine herkömmliche HTML Tabelle um Funktionalitäten wie Paging, Suche, Sortieren, etc erweitert bietet von Haus aus keien Unterstützung für das Sortieren vom Datumsformat dd/mm/yyyy. Glücklicherweise biete die API eine Unterstützung um eigene Plugins zu entwickeln. Basierend auf dem Sortier- Plugin von unterstützt die Möglichkeit eigene Sortier- Plugins zu entwickeln.</p> <p>Basierend auf de Plugin von Andy McMaster (<a href="http://www.datatables.net/plug-ins/sorting">http://www.datatables.net/plug-ins/sorting</a>) nachfolgend ein Sotier- Plugin, welches nach dem Format sortiert und zusätzlich noch leere Datumswerte berücksichtigt:</p> <p>&#160;</p> <p>&#160;</p> ... http://www.vb-magazin.de/KnowledgeBase/articles/2010/10/17/280-jquery-datatables-sortieren-plugin.aspx Alex Bierhaus SharePoint Datasheet view: Diese Zeile ist schreibgesch&uuml;tzt/ Read-Only <p>Verwendet man in SharePoint 2007 die Datasheet view um Daten in einem Access ähnlichen Format zu verändern kann es zur Meldung beim Einfügen neuer Zeilen kommen, dass diese Zeile schreibgeschützt ist. Dieses hat den Hintergrund, dass die View einige Spalten beinhaltet, die nicht verändert werden können. </p> <p>Diese Spalten können z.b. Modified, Modified By, Created.</p> <p>Sobald diese Felder aus der View entfernt sind können die Felder wieder bearbeitet werden.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2010/06/16/278-sharepoint-datasheet-view-diese-zeile-ist-schreibgesch-uuml-tzt-read-only.aspx Alex Bierhaus ASP.NET Ausf&uuml;hrungspfad ermitteln <p>Möchte man in ASP.NET den Pfad der Anwendung ermitteln, unter dem die Anwendung ausgeführt wird (z.b. C:\wwwroot\applikation\ so kann man auf die Methode:</p> <p>Request.PhysicalApplicationPath</p> <p>zurückgreifen.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2010/05/25/277-asp-net-ausf-uuml-hrungspfad-ermitteln.aspx Alex Bierhaus Unternehmen aus dem Active Directory zur&uuml;ckgeben <p>Folgender Code liefert das Unternehmen eines Benutzers aus dem Active Directory zurück:</p> <p>&#160;</p> <pre class="csharpcode"><span class="rem">''' &lt;summary&gt;</span> <span class="rem">''' Liefert das Unternehmen aus dem Active Directory</span> <span class="rem">''' &lt;/summary&gt;</span> <span class="rem">''' &lt;param name=&quot;userAccount&quot;&gt;&lt;/param&gt;</span> <span class="rem">''' &lt;returns&gt;&lt;/returns&gt;</span> <span class="rem">''' &lt;remarks&gt;&lt;/remarks&gt;</span> &lt;WebMethod()&gt; _ <span class="kwrd">Public</span> <span class="kwrd">Function</span> GetCompany(<span class="kwrd">ByVal</span> userAccount <span class="kwrd">As</span> <span class="kwrd">String</span>) <span class="kwrd">As</span> <span class="kwrd">String</span> <span ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/10/02/276-unternehmen-aus-dem-active-directory-zur-uuml-ckgeben.aspx Alex Bierhaus Iteration durch GridView Rows nach dem DataBinding mit Casten von HyperLinkField <p>Folgender Code iteriert durch alle Zeilen einer GridView nach dem DataBindung und castet das erste Feld als HyperLink um auf dieses zuzugreifen:</p> <blockquote> <pre class="csharpcode"><span class="kwrd">For</span> <span class="kwrd">Each</span> row <span class="kwrd">As</span> GridViewRow <span class="kwrd">In</span> gridView.Rows <span class="rem">'Set the Text length to avoid to large widgets</span> <span class="kwrd">Dim</span> myHyperLinkField <span class="kwrd">As</span> HyperLink = <span class="kwrd">CType</span>(row.Cells(0).Controls(0), HyperLink) <span class="kwrd">Dim</span> a <span class="kwrd">As</span> <span class="kwrd">String</span> = myHyperLinkField.Text <span class="kwrd">If</span> myHyperLinkField.Text.Length &gt; 40 <span class="kwrd">Then</span> myHyperLin ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/09/25/275-iteration-durch-gridview-rows-nach-dem-databinding-mit-casten-von-hyperlinkfield.aspx Alex Bierhaus SharePoint 2007 und Windows SharePoint Services Applikationen debuggen/ web.config anpassen <p>Möchte man seine SharePoint 2007 oder WSS Anwendung debuggen bzw. die Fehler im Klartext auf der jeweiligen Seite anzeigen sind folgende Einstellungen in der web.config der Anwendung vorzunehmen:</p> <p>&#160;</p> <p><strong>Ändern von</strong> <br />&lt;customErrors mode=&quot;On&quot; /&gt; <br /><strong>in</strong> <br />&lt;customErrors mode=&quot;Off&quot; /&gt; </p> <p><strong>Ändern von</strong> <br />&lt;SafeMode MaxControls=&quot;200&quot; CallStack=&quot;false&quot;&gt; <br /><strong>in <br /></strong>&lt;SafeMode MaxControls=&quot;200&quot; CallStack=&quot;true&quot;&gt; </p> <p><strong>Ändern von</strong> <br />&lt;compilation batch=&quot;false&quot; debug=&quot;false&quot;&gt; <br /><strong>in</strong> <br />&lt;compilation batch=&quot;true& ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/09/13/273-sharepoint-2007-und-windows-sharepoint-services-applikationen-debuggen.aspx Alex Bierhaus Einf&uuml;hrung in die Cloud Computing Technologie Microsoft Azure <p></p> <p>Dieser Artikel beschäftigt sich mit den Grundlagen und Bestandteilen der Microsft Azure Plattform. </p> <p>Der Begriff Cloud Computing beschreibt die Bereitstellung, das Hosting und das Management von Anwendungen. Nach Serviceorientierte Architektur (SOA) und Software as a Service (SaaS) ist das Thema Cloud Computing das neuste Konzept der Informationstechnologie. Der klassische Weg sieht vor, dass eigene Server gekauft, installiert und im Betrieb gehalten werden und Anwendungen, die einerseits gekauft, andererseits selbst entwickelt wurden, auf diesen Servern betrieben werden. Dieses führt dazu, dass Unternehmen Ressourcen für Inbetriebnahme und Wartung der Server oder sogar eines gesamten Rechenzentrums zur Verfügung stellen müssen. Wenn ein Unternehmen diese Aufgaben nicht ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/09/11/272-einf-uuml-hrung-in-die-cloud-computing-technologie-microsoft-azure.aspx Alex Bierhaus Dokumente aus OpenText LiveLink mit C# und Visual Basic .NET exportieren <p>Möchte man Dokumente (z.b. für eine Migration) aus dem System LiveLink von OpenText abfragen, hilft folgender Code um die Dokumente zu laden.</p> <p>//Verbindung zum LiveLink Server aufbauen</p> <p>LLSession session = new LLSession(tbServer.Text, Convert.ToInt16(tbPort.Text), tbScheme.Text, tbUser.Text, <br />&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; tbPassword.Text);</p> <p>LAPI_DOCUMENTS lapidoc = new LAPI_DOCUMENTS(session); </p> <p>//Neuen File-Stream erstellen</p> <p>FileStream fs =&#160;&#160; new FileStream(directory + string.Format(@&quot;{0}\{1}&quot;, docid, doc.Filename),&#160;&#160; FileMode.Create); <br />BinaryWriter bw = new BinaryWriter(fs);</p> <p>//Version laden</p> <p>int d ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/08/19/271-dokumente-aus-opentext-livelink-mit-c-und-visual-basic-net-exportieren.aspx Alex Bierhaus Microsoft SQL Server 2008 SP1: Server is in script upgrade mode <p>Nachdem das SP1 beim Microsoft SQL Server 2008 wurde und man versucht, sich per Microsoft Sql Management Studio einzuloggen, kann es vorkommen, dass folgende Meldung erscheint: Server is in script upgrade mode/Only administrator can connect at this time. </p> <p>Um sich wiederanzumelden sollte man ein paar Minuten warten und es dann wieder versuchen.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/08/19/270-microsoft-sql-server-2008-sp1-server-is-in-script-upgrade-mode.aspx Alex Bierhaus Microsoft.SharePoint.ApplicationPages.dll finden <p>Die Microsoft.SharePoint.ApplicationPages.dll findet man unter:</p> <p>C:\Program Files\Common Files\Microsoft Shared\web server extensions\12\CONFIG\BIN</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/08/17/269-microsoft-sharepoint-applicationpages-dll-finden.aspx Alex Bierhaus Remote Desktop/ Terminal Server (RDP) Port <p>Um Zugriffe per Remote Desktop auf das Windows System zu ermöglichen muss der Port 3389 geöffnet werden.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/07/25/267-remote-desktop-terminal-server-rdp-port.aspx Alex Bierhaus Caching mit der Microsoft Enterprise Library <p>Möchte man den Caching- Application Block der Microsoft Enterprise Library innerhalb von Visual Basic einsetzen, um z.b. große Datenmengen im Speicher vorrätig zu halten reichen folgende Code Zeilen, um Daten aus dem Cache zu lesen bzw. zu schreiben:</p> <p>&#160;</p> <p>'Instanz erstellen <br />Dim cache As ICacheManager = CacheFactory.GetCacheManager() </p> <p>'Prüfen, ob Eintrag mit der ID Test im Cache vorhanden ist <br />mylist = CType(cache(&quot;Test&quot;), List(Of Customer)) </p> <p>'Falls Eintrag nicht vorhanden ist <br />If mylist Is Nothing Then <br />&#160;&#160;&#160; 'Für 30 Sekunden speichern <br />&#160;&#160;&#160; cache.Add(&quot;Test&quot;, GetCustomers(), CacheItemPriority.Normal, Nothing, New SlidingTime(TimeSpan.FromSeconds(30))) <br />End If</p ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/07/18/266-caching-mit-der-microsoft-enterprise-library.aspx Alex Bierhaus Benutzerdefinierte Liste in SharePoint Web mit TemplateFeatureId finden (C# und Visual Basic) <p>Möchte man zum Beispiel über alle Listen in einem SharePoint Web iterieren, welche auf Basis einer eigenen Liste, die als Feature deployed worden ist, ermittelt kann man mit der Eigenschaft TemplateFeatureId eritteln, ob es sich um die gewünschte List handelt.</p> <p>Wenn zum Beispiel die Feature ID der eigenen Liste folgende ist: b6a29ff9-aae3-4941-aadf-0a071473ddee</p> <p>kann man mit folgendem Code diese Liste abfragen:</p> <p>foreach (SPWeb web in site.AllWebs) <br />&#160; { <br />&#160;&#160;&#160;&#160;&#160; foreach (SPList list in web.Lists) <br />&#160;&#160;&#160;&#160;&#160; { <br />&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; if (list.TemplateFeatureId.ToString() == &quot;b6a29ff9-aae3-4941-aadf-0a071473ddee&quot;) <br />&#160;&#160;&#160;&#160;&# ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/05/30/265-benutzerdefinierte-liste-in-sharepoint-web-mit-templatefeatureid-finden-c-und-visual-basic-.aspx Alex Bierhaus Zahlenfolge mit f&uuml;hrenden Nullen ausgeben/ exportieren <p>Möchte man in .NET eine Zahlenfolge mit führenden Nullen ausgeben klappt dieses mit folgendem Code:</p> <p>wert.ToString(“0000000000”). Wenn der Wert nun 8 Stellen beinhaltet wird er mit 2 führenden Nullen ausgegeben.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/05/28/264-zahlenfolge-mit-f-uuml-hrenden-nullen-ausgeben-exportieren.aspx Alex Bierhaus Fixing 'helperFrm' is null or not an object in SharePoint <p>I try to add a new column to my Microsoft SharePoint 2007 Sp 2 list, but after I clicked the Ok button I receive following error message:</p> <p>Message: 'helperFrm' is null or not an object <br />Line: 793 <br />Char: 4 <br />Code: 0</p> <p>&#160;</p> <p>To fix that you can following:</p> <p>Open the FldNew.aspx file that is located in the C:\Program Files\Common Files\Microsoft Shared\web server extensions\12\TEMPLATE\LAYOUTS folder and comment out line number 735 and 736. It should looks like following:</p> <p>//if (! helperFrm.FValidate(true)) <br />//&#160;&#160;&#160; return false;</p> <p>&#160;</p> <p>Save the file and run issrest. That solution works for my environment. </p> <p>Please note: That is just a workarround, you should check first if their is a bugfix ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/05/07/262-fixing-helperfrm-is-null-or-not-an-object-in-sharepoint.aspx Alex Bierhaus SharePoint Listen-Element updaten ohne neue Version zu erzeugen <p>Möchte man programmiertechnisch ein Listenelement in einer SharePoint-Liste ändern, aber dabei keine neue Version des Elementes erzeugen (also es nicht möglich machen, dass das alte Element in der Historien-Übersicht auftaucht) muss das SystemUpdate-Attribut auf false gesetzt werden:</p> <p>&#160;</p> <p><code>SPList list = web.Lists[&quot;MeineListe&quot;]; <br />SPListItem listitem = list.Items[0]; </code> <p>listitem[&quot;Title&quot;] = &quot;Neuer Wert&quot;;</p> <p>listitem.SystemUpdate(false); <br />listitem.Update();</p></p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/04/30/261-sharepoint-listen-element-updaten-ohne-neue-version-zu-erzeugen.aspx Alex Bierhaus Invalid association mapping for member ... is not an entity <p>Wenn man versucht per LINQ lesend oder schreibend eine Operation ausführt und folgende Meldung: “Invalid association mapping for membet ... is not an entity” erhält, liegt dieses meist daran, dass die Tabelle keinen Primärschlüssel besitzt.</p> <p>Nachdem dieser hinzugefügt wurde und der Daten-Kontext neu erstellt wurde sollte die Operation funktionieren.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/04/26/260-invalid-association-mapping-for-member-is-not-an-entity.aspx Alex Bierhaus SPFieldChoice Wert hinzuf&uuml;gen <p>Möchte man in einem SharePoint Choice Feld (also einem Auswahlfeld einer Liste) einen Wert hinzufügen funktioniert dieses mit folgendem Code:</p> <p>&#160;</p> <blockquote> <p>SPField field = list.Fields[&quot;NameDesFeldes&quot;]; </p> </blockquote> <p>&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; var choice = (SPFieldChoice) field; <br />&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; choice.Choices.Add(TextInput.Text);</p> <blockquote> <p>choice.Update();</p></blockquote> http://www.vb-magazin.de/KnowledgeBase/articles/2009/04/23/259-spfieldchoice-wert-hinzuf-uuml-gen.aspx Alex Bierhaus SharePoint horizontale Navigation mit mehreren Hierarchien <p>Möchte man in der horizontalen SharePoint Navigation mehrere Hierarchien abbilden klappt dieses nicht mit den vordefinierten Einstellungen.</p> <p>Um dieses zu ermöglichen muss in der MasterPage die Navigation gesucht werden (meist ist diese mit der ID <strong>GlobalNav</strong> versehen) und die Eigenschaft <strong>MaximumDynamicDisplayLevels</strong> angepasst werden. Diese hat den Standardwert 2, dieser kann beliebig hoch gesetzt werden.</p> <p>&#160;</p> <p><a href="http://www.vb-magazin.de/KnowledgeBase/uploads/Alex%20Bierhaus/WindowsLiveWriter/SharePointhorizontaleNavigationmehrereHi_7AF9/mehrereHierarchien_2.jpg"><img style="border-bottom: 0px; border-left: 0px; display: inline; border-top: 0px; border-right: 0px" title="mehrereHierarchien" border="0" alt="mehrereHierarchien" ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/04/16/258-sharepoint-horizontale-navigation-mit-mehreren-hierarchien.aspx Alex Bierhaus Die Probezeit f&uuml;r dieses Produkt ist abgelaufen &ndash; Microsoft SharePoint Server 2007 <p>Diese Meldung kann erscheinen, wenn man Enterprise-Funktionen des Microsoft Office SharePoint Server 2007 benutzen möchte (z.B.: veröffentlichen). Der Fehler kann mehrere Ursachen haben:</p> <p>&#160;</p> <p>1. Domänencontroller und SharePoint wurden auf demselben Server installiert, hier hilft folgender Patch: <a title="http://download.microsoft.com/download/b/1/a/b1a6dceb-92a3-4808-8dac-b4e40c90ce00/StandaloneDCWorkaround.msi" href="http://download.microsoft.com/download/b/1/a/b1a6dceb-92a3-4808-8dac-b4e40c90ce00/StandaloneDCWorkaround.msi">http://download.microsoft.com/download/b/1/a/b1a6dceb-92a3-4808-8dac-b4e40c90ce00/StandaloneDCWorkaround.msi</a></p> <p>2. Es wurde ein neues Sprachpaket installiert und der SharePoint Wizard wurde danach nicht wieder ausgeführt</p> <p>3. Der B ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/31/257-die-probezeit-f-uuml-r-dieses-produkt-ist-abgelaufen-ndash-microsoft-sharepoint-server-2007.aspx Alex Bierhaus Titel Url f&uuml;r SharePoint WebPart setzen <p>Möchte man in seinem Feature die Titel-Url (diejenige, die aufgerufen wird, wenn man auf den Titel des WebParts klickt) setzen kann man dieses in der .webpart-Datei machen.</p> <p>Folgender Code zeigt ein Beispiel:</p> <p>&#160;</p> <p>&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot; ?&gt; <br />&lt;webParts&gt; <br />&#160; &lt;webPart xmlns=&quot;<a href="http://schemas.microsoft.com/WebPart/v3&quot;">http://schemas.microsoft.com/WebPart/v3&quot;</a>&gt; <br />&#160;&#160;&#160; &lt;metaData&gt; <br />&#160;&#160;&#160;&#160;&#160; &lt;type name=&quot;News, Version=1.0.0.0, Culture=neutral, PublicKeyToken=f002e5af3b394bd8&quot; /&gt; <br />&#160;&#160;&#160;&#160;&#160; &lt;importErrorMessage&gt;Can't import Display Web Part.&lt;/importErrorMessage&gt; < ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/28/256-titel-url-f-uuml-r-sharepoint-webpart-setzen.aspx Alex Bierhaus Exception from HRESULT: 0x81070201 <p>Beim Anlegen einer Liste kann es vorkommen, dass die Meldung Exception from HRESULT: 0x81070201 erscheint. Dieses hängt meist damit zusammen, dass man eine eigene List-Definition als Feature deployt hat und SharePoint die schema.xml-Datei nicht finden kann. Hierzu ist ein Verweis in der Feature.xml von Nöten:</p> <p>&lt;ElementManifests&gt; <br />&#160; &lt;ElementManifest Location=&quot;elements.xml&quot; /&gt; <br />&#160; &lt;ElementFile Location=&quot;Schema.xml&quot; /&gt; <br />&lt;/ElementManifests&gt;</p> <p>&#160;</p> <p>Auch die Groß- und Kleinschreibung des Dateinamens sollte umbedingt beachtet werden.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/26/255-exception-from-hresult-0x81070201.aspx Alex Bierhaus Exception/ Fehler- Logging in SharePoint <p>Eine Einfache Möglichkeit um Fehler abzufragen und zentral abzulegen findet sich im Namensraum Microsoft.Office.Server.Diagnostics.PortalLog:</p> <p>&#160;</p> <p>Try <br />&#160;&#160;&#160; Throw New Exception(&quot;Test Fehler&quot;) <br />Catch ex As Exception <br />&#160;&#160;&#160; Microsoft.Office.Server.Diagnostics.PortalLog.LogString(&quot;Fehler aufgetreten {0} - {1}&quot;, ex.Message, ex.StackTrace) <br />End Try</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/22/254-exception-fehler-logging-in-sharepoint.aspx Alex Bierhaus Alle Eintr&auml;ge in SharePoint Liste l&ouml;schen <p>Möchte man alle Einträge in einer SharePoint Liste löschen hilft folgender Code:</p> <p>&#160;</p> <p>int itemCount = _List.Items.Count; </p> <p>//Iterate throw all items and delete them <br />for (int i = itemCount - 1; i &gt; 0; i--) <br />{ <br />&#160;&#160;&#160; _List.Items[i].Delete(); <br />} </p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/20/253-alle-eintr-auml-ge-in-sharepoint-liste-l-ouml-schen.aspx Alex Bierhaus The evaluation version of Microsoft Office SharePoint Server 2007 for this server has expired. <p>Falls einem diese Meldung in der Zentral Administration begegnet und man nicht eine Trial-Version des MOSS 2007 installiert hat sollte man den SharePoint Konfigurations- Wizard erneut ausführen.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/18/252-the-evaluation-version-of-microsoft-office-sharepoint-server-2007-for-this-server-has-expired-.aspx Alex Bierhaus CS0030: Cannot convert type 'Microsoft.SharePoint.WebControls.DelegateControl' to 'System.Web.UI.IAttributeAccessor' <p>Wenn man seine erstellte MasterPage als Feature innerhalb von SharePoint bereitstellt kann es zu folgendem Fehler kommen:</p> <p>Compilation Error</p> <p>Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.</p> <p>Compiler Error Message: CS0030: Cannot convert type ‘Microsoft.SharePoint.WebControls.CssRegistration’ to ‘System.Web.UI.IAttributeAccessor’</p> <p>&#160;</p> <p>Um diesen zu beheben sollte man die MasterPage auf alle _designer Elemente durchsuchen (auch innerhalb des ausdokumentierten Bereiches und den Tag _designer entfernen. </p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/18/251-cs0030-cannot-convert-type-microsoft-sharepoint-webcontrols-delegatecontrol-to-system-web-ui-iattributeaccessor-.aspx Alex Bierhaus Cannot make a cache safe URL for &ldquo;init.js&rdquo;. <p>Wenn beim Aufruf einer Seite die Fehlermeldung “Cannot make a cache safe URL for “init.js”.”</p> <p>Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. </p> <p>Exception Details: Microsoft.SharePoint.SPException: Cannot make a cache safe URL for &quot;init.js&quot;, file not found. Please verify that the file exists under the layouts directory.</p> <p>&#160;</p> <p>erscheint liegt dieses daran, dass die Seite eine Sprache verwendet. die nicht auf dem SharePoint Server installiert ist. Abhilfe schafft hier die Installation des korrekten Sprachpaktes, welche unter <a title="http://www.microsoft.com/DownLoads/details.aspx?displaylang=de&amp;F ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/17/250-cannot-make-a-cache-safe-url-for-ldquo-init-js-rdquo-.aspx Alex Bierhaus SharePoint Shared Services Administration <p>Die SharePoint Shared Service Administration erreicht man entweder direkt über die linke Navigation auf der Administrationsseite oder über das Anhängen folgender Url: _admin/managessp.aspx</p> <p>Z.b.: <a href="http://sharepointserver:5000/_admin/managessp.aspx">http://sharepointserver:5000/_admin/managessp.aspx</a></p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/16/249-sharepoint-shared-services-administration.aspx Alex Bierhaus Sprache der Zentral Administration in Microsoft Office SharePoint Server 2007 &auml;ndern <p>Möchte man die Sprache der Zentral Administration ändern müssen folgende Schritte durchgeführt werden:</p> <ol> <li>Per SQL Management Studio auf den SharePoint Datenbankserver verbinden</li> <li>In der Datenbank SharePoint_AdminContent die Tabelle Webs öffnen</li> <li>Den Eintrag mit den Einstellungen der Zentral Administration suchen</li> <li>In der Spalte Language die passende ID eintragen (die Liste gibt es unter <a title="http://msdn.microsoft.com/en-us/library/ms912047.aspx" href="http://msdn.microsoft.com/en-us/library/ms912047.aspx">http://msdn.microsoft.com/en-us/library/ms912047.aspx</a>)</li> <li>ISSReset durchführen</li> </ol> <p>&#160;</p> <p>Das Setzen der Language ID erfordert, dass das entsprechende Sprachpaket installiert ist. Die Sprachpakete sind unte ... http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/16/248-sprache-der-zentral-administration-in-microsoft-office-sharepoint-server-2007-auml-ndern.aspx Alex Bierhaus TF220059: Fehler beim Abfragen der Installationseinstellungen/ An error occurred while the Setup program was querying the installation settings for Team Foundation Server <p>Um bei der Installation des Microsoft Team Foundation Server 2008 den Fehler TF220059: Fehler beim Abfragen der Installationseinstellungen zu beheben müssen die Microsoft SQL Reporting Services in der Version 2005 oder 2008 installiert werden.</p> http://www.vb-magazin.de/KnowledgeBase/articles/2009/03/14/247-tf220059-fehler-beim-abfragen-der-installationseinstellungen-an-error-occurred-while-the-setup-program-was-querying-the-installation-settings-for-team-foundation-server.aspx Alex Bierhaus ASP.NET Treeview Knoten per Code &ouml;ffnen <P>Folgender Code öffnet einen Knoten des Treeview-Controls, wenn es sich in einer MasterPage befindet:</P> <P>&nbsp;</P> <P>[code language='VB.NET']Dim tv As TreeView = Me.Master.FindControl("TreeView1") <BR>tv.Nodes.Item(5).Expand()[/code]</P> <P>&nbsp;</P> <P>Um einen <STRONG>Unterknoten</STRONG> eines Knoten zu öffnen hilft folgender Code:</P> <P>[code language='VB.NET'] </P> <P>tv.Nodes.Item(5).ChildNodes.Item(1).Expand()</P> <P>[/code]</P> http://www.vb-magazin.de/KnowledgeBase/articles/2009/01/27/244-asp-net-treeview-knoten-per-code-ouml-ffnen.aspx Alex Bierhaus HTML Markup aus String per RegEx entfernen <p>Um HTML Markup aus einem String zu entfernen (z.b. um diesen als reinen Text weiterzuverarbeiten) hilft folgende Funktion, die per regex das Markup ermittelt.</p> <p>&#160;</p> <p>In Visual Basic.NET</p> <p>''' &lt;summary&gt; <br />''' Removes the HTML markup. <br />''' &lt;/summary&gt; <br />''' &lt;param name=&quot;_Text&quot;&gt;The html code.&lt;/param&gt; <br />''' &lt;returns&gt;&lt;/returns&gt; <br />Private Shared Function RemoveHtmlMarkup(ByVal _Text As String) As String <br />&#160;&#160;&#160; Return HttpUtility.HtmlEncode(Regex.Replace(_Text, &quot;&lt;[^&gt;]*&gt;&quot;, &quot; &quot;)) <br />End Function </p> <p>&#160;</p> <p>In C#</p> <p>/// &lt;summary&gt; <br />/// Removes the HTML markup. <br />/// &lt;/summary&gt; <br />/// &l ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/11/24/243-html-markup-aus-string-per-regex-entfernen.aspx Alex Bierhaus File Extension/ Dateinamenerweiterung in VB.NET/C# entfernen <p>Um den Dateinamenerweiterung (z.b. bei “bild.bmp” “.bmp”) zu entfernen ist folgender Code zu nutzen:</p> <p>VB:</p> <p>''' &lt;summary&gt; <br />''' Removes the file extension from the attachment. <br />''' &lt;/summary&gt; <br />''' &lt;param name=&quot;_Text&quot;&gt;The _ text.&lt;/param&gt; <br />''' &lt;returns&gt;&lt;/returns&gt; <br />Private Shared Function RemoveFileExtension(ByVal _Text As String) As String <br />&#160;&#160;&#160; Return Regex.Replace(_Text, &quot;\.[^.]*$&quot;, &quot;&quot;) <br />End Function </p> <p>&#160;</p> <p>C#</p> <p>/// &lt;summary&gt; <br />/// Removes the file extension from the attachment. <br />/// &lt;/summary&gt; <br />/// &lt;param name=&quot;_Text&quot;&gt;The _ text.&lt;/param&gt; <br />/// &lt;re ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/11/24/242-file-extension-dateinamenerweiterung-in-vb-net-c-entfernen.aspx Alex Bierhaus Fehler in MetadataManager::Request beheben <p>Beim Anlegen einer neuen Anwendung mit dem Planning Business Modeler kann es, nach Bennenung der Anwendung und Eingabe der erforderlichen Parameter zu folgender Fehlermeldung kommen:</p> <p>&#160;</p> <p>Fehler in &quot;MetadataManager::Request&quot;. </p> <p>Message Id: PerformancePoint_100013072 <br />Process: 2668 <br />Severity: Warning <br />Source: PerformancePoint Server <br />Thread: 2940 <br />Time: 2008-10-23T18:47:51.09+02:00 <br />UI Culture: de-DE <br />Data:&#160; Exception: Exception: <br />Type: Microsoft.PerformancePoint.Planning.Common.Exceptions.BizServiceComponentException <br />Message: Aufgrund eines Fehlers beim Erstellen der Anwendungsdatenbank kann die Anwendung nicht erstellt werden. Weitere Informationen finden Sie im Serv ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/10/23/240-fehler-in-metadatamanager-request-beheben.aspx Alex Bierhaus Report aus dem Reporting Services l&ouml;schen <p>M&#246;chte man einen Report aus dem Microsoft Reporting Services l&#246;schen, so findet man im Berichtsmananger die Funktion einen Report anzeigen zu lassen. Hier steht ein Tab mit dem Namen &quot;Eigenschaft&quot; zur Verf&#252;gung, unter diesem sich der Button &quot;L&#246;schen&quot; befindet. Eine Klick auf den Button l&#246;scht den Report aus dem Report Server:</p> <p>&#160;</p> <p><img src="http://www.vb-magazin.de/images/KnowledgeBase/Report-Reporting-Services-loeschen.png" /></p> http://www.vb-magazin.de/KnowledgeBase/articles/2008/04/08/223-report-aus-dem-reporting-services-l-ouml-schen.aspx Alex Bierhaus MasterPage in ASP.NET dynamisch &auml;ndern <p>Mit folgendem Code ist es m&#246;glich, die MasterPage einer ASP.NET Seite zur Laufzeit dynamisch zu &#228;ndern. Dabei muss die w&#228;hrend PreInit die MasterPage-Eigenschaft der jeweiligen Seite gesetzt werden:</p> <p>&#160;</p> <pre class="csharpcode"> <span class="kwrd">Protected</span> <span class="kwrd">Sub</span> Page_PreInit(<span class="kwrd">ByVal</span> sender <span class="kwrd">As</span> <span class="kwrd">Object</span>, <span class="kwrd">ByVal</span> e <span class="kwrd">As</span> System.EventArgs) <span class="kwrd">Handles</span> <span class="kwrd">Me</span>.PreInit <span class="rem">'Relativer Pfad zur MasterPage</span> <span class="kwrd">Me</span>.MasterPageFile = <span class="str">&quot;~/EmptyTemplate.master&quot;</span> <span class="kw ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/04/01/217-masterpage-in-asp-net-dynamisch-auml-ndern.aspx Alex Bierhaus Hyperlink- Control innerhalb ASP.NET Webseite dynamisch &auml;ndern <P>Im folgenden Beispiel wird gezeigt, wie man ein Hyperlink-Control auf einer ASP.NET Seite dynamisch ändern kann. Das Szenario erforderte, dass hinter jeden Link auf einer Seite ein vorher noch nicht bekannter Parameter hinzugefügt werden sollte.</P> <P>Für die Prozedur wird der Name des Parameters, sowie dessen Inhalt erwartet. Hiernach werden alle Controls der 1. Hierarchie der Seite (Me.Controls) durchgegangen. Falls sich die Hyerplinks in einem anderem Steuerelement befinden (z.b. einem Panel) müsste es statt Me.Controls, Me.pnlxyz.controls heißen.</P> <P>&nbsp;</P><PRE class=code><SPAN style="COLOR: blue">Private Sub </SPAN>AddHyperlinkParameter(<SPAN style="COLOR: blue">ByVal </SPAN>_parameter <SPAN style="COLOR: blue">As String</SPAN>, <SPAN style="COLOR: blue">ByVal </SPAN>_val ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/03/25/180-hyperlink-control-innerhalb-asp-net-webseite-dynamisch-auml-ndern.aspx Alex Bierhaus Ersten Tag des Quartals berechnen <p>Folgendes Code-Beispiel zeigt, wie in Visual Basic.NET, der 1. Tag des Quartals eines &#252;bergebenen Datums berechnet werden kann:</p> <p>&#160;</p> <pre class="csharpcode"> <span class="rem">''' &lt;summary&gt;</span> <span class="rem">''' Gets the first day of quarter.</span> <span class="rem">''' &lt;/summary&gt;</span> <span class="rem">''' &lt;param name=&quot;_date&quot;&gt;The _date.&lt;/param&gt;</span> <span class="rem">''' &lt;returns&gt;&lt;/returns&gt;</span> <span class="kwrd">Public</span> <span class="kwrd">Function</span> GetFirstDayOfQuarter(<span class="kwrd">ByVal</span> _date <span class="kwrd">As</span> DateTime) <span class="kwrd">As</span> DateTime <span class="kwrd">Dim</span> myQ <span class="kwrd">As</span> <span class ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/03/25/179-ersten-tag-des-quartals-berechnen.aspx Alex Bierhaus GridView Zeilen- Hover <p>In einer ASP.NET GridView kann man bei vielen Datenzeilen schnell den &#220;berblickt verliert, in welcher Zeile man sich derzeit befindet. Eine kleine Abhilfe schafft hier folgendes Code-Beispiel, welches die Zeile, in der man sich derzeit befindet, gelb hinterlegt.</p> <p>Hierzu wird das RowCreated- Event der jeweiligen GridView verwendet:</p> <pre class="csharpcode"> <span class="rem">''' &lt;summary&gt;</span> <span class="rem">''' Momentane Zeile hovern</span> <span class="rem">''' &lt;/summary&gt;</span> <span class="rem">''' &lt;param name=&quot;sender&quot;&gt;&lt;/param&gt;</span> <span class="rem">''' &lt;param name=&quot;e&quot;&gt;&lt;/param&gt;</span> <span class="rem">''' &lt;remarks&gt;&lt;/remarks&gt;</span> <span class="kwrd">Protected ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/03/24/171-gridview-zeilen-hover.aspx Alex Bierhaus Implizit typisierte lokale Variablen/ Typed Local Variables in Visual Basic 2008 <div class="csharpcode"> </div> <p>Eines der neusten Errungenschaften im .NET Framework 3.5 und Visual Basic 2008 ist die Verwendung von impliziert typisierten lokalen Variablen. Im folgenden Beispiel wird das "alte" Muster, sowie die neue mögliche Verwendung gezeigt.</p> <p> </p> <p> </p> <div class="csharpcode"> <pre> <span class="lnum"> 1: </span> <span class="rem">'In vorigen VB.NET Versionen musste man die Variablen-Typen explizit angeben</span> </pre> <pre> <span class="lnum"> 2: </span> <span class="kwrd">Dim</span> _Text <span class="kwrd">As</span><span class="kwrd">String</span> = <span class="str">"Hallo!"</span></pre> <pre> <span class="lnum"> 3: </span> <span class="kwrd">Dim</span> _Plz <sp ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/03/24/170-implizit-typisierte-lokale-variablen-typed-local-variables-in-visual-basic-2008.aspx Alex Bierhaus Import Excel Sheet in DataSet <P>In diesem Beispiel wird beschrieben, wie man mithilfe von Visual Basic 2005 oder 2008 ein Excel Sheet in ein DataSet importiert:</P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: normal; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp; </SPAN><SPAN style="COLOR: green">''' &lt;summary&gt;<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: normal; mso-layout-grid-align: none"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </SPAN><SPAN style="COLOR: green">''' Excel File importiere ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/01/21/148-import-excel-sheet-in-dataset.aspx Alex Bierhaus Excel Export einer GridView in ASP.NET 2.0 <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none"><FONT size=3><SPAN style="FONT-FAMILY: Consolas; mso-no-proof: yes"><SPAN style="mso-spacerun: yes">Häufig stellt sich dem Entwickler die Anforderung, die Daten, aus einer fertig implementierten GridView, nach Excel zu exportieren.<BR>Anstelle eines eigenen Konverters zu schreiben lässt sich dieses Szenario mit dem Response Objekt sehr schnell lösen<BR></SPAN></SPAN></FONT></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none"><FONT size=3><SPAN style="FONT-FAMILY: Consolas; mso-no-proof: yes"><SPAN style="mso-spacerun: yes"></SPAN></SPAN></FONT>&nbsp;</P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; mso-layout-grid-align: none"><FONT size=3><SPAN style="FONT-FAMILY: Consolas; mso-no-p ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/01/10/147-excel-export-einer-gridview-in-asp-net-2-0.aspx Alex Bierhaus Bloomberg API Marekt Data Feed mit Visual Basic.NET entwickeln <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face=Verdana size=2>Entwickler, die besonders im Sektor Finanzen unterwegs sind, kennen&nbsp;höchstwahrscheinlich der Informationsprovider Bloomberg.&nbsp;<BR>Da die Verarbeitung von Daten ein relativ häufiges Szenario ist und die vorhandene Programmier-Dokumentation im Interent eher rar gehalten wurde, möchte ich hier einen Code veröffentlichen, mit dem man unter Visual Basic 2008 Daten aus der Bloomberg-Schnittstelle (CDS, Ratings,&nbsp;Sector Infos, etc)&nbsp;abfragen kann.</FONT></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">&nbsp;</P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face=Verdana size=2>Lizenzierten Bloombergbenutzern steht die API einmal als Client und einmal als Server Version zur Verfügung. Nachfolgend ... http://www.vb-magazin.de/KnowledgeBase/articles/2008/01/10/146-bloomberg-api-marekt-data-feed-mit-visual-basic-net-entwickeln.aspx Alex Bierhaus Start-Button und Menü bei PocketPC Anwendung verstecken <P>Wenn man seine PocketPC Anwendung (2003 oder 2005 mit .NET Framework 1.1 oder 2.0) im so genannten "Kiosk"-Mode ausführen möchte, um zum Beispiel das Startmenü zu verstecken hilft folgende Klasse weiter, die ich&nbsp;erstellt habe:</P><FONT color=#0000ff size=2> <P>Public</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Class</FONT><FONT size=2> Fullscreen</P> <P></FONT><FONT color=#0000ff size=2>Private</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Const</FONT><FONT size=2> SHFS_HIDETASKBAR </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Integer</FONT><FONT size=2> = &amp;H2</P> <P></FONT><FONT color=#0000ff size=2>Private</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Const</FONT><FONT size=2> SHFS_HIDESIPBUTTON </FONT> ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/08/08/145-start-button-und-menue-bei-pocketpc-anwendung-verstecken.aspx Alex Bierhaus Distinct für DataSet und .NET als Erweiterung für T SQL um einzelne Werte aus der Datenbank zu lesen <P style="MARGIN: 0cm 0cm 0pt">Folgender Code entstand als Erweiterung folgendes Arikels: <A href="http://support.microsoft.com/default.aspx?scid=kb;en-us;326176">http://support.microsoft.com/default.aspx?scid=kb;en-us;326176</A>. <BR>Ich hatte das Problem, dass ich mit einem umfangreicher T-SQL Select Statement Daten aus der Datenbank lesen musste und als Resultat einen Vielzahl von Datensätze mit unterschiedlichen Spalten bekommen müsste. Ein Feld mit dem Namen RefID enthielt immer Daten vom Typ integer. Egal was in den anderen Spalten zu dem Datenfeld stand, es sollte immer nur ein Datensatz je RefID ausgegeben werden, doppelte Nummern sollten also verhindert werden. Da T SQL von Haus aus keine Funktion hierfür zur Verfügung stellt suchte ich nach einer Möglichkeit das ganze unter .NET ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/07/06/144-distinct-fuer-dataset-und-net-als-erweiterung-fuer-t-sql-um-einzelne-werte-aus-der-datenbank-zu-lesen.aspx Alex Bierhaus Outlook aus Anwendung mit neuer E-Mail Nachricht starten <P>Um Outlook aus der eigenen Anwendung heraus zu starten und eine neue E-Mail mit dem Empfänger aus einer Variable zu schreiben ist folgender Code hilfreich:</P><FONT size=2> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> processMail </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> ProcessStartInfo = </FONT><FONT color=#0000ff size=2>New</FONT><FONT size=2> ProcessStartInfo(</FONT><FONT color=#800000 size=2>"Outlook.exe"</FONT><FONT size=2>)</P> <P>processMail.FileName = </FONT><FONT color=#800000 size=2>"mailto:"</FONT><FONT size=2> &amp; </FONT><FONT color=#0000ff size=2>Me</FONT><FONT size=2>.txtEMail.Text</P> <P>Process.Start(processMail)</P></FONT> http://www.vb-magazin.de/KnowledgeBase/articles/2006/05/05/141-outlook-aus-anwendung-mit-neuer-e-mail-nachricht-starten.aspx Alex Bierhaus Transact SQL Befehle (T-SQL) <P>Um Datenbankanwendungen zu entwickeln kommt man um die Verwendung von SQL-Befehlen oder dem erweiterten Transact-SQL nicht herum. Nur wer versteht, wie man T-SQL richtig einsetzt, kann Informationen aus Datenbanken lesen oder schreiben. In diesem&nbsp;Artikel lernen Sie grundlegendes über T-SQL, sowie die wichtigsten Befehle und deren Einsatz in Datenbanksystemen. </P> <P>SQL ist die Sprache für Datenbanken, egal ob SQL Server, Oracle, MySQL oder eine andere Datenbank, alle können mit SQL-Befehlen umgehen. Einige moderne Datenbanken haben eine Art Dialekt, für den SQL Server ist dieses z.B.: Transact-SQL, es erweitert die normalen SQL Befehle um einige zusätzliche Befehle um den Gebrauch der Datenbank flexibler zu gestalten.<BR>Sie können SQL benutzen um Datenbanken und Tabellen zu ers ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/05/01/140-transact-sql-befehle-t-sql-.aspx Alex Bierhaus CodeSnippet Gewinner aus Wettbewerb <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%; tab-stops: 48.0pt 72.0pt 96.0pt 120.0pt 144.0pt 168.0pt 192.0pt 216.0pt 240.0pt 264.0pt 288.0pt 312.0pt 336.0pt 360.0pt 384.0pt 408.0pt 432.0pt 456.0pt 480.0pt 504.0pt 528.0pt 552.0pt 576.0pt 600.0pt 624.0pt 648.0pt 672.0pt 696.0pt 720.0pt 744.0pt 768.0pt; mso-layout-grid-align: none"><SPAN class=berschrift2Zchn><SPAN style="FONT-SIZE: 14pt; LINE-HEIGHT: 150%; FONT-FAMILY: 'Times New Roman'; mso-bidi-font-family: Arial"><EM>CreateDataBindingObject.snippet<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></EM></SPAN></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 24pt; LINE-HEIGHT: 150%; TEXT-ALIGN: justify; tab-stops: 48.0pt 72.0pt 96.0pt 120.0pt 144.0pt 168.0pt 192.0pt 216.0pt ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/04/19/139-codesnippet-gewinner-aus-wettbewerb.aspx Alex Bierhaus SQL Server 2005 Mobile Edition Fehler in Visual Studio: "Der angeforderte .NET-Framework-Datenprovider kann nicht gefunden werden" beheben <P>Falls versucht wird über Visual Studio 2005 eine Verbindung mit einer .sdf Datei (Microsoft SQL Server 2005 Mobile Edition) einzubinden kann es zu folgendem Fehler kommen:</P> <P>Der angeforderte .NET-Framework-Datenprovider kann nicht gefunden werden. Ggf ist dieser nicht installert</P> <P>Der Grund liegt wahrscheinlich darin, dass auf dem System eine Alte .NET Framework 2.0 Version gegen eine Neue ausgetauscht wurde. Um den Fehler zu beheben muss in der Datei maschine.config, welche im Order:</P> <P><FONT size=2>%SystemDrive%\WINDOWS\Microsoft.NET\Framework\v2.0.xxxxx\config\machine.config</FONT></P> <P>zu finden ist, unter dem Abschnitt <pre><span style="color: #000000; "> </span><span style="color: #0000FF; ">&lt;</span><span style="color: #800000; ">system</span><span sty ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/03/14/138-sql-server-2005-mobile-edition-fehler-in-visual-studio-der-angeforderte-net-framework-datenprovider-kann-nicht-gefunden-werden-beheben.aspx Alex Bierhaus Steuerelement mit automatischen Ereignis/ Handler versehen <P>Es ist nicht nur möglich per Drag und Drop Steuerelemente auf dem Windows-Formular über visual Studio zu platzieren. Es ist auch möglich Steuerelemente zur Laufzeit zu erstellen, nur wie kann man bestimmen welches Ereignis oder welcher Code ausgeführt werden soll, wenn auf das Steuerelement geklickt wird? Bei der Verwendung von Visual Studio erfolgt dieses ganz einfach über z.B. einen Doppelklick auf das jeweile Element oder die Auswahl des Ereignis in der IDE. </P> <P>Bei der automatischen Generierung über den Code ist dieses mit AddHandler möglich. Folgender Code verdeutlicht, wie man einen Button zur Laufzeit erstellt und ein Klick-Event hinzufügt:</P> <DIV dir=ltr style="MARGIN-RIGHT: 0px"> <P dir=ltr style="MARGIN-RIGHT: 0px"><PRE><SPAN style="COLOR: #000000"> </SPAN><SPAN st ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/03/13/137-steuerelement-mit-automatischen-ereignis-handler-versehen.aspx Alex Bierhaus SOAP Nachrichten komprimieren <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Bei der Konsumierung eines Webdienstes, oder auch WebService, werden Anforderungen über die <EM>SoapHttpClientProtocol</EM> Klasse gesendet. Seit .NET 2.0 gibt es die Möglichkeit die Client-seitige Dekomprimierung zu aktivieren und somit 25 bis 65 % an der Textgröße der Anforderung zu sapren. Hierzu muss lediglich folgende Zeile verwendet werden:</SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN>&nbsp;</P> <DIV style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 4pt; BACKGROUND: #e6e6e ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/02/18/136-soap-nachrichten-komprimieren.aspx Alex Bierhaus Array in DataSet laden <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Öfters kommt es vor, dass man den Inhalt einer Array in ein DataSet laden möchte, so zum Beispiel wenn man eine Klasse in einem WebService ausgibt und diese in einem DataSet in einer konsumierenden Anwendung wieder abrufen möchte. Folgender Code zeigt, wie dieses Problem gelöst werden kann.</SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN>&nbsp;</P> <DIV style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 1pt; MARGIN-LEFT: 17.85pt; BORDER-LEFT ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/02/18/135-array-in-dataset-laden.aspx Alex Bierhaus Validierung einer E-Maill Adresse mit RegEx <P>RegEx erweisen sich immer wieder als praktischer Helfer, wenn es um die Validierung von E-Mail Adressen, Kreditkarten oder auch Bankleitzahlen geht. Im folgenden Beispiel wird eine Funktion vorgestellt, die die Gültigkeit einer E-Mail Adressen prüft und einen entsprechenden Boolean-Wert zurückgibt.</P> <DIV style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 1pt; MARGIN-LEFT: 17.85pt; BORDER-LEFT: windowtext 1pt solid; MARGIN-RIGHT: 0cm; PADDING-TOP: 1pt; BORDER-BOTTOM: windowtext 1pt solid"> <P>&nbsp;&nbsp; Public Shared Function isEmail(ByVal inputEmail As String) As Boolean<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strRegex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" + ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/02/11/134-validierung-einer-e-maill-adresse-mit-regex.aspx Alex Bierhaus Validierung einer IP-Adresse mit RegEx RegEx erweisen sich immer wieder als praktischer Helfer, wenn es um die Validierung von E-Mail Adressen, Kreditkarten oder auch Bankleitzahlen geht. Im folgenden Beispiel wird eine Funktion vorgestellt, die die Gültigkeit einer IP-Adresse im Bereich 0.0.0.0 bis 255.255.255.255 prüft und einen entsprechenden Boolean-Wert zurückgibt. <P></P> <DIV style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 1pt; MARGIN-LEFT: 17.85pt; BORDER-LEFT: windowtext 1pt solid; MARGIN-RIGHT: 0cm; PADDING-TOP: 1pt; BORDER-BOTTOM: windowtext 1pt solid"><SPAN lang=EN-GB style="FONT-SIZE: 11pt; FONT-FAMILY: 'Lucida Console'">&nbsp;&nbsp;</SPAN>&nbsp; Public Shared Function ValidIPAdressByVal IP As String) As Boole ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/02/11/133-validierung-einer-ip-adresse-mit-regex.aspx Alex Bierhaus Validierung eines Datums mit RegEx <P>RegEx erweisen sich immer wieder als praktischer Helfer, wenn es um die Validierung von E-Mail Adressen, Kreditkarten oder auch Bankleitzahlen geht. Im folgenden Beispiel wird eine Funktion vorgestellt, die die Gültigkeit eines Datums in der Form 11.02.2006 prüft und einen entsprechenden Boolean-Wert zurückgibt.</P> <DIV style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 1pt; MARGIN-LEFT: 17.85pt; BORDER-LEFT: windowtext 1pt solid; MARGIN-RIGHT: 0cm; PADDING-TOP: 1pt; BORDER-BOTTOM: windowtext 1pt solid"><SPAN lang=EN-GB style="FONT-SIZE: 11pt; FONT-FAMILY: 'Lucida Console'">&nbsp;&nbsp;</SPAN>&nbsp; Public Shared Function ValidDate(ByVal Date As String) As Boolean<BR>&nbsp;&nbsp;&nbsp ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/02/11/132-validierung-eines-datums-mit-regex.aspx Alex Bierhaus Daten über ADO.NET in eine Microsoft SQL Server 2000 oder 2005 schreiben <P>In diesem Beispiel wird gezeigt, wie Sie Daten über ADO.NET 1.1 oder 2.0 in eine Mirosoft SQL Datenbank 2000 oder 2005 (auch SQLEXPRESS) schreiben. </P> <P>Zunächst wird die Verbindung und der ConnectionString festgelegt, hiernach wird das Schema der zu bearbeitenden Tabelle abgeleitet und per CommandBuilder der Insert-Befehl automatisch erstellt, damit dieses nicht mehr per Hand geschen muss. Darauf werden die Daten den einzelnen Spalten hinzugefügt, bevor der DataAdapter den Datensatz hinzufügt. </P> <DIV style="BORDER-RIGHT: windowtext 1pt solid; PADDING-RIGHT: 4pt; BORDER-TOP: windowtext 1pt solid; PADDING-LEFT: 4pt; BACKGROUND: #e6e6e6; PADDING-BOTTOM: 1pt; MARGIN-LEFT: 17.85pt; BORDER-LEFT: windowtext 1pt solid; MARGIN-RIGHT: 0cm; PADDING-TOP: 1pt; BORDER-BOTTOM: windowtext 1pt ... http://www.vb-magazin.de/KnowledgeBase/articles/2006/02/07/131-daten-ueber-ado-net-in-eine-microsoft-sql-server-2000-oder-2005-schreiben.aspx Alex Bierhaus Konsolen Anwendung in Visual Basic 2005 <P>Microsoft hat&nbsp;die Windows-Befehls-Shell, kurz Konsole, im .NET 2 Framework erweitert. Lernen Sie anhand des folgendes Codes, wie man die Neuerungen nutzt:</P><FONT color=#0000ff size=2> <P>Sub</FONT><FONT size=2> Main()</P> <P>Console.WriteLine(</FONT><FONT color=#800000 size=2>"Hallo und herzlich Willkommen"</FONT><FONT size=2>)</P> <P>Console.WriteLine()</P> <P>Console.WriteLine(</FONT><FONT color=#800000 size=2>"Bitte geben Sie Ihren Namen ein:"</FONT><FONT size=2>)</P> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> strName </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>String</FONT><FONT size=2> = Console.ReadLine</P> <P>Console.WriteLine()</P> <P>Console.Write(</FONT><FONT color=#800000 size=2>"Hallo "</FONT><FON ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/12/03/126-konsolen-anwendung-in-visual-basic-2005.aspx Alex Bierhaus Problem mit: Login failed for user ''username''. The user is not associated with a trusted SQL Server connection lösen <P>Falls Sie versuchen über Ihre Anwendung auf Ihre SQL Server 2000 oder 2005 zuzugreifen und folgende Fehlermeldung erhalten: Login failed for user 'username'. The user is not associated with a trusted SQL Server connection, liegt es nicht daran, dass Ihr Benutzername oder das Passwort falsch ist, sondern, dass Ihr SQL Server auf "Windows Authentication Mode (Windows Authentication" läuft und so keine SQL Server Authentications annimmt. Um dieses zu ändern wechseln Sie zu Ihrem SQL Server Managment Studio und klicken Sie mit einem Rechtsklick auf die Eigenschaften des Servers. Hier finden Sie den Punkt "Security", wo Sie unter Server Authentication auf mixed mode umstellen müssen. Danach sollte die Verbindung mit Benutzername und Passwort kein Problem mehr darstellen.</P> http://www.vb-magazin.de/KnowledgeBase/articles/2005/11/27/124-problem-mit-login-failed-for-user-username-the-user-is-not-associated-with-a-trusted-sql-server-connection-loesen.aspx Alex Bierhaus Internet Explorer 7 aus Sicht von Anwender und Entwickler <P><EM>Der IE 7 kommt und steht bereits jetzt im Interesse der Anwender und Entwickler<BR>Microsoft veröffentlichte bereits im Sommer eine Beta Version des Internet Explorers. Diese überraschte mit vielen Neuerungen, die sich Anwender schon lange gewünscht haben. Doch auch für Entwickler ist der Internet Explorer von Bedeutung. Lesen Sie über die neuen Funktionen, und worauf Sie als ASP.NET-Entwickler achten sollten.</EM></P> <P><BR>Nachdem der Mozilla Firefox Browser eine gewisse Popularität erreichte ging ein Ruck durch die Internet Explorer Gemeinde. Einige sahen im Firefox Browser Ihren neuen Standard- und Lieblings- Browser. Dieser lockte vor allem mit einer größeren Anzahl von Sicherheitsfunktionen, sowie nützlichen Funktionen wie zum Beispiel dem tabbed Browsing. <BR>Microsoft reag ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/11/25/123-internet-explorer-7-aus-sicht-von-anwender-und-entwickler.aspx Alex Bierhaus Verbindung zu einer Access-Datenbank mit Visual Basic.NET 2003/ 2005 <p>In diesem kurzen Artikel wird erklärt, wie Sie in Visual Basic.NET 2003 und 2005 eine Verbindung mit dem OLEDB-Provider zu einer Access-Datenbank aufbauen. Nach erfolgreicher Verbindung wird eine Tabelle in das <em>DataSet</em> eingelesen.</p> <p>[code language='VB.NET'] </p> <p>Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb"<br />Dim con As New OleDb.OleDbConnection<br />Dim DS As New DataSet<br />con.ConnectionString = strCon<br />Dim sqladapter As OleDb.OleDbDataAdapter<br />sqladapter = New OleDb.OleDbDataAdapter("Select * from Customers", con)<br />con.Open()<br />sqladapter.Fill(DS)<br />MessageBox.Show("Verbindung erfolgreich hergestellt")<br />con.Close()</p> <p>[/code]</p> http://www.vb-magazin.de/KnowledgeBase/articles/2005/11/21/122-verbindung-zu-einer-access-datenbank-mit-visual-basic-net-2003-2005.aspx Alex Bierhaus Daten mit System.IO.Compression komprimieren und dekomprimieren <FONT size=2> <P>Das .NET 2.0 Framework erlaubt es nun Daten zu komprimieren und zu dekomprimieren. Folgender Code wird dieses verdeutlichen. Zunächst wird eine Quelldatei komprimiert, diese komprimierte Datei gespeichert und danach wieder dekomprimiert.</FONT></P> <P><FONT color=#0000ff size=2>Public</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>Sub</FONT><FONT size=2> compression()</P> <P></FONT><FONT color=#008000 size=2>'QuellDatei lesen</P></FONT><FONT size=2> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> QuellDatei </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>String</FONT><FONT size=2> = </FONT><FONT color=#0000ff size=2>My</FONT><FONT size=2>.Computer.FileSystem.CurrentDirectory &amp; </FONT><FONT color=#800000 ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/11/20/121-daten-mit-system-io-compression-komprimieren-und-dekomprimieren.aspx Alex Bierhaus GUID in Visual Basic.NET erzeugen <P>Unter Guids (Globally Unique Identifier) versteht man eine 128-Bit-Zahl, die per Algorithmus erzeugt wird und so unverwechselbar ist. Guids werden immer dann verwendet, wenn ein unverwechselbarer Wert benötigt wird.</P> <P>Mit Visual Basic.NET lassen sich mit folgendem Code ganz einfach GUIDs erzeugen:</P><FONT size=2> <P></FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> Guid </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>String</FONT><FONT size=2> = System.Guid.NewGuid().ToString()</P></FONT> http://www.vb-magazin.de/KnowledgeBase/articles/2005/11/03/120-guid-in-visual-basic-net-erzeugen.aspx Alex Bierhaus Visual Studio 2005 Beta oder RC deinstallieren <P>Visual Studio 2005 sollte auf einer reinen Windows Version installiert werden. Falls Sie eine Beta oder den Release Canidate von Visual Studio 2005 installiert haben können Sie mit folgendem Tool diese sauber installieren:</P><A href="http://go.microsoft.com/fwlink/?LinkId=47598">http://go.microsoft.com/fwlink/?LinkId=47598</A> <P>&nbsp;</P> http://www.vb-magazin.de/KnowledgeBase/articles/2005/11/01/119-visual-studio-2005-beta-oder-rc-deinstallieren.aspx Alex Bierhaus Strings mit Anführungszeichen " eingeben <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" size=3>Oftmals kommt es vor, dass Sie einen Text einem String zuweisen möchten, der ein Anführungszeichen (") enthält. Da Visual Basic dieses Zeichen normalerweise als Ende des String erkennt müssen Sie das Anführungszeichen zweimal hintereinander schreiben z.B.:</FONT></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p>&nbsp;</o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=EN-GB style="FONT-SIZE: 10pt; COLOR: blue; FONT-FAMILY: 'Courier New'; mso-ansi-language: EN-GB">Dim</SPAN><SPAN lang=EN-GB style="FONT-SIZE: 10pt; FONT-FAMILY: 'Courier New'; mso ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/10/11/118-strings-mit-anfuehrungszeichen-eingeben.aspx Alex Bierhaus Access, SQL & .NET <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" size=3>Microsoft Access ist immer noch eine der vorwiegend eingesetzten Datenbanken unter Windows-Betriebssystemen. </FONT></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman" size=3>Die meiste Literatur wendet sich aber nur an Einsteiger, für die die Materie rund um Access noch völlig unbekannt ist. Professionelle Literatur zu dem Thema ist kaum zu finden. Genau dieses Problem geht André Minhorst mit seinem Buch „Access, SQL &amp; .NET“ an. Mit einer Mischung aus Access, SQL und der .NET-Entwicklung mit den Datenbanksystemen schrieb er zusammen mit einigen Co-Autoren ein Buch für „professionelle &amp; effiziente Datenbankentwicklung“. </FONT></P> <P class=MsoNormal style="MARGIN: 0cm ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/09/25/117-access-sql-net.aspx Alex Bierhaus Text drehen <FONT color=#000084>Option</FONT> <FONT color=#000084>Explicit</FONT><BR><BR><BR><FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_drehen_Click()<BR><BR><BR>&nbsp;&nbsp;&nbsp; <FONT color=#000084>Dim</FONT> zaehler <FONT color=#000084>As</FONT> Byte<BR><BR>&nbsp;&nbsp;&nbsp; <FONT color=#000084>For</FONT> zaehler = 1 To <FONT color=#000084>Len</FONT>(txt_Eingabe.Text)<BR><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txt_Ausgabe.Text = txt_Ausgabe.Text &amp; Mid$(txt_Eingabe.Text, zaehler, 1) &amp; vbCrLf<BR><BR><BR>&nbsp;&nbsp;&nbsp; <FONT color=#000084>Next</FONT> zaehler<BR><BR><BR><BR><FONT color=#000084>End</FONT> <FONT color=#000084>Sub</FONT><BR><BR><FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_ende_Click()<BR><BR><BR>&nbsp;&nbsp;&nbsp; <F ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/08/23/115-text-drehen.aspx Alex Bierhaus Würfelgenerator <PRE><FONT color=#000084>Option</FONT> <FONT color=#000084>Explicit</FONT> <BR> <FONT color=green>'Ende Schalter , schließt das Programm</FONT><BR> <BR> <FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_ende_Click()<BR> <FONT color=#000084>End</FONT><BR> <FONT color=#000084>End</FONT> <FONT color=#000084>Sub</FONT><BR><BR> <BR> <FONT color=green>'Start Schalter - erzeugt die Zufallszahl und zeigt die passenden Radiobuttons an</FONT><BR> <BR> <FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> cmd_start_Click()<BR> <BR> <FONT color=#000084>Call</FONT> loeschenderwuerfelpunkte <FONT color=green>'löschen aller Würfelpunkte</FONT><BR> <BR> <FONT color=#000084>Dim</FONT> wuerfel <FONT color=#000084>As</FONT> <FONT color=#000084>Inte ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/08/23/114-wuerfelgenerator.aspx Alex Bierhaus Visual Basic Tabellen <P><FONT size=4><B><FONT color=#ff0000>TastenCodes<A name=tastencodes></A></FONT></B></FONT></P> <TABLE borderColor=#333333 width="90%" align=center border=1> <TBODY> <TR> <TD><B><FONT face="Courier New, Courier, mono" size=2>Konstante</FONT></B></TD> <TD><B><FONT face="Courier New, Courier, mono" size=2>Wert</FONT></B></TD> <TD><B><FONT face="Courier New, Courier, mono" size=2>Beschreibung</FONT></B></TD></TR> <TR> <TD><FONT face="Courier New, Courier, mono" size=2>vbKeyLButton</FONT></TD> <TD><FONT face="Courier New, Courier, mono" size=2>&amp;H1</FONT></TD> <TD><FONT face="Courier New, Courier, mono" size=2>Primäre Maustaste</FONT></TD></TR> <TR> <TD><FONT face="Courier New, Courier, mono" size=2>vbKeyMButton</FONT></TD> <TD><FONT face="Courier New, Courier, mono" size=2>&a ... http://www.vb-magazin.de/KnowledgeBase/articles/2005/08/23/113-visual-basic-tabellen.aspx Alex Bierhaus Formulare zur Laufzeit erstellen <P>Oft ist es erforderlich in der eigenen Anwendung Formulare zur Programmlaufzeit zu öffnen bzw. zu erstellen. </P> <P>Dieses lässt sich in VB.NET recht einfach mit den folgenden Befehlen bewerkstelligen:</P> <P><FONT color=#0000ff>Dim </FONT>frmForm as<FONT color=blue> New </FONT>frmvorhandeneForm<BR>frmForm.Show</P> <P>frmvorhandeneForm steht hierbei für das Formular, welches bereits im Projekt existiert und geöffnet werden soll.</P> <P>&nbsp;</P> http://www.vb-magazin.de/KnowledgeBase/articles/2005/05/23/110-formulare-zur-laufzeit-erstellen.aspx Alex Bierhaus Ursache für Unrecognized database format <P>Die DAO- Datenbankzugriffstheorie ist immer noch weit verbreitet unter Visual Basic 6 Entwicklern. Wer versucht mit DAO auf eine Access Version ab Access 2000 zuzugreifen bekommt von der VB 6 IDE folgenden Fehler geliefert: "Unrecognized database format". Das DAO Steuerelement erkennt die neueren Access Versionen einfach nicht mehr. Abhilfe schafft hierbei, falls möglich, die Access Datenbank in Access selbst zu konvertieren. Du kannst in Access unter "Extras"- "Datenbank Dienstprogramme" - "Datenbank konvertieren" die Access Version auswählen, in die deine Datenbank konvertiert werden soll. Leider sind eventuelle Änderungen nach dem Konvertieren nicht mehr möglich. Es ist zu empfehlen den Datenbankzugriff mit dem ADO- Datensteuerelement für neuere Access Versionen zu verwenden.</P> http://www.vb-magazin.de/KnowledgeBase/articles/2005/01/06/103-ursache-fuer-unrecognized-database-format.aspx Alex Bierhaus Makroskripte erstellen <P><FONT face=Arial color=#111111 size=3>Hier ein kleines Tutorial zum erstellen von Makroscripten unter Visual Basic.</FONT></P> <P><FONT face=Arial color=#111111 size=3>Um die Makros zu erstellen benötigst du die Makro.exe, die du </FONT><A href="http://www.vb-magazin.de/sektionen/downloads/FormLang.rar" target=_blank><FONT face=Arial color=#111111 size=3>hier</FONT></A><FONT face=Arial color=#111111 size=3> runterladen kannst. </FONT></P> <TABLE dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR><!--msnavigation--> <TD vAlign=top> <P><FONT face=Arial color=#111111>Generelle Anforderungen für das Erstellen und Ausführen von EMM - Makroskripten:</FONT></P> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><!--msthemelist--> <TBODY> <TR> <TD vAlign=top ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/102-makroskripte-erstellen.aspx Alex Bierhaus Makrofähige Anwendung schreiben <P>Wofür? Makros in Texteditoren o.ä., eigene kleine Programmiersprachen</P> <P><U>Benötigte OCX-Dateien:</U></P> <OL> <LI>Microsoft Script Control 1.0 <LI>In diesem Beispiel: MS Rich Textbox Control 6.0 </LI></OL> <P><U>Aufbau:</U></P> <P>Auf eine Standard-Form (Form1) eine Richtextbox (RTB1), einen Commandbutton (Cmd) und ein Scriptconrol (SC) einfügen.<BR>[Die Angaben in () geben den Namen der Controls an]</P> <P><U>Einstellungen:</U> <OL> <LI>Die Angegebenen Namen festlegen <LI>Text-Eigenschaft der Richtextbox auf "" setzen <LI>Caption-Eigenschaft des Buttons auf "Makro" setzen </LI></OL> <P><U>Sourcecode:</U></P> <P><CODE>Private Sub Form_Load()<BR>SC.AddObject "RTB",RTB1<BR>End Sub</CODE><BR>Hier wird die Richtextbox mit allen Eigenschaften und Methoden in das Script ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/101-makrofaehige-anwendung-schreiben.aspx Alex Bierhaus Ini Dateien bearbeiten <P>In diesem Projekt wird gezeigt wie man mit Visual Basic .ini Dateien erstellen und bearbeiten kann.</P> <P>Zuerst erstellt du ein neues Projekt</P> <P>Form1 benennst du ihn frmMain um</P> <P>Klicke jetzt auf Projekt=&gt;Klassenmodul hinzufügen</P> <P>Gib dem KlassenModul den Namen cIniFile</P> <P>Klicke Nochmal auf Projekt und dann auf Modul hinzufügen</P> <P>Das Modul bekommt den Namen modMain</P> <P>Nun erstellst du auf frmMain folgende Controls:</P> <P>2 Commandbuttons Caption=Einstellungen speichern,Name=cmdSave || Caption=Einstellungen laden,Name=cmdGet</P> <P>2 TextBoxen Name=txt1,Text="" || Name=txt2,Text=""</P> <P>1 CheckBox Caption=z.B. übernehmen?,Value ist egal</P> <P>Zum Schluss noch 4 Labels</P> <P>Caption=Einstellung1</P> <P>Caption=Einstellung2</P> <P>Captio ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/100-ini-dateien-bearbeiten.aspx Alex Bierhaus Sounds und Sounds in Ressourcen abspielen <P align=justify><FONT face=Arial><FONT size=3><B>Wie man Sounds abspielt</B><BR>Wenn ihr auch schon immer mal eine Wave-Datei apspielen wolltet, die ihr aber nicht direkt in eurer Anwendung haben wolltet, dann gibt es für euch eine einfache Lösung:</FONT></FONT></P> <P align=justify><BR><FONT face=Arial><FONT size=3><CODE>Private Declare Function sndPlaySound Lib "winmm.dll" Alias _ <BR>"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long <BR>Sub PlayWave(WaveDatei As String)<BR>Dim PlW$<BR>PlW = sndPlaySound(WaveDatei, 1)<BR>End Sub<BR></CODE><BR>Dann könnt iher die Funktion einfach aufrufen:<BR><CODE>PlayWave ("C:\Datei.wav") </CODE><BR></FONT></FONT></P> <P align=justify><FONT face=Arial><FONT size=3><STRONG>Wie man Sound in Ressourcen abspielt<BR></STRONG>De ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/99-sounds-und-sounds-in-ressourcen-abspielen.aspx Alex Bierhaus Anwendung des DataForm Assistenten unter Visual Basic.net <SPAN id=_ctl0_ArticleRepeater__ctl1_ArticleText>&nbsp; <DIV align=left>Visual Basic.net bietet eine sehr gute Möglichkeit ohne eine Zeile Code selber zu schreiben zu verschiedenen Datenbanken zu verbinden. Anhand dieses Beispiels möchten wir zeigen wie einfach es ist Daten aus einer Access Datenbank einzulesen und mit Visual Basic.net weiterzuverarbeiten. </DIV> <P><STRONG>Schritt 1:</STRONG><BR>Zunächst wird ein neues Projekt über Datei --&gt; Neu --&gt; Projekt --&gt; Windows- Anwendung angelegt. <BR>Nach Angabe des Speicherortes und bestätigen erscheint wie gewohnt ein leeres Formular.<BR>Nun geht man auf „Neues Element hinzufügen“ </P> <P><IMG src="http://www.vb-magazin.de/bilder/datenbank/element.jpg"></P> <P><STRONG>Schritt 2:<BR></STRONG>Im neu geöffneten Fenster wählt man den ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/98-anwendung-des-dataform-assistenten-unter-visual-basic-net.aspx Alex Bierhaus WebBrowser Steuerelement in Visual Basic.Net 2005 <SPAN id=_ctl0_ArticleRepeater__ctl1_ArticleText>&nbsp; <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Microsoft spendiert seiner neuen VB Version ein eigenes WebBrowser Steuerelement, mit dem es auf einfachste Weise möglich ist Webseiten zu öffnen und zu navigieren.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial"><o:p>&nbsp;</o:p></SPAN></P> <P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; FONT-FAMILY: Arial">Das Steuerelement „WebBrowser“ ist in der Toolbox unter Komponenten zu finden. Nachdem das Steuerelement auf das Formular gezogen worden ist kann man mit der ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/97-webbrowser-steuerelement-in-visual-basic-net-2005.aspx Alex Bierhaus SoundPlayer in VB.Net 2005 <SPAN id=_ctl0_ArticleRepeater__ctl1_ArticleText>Die neue Komponente "SoundPlayer" in Visual Studio.Net 2005 ermöglicht es auf einfache Weise .wav Dateien im eigenem Programm abzuspielen.&nbsp;Der SoundPlayer ist bei den Komponenten unter „Windows Forms“ zu finden. </SPAN> <P class=style1>Die abzuspielende .wav Datei kann mit entweder direkt in Eigenschaften des SoundPlayers festlegen oder per Code angeben.</P> <P class="style1 style2"><FONT color=#111155>SoundPlayer1.SoundLocation = "C:\WINDOWS\Media\Windows XP-Abmeldesound.wav"</FONT></P> <P class=style1>Zur Wiedergabe reicht die Play Eigenschaft:</P> <P class=style1><FONT color=#111155>SoundPlayer1.Play()</FONT></P> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/96-soundplayer-in-vb-net-2005.aspx Alex Bierhaus Umschalten zwischen den Ansichten der Entwicklerumgebung Visual Basic füllt den ganzen Bildschirm aus, so man leider nicht sehen kann was gerade dahinter "passiert". Mit diesem Trick kannst&nbsp;du VB nur die wichtigsten Fenster anzeigen lassen. Gehe wie gefolgt vor: Öffne Visual Basic. Gehen dann in der Menü leiste auf Extras, dann unter den Menü Punkt <I>Optionen</I> auf Weitere. Aktiviere dann den Hacken vor SDI- Entwicklerumgebung. Nach einem Programm Neustart wurde die Ansicht geändert. http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/95-umschalten-zwischen-den-ansichten-der-entwicklerumgebung.aspx Alex Bierhaus Ändern der Schriftart im Codefenster <P align=left>Klicke&nbsp;im Menü "Extras" auf Optionen. In der nächsten Dialogbox auf das Register <I>Editorformat</I>. Dort änder die Schriftart in <I>Fixedsys</I>. Das Ergebnis ist eine deutlichere Schrift in den Codefenstern, anstelle der "Fadenschrift".</P> <P>&nbsp;</P> <P><IMG hspace=0 src="http://www.vb-magazin.net/KnowledgeBase/Attachments/cd9668f3-e93c-4dc6-b11c-b8bc.jpg" border=0></P> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/94-aendern-der-schriftart-im-codefenster.aspx Alex Bierhaus Text in TextBox markieren bei GotFocus <P align=justify>Viele Anwendungen benutzen TextBoxen, die ihren Inhalt markieren, wenn man zum ersten mal draufklickt.</P><B>Funktion:</B> <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee><PRE><FONT face="Courier New" color=#000084>Sub</FONT> SelText(TxtBx <FONT face="Courier New" color=#000084>As</FONT> Object) <FONT face="Courier New" color=#000084> If</FONT> <FONT face="Courier New" color=#000084>Not</FONT> (TypeOf TxtBx Is TextBox) <FONT face="Courier New" color=#000084>Then</FONT> <FONT face="Courier New" color=#000084>Exit</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> TxtBx.SelStart = 0 TxtBx.SelLength = <FONT face="Courier New" color=#000084>Len</FONT>(TxtBx.Text) <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#00 ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/93-text-in-textbox-markieren-bei-gotfocus.aspx Alex Bierhaus Das begehrte "Immer im Vordergrund" <CODE><PRE><FONT face="Arial, Helvetica, sans-serif" size=2>Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long,_<BR> ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long </FONT></PRE></CODE> <P><FONT face="Arial, Helvetica, sans-serif" size=2>Sub SetTop(hwnd As Long, Top As Boolean) <BR>If Top = True Then <BR>SetWindowPos hwnd, -1, 0, 0, 0, 0, 3 <BR>Else <BR>SetWindowPos hwnd, -2, 0, 0, 0, 0, 3 <BR>End If <BR>End Sub </FONT></P> <P><B>Beispiel:</B> </P><PRE><FONT face="Arial, Helvetica, sans-serif" size=2>Private Sub Form_Load() <BR>SetTop Me.hwnd, True <BR>End Sub </FONT></PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/92-das-begehrte-immer-im-vordergrund-.aspx Alex Bierhaus Programm vor dem Taskmanager verstecken <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> RegisterServiceProcess Lib "Kernel32.dll" (<FONT face="Courier New" color=#000084>ByVal _ </FONT>dwProcessId <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> dwType <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Command1_Click() <FONT face="Courier New" color=#000084>Dim</FONT> pid&amp; pid = GetCurrentProce ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/91-programm-vor-dem-taskmanager-verstecken.aspx Alex Bierhaus Client - Server Connection mit Winsock <P align=justify>Code für den <B>Server</B>: <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee> <P align=left><CODE><PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Form_Load() Winsock1.LocalPort = 12345 <FONT face="Courier New" color=green>'Setzt den Port, dem Winsock "zuhört"</FONT> Winsock1.<FONT face="Courier New" color=#000000>Listen</FONT> <FONT face="Courier New" color=green>'Winsock hört zu</FONT> <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Winsock1_ConnectionRequest(<FONT face="Courier New" color=#000084>ByVal</FONT> requestID <FONT face=" ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/90-client-server-connection-mit-winsock.aspx Alex Bierhaus ICQ Pager Nachricht verschicken <P align=justify>Als erstes muss ein <I>Internet Transfer Protokoll</I> (siehe Project Components) eingefügt werden</P><B>Code:</B> <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee><CODE><PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> ICQ(UIN <FONT face="Courier New" color=#000084>As</FONT> String, <FONT face="Courier New" color=#000084>Name</FONT> <FONT face="Courier New" color=#000084>As</FONT> String, eMail <FONT face="Courier New" color=#000084>As</FONT> String, _ Betreff <FONT face="Courier New" color=#000084>As</FONT> String, Nachrichtentext <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT>) <FONT face="Courier New" color=#000084>Const</FONT> ICQURL = ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/89-icq-pager-nachricht-verschicken.aspx Alex Bierhaus Mehrmaliges öffnen der Anwendung verhindern <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Form_Load() <FONT face="Courier New" color=#000084>If</FONT> App.PrevInstance = <FONT face="Courier New" color=#000084>True</FONT> <FONT face="Courier New" color=#000084>Then</FONT> <FONT face="Courier New" color=#000084>MsgBox</FONT> App.EXEName &amp; " bereits geöffnet" <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Else</FONT> Form1.<FONT face="Courier New" color=#000000>Show</FONT> <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>If</FONT> <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT></PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/87-mehrmaliges-oeffnen-der-anwendung-verhindern.aspx Alex Bierhaus Caption fremder Fenster ändern <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> SendMessage Lib "user32" _ Alias "SendMessageA" (<FONT face="Courier New" color=#000084>ByVal</FONT> hWnd <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> wMsg <FONT face="Courier New" color=#000084>As</FONT> Long, _ <FONT face="Courier New" color=#000084>ByVal</FONT> wParam <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> lParam <FONT face="Courier New" color=#000084>As</FONT> Any) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/88-caption-fremder-fenster-aendern.aspx Alex Bierhaus CD-Romlaufwerksklappe öffnen/schließen <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> mciExecute Lib "winmm.dll" (<FONT face="Courier New" color=#000084>ByVal</FONT> lpstrCommand <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> OpenTheDoor() <FONT face="Courier New" color=green>'Laufwerkstür öffnen</FONT> mciExecute "Set CDaudio door open" <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> CloseTheDoo ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/86-cd-romlaufwerksklappe-oeffnen-schliessen.aspx Alex Bierhaus Affengriff deaktivieren (Strg-Alt-Entf) <P><CODE><FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> SystemParametersInfo Lib "user32" Alias _<BR>"SystemParametersInfoA" (<FONT face="Courier New" color=#000084>ByVal</FONT> uAction <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> uParam <FONT face="Courier New" color=#000084>As</FONT> Long, _<BR><FONT face="Courier New" color=#000084>ByVal</FONT> lpvParam <FONT face="Courier New" color=#000084>As</FONT> Any, <FONT face="Courier New" color=#000084>ByVal</FONT> fuWinIni <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT><B ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/85-affengriff-deaktivieren-strg-alt-entf-.aspx Alex Bierhaus Mauszeiger verstecken <PRE><FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> ShowCursor Lib "user32" (<FONT face="Courier New" color=#000084>ByVal</FONT> bShow <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> MouseVisible(Visible <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Boolean</FONT>) ShowCursor <FONT face="Courier New" color=#000084>IIf</FONT>(Visible, 1, 0) <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Sub</FONT></PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/84-mauszeiger-verstecken.aspx Alex Bierhaus Freien/belegten Speicherplatz ermitteln <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> GetDiskFreeSpaceEx Lib "kernel32" Alias _ "GetDiskFreeSpaceExA" (<FONT face="Courier New" color=#000084>ByVal</FONT> lpPathName <FONT face="Courier New" color=#000084>As</FONT> String, <FONT face="Courier New" color=#000084>ByVal</FONT> UserFree _ <FONT face="Courier New" color=#000084>As</FONT> Any, <FONT face="Courier New" color=#000084>ByVal</FONT> TotalSize <FONT face="Courier New" color=#000084>As</FONT> Any, <FONT face="Courier New" color=#000084>ByVal</FONT> TotalFree <FONT face="Courier New" color=#000084>As</FONT> Any) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FO ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/82-freien-belegten-speicherplatz-ermitteln.aspx Alex Bierhaus Objekt (z.B. Fenster) mit Maus verschieben <PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> ReleaseCapture Lib "user32" () <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> SendMessage Lib "user32" Alias "SendMessageA" (<FONT face="Courier New" color=#000084>ByVal</FONT> hwnd _ <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> _ wMsg <FONT face="Courier New" color=#000084>As</FONT> Long, <FONT face="Courier New" color=#000084>ByVal</FONT> wParam <F ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/83-objekt-z-b-fenster-mit-maus-verschieben.aspx Alex Bierhaus DFÜ-Status ermitteln <PRE><FONT face="Courier New" color=#000084>Const</FONT> RAS_MaxEntryName = 256 <FONT face="Courier New" color=#000084>Const</FONT> RAS_MaxDeviceType = 16 <FONT face="Courier New" color=#000084>Const</FONT> RAS_MaxDeviceName = 32 <FONT face="Courier New" color=#000084>Type</FONT> RASType dwSize <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> hRasCon <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> szEntryName(RAS_MaxEntryName) <FONT face="Courier New" color=#000084>As</FONT> Byte szDeviceType(RAS_MaxDeviceType) <FONT face="Courier New" color=#000084>As</FONT> Byte szDeviceName(RAS_MaxDeviceName) <FONT face="Courier New" color=#000084>As</FONT> Byte <FONT face="Courier New" ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/81-dfue-status-ermitteln.aspx Alex Bierhaus Laufwerksnamen ermitteln <PRE><FONT face="Courier New" color=#000084>Function</FONT> VolName(Drive <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT> S = Drive <FONT face="Courier New" color=#000084>If</FONT> <FONT face="Courier New" color=#000084>Len</FONT>(S) = 1 <FONT face="Courier New" color=#000084>Then</FONT> S = S + ":": <FONT face="Courier New" color=#000084>GoTo</FONT> fg <FONT face="Courier New" color=#000084>If</FONT> <FONT face="Courier New" color=#000084>Len</FONT>(S) = 2 <FONT face="Courier New" color=#000084>Then</FONT> S = S + "": <FONT face="Courier New" color=#000084>GoTo</FONT> fg <FONT face="Courier New" color=#000084>If</FONT> <FONT f ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/80-laufwerksnamen-ermitteln.aspx Alex Bierhaus Office-Version ermitteln <P>Mit diesem Beispiel kann man die Office Version, die auf dem PC installiert ist, ermitteln.</P> <P>&nbsp;</P><PRE><FONT face="Courier New" color=#000084>Option</FONT> <FONT face="Courier New" color=#000084>Explicit</FONT> <FONT face="Courier New" color=green>'Notwendige Api-Deklarationen für den Registry-Zugriff</FONT> <FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Declare</FONT> <FONT face="Courier New" color=#000084>Function</FONT> RegCloseKey Lib "advapi32.dll" (<FONT face="Courier New" color=#000084>ByVal</FONT> hKey <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Cou ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/79-office-version-ermitteln.aspx Alex Bierhaus Modul für Registry-Zugriff <PRE><FONT color=#000084>Mit diesem Beispiel kannst du auf die Windows Registry zugreifen.</FONT></PRE><PRE><FONT color=#000084></FONT>&nbsp;</PRE><PRE><FONT color=#000084>Option </FONT><FONT color=#000084>Explicit</FONT> <FONT color=green>'Benötigte API's:</FONT> <FONT color=#000084>Private</FONT> <FONT color=#000084>Declare</FONT> <FONT color=#000084>Function</FONT> RegQueryValueEx Lib "advapi32.dll" _ Alias "RegQueryValueExA" (<FONT color=#000084>ByVal</FONT> hKey <FONT color=#000084>As</FONT> Long, <FONT color=#000084>ByVal</FONT> _ lpValueName <FONT color=#000084>As</FONT> String, <FONT color=#000084>ByVal</FONT> lpReserved <FONT color=#000084>As</FONT> Long, _ lpType <FONT color=#000084>As</FONT> Long, lpData <FONT color=#000084>As</FONT> Any, lpcbData <FONT color=#000084>As</ ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/78-modul-fuer-registry-zugriff.aspx Alex Bierhaus Systemweit auf Tastatur-Ereignisse reagieren <TABLE width="90%" border=0><B>Beispiel:</B><BR> <TBODY> <TR> <TD bgColor=#eeeeee> <P><CODE><PRE><FONT color=#000084>Public</FONT> <FONT color=#000084>Declare</FONT> <FONT color=#000084>Function</FONT> GetAsyncKeyState Lib "user32.dll" (<FONT color=#000084>ByVal</FONT> nVirtKey <FONT color=#000084>As</FONT> <FONT color=#000084>Long</FONT>) <FONT color=#000084>As</FONT> <FONT color=#000084>Integer</FONT> <FONT color=#000084>Public</FONT> <FONT color=#000084>Const</FONT> KeyPressed <FONT color=#000084>As</FONT> <FONT color=#000084>Integer</FONT> = -32767 <FONT color=#000084>Private</FONT> <FONT color=#000084>Sub</FONT> Timer1_Timer() <FONT color=#000084>If</FONT> GetAsyncKeyState(<I>Code</I>) = KeyPressed <FONT color=#000084>Then</FONT> <FONT color=#000084>Msgbox</FONT> “Taste wu ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/77-systemweit-auf-tastatur-ereignisse-reagieren.aspx Alex Bierhaus Datei umbennenen - leicht gemacht <PRE><FONT face="Courier New" color=#000084>Mit der folgenden Funktion kannst du in Visual Basic Dateien umbennen.</FONT></PRE><PRE><FONT face="Courier New" color=#000084>Name</FONT> “C:\Test.txt” <FONT face="Courier New" color=#000084>As</FONT> “C:\Neuer Ordner\Neu.txt” </PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/25/76-datei-umbennenen-leicht-gemacht.aspx Alex Bierhaus Dezimalzahl in Binärzahl umwandeln <PRE><FONT face="Courier New" color=#000084>Function</FONT> GetBin(Zahl <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>String</FONT> <FONT face="Courier New" color=#000084>Dim</FONT> k <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> <FONT face="Courier New" color=#000084>Do</FONT> Until 2 ^ (k + 1) - 1 k = k + 1 <FONT face="Courier New" color=#000084>Loop</FONT> <FONT face="Courier New" color=#000084>For</FONT> t = 0 To k <FONT face="Courier New" color=#000084>If</FONT> 2 ^ t And Zahl <FONT face="Courier New" color=#000084>Then</FONT> GetBin = "1" + GetBin <FONT face="Courier New" color= ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/21/74-dezimalzahl-in-binaerzahl-umwandeln.aspx Alex Bierhaus Entfernung zweier Pixel berechnen <P align=justify>Du brauchst&nbsp;&nbsp;die Entfernung zwischen 2 X,Y-Koordinaten? Pythagoras hilft! Er kennt nicht die Formel "a²=b²+c²" ?</P> <P>Picture1 und Label1 in eine Form, folgenden Code in die Form stecken:</P> <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee><CODE><PRE><FONT face="Courier New" color=#000084>Private</FONT> <FONT face="Courier New" color=#000084>Sub</FONT> Picture1_MouseMove(Button <FONT face="Courier New" color=#000084>As</FONT> Integer, Shift <FONT face="Courier New" color=#000084>As</FONT> Integer, X <FONT face="Courier New" color=#000084>As</FONT> Single, Y <FONT face="Courier New" color=#000084>As</FONT> Single) Picture1.<FONT face="Courier New" color=#000000>Cls</FONT> <FONT face="Courier New" color=green>'Letztes Bild löschen</FONT> ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/21/75-entfernung-zweier-pixel-berechnen.aspx Alex Bierhaus Runden auf die Stelle genau <PRE><FONT color=#000084>Function</FONT> Round(Zahl <FONT color=#000084>As</FONT> Variant, Stellen <FONT color=#000084>As</FONT> <FONT color=#000084>Long</FONT>) <FONT color=#000084>As</FONT> <FONT color=#000084>Variant</FONT> Round = <FONT color=#000084>Int</FONT>(Zahl * 10 ^ Stellen + 0.5) / (10 ^ Stellen) <FONT color=#000084>End</FONT> <FONT color=#000084>Function</FONT> </PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/21/71-runden-auf-die-stelle-genau.aspx Alex Bierhaus RGB-Farbwerte extrahieren (Gegenteil der Funktion RGB(r, g, b)) <PRE><FONT face="Courier New" color=#000084>Function</FONT> Red(Color <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> Byte Red = Color Mod 256 <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Function</FONT> <FONT face="Courier New" color=#000084>Function</FONT> Green(Color <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT>) <FONT face="Courier New" color=#000084>As</FONT> Byte Green = (Color 256) Mod 256 <FONT face="Courier New" color=#000084>End</FONT> <FONT face="Courier New" color=#000084>Function</FONT> <FONT face="Courier New" color=#000084>Function</FONT> Blue(Color <FONT face="Couri ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/21/72-rgb-farbwerte-extrahieren-gegenteil-der-funktion-rgb-r-g-b-.aspx Alex Bierhaus Binärzahl in Dezimalzahl umwandeln <PRE><FONT color=#000084>Function</FONT> GetZahl(Bin <FONT color=#000084>As</FONT> <FONT color=#000084>String</FONT>) <FONT color=#000084>As</FONT> <FONT color=#000084>Long</FONT> Bin = <FONT color=#000084>Trim</FONT>(Bin) <FONT color=#000084>For</FONT> t = 0 To <FONT color=#000084>Len</FONT>(Bin) - 1 <FONT color=#000084>If</FONT> <FONT color=#000084>Mid</FONT>(Bin, <FONT color=#000084>Len</FONT>(Bin) - t, 1) = "1" <FONT color=#000084>Then</FONT> GetZahl = GetZahl + 2 ^ t <FONT color=#000084>Next</FONT> t <FONT color=#000084>End</FONT> <FONT color=#000084>Function</FONT> </PRE> http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/21/73-binaerzahl-in-dezimalzahl-umwandeln.aspx Alex Bierhaus Sehr benutzerfreundliche Zufallsfunktion <TABLE width="90%" border=0> <TBODY> <TR> <TD bgColor=#eeeeee> <P><CODE><PRE><FONT face="Courier New" color=#000084>Function</FONT> Ran(Optional <FONT face="Courier New" color=#000084>Max</FONT> <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> = 1, _ Optional <FONT face="Courier New" color=#000084>Min</FONT> <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Long</FONT> = 0, Optional Bruch <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Boolean</FONT> = <FONT face="Courier New" color=#000084>True</FONT>) <FONT face="Courier New" color=#000084>As</FONT> <FONT face="Courier New" color=#000084>Variant</FONT> <FONT face="Courier New" color=#000084>Dim</FONT> X < ... http://www.vb-magazin.de/KnowledgeBase/articles/2004/12/21/70-sehr-benutzerfreundliche-zufallsfunktion.aspx Alex Bierhaus