|
I created an access Lyric database. Then I added a table and a combo to hold song file data. Then, when the user selects a song and clicks play the code below gets executed. When I first did this it went well. WMPlayer opened up and played the song. Now it opens up the open dialog wanting me to select the file. It returns a 42. This is the first time I used this API command. Any help will be appreciated.
Private Sub cmdPlay_Click()
Const klShowApp As Long = 1
Dim sPath As String, sFile As String
Dim lReturn As Long
On Error GoTo ERR_cmdPlay_Click
sFile = ksQuote & Me.cboTuneLU.Column(1) & ksQuote
sPath = ksQuote & Me.cboTuneLU.Column(2) & ksQuote
lReturn = ShellExecute(Me.hWnd, "open", sPath, vbNullString, sFile, klShowApp)
Stop
EXIT_cmdPlay_Click:
Exit Sub
ERR_cmdPlay_Click:
ShowError "frmLyrics.cmdPlay_Click"
Resume EXIT_cmdPlay_Click
End Sub
modified 28-Jan-15 15:11pm.
|
|
|
|
|
|
The user actually selects the filespec (path & filename) from the open dialog box. I split the filespec into Path and filename and store each into their corresponding fields in a record. I know the path is correct because the open dialog opens to the correct folder. This was working great, but now It does this. I would sure like to find out what the return values of this API function mean. I tried every number fro 0 to 10 in the show parameter of the shellexecute API call.
The record is define as:
tblMP3
------
MP3Seq autonum index
MP3ID long
MP3VerID integer
MP3Path text
MP3File text
I wanted to be able to save more then one song file. The artist's version and a karaoke version. That's what the MP3VerID is for.
The MP3ID field is the same as the autonum field in the lyrics table.
I have had this program for a number of years. VB's Shell has been used all this time. But now on Win 7 I get a security message blocking me from using it. That's when I discovered ShellExecute.
Any help will be appreciated Roger
|
|
|
|
|
It's an exit code. usually 0 means all is good. 1 means error. But search for Windows Media Player Exit Codes.
You should load Quicktime, set it as default player, and give it a test first, before you tear your hair out.
|
|
|
|
|
Hi,
I am a newbie
I have problem with string builder. I want to show to Richtextbox in vb with Richtextbox template
ex. :
Jan 674 Meet 670 Not Meet 4
Feb 635 Meet 631 Not Meet 4
etc.
with source from datagirdview with 8 columns and xxxx rows.
for ex. columns are : Registered Date, Deadline Date, Month, Meet/Not Meet,etc.
This my Code :
For Each keyvalue As KeyValuePair(Of String, Integer) In DicMonth
CMonth.Items.Add(String.Format("{0}", keyvalue.Key))
sb.AppendLine(String.Format("{0} : {1}", UCase(keyvalue.Key), keyvalue.Value))
Next
For Each keyvalue1 As KeyValuePair(Of String, Integer) In DicMeetTotal
sb.AppendLine(String.Format("{0}", "MEET : " & keyvalue1.Value))
Next
RichTextBox2.Text = sb.ToString
and the result is :
JAN : 674
FEB : 635
MAR : 623
APR : 637
MAY : 888
JUN : 994
JUL : 452
AUG : 594
SEP : 526
NOV : 317
DEC : 305
MEET : 670
MEET : 631
MEET : 621
MEET : 637
MEET : 870
MEET : 968
MEET : 438
MEET : 583
MEET : 522
MEET : 287
MEET : 298
Please help me ?
I appreciate your help
|
|
|
|
|
You are creating all the month items first, and then all the MEET items. You need to combine your loops somehow so it selects both items together, i.e. (MONTH and number, MEET and number).
|
|
|
|
|
Thanks for your advice but I had already creating both of them.
please tell me how to combine it ?
Thanks
|
|
|
|
|
You need to match the entries in the two dictinaries so you get them in the correct order, probably by using an index value and a single loop.
|
|
|
|
|
I have no idea for this, could you give me a sample ?
Thanks for your help
|
|
|
|
|
I cannot see an easy way of doing what you want, and I don't know where the original data comes from. It would be better if you found a way of getting all the values together rather than the two disconnected dictionaries.
|
|
|
|
|
Hi
I am trying to capture a pic from an ip camera in VB6,
i have been told it uses onvif
has anyone got any ideas or sample code that i could look
at.
Regards
Trevor
|
|
|
|
|
I haven't used VB6 in a very long time as its a depreciated language.
but a quick google brings back these VB6 IP Camera example[^]
Every day, thousands of innocent plants are killed by vegetarians.
Help end the violence EAT BACON
|
|
|
|
|
Hi Simon
thnaks a mil, i will give it a bash
Regards
Trevor
|
|
|
|
|
Hi Simon
That was a big help, i only have one small problem
i need to find LNCActivex.ocx. the link to install it doesnt work.
I have searched the net and find plenty of apps that want to check all your files
and tidy them up.
Any idea where i could find it ?
Thanks a mil.
|
|
|
|
|
|
HI Simon
Thanks for that, i will have a look. hopefully it works.
Regards
Trevor
|
|
|
|
|
Hi Simon
sorry to bug you.
I tried that, it seems to install someting on my pc but no sign
of LNCActiveX.
I have tried looking elsewhere but nothing.
Any other idead,
regards
Trevor
|
|
|
|
|
Sir can you send me source
|
|
|
|
|
hi, im new here and i have a question. i wanna to make a fb chat.
I can make to send from textbox to fb message, but i can't make it to read from fb message to textbox.
Please can help me someone.
this is my code: http://www.mediafire.com/download/08k0hhrha78sy6q/FBCP.rar
|
|
|
|
|
Your code is a download, and not in readable text. I cannot even download from mediafire as it is blocked here.
It seems that XMPP[^] is deprecated. What API are you using to send a message? If you don't know, can you list the references in your project or show an example of the code you use to send a message?
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
with no API, i tryed somethink like this:
Form Load:
WebBrowser1.Navigate("https://www.facebook.com/messages/")
TextBox3: Press_key:
If e.KeyChar = Chr(Keys.Enter) Then
WebBrowser1.Document.GetElementById("message_body").SetAttribute("value", TextBox3.Text)
WebBrowser1.Select()
SendKeys.Send("{enter}")
TextBox3.Text = Nothing
End If
Timer1_Tick:
If TextBox3.Text = Nothing Then
TextBox3.Select()
End If
i inspect element with FireBug and i sea message are in:< p> Exeamle Message < /p>
I decode all WebBrower1.Document in a TextBox.text
But Message are not decode in textbox
but ideea was like this:
Then in timer to read all lines: <p.>Exeamle Message
Dim allelements As HtmlElementCollection = WebBrowser1.Document.All
For Each webpage As HtmlElement In allelements
ListBox1.Items.Add(webpage.GetAttribute("< p >"))
Next
Hope u understand me
|
|
|
|
|
Are you sure the document is already updated when the timer fires? Does the amount of characters in the document change, after a message is received?
Doesn't seem like a scenario that FB supports; there's multiple mentions of chat, but not by manipulating the existing webpage.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
|
Hello !
I have this code :
Public Class myclass
....
Private cont As MyentEntities
.....
.....
Public Sub New( ByRef cnx As MyentEntities)
.....
cont = cnx
.....
End Sub
Public Sub test
.....
If cont.mytable1.Count=1 then
.....
end if
End Sub
End class
And on my main form :
.......
Dim E1 as MyEntEntities
Dim m1 as myclass
Private Sub MainForm_Load(sender As System.Object, e As System.EventArgs)
Handles Me.Load
E1=New MyentEntities
m1=new MyClass(E1)
........
End Sub
Private sub fill_entity
E1.MyTable1.Tolist
....
End sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)
Handles Button1.Click
m1.test
End Sub
When I click the button , I get an error :
....the entity of type 'MyTable1' does not exist in the context.
But this entity type is added to E1.
What's wrong ?
Thank you !
|
|
|
|
|