I want convert some code from Vb6 to Vb.net 2005
there are 3 modules , contains function procedure .... it use common use defined fiction and APIs aslo
Approximate LOC of a each module will be 1000
sample of the code
Public EndDate As Date
Public currentYear As Boolean
Public ErrorHandler As Label
Public conString As String
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal sBuffer As String, lSize As Long) As Long
Public Declare Function ReleaseCapture Lib "user32" () As Long
Public Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_FINDSTRING = &H18F
Public Type POINTAPI
X As Long
Y As Long
End Type
Public Const RGN_COPY = 5
Public ResultRegion As Long
Public PrinterDialog As New clsPrintDialog
'-----------User Defined Constants---------------------
Public Const msgStrngNoPermisionToope = "Access Denied "
Public Const Catring = "Catering "
Public Const Takeaway = "Take away"
'----------------------------------
Sub Main()
[login to view URL]
End Sub
Public Sub Conect_To_DataBase()
'Call SetAttr(DBPath, vbNormal)
'On Error GoTo Erh:
Set xindata = New Connection 'opening database globaly using ADO
conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Persist Security Info=False"
conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=L:\est\[login to view URL];Persist Security Info=False;Jet OLEDB:Database Password=xinonsystems)(*&^12345"
conString = "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Persist Security Info= False; " & _
"Data Source = " & DBPath & "; " & _
"Jet OLEDB:Database Password =xin12#$bj"
[login to view URL] = conString
[login to view URL]
Dim RsConfig As New [login to view URL]
[login to view URL] "Select * from Config", xindata, adOpenStatic, adLockPessimistic
Do While Not [login to view URL]
If RsConfig!Particular = "StartDate" Then StartDate = RsConfig!dtdata
If RsConfig!Particular = "EndDate" Then EndDate = RsConfig!dtdata
If RsConfig!Particular = "YearStatus" And RsConfig!strData = "CurrentYear" Then currentYear = True
[login to view URL]
Loop
Exit Sub
Erh:
MsgBox [login to view URL]
MsgBox [login to view URL]
MsgBox "Check Network Connection Exist/Permision", vbInformation
End Sub
Function NewDate(DtTop As Integer, DtLeft As Integer) As Date
[login to view URL] = DtLeft
[login to view URL] = DtTop
[login to view URL] vbModal
NewDate = CldValue
End Function
I am an expert in VB6, VB.NET, So I can do this for you with Quality and Performance. I have 9 years of experience in .Net and this project suits me very well.
I complete my projects on or before time, my bid cost is minimum in all bids. You will hire me again because of my punctuality if you select me for your job once. You can get me 14 hours a day online in Skype chat.
Lets discuss and start. Send me all the task details.
-Thanks and Regards
i have several years experience with pos development, specifically with the use of the .net framework and its predecessors, i am accomplished with software conversion and have an extensive knowledge of each technology.
i am confident that i will be able to complete the solution you require within the short timescale i have proposed and within the budget.
i look forward to working with you
HI sir
I have more than 2 years of experience in VB.NET and VB6. I would like to see the requirements so that I can tell you exact time I can deliver the product in.
Hi,
I have over 4 years of Experience in software design, development and implementation of various commercial applications in Client/Server environment, Web and ERP applications using 2.0/3.5/4.0, ASP.Net, VB.Net 1.1/2.0/3.5, AJAX, Visual Foxpro, DOTNETNUKE, VB 6.0, ASP, PHP, JSP tools, PL/SQL, MS SQL Server 2000/2005/2008, My SQL.
Regards,
All Tech Software Servcices INC
Hello,
I can help you with converting your code to .net 2005. Thank you for taking my bid under consideration.
Looking forward to your contacting me.
Kind Regards!