|
Do you have access to VB 6? If so then you could try creating a VB 6 version and then using the VB conversion Wizard in VB .NET to convert from VB 6 to VB .NET. It probably won't give perfect results but it will be a start. You can then correct the problematic bits by hand.
Kevin
|
|
|
|
|
|
Dear Kevin,
I covert it. but there was many errors.
Pls, Give any help to solve it.
Regards
Kusal
'///////////////////////////////////////////////////////////////////////
Option Strict Off
Option Explicit On
Friend Class MainForm
Inherits System.Windows.Forms.Form
#Region "Windows Form Designer generated code "
Public Sub New()
MyBase.New()
If m_vb6FormDefInstance Is Nothing Then
If m_InitializingDefInstance Then
m_vb6FormDefInstance = Me
Else
Try
'For the start-up form, the first instance created is the default instance.
If System.Reflection.Assembly.GetExecutingAssembly.EntryPoint.DeclaringType Is Me.GetType Then
m_vb6FormDefInstance = Me
End If
Catch
End Try
End If
End If
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents Command1 As System.Windows.Forms.Button
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(MainForm))
Me.components = New System.ComponentModel.Container()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(components)
Me.ToolTip1.Active = True
Me.Command1 = New System.Windows.Forms.Button
Me.Text = "Sample Program"
Me.ClientSize = New System.Drawing.Size(218, 115)
Me.Location = New System.Drawing.Point(4, 30)
Me.StartPosition = System.Windows.Forms.FormStartPosition.WindowsDefaultLocation
Me.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Control
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Sizable
Me.ControlBox = True
Me.Enabled = True
Me.KeyPreview = False
Me.MaximizeBox = True
Me.MinimizeBox = True
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ShowInTaskbar = True
Me.HelpButton = False
Me.WindowState = System.Windows.Forms.FormWindowState.Normal
Me.Name = "MainForm"
Me.Command1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.Command1.Text = "Receipt Sample"
Me.Command1.Size = New System.Drawing.Size(193, 85)
Me.Command1.Location = New System.Drawing.Point(12, 16)
Me.Command1.TabIndex = 0
Me.Command1.Font = New System.Drawing.Font("Arial", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Command1.BackColor = System.Drawing.SystemColors.Control
Me.Command1.CausesValidation = True
Me.Command1.Enabled = True
Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText
Me.Command1.Cursor = System.Windows.Forms.Cursors.Default
Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Command1.TabStop = True
Me.Command1.Name = "Command1"
Me.Controls.Add(Command1)
End Sub
#End Region
#Region "Upgrade Support "
Private Shared m_vb6FormDefInstance As MainForm
Private Shared m_InitializingDefInstance As Boolean
Public Shared Property DefInstance() As MainForm
Get
If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
m_InitializingDefInstance = True
m_vb6FormDefInstance = New MainForm()
m_InitializingDefInstance = False
End If
DefInstance = m_vb6FormDefInstance
End Get
Set
m_vb6FormDefInstance = Value
End Set
End Property
#End Region
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
Dim prnprinter As Printer
'UPGRADE_ISSUE: Printers collection was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
For Each prnprinter In Printers
'UPGRADE_ISSUE: Printer property prnprinter.DeviceName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
If prnprinter.DeviceName = "BIXOLON SAMSUNG SRP-275" Then
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
Printer = prnprinter
Exit For
End If
Next prnprinter
'UPGRADE_ISSUE: Printer property Printer.DeviceName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Dim pic As System.Drawing.Image
If Printer.DeviceName = "BIXOLON SAMSUNG SRP-275" Then
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontControl"
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("x")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontA2x1"
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, True)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("* Joshua Cafe *" & vbCrLf)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, False)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontControl"
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("w")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontA1x1"
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print(" 3000 Spring Street, Rancho,")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print(" California 10093,")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print(" Tel) 858-519-3698 Fax) 3852")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print(vbCrLf & "---------------------------------") 'LF
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Orange Juice 5.00")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("6 Bufalo Wing 24.00")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Potato Skin 12.00")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, True)
'UPGRADE_ISSUE: Printer property Printer.ForeColor was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.ForeColor = RGB(255, 0, 0)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Subtotal 41.00")
'UPGRADE_ISSUE: Printer property Printer.ForeColor was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.ForeColor = RGB(0, 0, 0)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, False)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Tax 6% 2.46")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, True)
'UPGRADE_ISSUE: Printer property Printer.ForeColor was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.ForeColor = RGB(255, 0, 0)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Member Discount 2.30")
'UPGRADE_ISSUE: Printer property Printer.ForeColor was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.ForeColor = RGB(0, 0, 0)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, False)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, True)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Cash 100.00")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Amt. Paid 41.16")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, False)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, True)
'UPGRADE_ISSUE: Printer property Printer.ForeColor was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.ForeColor = RGB(255, 0, 0)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Change Due 58.84")
'UPGRADE_ISSUE: Printer property Printer.ForeColor was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.ForeColor = RGB(0, 0, 0)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, False)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("---------------------------------")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontControl"
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("x")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontA1x1"
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Member Number : 452331949" & vbCrLf)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontA1x1"
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, True)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Have a nice day !" & vbCrLf)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeBold(Printer.Font, False)
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Sale Date: 07/01/03")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("Time: 12:30:45")
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.FontName was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.FontName = "FontControl"
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("w")
pic = System.Drawing.Image.FromFile(VB6.GetPath & "\free5_100.bmp")
'UPGRADE_ISSUE: Printer property Printer.CurrentX was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.CurrentX = 60
'UPGRADE_ISSUE: Printer property Printer.CurrentY was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.CurrentY = 5000
'UPGRADE_ISSUE: Printer property Printer.CurrentY was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
'UPGRADE_ISSUE: Printer property Printer.CurrentX was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
'UPGRADE_ISSUE: Printer method Printer.PaintPicture was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.PaintPicture(pic, Printer.CurrentX, Printer.CurrentY)
'UPGRADE_ISSUE: Picture property pic.Height was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2064"'
'UPGRADE_ISSUE: Printer property Printer.CurrentY was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.CurrentY = Printer.CurrentY + pic.Height
pic = System.Drawing.Image.FromFile(VB6.GetPath & "\cafeblue208.bmp")
'UPGRADE_ISSUE: Printer property Printer.CurrentY was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
'UPGRADE_ISSUE: Printer property Printer.CurrentX was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
'UPGRADE_ISSUE: Printer method Printer.PaintPicture was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.PaintPicture(pic, Printer.CurrentX, Printer.CurrentY)
'UPGRADE_ISSUE: Printer property Printer.CurrentX was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.CurrentX = 0
'UPGRADE_ISSUE: Printer property Printer.CurrentY was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.CurrentY = 9000
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeSize(Printer.Font, 9)
'UPGRADE_ISSUE: Printer property Printer.Font was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Font = VB6.FontChangeName(Printer.Font, "FontControl")
'UPGRADE_ISSUE: Printer object was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2068"'
'UPGRADE_ISSUE: Printer method Printer.Print was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.Print("g")
'UPGRADE_ISSUE: Printer method Printer.EndDoc was not upgraded. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
Printer.EndDoc()
Else
MsgBox("SRP-270 windows driver don't installed")
End If
End Sub
End Class
'////////////////////////////////////////////////////////////////
|
|
|
|
|
Does anyone know what to do to try to get a program to work in a non .net framework computer. I have built a game (written in VB.net 2003) to be used in a class that has nothing to do with computers (Introduction to Monotheistic Religions... it is a elective)? I cannot install the 1.1 patch because I do not have admin rights, but I need to have this game work. So if anyone has an idea please let me know. I have thought of doing it in VB6, but I have to go out and find or worst yet buy it.
benbminnich@yahoo.com
|
|
|
|
|
You have to install the .NET 1.1 framework.
Kevin
|
|
|
|
|
Yeah that is what I thought, thank you.
|
|
|
|
|
You could always try www.logmein.com[^] and run your game from your home machine on the school machine. Just a thought.
|
|
|
|
|
Hii,
I appreciate if some one let me know how to add a dropdownlist in VB .aspx page that contains user IDs of domain.
Thanks in advance
rash
|
|
|
|
|
After giving the file.copy or file.move
how can i check the file is copied or moved fully.
Because i want to write an application that watches
a particular folder ( to which files are coming from other location
usualy large pdfs or tiffs ) and lists the fully copied or moved files
only.
please help.
thanks in advance
ram
|
|
|
|
|
You can simply check if the file exists under the specific directory after copying or moving to that directory.
File.Exist(FullPath)
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
hi.
how can rename a table in sql server 2000 (with tsql in query analyzer)?
tanks.
|
|
|
|
|
from : http://p2p.wrox.com/topic.asp?TOPIC_ID=24417
Hi,
Yes, you can use sp_rename for renaming a table or column in SQL Server. The only difference is that if you want to rename a column witbin a table you need to provide proper namespace.
for e.g.
for renaming a table
EXEC sp_rename 'Old_TableName', 'New_TableName'
for renaming a column
EXEC sp_rename 'TableName.[Old_ColumnName]', 'TableName.[New_ColumnName]', 'COLUMN'
Hope this helps,
Lalit,
Life Means More...
|
|
|
|
|
Hello every one
I am doing one project with random file function and i have problem with file open but i can open file in my list box but i can not open file in text box i have three variable id , name , and weight, in find event i put one button and three text box so when user put id in first text box and click find button it should display name and weight in other two text box but it's not so any help, this is what i have done so far
Structure Ink<br />
<VBFixedString(5)> Dim Weight As String<br />
<VBFixedString(10)> Dim InkID As String<br />
<VBFixedString(30)> Dim InkName As String<br />
End Structure<br />
Private Function FindLastRecordNo() As Integer<br />
Dim Temp As Ink<br />
FileNumber = FreeFile()<br />
FileOpen(FileNumber, "c:\inklist.txt", OpenMode.Random, OpenAccess.Read, , Len(Temp))<br />
FindLastRecordNo = 1<br />
Do While Not EOF(FileNumber)<br />
FileGet(FileNumber, Temp, )<br />
FindLastRecordNo = FindLastRecordNo + 1<br />
Loop<br />
FileClose(FileNumber)<br />
End Function<br />
<br />
I have no problem with this event :)<br />
<br />
Private Sub btnOpenList_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpenList.Click<br />
Dim MyInk As Ink, Count As Integer, Temp As String<br />
Dim MyLine, MySubString As String, LineWidth As Integer = 60<br />
FileNumber = FreeFile()<br />
FileOpen(FileNumber, "c:\inklist.txt", OpenMode.Random, , , Len(MyInk))<br />
Count = 1<br />
lstInk.Items.Clear()<br />
Do While Not EOF(FileNumber)<br />
FileGet(FileNumber, MyInk, Count)<br />
Temp = MyInk.InkID + MyInk.InkName + MyInk.Weight<br />
lstInk.Items.Add(Temp)<br />
Count = Count + 1<br />
Loop<br />
FileClose(FileNumber)<br />
End Sub<br />
<br />
but i have problem with find click event it's not showing any thing in textbox :confused:<br />
<br />
Private Sub btnFind_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFind.Click<br />
Dim MyInk As Ink<br />
FileNumber = FreeFile()<br />
FileOpen(FileNumber, "c:\inklist.txt", OpenMode.Random, , , Len(MyInk))<br />
Do While Not EOF(FileNumber)<br />
FileGet(FileNumber, MyInk, )<br />
If MyInk.InkID = txtID.Text Then<br />
Position = Loc(FileNumber)<br />
txtIName.Text = MyInk.InkName this is the problem:confused:<br />
txtIWeight.Text = MyInk.Weight this is the problem :confused:<br />
Exit Do<br />
End If<br />
Loop<br />
FileClose(FileNumber)<br />
End Sub
any help
wating for your kind help
|
|
|
|
|
Hi
I'm trying to make a download of a page/file using System.Net.WebClient.
All I have is an url. Some url's makes redirections and the webclient dont make the download!
Is any way to ask for an url to see if it redirects and receibe the final url, like the webbrowser?
Thanks, very very much (I'm seaching 4 this more than a week!!!
|
|
|
|
|
Hi in crystal report my records are not displaying proper allignment...,
Its any other way is there to set records allignment
Magi
|
|
|
|
|
Hello,
I have 2 listboxes: one called "before" and one called "after". Now, "before" contains the following items:
A:\
C:\
D:\
E:\
"After" contains this items:
A:\
C:\
D:\
E:\
F:\
How can i get the drive in "after" that doesn't equals with any other drive in "before"? (in this case F:\)?
Thanks in advance
--Zaegra--
|
|
|
|
|
dim oddone as string
for each s as object in me.listbox2.items
if not listbox1.items.contains(s.tostring) then
oddone = s.tostring
end if
next
Try that, might need to play with the definition of s.
Posted by The ANZAC
|
|
|
|
|
thanks, ill try this
|
|
|
|
|
Hi all,
Would you help me to change the default sound device with an api or something else...
I donot need the entire application, just the api if possible.
Thanks...
|
|
|
|
|
hi,
how can i search files in a server using socket programming.
can anyone show a a site that has tutorial for this kind of stuff..
|
|
|
|
|
I have developed a small window application, which has sql server express as backend.I have created a setup file for the application but i dont know how to install the database for the application.I donot want to attach database either.
How can i make a setup so that i can also setup the database it needs?
X
|
|
|
|
|
You have two choices. You can either write code to dynamically create the entire database (either as an executable run by the setup, scripts run by the setup using osql, or the application on first run), or you can copy in a minimal database (empty tables, only required fixed data) and attach that (again using code in an exe, in the app startup, or a script executed by setup). Of these, having setup copy an empty database file to some standard location and then attach it using an osql script, is likely the simplest to implement.
|
|
|
|
|
While sending mail using the following code getting the error message
'could not access 'CDO.Message' object'
Can anybody help me.
Regards
Suman
Imports System.Web.Mail
Public Class Form1
Inherits System.Windows.Forms.Form
Dim mymsg As New MailMessage
Dim myserver As SmtpMail
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mymsg.From = "mahesh@yahoo.com "
mymsg.To = "suman100@yahoo.com"
mymsg.Subject = "SubjectOfTheMailString"
mymsg.Body = "BodyOfTheMailString"
myserver.SmtpServer = "mail.yahoo.com"
Try
myserver.Send(mymsg)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
|
|
|
|
|
|
Hi All,
I am building a desktop application in VB.NEt which consumes web-service.
I am using proxy classes of the provided WSDl files.
I am calling web-service asynchronously.
The signature of the web-call is as follows
Public Function BeginRequest(ByVal Request1 As Request, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Public Sub EndRequest(ByVal asyncResult As System.IAsyncResult)
The generator of web-service are saying if we receive web-server's OK responce the call is successful.
But how to check the web server's OK responce?
Could anyone help me out?
Every thing will come to you if you have faith.
Every thing will come to you if you have faith.
|
|
|
|
|