|
hey guys, im building a media player using the MCiWND class in VB 6.0. im using the SendMessageAsString function to send commands to the Mci device.
it runs fine and all that, but after a song is done playing, the status of my window does not change. it keeps playing even after the file is done.
i.e i cant find a way to read the status change of the Mci device. ive set the flags to Notify Mode change..
now my problem is, i dont know how to read the mode change that occurs after the song is done playing. can i treat the mode change as an event? or anything else i can do?
here's what ive coded so far.:
'Create a MciWND class
Call MCIWndRegisterClass
flags = WS_CHILD And MCIWNDF_NOTIFYMODE Or MCIWNDF_NOTIFYALL
szFileName = Playlist1.Text
hMCIWnd = CreateWindowExAsString(0&, "MCIWndClass", "ORCA", flags, _
10&, 10&, 0&, 0&, _
Me.hwnd, _
0&, _
App.hInstance, _
szFileName)
Call SendMessageAsString(hMCIWnd, MCIWNDM_SENDSTRING, flags, "play")
here's a screenshot of the problem:
http://img33.picoodle.com/img/img33/3/1/24/f_scrnshtm_5a52658.jpg[^]
as u can see, its pretty basic.. lots of stuff to add :P
suggestions and criticism are welcome.. 
|
|
|
|
|
V.G wrote: suggestions and criticism are welcome
You're making work for yourself. VB6 is crap, and it's unsupported ( you should put VB6 in your subject line if you're using it, b/c hardly anyone does ). VB.NET has a media player control you just drop into a form and it works.
Christian Graus
Driven to the arms of OSX by Vista.
|
|
|
|
|
yes i know how that works, but im doing this for my college and they require VB 6. anything you can suggest regarding my problem..?
|
|
|
|
|
V.G wrote: but im doing this for my college and they require VB 6.
I'd start looking for a new university to go to. Something that doesn't teach you to use technology that's long been dead now.
Notifications come to you through window messages. You have to override the message handler (WndProc in a VB.NET app) and pick out the MCI message you get. VB6 and VB.NET will not automagically do this for you and create an event out of something it knows nothing about. So, you have to write the code to catch the message and generate the event.
Sorry, I don't have any VB6 examples of this. I stopped using VB6 7 years ago.
I did manage to find this example[^] that might help you do this...
|
|
|
|
|
Hello!
I need a quick intro, and some small sample code on using TcpListener and TcpClient.
Something really simple, for example send/recieve text messages like in chat.
Thanks!
|
|
|
|
|
|
I have an interface imported of Itaskbarlist3 (from pinvoke,http://www.pinvoke.net/default.aspx/shell32/ITaskbarList3.html[^])
I got the code to compile but how do I make use of the interface? I'm new to interfaces.
That pinvoke page is in c#. Here(http://pastebin.ca/1317369[^]) is my full vb.net version I'm using. It compiles but I don't know how to use the interfaces. Making a class that implements it doesn't seem to do anything.
How can I use the functions in this interface?
|
|
|
|
|
An Interface is what some external code is going to use to call your code. In this case, Windows is going to expect you to implement this interface so it can call your code.
Are you running your code under Windows 7?? Because this interface didn't show up until Windows 7 Beta 1. If your using Vista or XP, it's no surprise that your code isn't getting called. There's nothing calling it!
|
|
|
|
|
I'm using Windows 7 but I don't understand what to do. I'm trying to use a function of the interface itaskbarlist3 called SetProgressValue and SetProgressState but it isn't actually... doing anything.
|
|
|
|
|
Hi All,
I create a file like mail.aspx and mail.aspx.vb to send email. I show this form through thickox like <a href="/mail.aspx" class="thickbox">, this same link i have called 3 places index page, under content folder index page and under inventory folder index page.
index.aspx
content/index.aspx
inventory/index.aspx
If i click the link on index.aspx, it's works find and i received mail also but this same functionality is not working on other two place.
Any body have idea why this is not working.
I want where can i provide the form action on mail.aspx page.
Kindly go through this code and tell me your suggestions.
<b>mail.aspx</b>
<code>
<%&@ Page Language="VB" Src="mail.aspx.vb" Inherits="formProcessor" %>;
<form id="form1" runat="server">
<table>
<tr>
<td style="color: #FFFFFF">
Enter Your Mail Address:
<asp:TextBox ID="txtTo" runat="server" Columns="30" Width="154px"></asp:TextBox>
</td>
</tr>
<tr>
<td align="center">
<asp:Button ID="SendEmail" runat="server" onclick="SendEmail_Click" Text="Send " Width="57px" />
<input type="button" id="Cancel" value="Cancel" onclick="tb_remove()">
</td>
</tr>
</table>
</form>
</code>
<b>mail.aspx.vb</b>
<code>
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.Mail
Imports Microsoft.VisualBasic
Imports System.Configuration
Public Class formProcessor : Inherits Page
Protected txtTo As TextBox
Sub SendEmail_Click(ByVal s As Object, ByVal e As EventArgs)
Dim strEmailTarget As String
Dim strEmailNoReply As String
Dim sText As String
Dim strSubject As String
strEmailTarget = txtTo.Text
strEmailNoReply = "support@thenetlab.com"
strSubject = "Coupon Email Address"
sText = strEmailTarget
Call NetEmail(strEmailNoReply, strEmailTarget, strSubject, sText)
Response.Redirect("http://dodge.friendlyautogroup.thenetlab.net/inventory/listused.aspx?s=u")
End Sub
Sub NetEmail(ByVal emailFrom As String, ByVal emailTo As String, ByVal emailSubject As String, ByVal emailBody As String)
Dim arrEmailTo() As String
arrEmailTo = Split(emailTo, ",")
Dim intMailLoop As Int32
For intMailLoop = 0 To UBound(arrEmailTo)
Dim objMail As New MailMessage()
objMail.From = emailFrom
objMail.To = arrEmailTo(intMailLoop)
objMail.Subject = emailSubject
objMail.Body = emailBody + vbCrLf ' + intMailLoop.toString()
SmtpMail.Send(objMail)
Next
End Sub
End Class
</code>
Thanks in advance
|
|
|
|
|
This question is better asked in the ASP.NET forum.
The description of your problem is not clear at all.
There's nothing obviously wrong with the code, other than I would probably move the entire "mail sending" method to another class so it can be reused from anywhere in your application.
|
|
|
|
|
The Problem description is not pretty much clear, However can you please try this
Replace the href in other index pages to ~/mail.aspx.
I am not sure although, I guess you can try it.
|
|
|
|
|
AOA Everyone,
how do you create relationship (or coding) between access and vb using adodc such that while using adodc on a form, for a textbox of item id in stock control software, every time you click new, all the rest textboxes are erased but item id remains there and the next item id is automatically generated and shown.
Please Help me
Thank you all
ST
|
|
|
|
|
VB6 or VB.NET? In either case, you can Google for "data binding examples" to find find examples. Also, you can check out the "How do I" videos here[^], specifically, the "Forms over Data" series.
|
|
|
|
|
I'm looping through a collection of items and I'm deliberately creating an error, just to test the error handler.
The error trap works correctly for the first item in the FOR..NEXT loop, but on the second item it doesn't work and instead Outlook brings up an error message "type mismatch".
Of course I understand the error, but why doesn't the error trap work the second time around?
----------------------------------
Set ol = CreateObject("Outlook.Application")
Set myNameSpace = ol.Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.Folders("myNotes")
Dim myInteger As Integer
Dim myItems As Outlook.Items
Set myItems = myFolder.Items
For Each myitem In myItems
On Error GoTo myErrorHandler
myInteger = cint("abc")
myErrorHandler:
If Err.Number <> 0 Then
msgbox "Error handled"
End If
Next myitem
----------------------------------
|
|
|
|
|
Your code is incorrectly written. I'm hoping this is VBScript or VB6 code your working with. If not, you should NOT be ing this construct in VB.NET.
For Each myitem In myItems
On Error Resume Next
myInteger = CInt("abc")
If Err.Number <> 0 Then
MsgBox "Error Handled"
End If
Next
|
|
|
|
|
i am new 2 asp.net and am asked to convert an inventory based stand-alone software to asp.net(c#)(VS 2005), but i want to know:
1. whether it is easy to publish and use a web based app. developed by me, 'cause ther may b a network or not.
2.Is IIS act as jst a server in developers environment(local)
|
|
|
|
|
First of all, you need to start asking your questions in the ASP.NET forum[^].
Next, how easy it is to deploy a web-based app depends on the app itself, not the web-based requirement of it.
Lastly, I don't can't really figure out what you're asking with your last question, but I'll take a guess at it and say yes, IIS will work as a normal webserver on a standalone box for development.
|
|
|
|
|
how to create barcode using vb6. tell all by step by step.
|
|
|
|
|
|
Don't post the same thing over and over arsehat.
Humble Programmer
|
|
|
|
|
how to create barcode in VB/VB.net.
|
|
|
|
|
you can find a lot of useful link try following link for search on google
Google
you can also search for code project . There are also one article which is in my knowledge
Code Project
Hope this helps
|
|
|
|
|
Depending on your requirements you merely use a font. You can download a code 39 (3 of 9) font for free online which can hadle uppercase letters and numbers. Certain barcodes are limited to the characters they can handle and the more you use the longer the barcode becomes (which is true for code 39). I have found the most useful barcode to use is a code 128 type. These barcodes are a fixed length (regarless of the amount of characters) and also use all of the 128 ASCII characters . Code 128 barcode fonts require a checksum (validity check) in order to read characters so they are more challenging to use but if space is limited on the items you wish to apply barcodes to, I would recommend purchasing a code 128 barcode font and checking articles online that can help explain how to create this checksum. Good luck
|
|
|
|
|
I'm a vb.net newbie; I'm currently developing an application for windows mobile on VB.
The program runs a math calculation every time a button is pressed.
I have a NumericUpDown box, is it possible to have the button be pressed automatically every time the value is changed on the NumericUpDown box?
I have heard of button1.performClick() but I have no idea how to use it.
Also I've noticed that the NumericUpDown object has a "ValueChanged" declaration.
Thank you
Any help would be greatly appreciated. 
god coded us in c++
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
