Click here to Skip to main content
11,573,408 members (47,995 online)

Visual Basic

 
AnswerRe: IN Visual Studio 2010 Pin
Simon_Whale4-Feb-13 23:17
memberSimon_Whale4-Feb-13 23:17 
Questionpng lossless resize Pin
JellyCoe4-Feb-13 5:39
memberJellyCoe4-Feb-13 5:39 
AnswerRe: png lossless resize Pin
Rene Pilon4-Feb-13 6:54
memberRene Pilon4-Feb-13 6:54 
QuestionCustom Tab Control that I found on here Pin
NSoft Studios3-Feb-13 13:10
memberNSoft Studios3-Feb-13 13:10 
AnswerRe: Custom Tab Control that I found on here Pin
Dave Kreskowiak3-Feb-13 13:19
mvpDave Kreskowiak3-Feb-13 13:19 
GeneralRe: Custom Tab Control that I found on here Pin
NSoft Studios3-Feb-13 13:44
memberNSoft Studios3-Feb-13 13:44 
GeneralRe: Custom Tab Control that I found on here Pin
Richard MacCutchan3-Feb-13 22:40
mvpRichard MacCutchan3-Feb-13 22:40 
QuestionRetrieving Custom Attributes Pin
DisIsHoody1-Feb-13 21:34
memberDisIsHoody1-Feb-13 21:34 
I'm writing an update to a software package that takes binary data from an instrument and creates a spreadsheet. There is a column that list a reading mode that in the older version of the software outputted either "TC" or "QM". Now in the updated version I want it to write something more descriptive; that being either "Time Corrected" or "Quick Mode", but I still want to maintain backwards compatibility.

I thought the best way to do this would be to use custom attributes where the new description and old description would be saved and then based on the settings of the software the program could choose the proper description.

First I created a custom attribute class:
<AttributeUsage(AttributeTargets.Field, AllowMultiple:=True, Inherited:=False)>
Public Class OutputDescriptionAttribute
    Inherits Attribute
 
    Private _oldDescription As String
    Private _newDescription As String
 
    Public Sub New(oldDescription As String, newDescription As String)
        Me._oldDescription = oldDescription
        Me._newDescription = newDescription
    End Sub
End Class

Then I created the enum and applied the attributes:
Public Enum ReadingModeType
    <OutputDescription("TC", "TimeCorrected")> TimeCorrected
    <OutputDescription("QM", "QuickMode")> QuickMode
End Enum

Lastly I copied a method off of Microsoft's website that is supposed to get the values from custom attributes:
 Public Shared Sub GetDescription(t As Type)
        ' Get instance of the attribute. 
        Dim MyAttribute As OutputDescriptionAttribute =
            CType(Attribute.GetCustomAttribute(t, GetType(OutputDescriptionAttribute)), OutputDescriptionAttribute)
 
        If MyAttribute Is Nothing Then
            Console.WriteLine("The attribute was not found.")
        Else
            ' Get the Name value.
            'Console.WriteLine("The Name Attribute is: {0}.", MyAttribute.Name)
            '' Get the Level value.
            'Console.WriteLine("The Level Attribute is: {0}.", MyAttribute.Level)
            '' Get the Reviewed value.
            'Console.WriteLine("The Reviewed Attribute is: {0}.", MyAttribute.Reviewed)
        End If
    End Sub

I got this method from http://msdn.microsoft.com/en-us/library/71s1zwct.aspx[^]. I then called this method like so:
 Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Dim s As ReadingModeType = ReadingModeType.QuickMode
        test.GetDescription(s.GetType)
    End Sub

However when I step through the code in the GetDescription method, the MyAttribute object returns nothing. This is my first time working with custom attributes so I know I'm probably missing something very simple. Can anyone please advise me how I can retrieve the descriptions for the attribute applied to the specified enum value?

Thanks in advance.
AnswerRe: Retrieving Custom Attributes Pin
Eddy Vluggen2-Feb-13 2:11
mvpEddy Vluggen2-Feb-13 2:11 
QuestionSearch criteria - classic asp not working Pin
miss78631-Jan-13 4:01
membermiss78631-Jan-13 4:01 
AnswerRe: Search criteria - classic asp not working Pin
Eddy Vluggen31-Jan-13 10:18
mvpEddy Vluggen31-Jan-13 10:18 
GeneralRe: Search criteria - classic asp not working Pin
miss7866-Feb-13 1:03
membermiss7866-Feb-13 1:03 
GeneralRe: Search criteria - classic asp not working Pin
Eddy Vluggen6-Feb-13 7:11
mvpEddy Vluggen6-Feb-13 7:11 
GeneralRe: Search criteria - classic asp not working Pin
miss7866-Feb-13 23:26
membermiss7866-Feb-13 23:26 
GeneralRe: Search criteria - classic asp not working Pin
Eddy Vluggen7-Feb-13 8:13
mvpEddy Vluggen7-Feb-13 8:13 
AnswerRe: Search criteria - classic asp not working Pin
Eddy Vluggen8-Feb-13 11:04
mvpEddy Vluggen8-Feb-13 11:04 
QuestionWebBrowser Dock covers up statusstrip Pin
NSoft Studios30-Jan-13 15:46
memberNSoft Studios30-Jan-13 15:46 
AnswerRe: WebBrowser Dock covers up statusstrip Pin
Richard MacCutchan30-Jan-13 22:13
mvpRichard MacCutchan30-Jan-13 22:13 
AnswerRe: WebBrowser Dock covers up statusstrip Pin
Eddy Vluggen30-Jan-13 22:36
mvpEddy Vluggen30-Jan-13 22:36 
GeneralRe: WebBrowser Dock covers up statusstrip Pin
Dave Kreskowiak31-Jan-13 3:35
mvpDave Kreskowiak31-Jan-13 3:35 
SuggestionRe: WebBrowser Dock covers up statusstrip Pin
Eddy Vluggen31-Jan-13 3:38
mvpEddy Vluggen31-Jan-13 3:38 
GeneralRe: WebBrowser Dock covers up statusstrip Pin
Dave Kreskowiak31-Jan-13 6:52
mvpDave Kreskowiak31-Jan-13 6:52 
GeneralRe: WebBrowser Dock covers up statusstrip Pin
Eddy Vluggen31-Jan-13 10:12
mvpEddy Vluggen31-Jan-13 10:12 
GeneralRe: WebBrowser Dock covers up statusstrip Pin
NSoft Studios3-Feb-13 12:58
memberNSoft Studios3-Feb-13 12:58 
AnswerRe: WebBrowser Dock covers up statusstrip Pin
rohitvermasrt31-Jan-13 18:28
memberrohitvermasrt31-Jan-13 18:28 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.


Advertise | Privacy | Mobile
Web04 | 2.8.150624.2 | Last Updated 1 Jul 2015
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid