Getters et setters de vb 6 à vb .net

Question

Comment convertir les éléments suivants? Je porte une application vb 6 sur vb .net.

Public Property Get Width() As Long 
    Width = m_lWidth 
End Property 
Public Property Let Width(ByVal value As Long) 
    m_lWidth = value 
End Property 
Public Property Get Height() As Long 
    Height = m_lHeight 
End Property 
Public Property Let Height(ByVal value As Long) 
    m_lHeight = value 
    End Property 

Public Property Get PartHeight(Optional ByVal eWidthOptions As THEMESIZE = TS_TRUE) As Long 
    Dim tSize As SIZE 
    Dim tR As RECT 
    Dim hTheme As Long 
    Dim lR As Long 
    hTheme = OpenThemeData(m_hWnd, StrPtr(m_sClass)) 
    If (hTheme) Then 
     lR = GetThemePartSize(hTheme, m_hDC, m_lPartId, m_lStateId, tR, eWidthOptions, tSize) 
     If (lR = S_OK) Then 
     PartHeight = tSize.cY 
     Else 
     pFailed "Failed to read part size for class '" & m_sClass & "', partId=" & m_lPartId & ", stateId=" & m_lStateId, lR 
     End If 
     CloseThemeData hTheme 
    Else 
     pFailed "No theme data for class '" & m_sClass & "'", Err.LastDllError 
    End If 
End Property 

Merci

Je suis en train de le port: http://www.vbaccelerator.com/home/vb/code/libraries/xp_visual_styles/drawing_with_xp_visual_styles/VB6_Theme_Explorer.asp

Answer 1

Ce code VB6:

Public Property Get Width() As Long 
    Width = m_lWidth 
End Property 
Public Property Let Width(ByVal value As Long) 
    m_lWidth = value 
End Property 

... est équivalent de ceci dans VB.NET:

Public Property Width() As Integer 
    Get 
     Return m_lWidth 
    End Get 
    Set(ByVal Value As Integer) 
     m_lWidth = Value 
    End Set 
End Property 

Answer 2

Si vous êtes juste préoccupé par les propriétés, vous pouvez consulter cette link à MSDN sur les propriétés VB.NET.