# Sunday, November 28, 2004
A class that can be added...
A class that can be added... 
public class Point
{
    private int x, y;
    
    public Point(){}

    public Point(int xPos, int yPos){ x = xPos; y = yPos; }

    public static Point operator + (Point p1, Point p2)
    {
       Point newPoint = new Point(p1.x + p2.x, p1.y + p2.y);
       return newPoint;
    }
}
I just wrote that down to have it writen once ;-)
C# | Misc
Sunday, November 28, 2004 8:59:21 PM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [10]  | 
# Thursday, November 25, 2004
TechTalk UserGroup Special

Die Plätze sind begrenzt -VORANMELDUNG PER MAIL ERFORDERLICH.

http://www.vfl-niederrhein.net/

http://staff.newtelligence.net/michaelw/Default.aspx

http://www.zakk.de/

Event | Vfl-NiederRhein
Thursday, November 25, 2004 11:18:04 AM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [19]  | 
First Build on new Notebook

I released the 1st. build of iFused from my new supercoolandhipandfasterandmorememoryandwidescreenedandfatsoundbyjblspeakers hp notebook.

Thanks to Jonathan de Siqueira for contibuting Portugues Brazil.

ASP.NET | Misc | Projects
Thursday, November 25, 2004 11:14:58 AM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [33]  | 
# Wednesday, November 17, 2004
Enable clientside javascript events for the RadioButtonControl
using System.Drawing;
using System.Drawing.Design;
using System.Text;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;

namespace StaticDust.Web.UI.Controls
{
    [Designer(typeof(RadioButtonDesigner))]
    public class RadioButton : System.Web.UI.WebControls.RadioButton
    {
        protected override void Render(System.Web.UI.HtmlTextWriter writer)
        {
            System.Text.StringBuilder stringBuilder = new System.Text.StringBuilder();
            System.IO.StringWriter stringWriter = new System.IO.StringWriter(stringBuilder);
            HtmlTextWriter htmlWriter = new HtmlTextWriter(stringWriter);
            base.Render(htmlWriter);

            StringBuilder _javaScript = new StringBuilder();

            IEnumerator keys = this.Attributes.Keys.GetEnumerator();
            int i = 1;
            string key;
            while (keys.MoveNext())
            {
                key = (String)keys.Current;
                if(key.Substring(0,2).ToLower()=="on")
                {
                    stringBuilder.Replace(key + "=\"" + this.Attributes[key].ToString() + "\" ", "");
                    _javaScript.Append(key + "=\"" + this.Attributes[key].ToString() + "\" ");
                }
                i++;
            }
            stringBuilder.Replace("type=\"radio\" ", "type=\"radio\" " + _javaScript.ToString());

            writer.Write(stringBuilder.ToString());
        }

    }
}

 

ASP.NET | C#
Wednesday, November 17, 2004 11:38:44 AM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [20]  | 
# Friday, November 12, 2004
1000 and 1 user

yes. Staticdust keeps rising ;-)

Misc
Friday, November 12, 2004 8:46:33 PM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [23]  | 
# Thursday, November 11, 2004
Definitely on my wishlist for whidby

ASP.NET | Misc | Projects
Thursday, November 11, 2004 10:04:10 PM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [31]  | 
# Friday, November 05, 2004
This is where i'll be 2nite

I was watching
with one eye on the other side
I had fifteen people telling me to move
I got moving on my mind
I found shelter
In some thoughts turning wheels around
I said 39 times that I love you
to the beauty I had found

Well its 1 2 3 4
take the elevator
at the ...

Misc
Friday, November 05, 2004 2:53:31 PM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [18]  | 
Herzblatt

SUSI: So lieber Administrator jetzt musst du dich entscheiden. Ist es

A, der smarte und überlegte, der genau weiss was sein Code und sein Programm tut und die benötigten Recht für seine Applikation sauber abgrenzt (z.B. durch das Einrichten eines "ServiceAccounts").

oder ist es

B, der hitzige Typ, der die Augen vor dem Fortschritt verschliesst, wenn er mal gut gelaunt ist dem Admin eine Readme unterjubelt in der ungenau dokumentiert ist welche Recht sein Code zum Ausführen braucht und solange bis etwas in die Hose geht immer sagt "Das ist Aufgabe des Administrators".

Misc
Friday, November 05, 2004 2:52:55 PM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [24]  | 
# Sunday, October 31, 2004
NDoc Macro again
Something usefull i posted in my old blog and promised Christian and Günther to post it again...

#Region "NDoc()"
    Sub NDoc()
        Dim nDocPath As String = "C:\Program files\NDoc\bin\.net-1.1\"

        Dim objProj As Object()
        Dim proj As Project

        'Get Project
        objProj = DTE.ActiveSolutionProjects
        If objProj.Length = 0 Then
            Exit Sub
        End If
        proj = DTE.ActiveSolutionProjects(0)

        If (proj.ConfigurationManager.ActiveConfiguration.ConfigurationName = "Debug") Then
            MsgBox("You cannot run this Macro in the Debug-configuration." & vbCrLf & _
            "Switch to ""Realease"", build the project and run this Macro again.")
            Exit Sub
        End If

        proj.ConfigurationManager.ActiveConfiguration.Properties.Item("DocumentationFile").Value =
            proj.Properties.Item("AssemblyName").Value() & ".xml"
        proj.Save()

        Dim XmlString As String = "<project>" & vbCrLf & _
            "    <assemblies>" & vbCrLf & _
            "        <assembly location=""" & proj.Properties.Item("FullPath").Value() & _
            "bin\Release\" & proj.Properties.Item("OutputFileName").Value() & """ documentation=""" & _
            proj.Properties.Item("FullPath").Value() & "bin\Release\" & _
            proj.Properties.Item("AssemblyName").Value() & ".xml"" />" & vbCrLf & _
            "    </assemblies>" & vbCrLf & _
            "    <namespaces>" & vbCrLf & _
            "    </namespaces>" & vbCrLf & _
            "    <documenters>" & vbCrLf & _
            "        <documenter name=""MSDN"">" & vbCrLf & _
            "            <property name=""OutputDirectory"" value=""" & _
            proj.Properties.Item("FullPath").Value() & "doc\"" />" & vbCrLf & _
            "            <property name=""HtmlHelpName"" value=""" & _
            proj.Properties.Item("AssemblyName").Value() & """ />" & vbCrLf & _
            "            <property name=""IncludeFavorites"" value=""True"" />" & vbCrLf & _
            "            <property name=""Title"" value=""" & _
            proj.Properties.Item("AssemblyName").Value() & _
            """ />" & vbCrLf & _
            "            <property name=""SplitTOCs"" value=""False"" />" & vbCrLf & _
            "            <property name=""DefaulTOC"" value="""" />" & vbCrLf & _
            "            <property name=""IncludeHierarchy"" value=""True"" />" & vbCrLf & _
            "            <property name=""ShowVisualBasic"" value=""True"" />" & vbCrLf & _
            "            <property name=""RootPageContainsNamespaces"" value=""True"" />" & vbCrLf & _
            "            <property name=""SortTOCByNamespace"" value=""True"" />" & vbCrLf & _
            "            <property name=""OutputTarget"" value=""HtmlHelpAndWeb"" />" & vbCrLf & _
            "            <property name=""HeaderHtml"" value="""" />" & vbCrLf & _
            "            <property name=""FooterHtml"" value=""Copyright © " & Year(Now) & _
            " &lt;a href=http://www." & _
            proj.Properties.Item("AssemblyName").Value().Split(".".ToCharArray)(0) & _
            ".com&gt;" & _
            proj.Properties.Item("AssemblyName").Value().Split(".".ToCharArray)(0) & _
            " &lt;/a&gt; - all rights reserved."" />" & vbCrLf & _
            "            <property name=""FilesToInclude"" value="""" />" & vbCrLf & _
            "            <property name=""LinkToSdkDocVersion"" value=""MsdnOnline"" />" & vbCrLf & _
            "            <property name=""ShowMissingSummaries"" value=""True"" />" & vbCrLf & _
            "            <property name=""ShowMissingRemarks"" value=""False"" />" & vbCrLf & _
            "            <property name=""ShowMissingParams"" value=""True"" />" & vbCrLf & _
            "            <property name=""ShowMissingReturns"" value=""True"" />" & vbCrLf & _
            "            <property name=""ShowMissingValues"" value=""True"" />" & vbCrLf & _
            "            <property name=""DocumentInternals"" value=""False"" />" & vbCrLf & _
            "            <property name=""DocumentProtected"" value=""True"" />" & vbCrLf & _
            "            <property name=""DocumentPrivates"" value=""False"" />" & vbCrLf & _
            "            <property name=""DocumentProtectedInternalAsProtected"" value=""False"" />" & _
            vbCrLf & _
            "            <property name=""DocumentEmptyNamespaces"" value=""False"" />" & vbCrLf & _
            "            <property name=""IncludeAssemblyVersion"" value=""False"" />" & vbCrLf & _
            "            <property name=""CopyrightText"" value="""" />" & vbCrLf & _
            "            <property name=""CopyrightHref"" value="""" />" & vbCrLf & _
            "            <property name=""ReferencesPath"" value="""" />" & vbCrLf & _
            "            <property name=""SkipNamespacesWithoutSummaries"" value=""False"" />" & _
            vbCrLf & _
            "            <property name=""UseNamespaceDocSummaries"" value=""False"" />" & vbCrLf & _
            "            <property name=""AutoPropertyBackerSummaries"" value=""False"" />" & vbCrLf & _
            "            <property name=""AutoDocumentConstructors"" value=""True"" />" & vbCrLf & _
            "            <property name=""DocumentAttributes"" value=""True"" />" & vbCrLf & _
            "            <property name=""ShowTypeIdInAttributes"" value=""True"" />" & vbCrLf & _
            "            <property name=""DocumentedAttributes"" value="""" />" & vbCrLf & _
            "            <property name=""GetExternalSummaries"" value=""True"" />" & vbCrLf & _
            "            <property name=""EditorBrowsableFilter"" value=""Off"" />" & vbCrLf & _
            "            <property name=""UseNDocXmlFile"" value="""" />" & vbCrLf & _
            "        </documenter>" & vbCrLf & _
            "    </documenters>" & vbCrLf & _
            "</project>"

        Dim FileWriter As System.IO.StreamWriter
        FileWriter = System.IO.File.CreateText(proj.Properties.Item("FullPath").Value() & _
        proj.Properties.Item("AssemblyName").Value() & ".ndoc")
        FileWriter.WriteLine(XmlString)
        FileWriter.Close()

        proj.ProjectItems.AddFromFile(proj.Properties.Item("FullPath").Value() & _
        proj.Properties.Item("AssemblyName").Value() & ".ndoc")
        proj.Save()

        If System.IO.Directory.Exists(proj.Properties.Item("FullPath").Value & "\doc\") = False Then
            System.IO.Directory.CreateDirectory(proj.Properties.Item("FullPath").Value & "\doc\")
        End If

        Dim hasDocDir As Boolean = False

        For Each pitem As EnvDTE.ProjectItem In proj.ProjectItems
            If pitem.Name = "doc" Then
                hasDocDir = True
            End If
        Next

        If hasDocDir = False Then
            proj.ProjectItems.AddFolder("doc")
            proj.Save()
        End If

        If System.IO.File.Exists(proj.Properties.Item("FullPath").Value & "\doc\" & proj.Properties.Item("AssemblyName").Value & ".chm") = False Then
            Dim chmWriter As System.IO.StreamWriter = 
                System.IO.File.CreateText(proj.Properties.Item("FullPath").Value() & "\doc\" & _
            proj.Properties.Item("AssemblyName").Value() & ".chm")
            chmWriter.WriteLine("")
            chmWriter.Close()
        End If
        proj.ProjectItems.AddFromFile(proj.Properties.Item("FullPath").Value() & "\doc\" & proj.Properties.Item("AssemblyName").Value() & ".chm")
        proj.Save()

        If proj.Properties.Item("PostBuildEvent").Value = "" Then
            proj.Properties.Item("PostBuildEvent").Value = """" & nDocPath & _
                 "NDocConsole.exe"" -documenter=MSDN -project=""$(ProjectDir)" & _
                 proj.Properties.Item("AssemblyName").Value() & ".ndoc"" -verbose" & vbCrLf & _
                 "copy $(ProjectDir)doc\" & proj.Properties.Item("AssemblyName").Value() & _
                 ".chm $(TargetDir)"
        Else
            Dim existing As String = ("" & proj.Properties.Item("PostBuildEvent").Value)
            Dim exArr As String() = existing.Split(vbCrLf)
            existing = ""
            Dim y As Integer
            For y = 0 To (exArr.Length - 1)
                If exArr(y).IndexOf(nDocPath) = -1 And exArr(y).IndexOf(".chm") = -1 Then
                    existing = existing & vbCr & exArr(y)
                End If
            Next
            existing = nDocPath & _
                 "NDocConsole.exe -documenter=MSDN -project=""$(ProjectDir)" & _
                 proj.Properties.Item("AssemblyName").Value() & ".ndoc"" -verbose" & vbCrLf & _
                 "copy $(ProjectDir)doc\" & proj.Properties.Item("AssemblyName").Value() & _
                 ".chm $(TargetDir)" & _
                 existing
            proj.Properties.Item("PostBuildEvent").Value = existing
        End If
        proj.Save()

        MsgBox("The file """ & proj.Properties.Item("AssemblyName").Value() & _
            ".ndoc"" has been added to the project." & vbCrLf & _
            "NDoc was registred as PostBuildEvent.")

    End Sub
#End Region
Misc | Projects
Sunday, October 31, 2004 5:54:24 PM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [16]  | 
# Saturday, October 30, 2004
dead, dead, dead

After DotNet 101 died in 2001, i realized a few other corpses today ...

vbCity last article 06/25/2004

DotNetWire last news 03/25/2004

Misc
Saturday, October 30, 2004 10:16:17 PM (W. Europe Standard Time, UTC+01:00)  #    Disclaimer  |  Comments [15]  |