I think this is pretty cool.
Check out the image below. Then use the link below to open up just the image in a new browser window.
Resize the image (make it smaller) to see the secret message.

I think this is pretty cool.
Check out the image below. Then use the link below to open up just the image in a new browser window.
Resize the image (make it smaller) to see the secret message.

“Refactor!” has the ability to turn your fields into public accessible properties, but it kinda sucks because 1) you have to do it 1 at a time, and 2) the naming convetion is all wrong.
For example if you have a private integer called myInt then your property will be MyInt1. Not exaclty what I am looking for.
So I updated my 2002 macro for creating these properties. It should allow you to follow a variety of naming conventions “m_XXX”, “ciXXX”, “strXXX” etc.
Just include the macro below, then just highlight your private fields, and run the macro.
' highlight the private properties
Public Sub AddClassProperties()
Dim oTextSelection As TextSelection = DTE.ActiveWindow.Selection
Dim iLinesSelected = oTextSelection.TextRanges.Count
Dim colPropertyList As New Collection()
Dim iIndex As Integer
Dim oStart As EditPoint = oTextSelection.TopPoint.CreateEditPoint()
Dim oEnd As TextPoint = oTextSelection.BottomPoint
'Create an Undo context object so all the changes can be
'undone by CTRL+Z
Dim oUnDo As UndoContext = DTE.UndoContext
'Supress the User Interface. This will make it run faster
'and make all the changes appear once
DTE.SuppressUI = True
Try
oUnDo.Open("Comment Line")
Dim sProperty As String
Dim sLineOfText As String
Do While (oStart.LessThan(oEnd))
sLineOfText = oStart.GetText(oStart.LineLength).Trim
'*** do some kind of simple check to make sure that this line
'*** isn't blank and isn't some other kind of code or comment
If (sLineOfText.IndexOf(" As ") >= 0 And ( _
(sLineOfText.IndexOf("Public ") >= 0) Or _
(sLineOfText.IndexOf("Private ") >= 0) Or _
(sLineOfText.IndexOf("Dim ") >= 0) Or _
(sLineOfText.IndexOf("Protected ") >= 0) Or _
(sLineOfText.IndexOf("Friend ") >= 0) Or _
(sLineOfText.IndexOf("ReDim ") >= 0) Or _
(sLineOfText.IndexOf("Shared ") >= 0) Or _
(sLineOfText.IndexOf("Static ") >= 0) _
)) Then
sProperty = oStart.GetText(oStart.LineLength).Trim.Replace(" New ", " ").Replace("()", "")
colPropertyList.Add(sProperty)
End If
oStart.LineDown()
oStart.StartOfLine()
Loop
If colPropertyList.Count > 0 Then
For Each sProperty In colPropertyList
Call InsertProperty(sProperty)
Next
Else
MsgBox("You must select the class properties")
End If
Catch ex As System.Exception
Debug.WriteLine(ex)
If MsgBoxResult.Yes = MsgBox("Error: " & ex.ToString & vbCrLf & "Undo Changes?", MsgBoxStyle.YesNo) Then
oUnDo.SetAborted()
End If
Return
Finally
'If an error occured, then need to make sure that the undo context is cleaned up.
'Otherwise, the editor can be left in a perpetual undo context
If oUnDo.IsOpen Then
oUnDo.Close()
End If
DTE.SuppressUI = False
End Try
End Sub
Private Sub InsertProperty(ByVal sProp As String)
Dim oTextSelection As TextSelection = DTE.ActiveWindow.Selection
Dim sMember As String = sProp.Substring(sProp.IndexOf(" ")).Trim
Dim sDataType As String
Dim sName As String
Dim i As Integer
Dim iAscVal As Integer
i = sMember.IndexOf("(")
If Not i = -1 Then
sMember = sMember.Substring(0, i)
End If
i = sMember.IndexOf("=")
If Not i = -1 Then
sMember = sMember.Substring(0, i)
End If
sDataType = sMember.Substring(sMember.IndexOf(" As ") + 1)
For i = 0 To sMember.Length - 1
'iAscVal = Asc(Mid(sName, i, 1))
iAscVal = Asc(sMember.Chars(i))
If iAscVal > 64 And iAscVal < 91 Then
sName = sMember.Substring(i)
Exit For
End If
Next i
sName = sName.Substring(0, sName.IndexOf(" As ") + 1).Trim
If sName.Length = 0 Then
MsgBox("Unable to process the class property: " & sMember & ". This is usually caused by an incorrect naming convention (e.g. not cxName)")
Return
End If
sMember = sMember.Substring(0, sMember.Length - sDataType.Length).Trim
With oTextSelection
.MoveToPoint(.ActivePoint.CodeElement(vsCMElement.vsCMElementClass).GetEndPoint(vsCMPart.vsCMPartWhole))
.LineUp()
.EndOfLine()
.Text = "Public Property " & sName & "() " & sDataType
.NewLine()
.Text = "Return " & sMember
.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstText)
.StartOfLine(vsStartOfLineOptions.vsStartOfLineOptionsFirstColumn, True)
.Copy()
.LineDown(False, 3)
DTE.ExecuteCommand("Edit.Paste")
.Text = "Me." & sMember & " = Value"
.LineDown(False, 2)
.NewLine(2)
End With
End Sub
Update1: When using code that you cut and paste from here, you might need to first paste it into Word or Wordpad.
Update2: When using this macro, you need a space (new line) between the last private field variable and your end of class line.
This is a pretty good list of freeware utilities for all kinds of applications:
http://www.econsultant.com/i-want-freeware-utilities/index.html
I have seen lots of posts from people in the newsgroups trying to figure out what the deal is with the new config options in .net 2.0.
The main reason people run into problems is due to MS making a number of changes, including changes between the beta and the RC product, resulting in different answers based on how early you encountered the issues.
You can still do things the way you did with .Net 1.x.
<appSettings>
<add key=“MyKeyName“ value=“somevalue“/>
</appSettings>
and then you can access it with:
Dim myvalue As String = System.Configuration.ConfigurationSettings.AppSettings.Item(“ConnectionString”)
However, if you try this, VS.Net will warn you:
This method is obsolete, it has been replaced by System.Configuration!System.Configuration.ConfigurationManager.AppSettings
It is important to note that the “!” above indicates that the fully quallified class listed, is located in the System.Configuration assembly, which of course you have to add to your project.
So unlike previous versions, you need to manually add a reference to System.Configuration in order to make this new call.
Now, .net 2.0 and vs.net 2005 have teamed up to offer a new option for storing user settings which may seem more complicated at first if you don’t know exactly what you are doing. In the project properties you can select a “Settings” tab where you are able to modify application settings, which are in turn stored in app.config. These settings can either be “User” settings, or “Application” settings.
Application settings are stored in the app.config (or web.config), and are read-only. User settings have a default value that is stored in the app.config, but your application can overwrite these default values as needed, and the users settings will be stored in:
%USERPROFILE%Local SettingsApplication Data<Company Name><appdomainname>_<eid>_<hash><verison>user.config. (non roaming)
OR:
%USERPROFILE%Application Data<Company Name><appdomainname>_<eid>_<hash><verison>user.config (roaming)
The other nice feature of the 2.0 way of accessing these settings is that the settings are saved as a specific type from a wide collection of available types (String, System.DateTime, System.Drawing.Color, System.Guid, Bool, StringCollection etc) and when you access them from your code they are available in intellisense.
This may seem like it isn’t important, but it means you can’t mistype a setting key, or accidently try an invalid cast from one of your settings. Also, storing a collection was a real pain in 1.x. Now you can create a collection quickly and it will be added to the user settings like this:
<setting name=“MyCol“ serializeAs=“Xml“>
<value>
<ArrayOfString xmlns:xsi=“http://www.w3.org/2001/XMLSchema-instance“
xmlns:xsd=“http://www.w3.org/2001/XMLSchema“>
<string>I am first</string>
<string>second</string>
<string>me third</string>
<string>I am number four</string>
</ArrayOfString>
</value>
</setting>
Pretty nice!
To access these properties you have 2 different ways depending on if you are using VB.Net or C#.
For VB.Net you use the “My” namespace and access it like this:
Dim mySetting As String = My.Settings.MySetting
For C# you access these settings through the “Properties” object
string mySetting = Properties.Settings.Default.MyUserSetting;
That’s it!
I was having such a hard time getting MS Virtual Server setup so that my virtual servers could access the public network and vice versa.
In the end the problem was caused by a service that is running to enable my VPN connections.
The service is called:
Cisco Systems, Inc. VPN Service.
As soon as I turned off that service, everything with my virtual servers network worked just fine.
I have no idea why I have such a hard time remembering composed vs comprised.
CSLA as well as well as the proxy architecture I created for my last project, utilize serialization of objects to be passed across the wire, and deserialized on the other side into the same type of object.
This is different from passing datasets, which are then read into business objects. We are actually passing the serialized version of the business object.
So what happens if you make a change to a business object such as adding a public property. Will clients who have the old version of the Business Object be forced to upgrade?
To see the answers along with some sample code for testing this out click on the link to read the full article.
So lets say you have a class that exposes 20 properties and 40 methods. This business object is deployed on hundreds of clients computers. When they send the BizObject over the wire, it is deserialized back into the exact same object on the server.
But now, for whatever reason, you need to add 1 property to this BizObject. For the current set of clients using this business object, you don’t really need to deploy the updated change unless you have to in order to keep it from breaking.
So do you need to redeploy? Probably not.
I serialzied a business object into a base64 encoded string and then added a public property to the object and tried to deserialize it with the “old” serialized string. The result? It worked. The properties that had values when I first serialized it kept their values. The fact that there were new properties didn’t cause a problem.
How about going the other way: removing a public property that had a value when it was serialized, but doesn’t exist with deserialized. Again, this works.
When doesn’t it work? When you are trying to deserialze into a different class, or a different namespace for the same class.
So you can’t serialize classA and deserialize it into classB, even if both expose the exact same signature. The same goes for namespaces. If you serialize classA, and then change it’s namespace and try to deserialize it, you will get an exception.
You can try it out with the following code:
Imports WindowsApplication1.ASDF
Public Class Form1
Private Sub toString_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdToString.Click
Dim o As New A
o.A11 = "this is a test"
o.Asdf1 = "another test"
Me.TextBox2.Text = EncodeBase64(o.CloneString)
MsgBox(EncodeBase64(o.CloneString))
End Sub
Private Sub fromString_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fromString.Click
Dim o As A = A.Hydrate(DecodeBase64(Me.TextBox1.Text))
MsgBox(o.A11)
MsgBox(o.Asdf1)
MsgBox(o.asdfdsa)
End Sub
Public Function EncodeBase64(ByVal input As String) As String
Dim strBytes() As Byte = System.Text.Encoding.UTF8.GetBytes(input)
Return System.Convert.ToBase64String(strBytes)
End Function
Public Function DecodeBase64(ByVal input As String) As String
Return System.Text.Encoding.UTF8.GetString(System.Convert.FromBase64String(input))
End Function
End Class
<Serializable()> _
Public Class Parent
Public Function CloneString() As String
Dim bFormatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim stream As New System.IO.MemoryStream()
bFormatter.Serialize(stream, Me)
stream.Flush()
stream.Position = 0
Dim bytes() As Byte = stream.ToArray()
Return System.Text.Encoding.Default.GetString(bytes)
End Function
Public Shared Function StringToStream(ByVal str As String) As System.IO.Stream
Return New System.IO.MemoryStream(System.Text.Encoding.Default.GetBytes(str))
End Function
End Class
<Serializable()> _
Public Class A
Inherits Parent
Private a1 As String
Private asdf As String
Public Property A11() As String
Get
Return a1
End Get
Set(ByVal value As String)
a1 = value
End Set
End Property
Public Property Asdf1() As String
Get
Return asdf
End Get
Set(ByVal value As String)
asdf = value
End Set
End Property
Public Function asdfdsa() As String
Return "Asdf"
End Function
Public Shared Function Hydrate(ByVal s As String) As A
Dim bFormatter As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim stream2 As System.IO.MemoryStream = StringToStream(s)
stream2.Flush()
stream2.Position = 0
Dim newClone As A
newClone = CType(bFormatter.Deserialize(stream2), A)
Return newClone
End Function
End Class
I was able to get to the CNUG meeting where Rocky Lhotka was the feature speaker.
I had a chance to ask Rocky a couple of questions that had been bugging me about CSLA.
1) He agreed that using the method of multiple result sets in datareader is not really a good idea in some instances, where a dataset would be much more useful.
2) He suggested that you should usually not have an object that is sometimes a child and sometimes a parent. I am not sure I agree with idea. I believe I understand his point that if you are dealing with a Project object that has a collection of Employees assigned to it, you probably don’t need the Employees to be as complex as if you were dealing with an Employee who is assigned to a bunch of Projects, but at the same time you are talking about writing 2 classes with 2 sets of data access scripts, vs 4 classes and 4 sets of data access. But, he said that there are techniques for making a business object be both a parent and a child. This is apparently detailed in Ch 7.
Rocky suggested the book Object Thinking by Dave West
3) He mentioned that people have built UI Frameworks that run on top of CSLA. I will have to look into this.
4) He was showing an example using an ASP.NET MultiView control, looked like a great way to enable multiple views of the same data.
5) I didn’t get a chance to ask him about serialization and deserialization of classes that have small differences. For example if you serialze an object and use the same byte array to deserialize a similar class, will it blow up if small changes are made, like you add a public property? I will have to try this out myself.
In all, Rocky was a very good speaker. Very engaging, funny, and on point.
Oh and I won the raffle at the end, to get a copy of his book, the one I just paid 60 bucks for :-).
A friend of mine has been using Plesk to automate some hosting settings.
I was taking a look at it and thought they had a lot of cool looking icons.
Not that anyone would want to download icons from a website and use them… 🙂
This weekend I helped a client of mine move their computer system to a new factility. In the new location I racked up and configured an HP Procurve switch, and 2 Cisco APs.
All in all the move went well. I had some problems getting into the Procurve at first. I think the problem was a bad serial cable, but in the end I got it working right.
We didn’t quite have enough ports on Procurve, so I uplinked a couple of their old switches until I could procure some more modules for the HP.
The Cisco 1100 APs had great range. I was able to blanket the entire facility with WIFI access. Pretty nice!