Von Patrick Dahmen am
03.03.2004
Ein hübsches Makro für den WebProgrammierer. Weiter unten beim normalen 'automatischen Property...' ist beschrieben, wie man eine Tastaturkombination dafür hinkriegt:)
Sub InsertViewStateProperty()
Dim ts As TextSelection = DTE.ActiveWindow.Selection
Dim Type As String = InputBox("Enter the Typename: ")
If Type.Trim.Length = 0 Then
MsgBox("You must specify a type!")
Exit Sub
End If
Dim ExternalName As String = InputBox("Enter the external (public) property name: ")
If Type.Trim.Length = 0 Then
MsgBox("You must specify an external name.")
Exit Sub
End If
Dim DefaultValue As String = InputBox("Enter the default value for the property: ")
If Type.Trim.Length = 0 Then
MsgBox("You must specify a default value.")
Exit Sub
...