The Moth

Labels: dot NET general

# posted by The Moth @ 6:45:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 12:56:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 5:46:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 5:22:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 7:58:00 PM 3 comments

Labels: dot NET general

# posted by The Moth @ 6:14:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 10:11:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 11:12:00 PM 4 comments

Labels: dot NET general

# posted by The Moth @ 12:08:00 AM 0 comments

Labels: dot NET general

# posted by The Moth @ 11:20:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 12:28:00 AM 2 comments

Labels: dot NET general

# posted by The Moth @ 8:21:00 PM 9 comments

Labels: dot NET general, Silverlight

# posted by The Moth @ 8:36:00 PM 4 comments

Labels: dot NET general, Silverlight

# posted by The Moth @ 3:29:00 PM 5 comments

  var res =
    from ia in XElement.Parse(e.Result).DescendantsAndSelf("ItemAttributes")
    select ia.Element("Title").Value;

void SomeMethod()
{
  var res =
    from ia in XElement.Parse(e.Result).DescendantsAndSelf(n("ItemAttributes"))
    select ia.Element(n("Title")).Value;

  // TODO use res
}

static XName n(string name)
{
  return XNamespace.Get("http://webservices.amazon.com/AWSECommerceService/2005-10-05") + name;
}

  Dim res = _
    From ia In XElement.Parse(e.Result)...<n:ItemAttributes> _
    Select ia...<n:Title>.Value()

Imports <xmlns:n="http://webservices.amazon.com/AWSECommerceService/2005-10-05">

Labels: dot NET general, LINQ

# posted by The Moth @ 6:30:00 AM 4 comments

Labels: dot NET general, ParallelComputing

# posted by The Moth @ 6:38:00 AM 0 comments

public static RegistryKey CreateSubKey(this RegistryKey rk, string subkey, bool isVolatile)
{
  if (!isVolatile)
  {
    return rk.CreateSubKey(subkey); // i.e. no change
  }
  else
  {
    // call our own method since we cannot change the framework's
    return MothCreateVolatileSubKey(rk, subkey, RegistryKeyPermissionCheck.Default);
  }
}

RegistryKey rk1 = Registry.CurrentUser.CreateSubKey("my vol", true);

RegistryKey rk2 = Program.CreateSubKey(Registry.CurrentUser, "my vol", true);

Labels: dot NET general, Mobile and Embedded

# posted by The Moth @ 12:48:00 PM

Labels: dot NET general

# posted by The Moth @ 3:26:00 AM

Labels: dot NET general

# posted by The Moth @ 4:32:00 AM

Labels: dot NET general

# posted by The Moth @ 11:04:00 AM

void button1_Click(System.Object sender, System.EventArgs e)
{
  // use Error
  pictureBox1.Image = Bitmap.FromHicon(SystemIcons.Error.Handle);

  // use Warning
  this.Icon = SystemIcons.Warning;     

  // use Information
  int h = button1.ClientSize.Height / 2;
  Icon ico = new Icon(SystemIcons.Information, h, h);
  Bitmap bitmap1 = Bitmap.FromHicon(ico.Handle);
  button1.Image = bitmap1;
  button1.ImageAlign = ContentAlignment.MiddleLeft;     
}

Labels: dot NET general, UAC, Vista

# posted by The Moth @ 6:42:00 AM

    [DllImport("kernel32.dll")]
    static extern ...;
    [DllImport("kernel32")]
    static extern ...;
    [DllImport("Kernel32.DLL")]
    static extern ...;
    [DllImport("KERNEL32")]
    static extern ...;
    [DllImport("KeRnEl32.DlL")]
    static extern ...;

Labels: dot NET general

# posted by The Moth @ 1:37:00 AM

Labels: dot NET general

# posted by The Moth @ 2:42:00 PM

Labels: dot NET general

# posted by The Moth @ 4:22:00 PM

Labels: dot NET general, ParallelComputing

# posted by The Moth @ 9:17:00 AM

Labels: dot NET general

# posted by The Moth @ 3:01:00 PM

  int a, b;
  ThreadPool.GetMaxThreads(out a, out b);
  MessageBox.Show(a.ToString());

Labels: dot NET general

# posted by The Moth @ 2:42:00 AM

Labels: dot NET general

# posted by The Moth @ 10:09:00 AM

Labels: dot NET general

# posted by The Moth @ 1:38:00 AM

      // Call this passing in 0
      public static ProcessThread GetProcessThreadFromWin32ThreadId(Int32 threadId) {
         if (threadId == 0) threadId = ThreadUtility.GetCurrentWin32ThreadId();
         foreach (Process process in Process.GetProcesses()) {
            foreach (ProcessThread processThread in process.Threads) {
               if (processThread.Id == threadId) return processThread;
            }
         }
         throw new InvalidOperationException("No thread matching specified thread Id was found.");
      }

      [DllImport("Kernel32", EntryPoint = "GetCurrentThreadId", ExactSpelling = true)]
      public static extern Int32 GetCurrentWin32ThreadId();

Labels: dot NET general, ParallelComputing

# posted by The Moth @ 9:27:00 AM

Labels: dot NET general

# posted by The Moth @ 11:20:00 AM

Sub Main
myVariableName = 6
myVariableName = myVariableNmae + 1

Debug.WriteLine(myVariableName)
End Sub

Sub Main
Dim myVariableName = 6
myVariableName = myVariableName + 1
myVariableName = "hello"
Debug.WriteLine(myVariableName)
'
Dim o
o = New Collection
o.FeelingLucky
End Sub

Labels: dot NET general

# posted by The Moth @ 6:26:00 PM

Vista-only features for the managed developer.

Labels: dot NET general, Links, Mobile and Embedded, Vista

# posted by The Moth @ 6:56:00 AM

[ Editor's Update - 6/23/2006: Because shell extensions are loaded into arbitrary processes and because managed code built against one version of the runtime may not run in a process running an earlier version of the runtime, Microsoft recommends against writing managed shell extensions and does not consider them a supported scenario.]

Labels: dot NET general

# posted by The Moth @ 3:59:00 PM

Labels: dot NET general

# posted by The Moth @ 3:37:00 PM 0 comments

Labels: dot NET general

# posted by The Moth @ 2:53:00 AM 0 comments

Labels: dot NET general

# posted by The Moth @ 9:42:00 AM 0 comments

Labels: dot NET general

# posted by The Moth @ 1:57:00 AM 0 comments

void SomeMethod()
{
  Cursor.Current = Cursors.WaitCursor;
  statusBar1.Text = "Busy...";
  button1.Enabled = false;

  // do some real work here

  button1.Enabled = true;
  statusBar1.Text = "Ready";
  Cursor.Current = Cursors.Default;
}

void SomeMethod()
{
  using (BusyTaskRegion bt = new BusyTaskRegion(statusBar1, button1))
  {
    // do some real work here
  }
}

class BusyTaskRegion : IDisposable
{
   private Control _c1;
   private Control _c2;

   public BusyTaskRegion(Control c1, Control c2)
   {
     this._c1 = c1;
     this._c2 = c2;
     Cursor.Current = Cursors.WaitCursor;
     c1.Text = "Busy...";
     c2.Enabled = false;
   }

   public void Dispose()
   {
     this._c1.Enabled = true;
     this._c1.Text = "Ready";
     Cursor.Current = Cursors.Default;
   }
}

Labels: dot NET general

# posted by The Moth @ 4:20:00 PM 1 comments

class SomeType : IDisposable{
  public SomeType(){
    // do some ctor stuff
  }

  public void DoSomething(){
    // do some useful stuff
  }

  public void Dispose(){
    // clean up unmanaged resources
  }
}

SomeType st = new SomeType();
try
{
  st.DoSomething();
}
finally
{
  st.Dispose();
}

using (SomeType st = new SomeType())
{
  st.DoSomething();
}

Labels: dot NET general

# posted by The Moth @ 6:35:00 AM 0 comments

.method public instance void  Method1() cil managed
{
  // Code size       39 (0x27)
  .maxstack  2
  .locals init (class [mscorlib]System.Collections.ArrayList V_0,
           int32 V_1)
  IL_0000:  newobj     instance void [mscorlib]System.Collections.ArrayList::.ctor()
  IL_0005:  stloc.0
  IL_0006:  ldloc.0
  IL_0007:  ldc.i4.s   10
  IL_0009:  box        [mscorlib]System.Int32
  IL_000e:  callvirt   instance int32 [mscorlib]System.Collections.ArrayList::Add(object)
  IL_0013:  pop
  IL_0014:  ldloc.0
  IL_0015:  ldc.i4.0
  IL_0016:  callvirt   instance object [mscorlib]System.Collections.ArrayList::get_Item(int32)
  IL_001b:  unbox      [mscorlib]System.Int32
  IL_0020:  ldobj      [mscorlib]System.Int32
  IL_0025:  stloc.1
  IL_0026:  ret
} // end of method Form1::Method1

private ArrayList ar = new ArrayList();
public void Box() {
    ar.Add(5);
}
public void Unbox() {
    int i = (int)ar[0];
}

.method public hidebysig instance void  Box() cil managed
{
  // Code size       19 (0x13)
  .maxstack  8
  IL_0000:  ldarg.0
  IL_0001:  ldfld      class [mscorlib]System.Collections.ArrayList BoxUnbox.Form1::ar
  IL_0006:  ldc.i4.5
  IL_0007:  box        [mscorlib]System.Int32
  IL_000c:  callvirt   instance int32 [mscorlib]System.Collections.ArrayList::Add(object)
  IL_0011:  pop
  IL_0012:  ret
} // end of method Form1::Box

.method public hidebysig instance void  Unbox() cil managed
{
  // Code size       19 (0x13)
  .maxstack  8
  IL_0000:  ldarg.0
  IL_0001:  ldfld      class [mscorlib]System.Collections.ArrayList BoxUnbox.Form1::ar
  IL_0006:  ldc.i4.0
  IL_0007:  callvirt   instance object [mscorlib]System.Collections.ArrayList::get_Item(int32)
  IL_000c:  unbox.any  [mscorlib]System.Int32
  IL_0011:  pop
  IL_0012:  ret
} // end of method Form1::Unbox

Labels: dot NET general

# posted by The Moth @ 4:06:00 PM

    Public Sub VBStyle()
        Dim i As Int32
        i = GetANumber()
    End Sub

    Public Sub CsStyle()
        Dim i As Int32 = 0
        i = GetANumber()
    End Sub

.method public instance void  VBStyle() cil managed
{
  // Code size       8 (0x8)
  .maxstack  1
  .locals init ([0] int32 i)
  IL_0000:  ldarg.0
  IL_0001:  callvirt   instance int32 VBWinApp.Class3::GetANumber()
  IL_0006:  stloc.0
  IL_0007:  ret
} // end of method Class3::VBStyle

.method public instance void  CsStyle() cil managed
{
  // Code size       10 (0xa)
  .maxstack  1
  .locals init ([0] int32 i)
  IL_0000:  ldc.i4.0
  IL_0001:  stloc.0
  IL_0002:  ldarg.0
  IL_0003:  callvirt   instance int32 VBWinApp.Class3::GetANumber()
  IL_0008:  stloc.0
  IL_0009:  ret
} // end of method Class3::CsStyle

Labels: dot NET general

# posted by The Moth @ 9:58:00 AM

Labels: dot NET general

# posted by The Moth @ 12:08:00 AM

Public Class EntryPoint
    Shared Sub Main()
        Dim m As New Mouse
        Dim s As New Shark
        DoSomethingWith(m)
        DoSomethingWith(s)
    End Sub

    ' Client code
    Public Shared Sub DoSomethingWith(ByVal a As Animal)
        a.Bite()
    End Sub
End Class

Public MustInherit Class Animal
    Public MustOverride Sub Bite()
End Class

Public Class Mouse
    Inherits Animal

    Public Overrides Sub Bite()
        MsgBox("Disease")
    End Sub
End Class

Public Class Shark
    Inherits Animal

    Public Overrides Sub Bite()
        MsgBox("ouch!")
    End Sub
End Class

Sub Main()
    Dim m As New Mouse
    Dim s As New Shark
    DoSomethingWith m
    DoSomethingWith s
End Sub

' Client code
Sub DoSomethingWith(ByVal a As Animal)
    a.Bite
End Sub

Public Sub Bite()
End Sub

Implements Animal
Private Sub Animal_Bite()
    MsgBox "Disease"
End Sub

Implements Animal
Private Sub Animal_Bite()
    MsgBox "ouch!"
End Sub

Labels: dot NET general

# posted by The Moth @ 3:32:00 PM

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    MessageBox.Show(ListBox1.SelectedItem.ToString())
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
    ListBox1.SelectedIndex = 0
End Sub

Private mDontRun As Boolean

mDontRun = True
ListBox1.SelectedIndex = 0
mDontRun = False

If mDontRun = True Then Return

RemoveHandler ListBox1.SelectedIndexChanged, _
        AddressOf ListBox1_SelectedIndexChanged
ListBox1.SelectedIndex = 0
AddHandler ListBox1.SelectedIndexChanged, _
 AddressOf ListBox1_SelectedIndexChanged

Labels: dot NET general

# posted by The Moth @ 3:33:00 PM

"...I have this C# code I need to translate to VB..."

Labels: dot NET general

# posted by The Moth @ 4:04:00 PM

Dim i As Int32
Dim k As Int32 = mCol.Count
For i = 0 To mCol.Count - 1
    Me.MethodThat_May_ResultInRemovalFromCol()

    If k > mCol.Count Then
        i -= 1
        k = mCol.Count
    End If
    If k <= i + 1 Then    
        Exit For  
    End If 
Next i

Labels: dot NET general

# posted by The Moth @ 12:01:00 PM

Dim crh As CorRuntimeHost

Dim ad As AppDomain

Dim oh As ObjectHandle

Dim o As Object

Stop

Set crh = New CorRuntimeHost

crh.Start

crh.CurrentDomain ad

Set oh = ad.CreateInstance("mscorlib", "System.Collections.Stack")

Set o = oh.Unwrap

o.Push "Rocks"

o.Push "NET "

o.Push "."

MsgBox o.Pop & o.Pop & o.Pop

Labels: dot NET general

# posted by The Moth @ 1:52:00 PM

Labels: dot NET general

# posted by The Moth @ 2:59:00 PM

Labels: dot NET general

# posted by The Moth @ 4:35:00 PM

Labels: dot NET general

# posted by The Moth @ 1:01:00 PM

        // declarations

        private Thread mSendNextThread;            // worker thread

        private bool mStayAlive;    // for controlling the thread termination

        private Queue mQue;                        // buffer of jobs

        private ManualResetEvent mWaitEvent;// signal the thread to wake up

        // Initialisation logic

        public void Start(){

            Console.WriteLine("*********");

            Console.WriteLine("Start");

            mQue = new Queue();

            mWaitEvent = new ManualResetEvent(false);

            mStayAlive = true;

            mSendNextThread = new Thread(new ThreadStart(OnMyOwnThread));

            mSendNextThread.Start();

        }

        // Tear down logic

        public void Stop(){

            Console.WriteLine("Stop request");

            lock (mQue.SyncRoot){

                mQue.Clear();

                // kill the thread

                mWaitEvent.Reset();

                Thread.Sleep(10);

                mStayAlive = false;

                mWaitEvent.Set();

                Thread.Sleep(10);

                mSendNextThread = null;

            }

            Console.WriteLine("Stopped");

        }

        // queue more jobs

        public void MoreInput(object someInput){

            Console.WriteLine("More Input: " + someInput.ToString());

            lock (mQue.SyncRoot){

                mQue.Enqueue(someInput);

            }

            mWaitEvent.Set();

        }

        // process jobs

        public void OnMyOwnThread(){

            while (mStayAlive){

                if (mWaitEvent.WaitOne()){

                    mWaitEvent.Reset();

                    while (mQue.Count > 0){    //Whether we do the looping depends

                                            //on the specifics of DoWork

                        if (!mStayAlive){

                            break;

                        }

                        this.DoWork2();

                        mWaitEvent.Reset();

                    }

                }

            }

            Console.WriteLine("Thread exiting");

        }

        private void DoWork2(){

            object queObj = null;

            lock (mQue.SyncRoot){

                if (mQue.Count > 0){

                    queObj = mQue.Dequeue();

                }

            }

            // do some long processing with this job/input

            if (queObj != null){

                Console.WriteLine("Processing: " + queObj.ToString());

                Thread.Sleep(300);//LONG PROCESSING

                Console.WriteLine("Processed " + Environment.TickCount.ToString());

            }

        }

Labels: dot NET general

# posted by The Moth @ 8:09:00 AM

Private mDataQue As New Queue

Private mUpdateDel As New EventHandler(AddressOf UpdateBox)



' This method runs on a non-GUI thread e.g. Threading.Timer

Friend Sub OnNonGuiThread(ByVal o As Object)

	' if you have more than one argument 

        ' create an object or structure

	' that holds the data you want to pass to the GUI thread

	SyncLock mDataQue.SyncRoot

		mDataQue.Enqueue(o)

	End SyncLock

	

	' assuming all this code is in a form

	Me.Invoke(mUpdateDel)

End Sub



' This method runs on GUI thread

Private Sub UpdateBox(ByVal sender As Object, ByVal e As EventArgs)

	Dim o As Object

	SyncLock mDataQue.SyncRoot

		If mDataQue.Count > 0 Then

			o = mDataQue.Dequeue()

		End If

	End SyncLock



	' TODO use o

	' cast o to your object/structure and 

        ' use it to update the GUI

End Sub

' NOW, *this* is the method that runs on non-GUI thread 

'                                  e.g. Threading.Timer

' The original method is now just a helper

Public Sub OnNonGuiThread2(ByVal o As Object)

	ThreadPool.QueueUserWorkItem(AddressOf OnNonGuiThread,o)

End Sub

Labels: dot NET general

# posted by The Moth @ 5:24:00 AM

Labels: dot NET general

# posted by The Moth @ 1:37:00 PM

Labels: dot NET general

# posted by The Moth @ 1:32:00 PM

1. unsigned types
2. using statement
3. custom events
4. operator overloading
5. continue statement
6. XML documentation comments
7. pre- post-build steps
8. static methods only accessible on class - not instance
9. hooking into control events from the props window
10. TryCast

11. Generics
12. nullable types
13. accessor accessibility
14. advantage of code snippet technology

Labels: dot NET general

# posted by The Moth @ 10:21:00 AM

Labels: dot NET general

# posted by The Moth @ 12:51:00 AM

Labels: dot NET general

# posted by The Moth @ 5:08:00 PM

C# Intellisense + Expansions = VB's intellisense

Labels: dot NET general

# posted by The Moth @ 10:50:00 AM

Labels: dot NET general

# posted by The Moth @ 12:16:00 PM

Labels: dot NET general

# posted by The Moth @ 11:23:00 AM

Labels: dot NET general

# posted by The Moth @ 8:35:00 AM