systam
یک شنبه 26 مرداد 1393, 19:20 عصر
سلام
دوستان چند خط کد هست که زبان VB6 میخوام به VB.net تبدیل بشه و دربرنامه ام استفاده کنم ممنون میشم راهنماییم کنید
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _ (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal _
hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As _
Long, pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) _
As Long
Private Sub Timer_Timer()
Dim hPrinter As Long, lngResult As Long, lngJobsCount As Long
Dim lngJobsFirstJob As Long, lngJobsEnumJob As Long, lngJobsLevel As Long
Dim lngJobsNeeded As Long, lngJobsReturned As Long
Dim byteJobsBuffer() As Byte
List1.Clear
lngResult = OpenPrinter("äÇã �ÑäÊÑ", hPrinter, ByVal vbNullString)
lngJobsEnumJob = 99 ' total number of print jobs to enumerate
lngJobsLevel = 1
lngResult = EnumJobs(hPrinter, lngJobsFirstJob, lngJobsEnumJob, lngJobsLevel, _
ByVal vbNullString, 0, lngJobsNeeded, lngJobsReturned)
' Check out the number of jobs will be returned
If lngJobsNeeded > 0 Then
ReDim byteJobsBuffer(lngJobsNeeded - 1)
ReDim udtJobInfo1(lngJobsNeeded - 1)
lngResult = EnumJobs(hPrinter, lngJobsFirstJob, lngJobsEnumJob, _
lngJobsLevel, byteJobsBuffer(0), lngJobsNeeded, lngJobsNeeded, _
lngJobsReturned)
' Check out the number of jobs returned
If lngJobsReturned > 0 Then
For lngJobsCount = 0 To lngJobsReturned - 1
List1.AddItem "Job " & List1.ListCount
Next
End If
End If
End Sub
اینم صفحه اصلیش پست شماره 7 (http://barnamenevis.org/showthread.php?70709-%D8%A2%DB%8C%D8%A7-%D8%A8%D9%87-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2-%D8%AF%D8%B3%D8%AA%D9%88%D8%B1-%DA%86%D8%A7%D9%BE-%D8%AF%D8%A7%D8%AF%D9%87-%D8%B4%D8%AF%D9%87-%D8%A7%D8%B3%D8%AA-%D8%9F)
دوستان چند خط کد هست که زبان VB6 میخوام به VB.net تبدیل بشه و دربرنامه ام استفاده کنم ممنون میشم راهنماییم کنید
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _ (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal _
hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As _
Long, pJob As Any, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) _
As Long
Private Sub Timer_Timer()
Dim hPrinter As Long, lngResult As Long, lngJobsCount As Long
Dim lngJobsFirstJob As Long, lngJobsEnumJob As Long, lngJobsLevel As Long
Dim lngJobsNeeded As Long, lngJobsReturned As Long
Dim byteJobsBuffer() As Byte
List1.Clear
lngResult = OpenPrinter("äÇã �ÑäÊÑ", hPrinter, ByVal vbNullString)
lngJobsEnumJob = 99 ' total number of print jobs to enumerate
lngJobsLevel = 1
lngResult = EnumJobs(hPrinter, lngJobsFirstJob, lngJobsEnumJob, lngJobsLevel, _
ByVal vbNullString, 0, lngJobsNeeded, lngJobsReturned)
' Check out the number of jobs will be returned
If lngJobsNeeded > 0 Then
ReDim byteJobsBuffer(lngJobsNeeded - 1)
ReDim udtJobInfo1(lngJobsNeeded - 1)
lngResult = EnumJobs(hPrinter, lngJobsFirstJob, lngJobsEnumJob, _
lngJobsLevel, byteJobsBuffer(0), lngJobsNeeded, lngJobsNeeded, _
lngJobsReturned)
' Check out the number of jobs returned
If lngJobsReturned > 0 Then
For lngJobsCount = 0 To lngJobsReturned - 1
List1.AddItem "Job " & List1.ListCount
Next
End If
End If
End Sub
اینم صفحه اصلیش پست شماره 7 (http://barnamenevis.org/showthread.php?70709-%D8%A2%DB%8C%D8%A7-%D8%A8%D9%87-%D9%88%DB%8C%D9%86%D8%AF%D9%88%D8%B2-%D8%AF%D8%B3%D8%AA%D9%88%D8%B1-%DA%86%D8%A7%D9%BE-%D8%AF%D8%A7%D8%AF%D9%87-%D8%B4%D8%AF%D9%87-%D8%A7%D8%B3%D8%AA-%D8%9F)