Author Topic: Windows 10 and VB6  (Read 11828 times)

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Windows 10 and VB6
« on: December 10, 2016, 05:18:29 PM »
Has anyone been able to get their VB6 based application running on Windows 10?

I tried to install the VB6 redistributables but the install failed, I was trying to get Dave Zimmer's Script BASIC VB6 COM/OLE extension module and IDE running on Windows 10.


Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #1 on: December 11, 2016, 02:18:54 PM »
For grins I ran Dave's setup installer and it worked. I'm happy but still confused what are the requirements under Windows 10 to run VB6 apps?

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #2 on: December 11, 2016, 07:32:53 PM »
I noticed the setup script in the downloaded source repository which resolves my question what dependencies were required to get the IDE/Debugger running on Windows 10.

Code: Text
  1. [Setup]
  2. AppName=SB_Debug
  3. AppVerName=ScriptBasic Debugger .1
  4. DefaultDirName=c:\ScriptBasic\Debugger
  5. DefaultGroupName=ScriptBasic
  6. UninstallDisplayIcon={app}\unins000.exe
  7. OutputDir=./
  8. OutputBaseFilename=SBDebug_Setup
  9.  
  10.  
  11. [Dirs]
  12. Name: {app}\dependancies
  13. Name: {app}\include
  14. Name: {app}\modules
  15. Name: {app}\scripts
  16.  
  17.  
  18. [Files]
  19. Source: dependancies\calltips.txt; DestDir: {app}\dependancies\
  20. Source: dependancies\MSCOMCTL.OCX; DestDir: {win}\system32\; Flags: regserver
  21. Source: dependancies\SciLexer.dll; DestDir: {app}\dependancies\
  22. Source: dependancies\scivb2.ocx; DestDir: {app}\dependancies\; Flags: regserver
  23. Source: dependancies\spSubclass.dll; DestDir: {app}\dependancies\; Flags: regserver
  24. Source: dependancies\VB.bin; DestDir: {app}\dependancies\
  25. Source: engine\sb_engine.dll; DestDir: {app}
  26. Source: include\COM.bas; DestDir: {app}\include\
  27. Source: include\curl.bas; DestDir: {app}\include\
  28. Source: include\mysql.bas; DestDir: {app}\include\
  29. Source: include\nt.bas; DestDir: {app}\include\
  30. Source: include\odbc.bas; DestDir: {app}\include\
  31. Source: include\re.bas; DestDir: {app}\include\
  32. Source: modules\curl.dll; DestDir: {app}\modules\
  33. Source: modules\mysql.dll; DestDir: {app}\modules\
  34. Source: modules\nt.dll; DestDir: {app}\modules\
  35. Source: modules\odbc.dll; DestDir: {app}\modules\
  36. Source: modules\re.dll; DestDir: {app}\modules\
  37. Source: README.txt; DestDir: {app}
  38. Source: SBDebug.exe; DestDir: {app}
  39. Source: SBDebug.pdb; DestDir: {app}
  40. Source: scripts\com_voice_test.sb; DestDir: {app}\scripts\
  41.  
  42. [Icons]
  43. Name: {userdesktop}\SBDebug.exe; Filename: {app}\SBDebug.exe; IconIndex: 0
  44.  
  45. [Run]
  46.  
  47. Filename: {app}\README.txt; StatusMsg: View README; Flags: shellexec
  48.  

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #3 on: December 12, 2016, 06:13:08 PM »
I ended up having to go back to my XP VirtualBox to get the IDE/Debugger to compile. I'm happy that the COMCTL replacement library is working giving VB applications current theming support.

Update - It seems to work fine and with theming on Window 7 and Windows 10 as well.

Here is a YouTube video Dave Zimmer (COM ext. author) did to show off the features of the IDE/Debugger.



The last image shows how the built in IntelliSense feature works.
« Last Edit: December 13, 2016, 12:29:35 AM by John »

Offline AlyssonR

  • Advocate
  • Posts: 126
Re: Windows 10 and VB6
« Reply #4 on: December 13, 2016, 11:54:29 AM »
I am still using Windows 7 on my user systems - and am unlikely to change that position unless I am forced to, which will probably mean moving entirely over to Linux.

The critical application for me is Access '97, which I am told has major issues running under Windows 10.

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #5 on: December 14, 2016, 03:07:33 PM »
Attached  is an example of running a SDL_gfx  script from the IDE and what the array dump pop-up dialog looks like.

I would like to add a checkbox to send the output to a console rather than the output section of the debugger. Any suggestions on doing that from VB6 would be helpful.

I also plan to move the tabstrip to the top as theming only works in that orientation.  (sides / bottom Win2K only)
« Last Edit: December 15, 2016, 12:13:37 PM by John »

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #6 on: December 15, 2016, 09:07:51 PM »
I reworked the IDE form so the tabs are on top.

Windows 10 and Windows 7 versions attached.
« Last Edit: December 15, 2016, 10:43:17 PM by John »

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #7 on: December 16, 2016, 05:48:03 PM »
I had notice while testing different scripts in the IDE that some of the Script BASIC keywords weren't highlighted like PRINT. Dave had written an editor for the syntax highlighter. What I found is that the IDE is using a generic VB6 syntax highlighting file and I guest Dave never got around to creating a Script BASIC specific version.

Update

I updated the syntax highlighting file with Script BASIC's keywords instead of VB's.

Example attached.

« Last Edit: December 16, 2016, 09:56:53 PM by John »

Mike Lobanovsky

  • Guest
Re: Windows 10 and VB6
« Reply #8 on: December 17, 2016, 12:23:08 AM »
Win 10 window metrics is very peculiar and differs from older Windows OSes. It is also inconsistent from compiler to compiler, as recent tests by J.C.Fuller demonstrated on both BP and Jose's forums. From this perspective, your decision to move the tabs on top of the message window seems the only reasonable solution.

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #9 on: December 17, 2016, 08:09:39 AM »
I got tired of fighting with it between OS versions so putting the tabs on top settled things down a bit.

I'm getting close to getting an install built.

Thanks for your post and feedback!

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #10 on: December 19, 2016, 11:02:01 PM »
This is an example of  using the DYC FFI extension module to instantiate an IUP dialog in the IDE/Debugger and enabling the IUP Dialog Editor as well.

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #11 on: January 07, 2017, 07:57:59 PM »
Here is an example of using the DescribeInterface() feature of the Script BASIC COM extension modue.

Code: ScriptBasic
  1. import com.inc
  2.  
  3. 'on error resume next
  4.  
  5. oExcelApp = CreateObject("Excel.Application")
  6.  
  7. if oExcelApp = 0 then
  8.     print "Failed to create Excel Object do you have it installed?"
  9.     end
  10. end if
  11.  
  12. print "Typename = ", TypeName(oExcelApp), "\n"
  13.  
  14. print "Launching DescribeInterface dialog...\n"
  15. DescribeInterface oExcelApp
  16.  
  17. print "Shutting down Excel and releasing object...\n"
  18. CallByName(oExcelApp, "Quit")
  19. ReleaseObject(oExcelApp)
  20.  
  21. print "Script complete!\n"
  22.  


C:\sbgcc\examples\com>scriba typeinfo.sb
Typename = _Application
Launching DescribeInterface dialog...
Shutting down Excel and releasing object...
Script complete!

C:\sbgcc\examples\com>


Code: [Select]
Interface: _Application
ProgID: Excel.Application.15
CLSID: {00024500-0000-0000-C000-000000000046}
Get Application() As Object
Get Creator() As XlCreator
Get Parent() As Object
Get ActiveCell() As Object
Get ActiveChart() As Object
Get ActivePrinter() As String
Let ActivePrinter(String)
Get ActiveSheet() As Object
Get ActiveWindow() As Object
Get ActiveWorkbook() As Object
Sub Calculate()
Get Cells() As Object
Get Charts() As Object
Get CommandBars() As Object
Get DDEAppReturnCode() As Long
Sub DDEExecute(Channel As Long, String As String)
Function DDEInitiate(App As String, Topic As String) As Long
Sub DDEPoke(Channel As Long, Item As Variant, Data As Variant)
Function DDERequest(Channel As Long, Item As String) As Variant
Sub DDETerminate(Channel As Long)
Function Evaluate(Name As Variant) As Variant
Function ExecuteExcel4Macro(String As String) As Variant
Function Intersect(Arg1 As Object, Arg2 As Object, [Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], [Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], [Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], [Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], [Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], [Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], [Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant]) As Object
Get Names() As Object
Get Range(Cell1 As Variant, [Cell2 As Variant]) As Object
Function Run([Macro As Variant], [Arg1 As Variant], [Arg2 As Variant], [Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], [Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], [Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], [Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], [Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], [Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], [Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant]) As Variant
Get Selection() As Object
Sub SendKeys(Keys As Variant, [Wait As Variant])
Get Sheets() As Object
Get ThisWorkbook() As Object
Function Union(Arg1 As Object, Arg2 As Object, [Arg3 As Variant], [Arg4 As Variant], [Arg5 As Variant], [Arg6 As Variant], [Arg7 As Variant], [Arg8 As Variant], [Arg9 As Variant], [Arg10 As Variant], [Arg11 As Variant], [Arg12 As Variant], [Arg13 As Variant], [Arg14 As Variant], [Arg15 As Variant], [Arg16 As Variant], [Arg17 As Variant], [Arg18 As Variant], [Arg19 As Variant], [Arg20 As Variant], [Arg21 As Variant], [Arg22 As Variant], [Arg23 As Variant], [Arg24 As Variant], [Arg25 As Variant], [Arg26 As Variant], [Arg27 As Variant], [Arg28 As Variant], [Arg29 As Variant], [Arg30 As Variant]) As Object
Get Windows() As Object
Get Workbooks() As Object
Get WorksheetFunction() As Object
Get Worksheets() As Object
Get Excel4IntlMacroSheets() As Object
Get Excel4MacroSheets() As Object
Sub ActivateMicrosoftApp(Index As XlMSApplication)
Sub AddCustomList(ListArray As Variant, [ByRow As Variant])
Get AlertBeforeOverwriting() As Boolean
Let AlertBeforeOverwriting(Boolean)
Get AltStartupPath() As String
Let AltStartupPath(String)
Get AskToUpdateLinks() As Boolean
Let AskToUpdateLinks(Boolean)
Get AutoCorrect() As Object
Get Build() As Long
Get CalculateBeforeSave() As Boolean
Let CalculateBeforeSave(Boolean)
Get Calculation() As XlCalculation
Let Calculation(XlCalculation)
Get Caller([Index As Variant]) As Variant
Get CanPlaySounds() As Boolean
Get CanRecordSounds() As Boolean
Get Caption() As String
Let Caption(String)
Get CellDragAndDrop() As Boolean
Let CellDragAndDrop(Boolean)
Function CentimetersToPoints(Centimeters As Currency) As Currency
Function CheckSpelling(Word As String, [CustomDictionary As Variant], [IgnoreUppercase As Variant]) As Boolean
Get ClipboardFormats([Index As Variant]) As Variant
Get DisplayClipboardWindow() As Boolean
Let DisplayClipboardWindow(Boolean)
Get CommandUnderlines() As XlCommandUnderlines
Let CommandUnderlines(XlCommandUnderlines)
Get ConstrainNumeric() As Boolean
Let ConstrainNumeric(Boolean)
Function ConvertFormula(Formula As Variant, FromReferenceStyle As XlReferenceStyle, [ToReferenceStyle As Variant], [ToAbsolute As Variant], [RelativeTo As Variant]) As Variant
Get CopyObjectsWithCells() As Boolean
Let CopyObjectsWithCells(Boolean)
Get Cursor() As XlMousePointer
Let Cursor(XlMousePointer)
Get CustomListCount() As Long
Get CutCopyMode() As XlCutCopyMode
Let CutCopyMode(XlCutCopyMode)
Get DataEntryMode() As Long
Let DataEntryMode(Long)
Get DefaultFilePath() As String
Let DefaultFilePath(String)
Sub DeleteCustomList(ListNum As Long)
Get Dialogs() As Object
Get DisplayAlerts() As Boolean
Let DisplayAlerts(Boolean)
Get DisplayFormulaBar() As Boolean
Let DisplayFormulaBar(Boolean)
Get DisplayFullScreen() As Boolean
Let DisplayFullScreen(Boolean)
Get DisplayNoteIndicator() As Boolean
Let DisplayNoteIndicator(Boolean)
Get DisplayCommentIndicator() As XlCommentDisplayMode
Let DisplayCommentIndicator(XlCommentDisplayMode)
Get DisplayExcel4Menus() As Boolean
Let DisplayExcel4Menus(Boolean)
Get DisplayRecentFiles() As Boolean
Let DisplayRecentFiles(Boolean)
Get DisplayScrollBars() As Boolean
Let DisplayScrollBars(Boolean)
Get DisplayStatusBar() As Boolean
Let DisplayStatusBar(Boolean)
Sub DoubleClick()
Get EditDirectlyInCell() As Boolean
Let EditDirectlyInCell(Boolean)
Get EnableAutoComplete() As Boolean
Let EnableAutoComplete(Boolean)
Get EnableCancelKey() As XlEnableCancelKey
Let EnableCancelKey(XlEnableCancelKey)
Get EnableSound() As Boolean
Let EnableSound(Boolean)
Get FileConverters([Index1 As Variant], [Index2 As Variant]) As Variant
Get FixedDecimal() As Boolean
Let FixedDecimal(Boolean)
Get FixedDecimalPlaces() As Long
Let FixedDecimalPlaces(Long)
Function GetCustomListContents(ListNum As Long) As Variant
Function GetCustomListNum(ListArray As Variant) As Long
Function GetOpenFilename([FileFilter As Variant], [FilterIndex As Variant], [Title As Variant], [ButtonText As Variant], [MultiSelect As Variant]) As Variant
Function GetSaveAsFilename([InitialFilename As Variant], [FileFilter As Variant], [FilterIndex As Variant], [Title As Variant], [ButtonText As Variant]) As Variant
Sub Goto([Reference As Variant], [Scroll As Variant])
Get Height() As Currency
Let Height(Currency)
Sub Help([HelpFile As Variant], [HelpContextID As Variant])
Get IgnoreRemoteRequests() As Boolean
Let IgnoreRemoteRequests(Boolean)
Function InchesToPoints(Inches As Currency) As Currency
Function InputBox(Prompt As String, [Title As Variant], [Default As Variant], [Left As Variant], [Top As Variant], [HelpFile As Variant], [HelpContextID As Variant], [Type As Variant]) As Variant
Get Interactive() As Boolean
Let Interactive(Boolean)
Get International([Index As Variant]) As Variant
Get Iteration() As Boolean
Let Iteration(Boolean)
Get Left() As Currency
Let Left(Currency)
Get LibraryPath() As String
Sub MailLogoff()
Sub MailLogon([Name As Variant], [Password As Variant], [DownloadNewMail As Variant])
Get MailSession() As Variant
Get MailSystem() As XlMailSystem
Get MathCoprocessorAvailable() As Boolean
Get MaxChange() As Currency
Let MaxChange(Currency)
Get MaxIterations() As Long
Let MaxIterations(Long)
Get MouseAvailable() As Boolean
Get MoveAfterReturn() As Boolean
Let MoveAfterReturn(Boolean)
Get MoveAfterReturnDirection() As XlDirection
Let MoveAfterReturnDirection(XlDirection)
Get RecentFiles() As Object
Get Name() As String
Function NextLetter() As Object
Get NetworkTemplatesPath() As String
Get ODBCErrors() As Object
Get ODBCTimeout() As Long
Let ODBCTimeout(Long)
Sub OnKey(Key As String, [Procedure As Variant])
Sub OnRepeat(Text As String, Procedure As String)
Sub OnTime(EarliestTime As Variant, Procedure As String, [LatestTime As Variant], [Schedule As Variant])
Sub OnUndo(Text As String, Procedure As String)
Get OnWindow() As String
Let OnWindow(String)
Get OperatingSystem() As String
Get OrganizationName() As String
Get Path() As String
Get PathSeparator() As String
Get PreviousSelections([Index As Variant]) As Variant
Get PivotTableSelection() As Boolean
Let PivotTableSelection(Boolean)
Get PromptForSummaryInfo() As Boolean
Let PromptForSummaryInfo(Boolean)
Sub Quit()
Sub RecordMacro([BasicCode As Variant], [XlmCode As Variant])
Get RecordRelative() As Boolean
Get ReferenceStyle() As XlReferenceStyle
Let ReferenceStyle(XlReferenceStyle)
Get RegisteredFunctions([Index1 As Variant], [Index2 As Variant]) As Variant
Function RegisterXLL(Filename As String) As Boolean
Sub Repeat()
Get RollZoom() As Boolean
Let RollZoom(Boolean)
Get ScreenUpdating() As Boolean
Let ScreenUpdating(Boolean)
Get SheetsInNewWorkbook() As Long
Let SheetsInNewWorkbook(Long)
Get ShowChartTipNames() As Boolean
Let ShowChartTipNames(Boolean)
Get ShowChartTipValues() As Boolean
Let ShowChartTipValues(Boolean)
Get StandardFont() As String
Let StandardFont(String)
Get StandardFontSize() As Currency
Let StandardFontSize(Currency)
Get StartupPath() As String
Get StatusBar() As Variant
Let StatusBar(Variant)
Get TemplatesPath() As String
Get ShowToolTips() As Boolean
Let ShowToolTips(Boolean)
Get Top() As Currency
Let Top(Currency)
Get DefaultSaveFormat() As XlFileFormat
Let DefaultSaveFormat(XlFileFormat)
Get TransitionMenuKey() As String
Let TransitionMenuKey(String)
Get TransitionMenuKeyAction() As Long
Let TransitionMenuKeyAction(Long)
Get TransitionNavigKeys() As Boolean
Let TransitionNavigKeys(Boolean)
Sub Undo()
Get UsableHeight() As Currency
Get UsableWidth() As Currency
Get UserControl() As Boolean
Let UserControl(Boolean)
Get UserName() As String
Let UserName(String)
Get Value() As String
Get VBE() As Object
Get Version() As String
Get Visible() As Boolean
Let Visible(Boolean)
Sub Volatile([Volatile As Variant])
Get Width() As Currency
Let Width(Currency)
Get WindowsForPens() As Boolean
Get WindowState() As XlWindowState
Let WindowState(XlWindowState)
Get DefaultSheetDirection() As Long
Let DefaultSheetDirection(Long)
Get CursorMovement() As Long
Let CursorMovement(Long)
Get ControlCharacters() As Boolean
Let ControlCharacters(Boolean)
Get EnableEvents() As Boolean
Let EnableEvents(Boolean)
Function Wait(Time As Variant) As Boolean
Get ExtendList() As Boolean
Let ExtendList(Boolean)
Get OLEDBErrors() As Object
Function GetPhonetic([Text As Variant]) As String
Get COMAddIns() As Object
Get DefaultWebOptions() As Object
Get ProductCode() As String
Get UserLibraryPath() As String
Get AutoPercentEntry() As Boolean
Let AutoPercentEntry(Boolean)
Get LanguageSettings() As Object
Sub CalculateFull()
Function FindFile() As Boolean
Get CalculationVersion() As Long
Get FeatureInstall() As MsoFeatureInstall
Let FeatureInstall(MsoFeatureInstall)
Get Ready() As Boolean
Get FindFormat() As Object
Set FindFormat(Object)
Get ReplaceFormat() As Object
Set ReplaceFormat(Object)
Get UsedObjects() As Object
Get CalculationState() As XlCalculationState
Get CalculationInterruptKey() As XlCalculationInterruptKey
Let CalculationInterruptKey(XlCalculationInterruptKey)
Get Watches() As Object
Get DisplayFunctionToolTips() As Boolean
Let DisplayFunctionToolTips(Boolean)
Get AutomationSecurity() As MsoAutomationSecurity
Let AutomationSecurity(MsoAutomationSecurity)
Get FileDialog(fileDialogType As MsoFileDialogType) As Object
Sub CalculateFullRebuild()
Get DisplayPasteOptions() As Boolean
Let DisplayPasteOptions(Boolean)
Get DisplayInsertOptions() As Boolean
Let DisplayInsertOptions(Boolean)
Get GenerateGetPivotData() As Boolean
Let GenerateGetPivotData(Boolean)
Get AutoRecover() As Object
Get Hwnd() As Long
Get Hinstance() As Long
Sub CheckAbort([KeepAbort As Variant])
Get ErrorCheckingOptions() As Object
Get AutoFormatAsYouTypeReplaceHyperlinks() As Boolean
Let AutoFormatAsYouTypeReplaceHyperlinks(Boolean)
Get NewWorkbook() As Object
Get SpellingOptions() As Object
Get Speech() As Object
Get MapPaperSize() As Boolean
Let MapPaperSize(Boolean)
Get ShowStartupDialog() As Boolean
Let ShowStartupDialog(Boolean)
Get DecimalSeparator() As String
Let DecimalSeparator(String)
Get ThousandsSeparator() As String
Let ThousandsSeparator(String)
Get UseSystemSeparators() As Boolean
Let UseSystemSeparators(Boolean)
Get ThisCell() As Object
Get RTD() As Object
Get DisplayDocumentActionTaskPane() As Boolean
Let DisplayDocumentActionTaskPane(Boolean)
Sub DisplayXMLSourcePane([XmlMap As Variant])
Get ArbitraryXMLSupportAvailable() As Boolean
Get MeasurementUnit() As Long
Let MeasurementUnit(Long)
Get ShowSelectionFloaties() As Boolean
Let ShowSelectionFloaties(Boolean)
Get ShowMenuFloaties() As Boolean
Let ShowMenuFloaties(Boolean)
Get ShowDevTools() As Boolean
Let ShowDevTools(Boolean)
Get EnableLivePreview() As Boolean
Let EnableLivePreview(Boolean)
Get DisplayDocumentInformationPanel() As Boolean
Let DisplayDocumentInformationPanel(Boolean)
Get AlwaysUseClearType() As Boolean
Let AlwaysUseClearType(Boolean)
Get WarnOnFunctionNameConflict() As Boolean
Let WarnOnFunctionNameConflict(Boolean)
Get FormulaBarHeight() As Long
Let FormulaBarHeight(Long)
Get DisplayFormulaAutoComplete() As Boolean
Let DisplayFormulaAutoComplete(Boolean)
Get GenerateTableRefs() As XlGenerateTableRefs
Let GenerateTableRefs(XlGenerateTableRefs)
Get Assistance() As Object
Sub CalculateUntilAsyncQueriesDone()
Get EnableLargeOperationAlert() As Boolean
Let EnableLargeOperationAlert(Boolean)
Get LargeOperationCellThousandCount() As Long
Let LargeOperationCellThousandCount(Long)
Get DeferAsyncQueries() As Boolean
Let DeferAsyncQueries(Boolean)
Get MultiThreadedCalculation() As Object
Function SharePointVersion(bstrUrl As String) As Long
Get ActiveEncryptionSession() As Long
Get HighQualityModeForGraphics() As Boolean
Let HighQualityModeForGraphics(Boolean)
Get FileExportConverters() As Object
Get SmartArtLayouts() As Object
Get SmartArtQuickStyles() As Object
Get SmartArtColors() As Object
Get AddIns2() As Object
Get PrintCommunication() As Boolean
Let PrintCommunication(Boolean)
Sub MacroOptions([Macro As Variant], [Description As Variant], [HasMenu As Variant], [MenuText As Variant], [HasShortcutKey As Variant], [ShortcutKey As Variant], [Category As Variant], [StatusBar As Variant], [HelpContextID As Variant], [HelpFile As Variant], [ArgumentDescriptions As Variant])
Get UseClusterConnector() As Boolean
Let UseClusterConnector(Boolean)
Get ClusterConnector() As String
Let ClusterConnector(String)
Get ProtectedViewWindows() As Object
Get ActiveProtectedViewWindow() As Object
Get IsSandboxed() As Boolean
Get HinstancePtr() As Variant
Get FileValidation() As MsoFileValidationMode
Let FileValidation(MsoFileValidationMode)
Get FileValidationPivot() As XlFileValidationPivotMode
Let FileValidationPivot(XlFileValidationPivotMode)
Get ShowQuickAnalysis() As Boolean
Let ShowQuickAnalysis(Boolean)
Get QuickAnalysis() As Object
Get FlashFill() As Boolean
Let FlashFill(Boolean)
Get EnableMacroAnimations() As Boolean
Let EnableMacroAnimations(Boolean)
Get ChartDataPointTrack() As Boolean
Let ChartDataPointTrack(Boolean)
Get FlashFillMode() As Boolean
Let FlashFillMode(Boolean)
Get MergeInstances() As Boolean
Let MergeInstances(Boolean)
Get EnableCheckFileExtensions() As Boolean
Let EnableCheckFileExtensions(Boolean)
« Last Edit: January 07, 2017, 09:32:54 PM by John »

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #12 on: January 15, 2017, 02:28:07 PM »
Attached is a Type Library Viewer Dave Zimmer wrote that is easier to use than other COM typelib viewers I've used in the past. I'm thinking of substituting the current DescribeInterface dialog used in the COM extension module with this type library viewer dialog.

Note: - It seems the first option of selecting the file works and the other choices have issues. (at least on Windows 7) The viewer seems to work fine once the control with a typelib  is selected.
« Last Edit: January 15, 2017, 09:05:39 PM by John »

Offline John

  • Forum Support / SB Dev
  • Posts: 3510
    • ScriptBasic Open Source Project
Re: Windows 10 and VB6
« Reply #13 on: January 17, 2017, 08:31:12 PM »
I was just notified that there was an update for my VirtualBox on Ubuntu 64 and after installing the update to VirtualBox and guest extensions, shared drives now work on Windows 10:)
« Last Edit: January 18, 2017, 10:34:11 AM by John »