Visual Basic

Mike Deeks wrote:

Does anyone have any ideas where to look for more info?

• Make sure you registered all the controls that you're using
  
• Compile under Windows XP, or download XP-mode for Windows 7
  
• Keep removing code (comment it out) until you got something that compiles again
  
• Start migrating to VB.NET; the compiler is free, and you can mix VB6 and .NET code, using the Interop ToolBox from Microsoft.
  
• Check if the VB6 IDE created a logfile under C:\Windows\System32, and check the EventLog for clues.
  

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Eddy Vluggen wrote:

In 2008, as that's when extended support for VB6 ended

Mike Deeks wrote:

2008 is quite recent really

Mike Deeks wrote:

it is possible that upgrading office broke it but that had to be done as office was broken

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Eddy Vluggen wrote:

Read that again; extended support ended four years ago.

 
Imagine your virusscanner being outdated four years.

Mike Deeks wrote:

Why should it worry me if the extended support that I never used anyway has expired.

Mike Deeks wrote:

I like the language and, as the largest project is up to 140,000 lines of code, moving to another development environment is not at all easy

Mike Deeks wrote:

I am not a luddite and keep up to date with technology but my grandads King Dick socket set still seems to work as well for me as it did for him when he bought it quite a few years ago

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Dave Kreskowiak wrote:

VB6 compiler is finally rotting away

Imports System.Runtime.InteropServices

'Media Manager relegates the playing of *.wav files over multiple sound cards.
Public Class MediaManager

    'Parameters for mciSendCommand dwParam2.
    Structure MCI_WAVE_SET_PARMS
        Dim dwCallback As Long
        Dim dwTimeFormat As Long
        Dim dwAudio As Long
        Dim wInput As Long
        Dim wOutput As Long
        Dim wFormatTag As Integer
        Dim wReserved2 As Integer
        Dim nChannels As Integer
        Dim wReserved3 As Integer
        Dim nSamplesPerSec As Long
        Dim nAvgBytesPerSec As Long
        Dim nBlockAlign As Integer
        Dim wReserved4 As Integer
        Dim wBitsPerSample As Integer
        Dim wReserved5 As Integer
    End Structure

    Public Enum SoundFlags As UInteger
        SND_SYNC = &H0          ' play synchronously (default)
        SND_ASYNC = &H1         ' play asynchronously
        SND_NODEFAULT = &H2     ' silence (!default) if sound not found
        SND_MEMORY = &H4        ' pszSound points to a memory file
        SND_LOOP = &H8          ' loop the sound until next sndPlaySound
        SND_NOSTOP = &H10       ' don't stop any currently playing sound
        SND_NOWAIT = &H2000     ' don't wait if the driver is busy
        SND_ALIAS = &H10000     ' name is a registry alias
        SND_ALIAS_ID = &H110000 ' alias is a predefined id
        SND_FILENAME = &H20000  ' name is file name
        SND_RESOURCE = &H40004  ' name is resource name or atom
    End Enum

    'Plays a *.wav file denoted by a file name.
    Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal pszSound As String, ByVal hmod As UInteger, ByVal fdwSound As UInteger) As Boolean

    'Used to change between different sound cards.
    <DllImport("winmm.dll", CallingConvention:=CallingConvention.StdCall)>
    Private Shared Function mciSendCommand(ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByRef dwParam2 As MCI_WAVE_SET_PARMS) As Long

    End Function

    Sub New()
        Dim Parameters As MCI_WAVE_SET_PARMS
        mciSendCommand(0, &H80D, &H800000, Parameters)
        PlaySound("C:\thermo.wav", 0, SoundFlags.SND_FILENAME Or SoundFlags.SND_ASYNC Or SoundFlags.SND_LOOP)
    End Sub



End Class

VB6 type      VB.NET type
---------  =  ------------
Byte          Byte          8-bit unsigned integer
Integer       Short         16-bit signed integer
Long          Integer       32-bit signed integer
Single        Single        32-bit floating point
Double        Double        64-bit floating point
Currency      Decimal       (not a direct conversion)

'Used to change between different sound cards.
Private Declare Auto Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As UInteger, ByVal uMessage As UInteger, ByVal dwFlags As IntPtr, ByRef dwParam2 As IntPtr) As Integer

Public Sub TestMciSendCommand()
    Dim Parameters As MCI_WAVE_SET_PARMS
    Dim fwdCmd, dwParam As IntPtr
    Dim mciResult As Integer
    Dim deviceID As UInteger

    Try
        dwParam = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(MCI_WAVE_SET_PARMS)))
        Marshal.StructureToPtr(Parameters, dwParam, False)

        fwdCmd = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(Integer)))
        Marshal.WriteInt32(fwdCmd, &H800000)

        deviceID = 0 ' TODO: Get the actual deviceID

        ' results in error # 257 - MCIERR_INVALID_DEVICE_ID
        mciResult = mciSendCommand(deviceID, &H80D, fwdCmd, dwParam)

        Parameters = CType(Marshal.PtrToStructure(dwParam, GetType(MCI_WAVE_SET_PARMS)), MCI_WAVE_SET_PARMS)

    Catch ex As Exception
        Debug.WriteLine(String.Format("mciSendCommand Failed with message: {0}", ex.Message))
        Debug.WriteLine(ex)

    Finally
        ' Clean up unmanaged memory allocations!
        Marshal.FreeHGlobal(fwdCmd)
        Marshal.FreeHGlobal(dwParam)
    End Try
End Sub