Đã Đóng

Conver From VB6 to .net 2005

I want convert some code from Vb6 to [url removed, login to view] 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()

[url removed, login to view]

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\[url removed, login to view];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"

[url removed, login to view] = conString

[url removed, login to view]

Dim RsConfig As New [url removed, login to view]

[url removed, login to view] "Select * from Config", xindata, adOpenStatic, adLockPessimistic

Do While Not [url removed, login to view]

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

[url removed, login to view]

Loop

Exit Sub

Erh:

MsgBox [url removed, login to view]

MsgBox [url removed, login to view]

MsgBox "Check Network Connection Exist/Permision", vbInformation

End Sub

Function NewDate(DtTop As Integer, DtLeft As Integer) As Date

[url removed, login to view] = DtLeft

[url removed, login to view] = DtTop

[url removed, login to view] vbModal

NewDate = CldValue

End Function

Kỹ năng: .NET, Visual Basic

Xem thêm: convert vb6 2005, vb6 net, vb6 0, user32, open 2005, network apis, loop net, database constants, common string, 2005 open, y3, vb6, take away, microsoft net, mdb, loc, eof, boolean, ado, net convert vb6, net private, vb6 modules, microsoft vb6 sample, vb6 sample, recordset

Về Bên Thuê:
( 0 nhận xét ) Dubai, United Arab Emirates

Mã Dự Án: #1699251

13 freelancer đang chào giá trung bình $155 cho công việc này

talhaamin

I am expert in .NET and windows API's. See PMB for details.

$300 USD trong 4 ngày
(11 Đánh Giá)
8.1
guoxinliu917

Hello, I can do it for you. Please check my PMB. Thank you.

$150 USD trong 3 ngày
(80 Đánh Giá)
7.0
sandeep25101982

Hi, We have excellent .Net,and PHP expertise. Please have a look at private message for relevant work done. Awaiting a positive response from your end and looking forward to work with you. Thanks

$250 USD trong 6 ngày
(32 Đánh Giá)
6.5
skctechno

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 Thêm

$65 USD trong 4 ngày
(32 Đánh Giá)
5.7
duchuyctlk

Hi, I am ready, please read PMB for my further detail.

$100 USD trong 2 ngày
(10 Đánh Giá)
2.9
rkrishnaprasadh

Dear Sir, I have a lot of experience in VB6, .NET and Win32 API. Kindly check PM for more details. Regards, R. Krishna Prasadh

$250 USD trong 7 ngày
(1 Đánh Giá)
1.4
imximian

The converted code will still use windows api. Wrapper classes would be provided to call those.

$250 USD trong 5 ngày
(0 Đánh Giá)
0.0
mrkhiem97

Hi, this is an easy project I can handle in 3 days. Moreover, I can finish your project just with $25. Let me know if you choose me for this project.

$30 USD trong 3 ngày
(0 Đánh Giá)
0.0
gurdeeppahwa

Hello, I am 12 years experienced Tutor and assignment helper for Computer Science. I have been teach Programming in C, C++, Java, PHP, MySQL, ASP, C#.NET, Visual Basic, Oracle, HTML, VBScript, JavaScript, Data Struc Thêm

$100 USD trong 3 ngày
(0 Đánh Giá)
0.0
softwaregurus

Sir we are interest in this project having two year exp. in different type of project we can done smoothly sir..

$100 USD trong 5 ngày
(0 Đánh Giá)
0.0
ND3

Please Check My PM.

$70 USD trong 5 ngày
(0 Đánh Giá)
0.0
shrikantsherekar

Hi, This is one of the good assignment for me. Please take a look at my PM Thanks, Shrikant

$100 USD trong 10 ngày
(0 Đánh Giá)
0.0
shazadinayat

Hi I have over 10 years experience in developing applications both in vb6 and .net. Please have a look at my profile. Shazad.

$250 USD trong 4 ngày
(0 Đánh Giá)
0.0