You are not logged in.

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.



  • "Ronnie" is male
  • "Ronnie" started this thread

Posts: 10

Date of registration: Oct 11th 2012

Location: Florida

  • Send private message


Friday, October 12th 2012, 2:19pm

Newbee Questions - Please Help

I am new to Jabaco and very excited about the possibilities it offers. I have tried compiling an existing VB6 project and have encountered several error. I believe that one of the errors is explained in the video tutorial, but, I am not certain how to apply the correction to my code. The following are the problem lines, any help would be appreciated. Ronnie...

Error- Needs end of line statement
Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&

Error - Use Class name

Error -
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdshow As Long) As Long

Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Boolean) As Long

Private Declare Function GetMenuItemCount Lib "user32" ( ByVal hMenu As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

Rate this thread
WoltLab Burning Board