I have a vb classic two-dimensional array called Arr(2, i).  It is currently sorted by the third element (index 2).  I want to sort it by the first element (index 0) and then keep it sorted within index 0 by index 2.  In other words, if the array consisted of:

Arr(0, 0) = 1
Arr(1, 0) = x
Arr(2, 0) = 100

Arr(0, 1) = 2
Arr(1, 1) = x
Arr(2, 1) = 200

Arr(0, 2) = 1
Arr(1, 2) = x
Arr(2, 2) = 300

Arr(0, 3) = 2
Arr(1, 3) = x
Arr(2, 3) = 400

I would like it to be sorted into this:

Arr(0, 0) = 1
Arr(1, 0) = x
Arr(2, 0) = 100

Arr(0, 1) = 1
Arr(1, 1) = x
Arr(2, 1) = 300

Arr(0, 2) = 2
Arr(1, 2) = x
Arr(2, 2) = 200

Arr(0, 3) = 2
Arr(1, 3) = x
Arr(2, 3) = 400

I want to determine if there is an open VNC connection to the host PC from inside my VB6 app. How can I do this?

In other postings here, I learned (from Vadim Rapp) that I should pay attention to where components of a program are installed. Programs should go to Windows Program folders. Files of data that are read from and written to should go to Windows Data folders.

I am maintaining a legacy program that I created using VB6 a long time ago. Here is a list of files to be installed for this program. Please check my sort between "Program" and "data" folders.

PROGRAM FILE FOLDER:
4 .exe
1 .ico
2 .bmp
14 .txt Read only. Two are assembled into coded matrices. 12 are "Help" files.
1 .OCX regestered by the installer.

DATA FILE FOLDER:
Eleven data files that are program modifiable.
Some are text and some are Excel spreadsheets.
The Excel spreadsheets are "mission critical." To prevent users from getting in there and messing things up, I gave them the suffix ".sdp" which is not recognized by Windows (but is recognized by my program). These have to be replaceable by a set from this program run on a different computer.

I use Inno to build the installer. Here are two Inno script lines. The one for the OCX is different from all the rest.

Source: "F:\SS_Build\DataCalendar.txt"; DestDir: "{app}"; Flags: ignoreversion
Source: "F:\SS_Build\MSFLXGRD.OCX"; DestDir: "{app}"; Flags: restartreplace sharedfile regserver

Now (finally) to my questions:

(1) "DestDir" was established by Inno during creation of the installer. There has to be a way to specify two different …

I am maintaining a legacy app I wrote in VB6 a long time ago. Development is done on
an external hard drive that I switch between two machines, XP for development, and
Win7 to test run. I use Inno to build the installer. Installer works successfuly all
the way up through Win10. Installation occupies a shade under 1 MB.
All required associated files for the project, and four compiled executables
(including the new one) are gathered  on the external hard drive in a folder named
"SS_Build".

I was asked to add a feature (MakeNewPlayers.exe). An Excel spreadsheet is read in,
modified, and written out. Works perfectly in development mode. Works perfectly when
executed from the Build folder under XP. Works perfectly when executed from the Build
folder under Win 7.

Doesn't work from the installation created by Inno. Program stalls near the bottom,
where the modified Excel spreadsheet is written out. The message box does not appear.
If I exit, system asks me if I want to save "Book1", which tells me the modified
spreadsheet actually was created (but apparently not named), confirmed by looking at
"Book1".

Here is the relevant source code:

Set oXLApp = CreateObject("Excel.Application")
If oXLApp.Application.Version > "11.0" Then
    iXLversion = 56
Else
    iXLversion = -4143
End If
Set oXLApp = Nothing

Set oXLApp = CreateObject("Excel.Application")
(code that modifys spreadsheet goes here)

SavePath = App.Path & "\" & sWorkbookName

Select all Open in new window

…

Dear Team,

I have the below vba code to insert bullets with customize formats and alignment. Now I am looking forward to the incorporate the following below mentioned actions  in the code .

Please note that slide contains 2 text placeholder one for the Title and other for text


1. Reposition my text placeholder having (Top=75, Left=90,Width=739 and Height may vary depending on text.To have more clarity for the position of text placeholder I have appended below the image of shape dimensions from Microsoft power point 2016.

2. the text inside the placeholder should be calibri , size 12 & color (R=89,G=89,B=89)

For the size and margins to be freezed I am attaching an image for better clarity.



I need to collate this action with the below mentioned codes to have alignment of text and bullets

Sub Mybullets()

Dim pghcnt As Integer

With ActiveWindow.Selection.TextRange

.ParagraphFormat.bullet.Font.Name = "Wingdings"

.ParagraphFormat.bullet.Character = 167

.ParagraphFormat.Alignment = ppAlignJustify

.ParagraphFormat.bullet.Font.Color = RGB(89, 89, 89)

.ParagraphFormat.bullet.RelativeSize = 0.75


End With

For pghcnt = 1 To Windows(1).Selection.TextRange.Paragraphs.Count

Windows(1).Selection.TextRange.Paragraphs(pghcnt).IndentLevel = 1

With Windows(1).Selection.ShapeRange.TextFrame.Ruler

.Levels(1).FirstMargin = 7

.Levels(1).LeftMargin = 20

End With

Next

End Sub

Select all Open in new window

Further the layout contains title and content placeholder.

Please help me to collate the text part as well.

Thanks in advance

Regards
Dilpreet Singh
content.PNG

i have two different server having SQL server 2014. it has two different IP address. I can create ODBC to both server. when i try connect two different database on different server , i got the message ODBC SQL SERVER - INVALID OBJECT NAME in vb6 application,  I can open database on local server. but cannot open file on different server with different IP address.  What could be the problem. how can solve this problem. Thanks in advance.

How do I pass an object as a parameter in vb6 when calling a sub?  I want to create a sub that will execute an ftp script in a module but the Inet object is in the form.  I should know this but...  Also, is that ByVal or ByRef?  I assume ByRef?

Thank you in advance!

I have a TelNet utility in my vb6 app for race timing to get finish times from my timing machine to my computer.  It has been working well but at the last race (one of the first I have used it for) it stopped sending data after about an hour.  Is there typically a time-out feature in TelNet and, if so, how can it be adjusted?  I can post the code if need be.

Hi all, I'm trying to make a program that picks up scanner codes from a hand scanner device that's plugged into a USB port on a Windows PC.  I'm writing it in Visual Basic 6 because it's still my favorite program for making quick apps like this.  The hand scanner just sends the string of text that's in the code to the PC, and it sends it very fast.  To start out, I made a pretty simple program just to see if it's possible to catch all the characters fast enough and I'm having trouble with that part.  It seems to grab random characters and I can't go lower than 1 ms on the timer.  

I need it to be able to grab the characters from the keyboard buffer even if it's not the program that's in focus so I used the GetAsyncKeyState function from windows api.  Here is my form code that isn't catching all of the characters:

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Command1_Click()
    Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
    Dim nKey, nChar As Integer
    Dim nText As String
    For nChar = 16 To 255
        nKey = GetAsyncKeyState(nChar)
        If nKey = -32767 Or nKey = -32768 Then
            nText = CStr(nChar) + " "
            Label1.Caption = Label1.Caption + nText
        End If
    Next
End Sub

Select all Open in new window

All I have on the form are a label, buttons, and timer with a 1 ms interval. The label1 will show a few random character codes from the code after I scan one. Does anyone have advice for making it catch all the characters from the hand scanner?  I also tried it with GetKeyState and it had the same problem.

I am trying to connect a race timing system to my race timing software on my PC via Microsoft Internet Transfer Control 6.0 inn a vb6 app connected via ethernet.  I have the framework in place but there is something missing...maybe lots of things.

Here is what I know and have created with my program:
1) The remote host is 192.168.1.102 (This is sRemotePath in the code below)
2) The file I want to download is called "filtered.log" (This is sWhichFile in the code below.

My program correctly assigns these two variable values.

My local path (where I want the file downloaded to) is correctly identified as sLocalPath

Here is my code.  Please tell me what is missing in terms of connecting;

    sWhichFile = lstWhichFile.Text
    
    sRemotePath = "192.168.1." & iWhichTimer
    sLocalPath = sPath & "rfid\"
    
    Inet1.url = sRemotePath
    Inet1.UserName = "anonymous"
    Inet1.Password = vbNullString
    
    Inet1.Execute , , "get" & sRemotePath & sLocalPath & sWhichFile

Select all Open in new window

Thank you!

I have speakers plugged in and recognized because audio is playing out of them on the 3.5 mm audio (headphone) port on my windows 10 pro tab.  However these speakers are not appearing in the playback tab of the "Sound" setting of the control panel nor are they found in either "Sound, video, and game controllers" or "Audio inputs and outputs" of the control panel.

What is found under:

Audio inputs and outputs:
Microphone (Intel SST Audio Device (WDM))
Speakers (Intel SST Audio Device (WDM))

Sound, video, and game controllers:
Intel SST Audio Device (WDM)
Realtek I2S Audio Codec

Playback tab of the Sound setting in the control panel:
Speakers Intel SST Audio Device (WDM)
Default Device

Also, none of these settings change when these speakers are plugged into this 3.5 mm audio (headphone) port.

What I would like to do is, using Visual Basic 6.0,  when a command button is clicked (cmdSound1_Click()), have a message (msgbox) that reads simply if there is a device installed in this  3.5 mm audio (headphone) port.  For example "Hardware found in audio port" or "No Hardware found in audio port, please be sure that the speakers are powered on before trying again."

How can I open multiple instances of the same form in vb6?  I need a TelNet window for each timing box that I am using so I need my TelNet window to open multiple times.

Thanks!

Can I open one vb6 program from another vb6 program and have them both run simultaneously?