VB6 VB.NET ----------------------------------------------------- DoEvents System.Windows.Forms.Application.DoEvents() Command1.BackColor = vbRed Command1.BackColor = System.Drawing.Color.Red Command1.BackColor = System.Drawing.Color.FromARGB(&H80C0FF) ComboBox1.AddItem "one" ComboBox1.Items.Add("one") Command1.BackColor = &H80C0FF Command1.BackColor = System.Drawing.ColorTranslator.FromOle(&H80C0FF&) Form1.Caption = "Sample" Form1.DefInstance.Text = "Sample" Form1.Top Form1.DefInstance.Top MsgBox "message",vb@R_935_4045@ion,"title" MsgBox("message",MsgBoxStyle.@R_935_4045@ion,"title") Form1.Height = 3500 Form1.DefInstance.Height = VB6.TwipsToPixelsY(3500) Set MyObject = Command1 MyObject = Command1 Text1.SetFocus Text1.Focus() Command1.ToolTipText = "click me" ToolTip1.SetToolTip(Command1,"click me") Dim objAbout As AboutForm Dim objAbout As Pharfruminsain_AboutForm_v1r0.AboutForm sPath = App.Path sPath = Application.StartupPath Private Sub Form_Unload(Cancel As Integer) Private Sub Form1_Closed(....) Handles MyBase.Closed List1.RemoveItem (0) ListBox1.Items.Remove(0) Dim arOne(10) As String Dim arOne As New ArrayList(10) Print #1,"sample text" PrintLine(1,"sample text") Open "c:/myfile.txt" For Input As #1 FileOpen(1,"c:/myfile.txt",OpenMode.Input) Line Input #1,stemp stemp = LineInput(1) VB6: s=App.Comments VB.Net: Imports System.Diagnostics Imports System.Reflection s=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).Comments VB6: s=App.CompanyName VB.Net: Imports System.Diagnostics Imports System.Reflection s=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).CompanyName) VB6: s=App.EXEName VB.Net: Imports System.Reflection With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location) s=.Name.Substring(0,.Name.Length - .Extension.Length) End With or s=System.AppDomain.CurrentDomain.FriendlyName Note: this includes the extension which would need to be parsed. VB6: s=App.FileDescription VB.Net: Imports System.Diagnostics Imports System.Reflection s=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileDescription) VB6: App.HelpFile VB.Net: No direct replacement VB6: i=App.hInstance VB.Net: Imports System.Runtime.InteropServices i=Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly.GetModules()(0)).ToInt32 VB6: s=App.Legalcopyright VB.Net: Imports System.Diagnostics Imports System.Reflection s=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).Legalcopyright) VB6: s=App.LegalTrademarks VB.Net: Imports System.Diagnostics Imports System.Reflection s=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).LegalTrademarks) VB6: App.LogMode App.LogPath VB.Net: No direct replacement; see the EventLog object VB6: i=App.Major VB.Net: Imports System.Diagnostics Imports System.Reflection i=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMajorPart) VB6: i=App.Minor VB.Net: Imports System.Diagnostics Imports System.Reflection i=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileMinorPart) VB6: App.NonModalAllowed VB.Net: No replacement VB6: App.OleRequestPendingMsgText App.OleRequestPendingMsgTitle App.OleRequestPendingTimeout App.OleServerBusyMsgText App.OleServerBusyMsgTitle App.OleServerBusyraiseerror App.OleServerBusyTimeout VB.Net: No replacement; OLE automation not supported VB6: s=App.Path VB.Net: s=System.Windows.Forms.Application.StartupPath or Imports System.Reflection With New System.IO.FileInfo([Assembly].GetExecutingAssembly.Location) s = .FullName.Substring(0,.FullName.Length - .Name.Length - 1) End With Note: this will return the path with no trailing backslash even if the application is in the root directory. The VB 6.0 App.Path method return included the trailing backslash when the executable was in a root directory. VB6: b=App.PrevInstance VB.Net: Imports System.Diagnostics b=(UBound(Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)) > 0) VB6: s=App.ProductName VB.Net: Imports System.Diagnostics Imports System.Reflection s=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).ProductName) VB6: App.RetainedProject VB.Net: No replacement; state not supported VB6: i=App.Revision VB.Net: Imports System.Diagnostics Imports System.Reflection i=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FileBuildPart) and/or: i=FiLeversionInfo.GetVersionInfo([Assembly].GetExecutingAssembly.Location).FilePrivatePart) VB6: App.StartMode VB.Net: No direct replacement VB6: App.TaskVisible VB.Net: No direct replacement VB6: App.ThreadID VB.Net: No direct replacement; see the System.Threading.Thread object VB6: App.Title VB.Net: The Text (caption) of the top-level form. If there are no forms then the process does not appear in Task Manager. VB6: App.UnattendedApp VB.Net: No direct replacement Methods: VB6: App.StartLogging App.LogEvent VB.Net: No direct replacement; see the EventLog object
