Click here to Skip to main content
15,849,487 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: ParentControlDesigner: How to receive message from child in design mode Pin
Ralf Meier8-Dec-17 2:02
professionalRalf Meier8-Dec-17 2:02 
GeneralRe: ParentControlDesigner: How to receive message from child in design mode Pin
mo14929-Dec-17 12:25
mo14929-Dec-17 12:25 
GeneralRe: ParentControlDesigner: How to receive message from child in design mode Pin
Ralf Meier10-Dec-17 4:09
professionalRalf Meier10-Dec-17 4:09 
QuestionDATA CAPTURE - WEB PAGE VB.NET Pin
Member 1352492016-Nov-17 4:05
Member 1352492016-Nov-17 4:05 
AnswerRe: DATA CAPTURE - WEB PAGE VB.NET Pin
Richard MacCutchan16-Nov-17 4:16
mveRichard MacCutchan16-Nov-17 4:16 
QuestionMIDI and USB Keyboard! Pin
User 989707412-Nov-17 5:25
User 989707412-Nov-17 5:25 
AnswerRe: MIDI and USB Keyboard! Pin
Richard MacCutchan12-Nov-17 7:29
mveRichard MacCutchan12-Nov-17 7:29 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707412-Nov-17 8:45
User 989707412-Nov-17 8:45 
Hi....i found this simple plugin called Jazz Plugin that seems to have a very simple code..although i am not figuring out why it is returning me these errors!

this is the thing:
VB
<pre>Public Class Form1

    Dim chan As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim list As String() = Jazz.MidiOutList()
        For Each s In list
            Out.Items.Add(s)
        Next s
        Out.SelectedIndex = 0
        tone.SelectedIndex = 0
        Channel.SelectedIndex = 0
    End Sub

    Private Sub Out_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Out.SelectedIndexChanged
        Jazz.MidiOutOpen(Out.SelectedItem)
    End Sub

    Private Sub Channel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Channel.SelectedIndexChanged
        chan = Channel.SelectedIndex
    End Sub

    Private Function Note(ByVal obj As System.Object)
        If ReferenceEquals(obj, Button1) Then
            Return 53
        ElseIf ReferenceEquals(obj, Button2) Then
            Return 55
        End If
        Return 0
    End Function

    Private Sub ToneChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tone.SelectedIndexChanged
        Jazz.MidiOut(&HC0 + chan, tone.SelectedIndex, 0)
    End Sub

    Private Sub Down(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown, Button2.MouseDown
        Jazz.MidiOut(&H90 + chan, Note(sender), 100)
    End Sub

    Private Sub Up(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp, Button2.MouseUp
        Jazz.MidiOut(&H80 + chan, Note(sender), 0)
    End Sub

End Class


and its returnning the errors on these lines:

VB
<pre>    Private Sub ToneChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tone.SelectedIndexChanged
        Jazz.MidiOut(&HC0 + chan, tone.SelectedIndex, 0)
    End Sub

    Private Sub Down(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown, Button2.MouseDown
        Jazz.MidiOut(&H90 + chan, Note(sender), 100)
    End Sub

    Private Sub Up(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp, Button2.MouseUp
        Jazz.MidiOut(&H80 + chan, Note(sender), 0)
    End Sub


Any help...?!

modified 7-Jan-19 21:02pm.

GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre12-Nov-17 9:32
professionalSascha Lefèvre12-Nov-17 9:32 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707412-Nov-17 9:34
User 989707412-Nov-17 9:34 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre12-Nov-17 9:50
professionalSascha Lefèvre12-Nov-17 9:50 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707412-Nov-17 9:56
User 989707412-Nov-17 9:56 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre12-Nov-17 10:16
professionalSascha Lefèvre12-Nov-17 10:16 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707413-Nov-17 0:36
User 989707413-Nov-17 0:36 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707413-Nov-17 10:00
User 989707413-Nov-17 10:00 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707429-Nov-17 5:16
User 989707429-Nov-17 5:16 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre30-Nov-17 0:34
professionalSascha Lefèvre30-Nov-17 0:34 
GeneralRe: MIDI and USB Keyboard! Pin
User 989707430-Nov-17 1:10
User 989707430-Nov-17 1:10 
GeneralRe: MIDI and USB Keyboard! Pin
User 98970742-Dec-17 1:48
User 98970742-Dec-17 1:48 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre2-Dec-17 7:06
professionalSascha Lefèvre2-Dec-17 7:06 
GeneralRe: MIDI and USB Keyboard! Pin
User 98970742-Dec-17 7:44
User 98970742-Dec-17 7:44 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre3-Dec-17 1:56
professionalSascha Lefèvre3-Dec-17 1:56 
GeneralRe: MIDI and USB Keyboard! Pin
User 98970743-Dec-17 3:39
User 98970743-Dec-17 3:39 
GeneralRe: MIDI and USB Keyboard! Pin
Sascha Lefèvre3-Dec-17 7:10
professionalSascha Lefèvre3-Dec-17 7:10 
GeneralRe: MIDI and USB Keyboard! Pin
User 98970743-Dec-17 9:11
User 98970743-Dec-17 9:11 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.