some notes about vb6 to vb.net conversion based on syntax

Conversion history and architecture will be published later...

1 -
fixed sized string with default value
VB6 ;
Dim sTempPath As String
sTempPath = String(255, vbNullChar)

VB.NET ;
Dim sTempPath As String
sTempPath = New String(CChar(vbNullChar), 255)

2-
Current Date
VB6 ;
sLogData = Date & " User : " & PMP_USER_NAME

VB.NET;
sLogData = Date.Today & " User : " & PMP_USER_NAME

3-
Null value
VB6;
sDate = Null

VB.NET;
sDate = Nothing

4- Default Property(Attribute)
VB6;
Tools Menu
Procedure Attribute
Select "Name" for Property
click "Advanced" button
set "Procedure ID" combo box and select "(Default)"

VB.NET;
add "Default" into Property such as :
Default Public ReadOnly Property Item (IndexKey As Object) As clsItem

5- Equivalent of Mouse Pointer
VB6;
Screen.MousePointer = vbHourglas

VB.NET;
add Windows.Form Reference then

Cursor.Current = Cursors.WaitCursor

6- Equivalent of Timer
VB6;
Timer

VB.NET;
DateTime.Now.TimeOfDay.TotalSeconds

7- Week of day
VB6;
VBA.Weekday(dateParam,firstDayOfWeekParam)


VB.NET;
Date.DayOfWeek

8- Get/Set Screen Width/Height
VB6;

Screen.Width
Screen.Height


VB.NET;
Add System.Drawing Assembly as reference  then

Screen.PrimaryScreen.WorkingArea.Width
Screen.PrimaryScreen.WorkingArea.Height




9-  hInstance and ThreadId
VB6;
 App.hInstance


 App.ThreadID


VB.NET;
System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)) 


AppDomain.GetCurrentThreadId


10 - Define how to Importing Windows Libraries (Example;  Lib "user32") and usage of AddressOf by an example.I think technical definitions can be found easily but implemantation is not.:)


VB6;
Definition =
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
.....
in Class
.....


 m_nTimerHookRetVal = SetTimer(0, 0, 5000, AddressOf  _EventCodes)
.....



Public Sub  _EventCodes  (ByVal hwnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long)
.....
  events code
...
End Sub






VB.NET;



 Public Delegate Sub Delegate_EventCodes   (ByVal hwnd As Integer, ByVal nIDEvent As Integer, _
                                                    ByVal uElapse As Integer, ByVal lpTimerFunc As Integer)


    Declare Function SetTimer Lib "user32" (ByVal hwnd As Integer, ByVal nIDEvent As Integer, ByVal uElapse As Integer, ByVal lpTimerFunc As Delegate _EventCodes ) As Integer


.....
'handler in class
Private m_handler_EventCodes   As Delegate_EventCodes  
.......
.......

'in current place
'add below

                m_handler_EventCodes    = New Delegate_InternalTimerProc(AddressOf  _EventCodes   )
                m_nTimerHookRetVal = SetTimer(0, 0, 5000, m_handler_EventCodes)

.....

Public Sub  _EventCodes  (ByVal hwnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long)
.....
  events code
...
End Sub

Comments

Popular posts from this blog

Assembly Microsoft.Dynamics.Service.Plugins.dll can not be loaded. Dynamics CRM 365 Engine version 9 - CRM User creation error

Exception caught instantiating TERADATA report server extension SQL Reporting Services

Could not load file or assembly 'System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'. The system cannot find the file specified at Configuration class initiation in CrmServiceHelper.cv