Visual Basic

Is it possible to hook into a running vb6 ide program after you hit <F5> and use an compiled vb6 exe external program to access the running ide program and manipulate it.

17-Jun-17 20:26

Member 13265037 wrote:
no database selected

There is a clue in that message.

soundminded13-Jun-17 14:31

Re: Is it possible to hook into a running vb6 ide program after you hit <F5> and use an compiled vb6 exe external program to access the running ide program and manipulate it.

13-Jun-17 14:31

I looked at program that counts the line and
vbproj tree
vbproj
vbprojinf
maybe I am searching for the wrong thing or using wrong words when searching but.
I have a program that has a lot of text boxes and list boxes and it works. i just need to be able to unhide or hide or make it visible not visible but I not know which is which in the frames. the codes has like 10,000 lines or or around there. been using it for years. Thanks.

Richard MacCutchan13-Jun-17 21:44

Re: Is it possible to hook into a running vb6 ide program after you hit <F5> and use an compiled vb6 exe external program to access the running ide program and manipulate it.

13-Jun-17 21:44

Yes, it's possible, but not simple. If you have the source code then it would be much simpler to modify that.

soundminded14-Jun-17 8:50

Re: Is it possible to hook into a running vb6 ide program after you hit <F5> and use an compiled vb6 exe external program to access the running ide program and manipulate it.

14-Jun-17 8:50

Thank you for the quick response.
I downloaded a program that counts lines in a vb6 projects but I wish to exposes the containers in a running vb6 IDE.
I not want people to do the work for me. I want to learn and do as I go. I tried active dll and activeX thinking to hook into exposed properties of the running vb6 IDE. if you know of a program or a partial program that attempts to do that then maybe it will show me something I not think of before. what would you do. (If possible point me in the correct direction or where to look and learn. What I am trying to do is to open and run the program and then run the 2nd program which is compiled which will look in the first vb6 IDE running program and look for the exposed properties in the vb6 IDE running and turnoff frames or makes invisible or this way because it is running the results are almost right away and I can see where the controls are and decide what to do with it. I hope I am not too confusing. Sorry I am deaf and really not use speak English. I used vb3 to vb6. Used Dos all the way to windows 10. Will continue to look and ask around and read vb6 programming books in pdf formats.

Richard MacCutchan14-Jun-17 22:33

Re: Is it possible to hook into a running vb6 ide program after you hit <F5> and use an compiled vb6 exe external program to access the running ide program and manipulate it.

14-Jun-17 22:33

I am not sure that you can do this with VB6 programs. If you move up to VB.NET then you may have the option of using reflection to capture some information. Take a look at Reflection in the .NET Framework | Microsoft Docs[^].

soundminded17-Jun-17 6:05

Re: Is it possible to hook into a running vb6 ide program after you hit <F5> and use an compiled vb6 exe external program to access the running ide program and manipulate it.

17-Jun-17 6:05

Looked at the reflect in net framework and I ran into several (lack of better word) widgets or sample or tutorials for vb6 acting like reflections for network frame. I have download some codes from programmer heaven and DevC and and getting the idea if there is a word thundervb then I can grab it and put it in a list box and then once that is done, make another form for each control that I listed and repeat. Once I get that done then I can try to exposes the property. I found another program open source vb6 written program that will send message to the picked window and control. Hopefully I can change visible true or false and change the frames visible true or false and change the command buttons visible true or false. If you want, I can send you the file and stuff i found and maybe you can give me an idea. If you know of any Api text file to explain deep explain. please let me know where to down load that. Thank you for all you teach.

Richard MacCutchan17-Jun-17 6:22

Re: Is it possible to hook into a running vb6 ide program after you hit <F5> and use an compiled vb6 exe external program to access the running ide program and manipulate it.

17-Jun-17 6:22

Sorry, I have not looked at VB6 for ever 20 years, and it is long dead as a development language, so you are largely on your own. Google is the place to search for other resources.

soundminded17-Jun-17 6:52

Sort Desktop Icons by Name

17-Jun-17 6:52

No problem sir, but thank you for your time and efforts. Hopefully i get somewhere. Will post if I do.

Member 1325666713-Jun-17 1:05

Member 13256667

13-Jun-17 1:05

Hello,

I use this code to try to sort my desktop icons, but noway...

'Declaration
'-------------
'API declarations
Public Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" _
  (ByVal hwnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   LPARAM As Any) As Long

Public Const LVS_SORTASCENDING = &H10   

Public Const LVM_SORTITEMS = (LVM_FIRST + 48)

'and others declarations...


'code in sub procedure
'---------------------

Public Sub sortIconsByNameAsc()

   h = GetDesktopWindow() 'hwnd for desktop

   Call SendMessage(h, LVM_SORTITEMS, LVS_SORTASCENDING, h)

end sub

Re: Sort Desktop Icons by Name

Richard MacCutchan13-Jun-17 5:06

13-Jun-17 5:06

Are you certain that the desktop window is actually a ListView?

Hi ppl..short question!

User 98970749-Jun-17 9:10

9-Jun-17 9:10

Hey guys,

i would like to know how do i map my own keys under a variable?!!
I have this smallcode:

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
       Dim AKEY = ComboBox2.Text
       If e.KeyCode = AKEY Then

       End If
   End Sub

Is there a way to use Letters instead of numbers in my ComboBox?
Thanks you!

modified 7-Jan-19 21:02pm.

Ralf Meier9-Jun-17 10:50

9-Jun-17 10:50

Sorry ... but I don't understand what you mean or try to achieve.
You should explain 'a little bit' more ...

User 98970749-Jun-17 22:27

9-Jun-17 22:27

Hi..sorry..my ability to explain myself in english is low!!
I have a piece of code to play a sound and when i press a key the sound is played..

what i want is to select a key from a combobox (A/B/S/D any key) to play that sound!
Basicaly i want to map the key to play the sound via a combobox!

I hope the explanation is better now...

modified 7-Jan-19 21:02pm.

Ralf Meier10-Jun-17 0:00

10-Jun-17 0:00

So you want to create a kind of Music-Keyboard ?
Why do you want to use a Combobox for that ?
What is exactly the goal ?
English is also not my first language ... but if I have a question and want an answer it is necessary to explain what I want or need. So it is up to you again ...

User 989707410-Jun-17 0:09

10-Jun-17 0:09

hi..
well yes...my goal is to make a drum machine that plays several drums..
The combobox would be used to map which key plays each drum!!

for eg.
Drum 1 - Combobox value "A/B/C/D Key ...etc"
Drum 2 - ComboBox2 value "A/B/C/D whatever"

I want to assign keys to my drums via several Combobox controls..so that the user might choose which key he wants for each Drum!!!

modified 7-Jan-19 21:02pm.

Ralf Meier10-Jun-17 0:29

10-Jun-17 0:29

OK ... I wouldn't do it like this ... but it is your 'game' and you decide how to go ...
Actually I don't understand where your problem is.
You decided via the ComboBox-Selection which Keys from your Keyboard should work with which drums OK ... So ... where do you stuck now ?
Are you generally able to play different sounds with different Keys ?

User 989707410-Jun-17 0:43

10-Jun-17 0:43

I am stuck here..

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

    Dim SDrum1 = ComboBox1.Text
    Dim SDrum2 = ComboBox2.Text
    Select Case e.KeyCode

        Case Keys.SDrum1
            NoteNum = GeneralMidiPercussion.HiBongo
            bPlayDrum = True
        Case Keys.SDrum2
            NoteNum = GeneralMidiPercussion.Vibraslap
            bPlayDrum = True
    End Select


End Sub

i am not able to make this conversion..i tried to convert string to integer but no result..

modified 7-Jan-19 21:02pm.

Ralf Meier10-Jun-17 10:18

10-Jun-17 10:18

You don't make any conversion ...
Combobox1 (or 2) deliver you a String. So your Definition for SDrum1 and 2 must be as string - like this :

Dim SDrum1 as string = ComboBox1.Text
Dim SDrum2 as string = ComboBox2.Text

The Form.Keydown deliver you a Keycode - that is not the same as a String - but you can make a String from it.

Dim keyPressed As String = e.KeyData.ToString

 Select Case keyPressed 
 
            Case SDrum1
                NoteNum = GeneralMidiPercussion.HiBongo
                bPlayDrum = True
            Case SDrum2
                NoteNum = GeneralMidiPercussion.Vibraslap
                bPlayDrum = True
        End Select

As what is NoteNum defined ? Integer ? Or as the same Enumeration as GeneralMidiPercussion ?

And after your Select case - what should happen after that ? And where does it happen ?

User 989707411-Jun-17 1:15

11-Jun-17 1:15

All right man..well i changed the code a bit the NoteNum and bPlayDrum are not needed..
Now it looks like this:

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    Dim SDrum1 As String = ComboBox2.Text
    Dim keyPressed As String = e.KeyData.ToString

    Select Case keyPressed

        Case SDrum1
            Dim vol = volu.Value
            MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
    End Select

End Sub

modified 7-Jan-19 21:02pm.

User 989707411-Jun-17 5:13

11-Jun-17 5:13

Here.. the full code i have now:

Imports Toub.Sound.Midi
Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MidiPlayer.OpenMidi()
    End Sub

    Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        MidiPlayer.CloseMidi()
    End Sub

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        Dim SDrum1 As String = ComboBox2.Text
        Dim SDrum2 As String = ComboBox3.Text
        Dim keyPressed As String = e.KeyData.ToString

        Select Case keyPressed

            Case SDrum1
                Dim vol = volu.Value
                MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))

            Case SDrum2
                Dim vol = volu2.Value
                MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.BassDrum, vol))
        End Select

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim vol = volu.Value
        MidiPlayer.Play(New NoteOn(0, GeneralMidiPercussion.AcousticSnare, vol))
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ComboBox3.Enabled = True
        ComboBox2.Enabled = True
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        ComboBox2.Enabled = False
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
        ComboBox3.Enabled = False
    End Sub
End Class

I would like to have some panning on my sounds but i find it hard..cause i cannot get any info for that in Google and by my own is complicated!

modified 7-Jan-19 21:02pm.

Ralf Meier11-Jun-17 8:43

11-Jun-17 8:43

What I want to know is :
Is it working like you want ?

Refering to what to wrote :
If you don't have any documentation it's allmost difficult to get further. But sometimes there is no other way than "try and error" ... Frown | :(

User 989707411-Jun-17 8:47