Sound

Visual Basic General

‹ Visual Basic
- Archive
  - VC++
  - Architecture
  - VFP
  - Dotnet
  - VS 2008
  - Windows Live
  - Visual Studio
  - VB
  - SharePoint
  - Windows Forms
  - Game
  - Windows Vista
  - ISV
  - Office
  - IE
  - VS Express
  - SQL Server
  - Visual C#
  - Smart Device

- Previous
  - 1
    - Get print tray media We print most of our documents to plain paper, but have some that must print to perforated paper. We have the bins for the perforated paper set to a type of "pre-punched" to differentiate. (this setting is similar to setting one bin to letterhead). How do I get that media type setting for each tray on a printer so I can tell which tray to print each document to Tag: Sound
  - 2
    - Data from access database to a String When i replace (" ColumnName ")) with the actual column name, it gives me an error like this "Error: ID" and ID is my column name, also tried with other names but none would work. Tag: Sound
  - 3
    - Setup and Deployment from Command Line Usual Location would be D:\Program Files\Microsoft Visual Studio 8\Common7\IDE\Devenv.exe If your running the express versions then you wont have devenv on the machine. Tag: Sound
  - 4
    - CliickOnce : Manifest may not be valid Thanks Eric, Step 3.d. seem to do the trick. I'd noticed the "SideBySide" (under Deployment) key before, but was reluctant to just blindly delete it. Many thanks, Scott Tag: Sound
  - 5
    - Reading from Doc file onto a Reader Feng Chen, Thanks for your time, the link you provided me was helpful. But I need some more help. I was not able to figure out exactly how I would be able to retrieve data from the word document and even for that matter keep it on a clipboard. Can you or anyone please help me out in this Once again......... Thanks Feng Chen Vineed Tag: Sound
  - 6
    - Write a program, which verifies that the procedure is properly written Write a procedure that takes an integer value and returns the number with its digit reversed. Write a program, which verifies that the procedure is properly written. Tag: Sound
  - 7
    - VB Active X DLL fail on 64 bit while we use through VB script OK, using 32 bit DLL's on a 64 bit OS is going to cause you issues because they are a different bitness. So you cannot simply call a 32 bit COM component from a 64 bit application. You have 2 options, get 64 bit DLL's to use for your 64 bit application or compile x86 applications on the 64 bit machine. The 2nd is probably the more likely if you are using 3rd party DLL's etc. and this should be easily achieved by using the My Project -> Compile tab -> Advanced Settings -> Target CPU and setting it the x86 This then causes the compiler to generate an x86 binaries which are the same bitness as the referenced DLL's. It works through VB Script, VBA, VB6 and even .net framework 1.1 applications as all they know about is 32 bitness. However installing 2.0 an upwards of .NET framework on a 64 bit machines results in 32 and 64 bit frameworks being installed. Tag: Sound
  - 8
    - Setting Today's Date by Default in a Function Thanks for replying, TaDa. Unfortunately, I don't think you understand fully what I am attempting to do. I need to do two things in the one function: If I pass a date to the function, return it's date code. If I pass Nothing to the function, return Today's date code. I can see from your code how I can do either in two separate functions, but I want to do both. Any further suggestions Thank you again! Tag: Sound
  - 9
    - DateTimePicker and language Gpg, To avoid this behavior, trap the data before it is displayed in the control, and then change the data so that it is valid. For example, the following code traps the DBNull value and changes the value to a date value of January 1, 1800. This code uses event handlers with the DateTimePicker control to monitor when the value changes. If the value is null, the value is changed to January 1, 1800. Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim MyDataSet As New DataSet() Dim MyTable As New Data.DataTable( "dsTable" ) Dim MyColumn As New DataColumn( "HireDate" ) MyDataSet.Tables.Add(MyTable) MyColumn.AllowDBNull = True MyColumn.DataType = GetType (System.DateTime) MyTable.Columns.Add(MyColumn) Dim MyData(0) As Object MyTable.Rows.Add(MyData) Dim MyBinding As New Binding( "Value" , MyDataSet.Tables( "dsTable" ), "HireDate" ) AddHandler MyBinding.Format, AddressOf DTFormatter AddHandler MyBinding.Parse, AddressOf DTParser DateTimePicker1.DataBindings.Add(MyBinding) End Sub Private Sub DTFormatter( ByVal sender As Object , ByVal e As ConvertEventArgs) Dim b As Binding = CType (sender, Binding) If Not e.DesiredType Is GetType (DateTime) Then Return End If If e.value.GetType Is GetType (System.DBNull) Then e.value = CType ( "1/1/1800" , System.DateTime) End If End Sub Private Sub DTParser( ByVal sender As Object , ByVal e As ConvertEventArgs) If Not e.DesiredType Is GetType (DateTime) Then Return End If If Not e.value.GetType Is GetType (DateTime) Then Return End If Dim value As String = CType (e.Value, String ) If value.Equals( "1/1/1800" ) Then e.value = System.DBNull.value End If End Sub Tag: Sound
  - 10
    - Get Default Printer Richard, Many thanks for your reply, and that works perfectly! I thought this should be straight forward, but all my searches didnt find anything. Thank you again Chris Tag: Sound
  - 11
    - baby lock WindowsXP already has this program built in. Go to the User Settings and create a profile for each user to login under. Then you can disable/enable whatever you want in there. Similar to what most companies do to prevent us horrible employees from surfing the web all day. Tag: Sound
  - 12
    - TwipsToPixelsY, TwipsToPixelsX equivalent in VB.NET Hi all, Could any one please tell what is the equivanet function of the TwipsToPixelsY, TwipsToPixelsX functions in VB.NET. These are supported by vb6 namespace if we use in .NET but i should not use VB6 in my project So please guide me what are the equivalents to these functions Regards, Tag: Sound
  - 13
    - InnerCastExeption error. Hi! I wrote this code: Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If txtUserName.Text = "Test" & txtPassword.Text = "Test" Then Me.Close() Else Form2.Show() MsgBox("Wrong username or password." & vbCrLf & "Protection Continued") End If End Sub And when i try to run it (debug) i get InnerCastExeption error. How can i fix this //Greetings, Zeelia Tag: Sound
  - 14
    - How can I check the Internet connection speed via code? Thank you Nofal Tag: Sound
  - 15
    - bitmap to Picturebox throught network I have a System.Drawing.Bitmap and I want to display it to another program's picturebox throught a network (localy or internet). How can I do it Tag: Sound
  - 16
    - An attempt was made to access a socket in a way forbidden by its access permissions Hi Mike, I have XP Professional operating system. Thanks, Dick Roose Tag: Sound
- Next
  - 1
    - encrypting passwords in a database Hello, I am creating an application using vb windows applcation and using SQL 2005. I have a table of users, that contain there usernames and passwords. When a new user is added it stores all the passwords in clear text in the database. What is the best method to use to be able to crypt the passwords in the database. Also, when the user login, i have a sql statement that will compare the username and password that they enter in the login dialog box, to what is in the database. If the password is encryted, would I still be able to compare their password to see if they can still login. i.e. "Select * From Users Where LoginID=@LoginID And Password=@Password" Many thanks for any suggestions, Steve Tag: Sound
  - 2
    - Print Preview Error thank you for your help, james. I have found a print component which more or less does the job (here is the URL, http://msdn2.microsoft.com/en-us/vbasic/aa701261.aspx ), but, i have discovered another problem. lets say that i want to print an A4 sized document using forms, using a print component. Everything works so far up to even having a print preview, unfortunately i am unable to set it to A4 size. Some help would be greatly appreciated. Thanks Tag: Sound
  - 3
    - Textbox Focus From Form Load Many thanks for your prompt response. I have tried the alternatives you suggest without success. It’s important for user friendliness to have an input textbox focused when the forms loaded. It would be surprising to say the least if MS development engineers have omitted this. In vb6 setfocus worked fine. Help Please. Tag: Sound
  - 4
    - What Language represents &H100& &H is a prefix put on a number to indicate it is a hex number. From MSDN The compiler normally construes an integer literal to be in the decimal (base 10) number system. You can force an integer literal to be hexadecimal (base 16) with the &H prefix, and you can force it to be octal (base 8) with the &O prefix. The digits following the prefix must be appropriate for the number system. The following table illustrates this. Number Base Prefix Valid Digit Values Example Hexadecimal (Base 16) &H 0-9 and A-F &HFFFF Octal (Base 8) &O 0-7 &077 Tag: Sound
  - 5
    - newbie call errors Tip No.2 If you go to the project menu and add a MODULE with PUBLIC variables, you can then use them within every SUB or FUNCTION and within every FORM. >>>> Code Snippet Module Module1 Public myPublicInteger As Integer Public myPublicString As String 'etcetra.>>>> End Module Code Snippet Public Class Form1 'Sets the "myPublicString" to "Hello there!!" Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load myPublicString = "Hello there!!" End Sub 'Shows the same "myPublicString" in a message. Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MessageBox.Show(myPublicString) End Sub End Class Use the above idea with caution. Insert the word PUBLIC if you like in the variable names if you want to keep track of their values easier as it easy for a SUB or a FUNCTION to change a value, especially if you have forgotten a particular SUB or FUNCTION changes it. Regards, S_DS Tag: Sound
  - 6
    - REading emails from exchange 2000 Hi, I have looked everywhere but no luck. I really need to be able to read messages and save attachments from an inbox. I have only managed to open up my own inbox which is no use. Dim oApp As Outlook.Application = New Outlook.Application() Dim oMsg As Outlook.MailItem Dim oAtt As Outlook.Attachment Dim oNS As Outlook.NameSpace = oApp.GetNamespace( "mapi" ) Dim i As Integer Dim x As Integer Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) Dim oItems As Outlook.Items = oInbox.Items Dim count As Integer = oItems.Count Dim deletefile, savefile As Boolean oNS.Logon( "DevTest" , "password" , False , True ) I was hoping the ons.logon whould log me on to the "devTest" inbox but i guess the Dim oInbox As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) is opening up my own default inbox how can I open up the dev test inbox many thanks Tag: Sound
  - 7
    - Create Users to Windows 2003 Programatically (vb) Hi all, I'm trying to add users remotely to a Windows 2003 Standard using the command net.exe, but I just can't make it work. This is my code: Dim p As New Process p.StartInfo.UseShellExecute = False p.StartInfo.RedirectStandardError = True p.StartInfo.RedirectStandardInput = True p.StartInfo.RedirectStandardOutput = True p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo.Arguments = " user " & xUser & " " & xPass & " /ADD /ACTIVE:YES /EXPIRES:NEVER" p.StartInfo.WorkingDirectory = "C:\windows\system32" p.StartInfo.FileName = "net" p.Start() Dim sr As IO.StreamReader = p.StandardOutput Dim sb As New System.Text.StringBuilder( "" ) Dim sinput As String = "" Do Until sinput = "-1" sb.Append(sr.ReadLine() & ControlChars.CrLf) sinput = sr.Read Loop p.WaitForExit() p.Close() Return sb.ToString it doesn't return anything, and user is not created. If I change the following line, it returns perfectly the table of users: p.StartInfo.Arguments = " users" so what could the problem be Thanks in advance. George Tag: Sound
  - 8
    - how do i populate a checklistbox from a database in MSSQL server? Ok, Here is the code: Form: Option Strict On Option Explicit On Public Class frmPatient ' Declaring module level variables Private oldTime As Integer = 0 Private newTime As Integer = 0 Private Sub Timer1_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = TimeString & " " & DateString End Sub Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me .Close() End Sub Private Sub frmPatient_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load 'TODO: This line of code loads data into the 'Ntier_SCOADataSet.Resources' table. You can move, or remove it, as needed. Me .ResourcesTableAdapter.Fill( Me .Ntier_SCOADataSet.Resources) ' This sub handles the initial reading of text file. Dim Patient_Info As New List( Of String ) Dim record As String Patient_Info = Module1.ReadTextFile() ' Determine if record should be appended based on timestamp Integer .TryParse(Patient_Info(0), newTime) If newTime > oldTime Or oldTime = 0 Then ' Concatenate strings record = Module1.ConcatenateStrings(Patient_Info) ' Add record to appropriate list Module1.AppendRecord(record, Patient_Info(3)) ' set oldTime to newTime oldTime = newTime End If End Sub Private Sub UpdateQues( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick, xRefreshButton.Click ' This sub handles the refreshing of data when either the timer expires ' or the xRefreshButton is clicked. ' Note: timer expires in 60000 milliseconds or 1 minute. Dim Patient_Info As New List( Of String ) Dim record As String Patient_Info = Module1.ReadTextFile() ' Determine if record should be appended based on timestamp Integer .TryParse(Patient_Info(0), newTime) If newTime > oldTime Then ' Concatenate strings record = Module1.ConcatenateStrings(Patient_Info) ' Add record to appropriate list Module1.AppendRecord(record, Patient_Info(3)) ' set oldTime to newTime oldTime = newTime End If Module1.ShowRecords() End Sub Private Sub xResourceListBox_Click( ByVal sender As Object , ByVal e As System.EventArgs) ' This sub shows the correct lists when a resource is selected. Module1.ShowRecords() End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xPlacedButton.Click ' This sub is called when the xPlacedButton is clicked ' Note: follow the calls to the appropriate subs or functions. Dim index As Integer index = Me .xRecordsListBox.SelectedIndex Module1.MoveToPlaced(index) End Sub End Class module1: Option Strict On Option Explicit On Module Module1 ' Declaring module level lists ' Each resource will need two lists. Patient que & Placed List Private AWS As New List( Of String ) Private AWS2 As New List( Of String ) Private XYG As New List( Of String ) Private XYG2 As New List( Of String ) Private JBY As New List( Of String ) Private JBY2 As New List( Of String ) Public Function ReadTextFile() As List( Of String ) ' This function reads the text file and parses it appropriately. ' Returns a list to calling function or sub Dim NewInfo As New List( Of String ) Dim read_line() As String ' path will be different depending on location of text file Const path As String = "C:\hl7test" Dim temp_MSH_pipes() As String Dim temp_SCH_pipes() As String Dim temp_NTE_pipes() As String Dim temp_PID_pipes() As String Dim temp_AIG_pipes() As String Dim temp_REASON_carrots() As String Dim temp_APPTTIME_carrots() As String Dim temp_STATUS_carrots() As String Dim temp_PATIENT_carrots() As String Dim temp_RESOURCE_carrots() As String Dim patient_Lname As String Dim patient_Fname As String 'NewInfo(0) = file_time 'NewInfo(1) = appt time 'NewInfo(2) = patient full name 'NewInfo(3) = resource 'NewInfo(4) = reason 'NewInfo(5) = status 'NewInfo(6) = current time 'NewInfo(7) = comment ' assign each line of text file to element of array read_line = My .Computer.FileSystem.ReadAllText(path & "\testnl7.txt" ).Split(Chr(13)) ' splitting first line by pipes temp_MSH_pipes = read_line(0).Split(Chr(124)) ' don't need to do anything else except strip out the timestamp ' note: could not use entire number, so I eliminated the year. ' this string is for application purposes and will not be shown on form. NewInfo.Add(temp_MSH_pipes(5).Substring(5)) ' splitting second line by pipes into elements of an array temp_SCH_pipes = read_line(1).Split(Chr(124)) ' splitting preceding array by carrots(^) into elements of another array temp_APPTTIME_carrots = temp_SCH_pipes(11).Split(Chr(94)) ' strip out the appointment time from correct element of new array NewInfo.Add(temp_APPTTIME_carrots(3).Substring(8, 4)) ' repeating preceding steps to acquire rest of data temp_PID_pipes = read_line(3).Split(Chr(124)) temp_PATIENT_carrots = temp_PID_pipes(5).Split(Chr(94)) patient_Lname = temp_PATIENT_carrots(0) patient_Fname = temp_PATIENT_carrots(1) ' concatenating to names NewInfo.Add(patient_Lname & ", " & patient_Fname) temp_AIG_pipes = read_line(6).Split(Chr(124)) temp_RESOURCE_carrots = temp_AIG_pipes(3).Split(Chr(94)) NewInfo.Add(temp_RESOURCE_carrots(0)) temp_REASON_carrots = temp_SCH_pipes(6).Split(Chr(94)) NewInfo.Add(temp_REASON_carrots(1)) temp_STATUS_carrots = temp_SCH_pipes(25).Split(Chr(94)) NewInfo.Add(temp_STATUS_carrots(0)) ' including timestring into list NewInfo.Add(TimeString) temp_NTE_pipes = read_line(2).Split(Chr(124)) NewInfo.Add(temp_NTE_pipes(3)) Return NewInfo End Function Public Function GetList( ByVal index As Integer ) As List( Of String ) ' This function determines which patient list to examine by examining the ' passed index. Returns the correct list to calling function or sub. ' Note: this will have to be expanded to include every resource. Dim CorrectList As New List( Of String ) If index = 0 Then CorrectList = XYG ElseIf index = 9 Then CorrectList = AWS ElseIf index = 22 Then CorrectList = JBY End If Return CorrectList End Function Public Function GetList2( ByVal index As Integer ) As List( Of String ) ' This function determines which placed list to examine by examining the ' passed index. Returns the correct list to calling function or sub. ' Note: this will have to be expanded to include every resource. Dim CorrectList As New List( Of String ) If index = 0 Then CorrectList = XYG2 ElseIf index = 9 Then CorrectList = AWS2 ElseIf index = 22 Then CorrectList = JBY2 End If Return CorrectList End Function Public Function ConcatenateStrings( ByVal Patient_List As List( Of String )) As String ' This function takes a list and concatenates it with appropriate spacing for ' Patient list. Returns a record as string. Dim record As String record = Patient_List(1).PadRight(12, Chr(32)) & Patient_List(2).PadRight(26, Chr(32)) & Patient_List(3).PadRight(11, Chr(32)) & Patient_List(4).PadRight(11, Chr(32)) & Patient_List(5).PadRight(10, Chr(32)) & Patient_List(6).PadRight(10, Chr(32)) & Patient_List(7) Return record End Function Public Sub AppendRecord( ByVal record As String , ByVal resource As String ) ' This sub appends records in the patient que by determining what the resource is. ' These values are passed by the calling function or sub. If resource Like "XYG" Then XYG.Add(record) ElseIf resource Like "AWS" Then AWS.Add(record) ElseIf resource Like "JBY" Then JBY.Add(record) End If End Sub Public Sub AppendRecord2( ByVal index As Integer , ByVal record As String ) ' This sub appends records in the Placed list by determining what the resource is. ' These values are passed by the calling function or sub. If index = 0 Then XYG2.Add(record) ElseIf index = 9 Then AWS2.Add(record) ElseIf index = 22 Then JBY2.Add(record) End If End Sub Public Sub ShowRecords() ' This sub shows the records for the appropriate resource Dim show_who As Integer Dim i As Integer Dim my_list As New List( Of String ) ' determine who is selected show_who = frmPatient.xCheckedListBox1.SelectedIndex() ' get the correct list my_list = GetList(show_who) ' clear out the Top list box frmPatient.xCheckedListBox1.ClearSelected() For i = 0 To my_list.Count - 1 ' add the records from the list to the listbox frmPatient.xCheckedListBox1.Items.Add(my_list(i)) Next ' get the correct list my_list = GetList2(show_who) ' clear out the bottom list box frmPatient.xCheckedListBox1.Items.Clear() For i = 0 To my_list.Count - 1 ' add the records from the list to the listbox frmPatient.xPlacedListBox.Items.Add(my_list(i)) Next End Sub Public Sub MoveToPlaced( ByVal index As Integer ) ' This sub moves records from the top list box to the bottom ' list box when the Placedbutton is clicked. It does this by ' determining who is selected and which record in the top list ' box is selected. With this information, it can get the correct ' list and add the record to the bottom list box and to the ' appropriate list that holds Placed records for the resource. ' An index value of the selected record to move is passed from ' calling function or sub. Dim change_who As Integer Dim top_list As New List( Of String ) Dim bottom_list As New List( Of String ) Dim Update As String ' determine which resource is selected change_who = frmPatient.xCheckedListBox1.SelectedIndex ' get the correct list for the top listbox top_list = GetList(change_who) ' get the correct list for the bottom listbox bottom_list = GetList2(change_who) ' get the correct record from the top listbox Update = top_list(index) ' remove the record from the top list top_list.RemoveAt(index) ' add the record to the correct list that holds Placed records. AppendRecord2(change_who, TimeString.PadRight(13) & Update) ' now just show the correct records for the lists. ShowRecords() End Sub End Module Tag: Sound
  - 9
    - Interface - Collection of Interfaces? I already know how to "use" an Interface. But unsure how to "form" an interface containing a collection of Interfaces! Tag: Sound
  - 10
    - best practice when writing to sql server One other thing, you may get timeout issues if you dont open and close the connection each time! Tag: Sound
  - 11
    - Read Data from Card Reader Hi Derek, Yes is a USB type Card Reader (Gemplus GemPC430) BUT the device didnot appear as a hard drive in MyComputer! So any solution for that ! What is the command (VB.Net Coding) to instruct the Card Reader to read the data ! Or it will read the card contents automatically ! Thanks in advance! Henry Han Tag: Sound
  - 12
    - IP Address textbox Here is a vb.net example: http://www.freevbcode.com/ShowCode.asp ID=4859 Tag: Sound
  - 13
    - Controls Transparency Hi, You may need to force you rotating item "ON TOP" through calling one of the windows DLL functions as per an API call. Alternatively try putting it on the media player window area that it not showing the video content. Regards, S_DS Tag: Sound
  - 14
    - metadata help Hi, Over the weekend there i found a set of classes that let me change the Id3v2 tags of mp3s. The same library had a set of classes for working with mpegs. Although I'm not sure if it's what you need have a look, the library was called TagLib#. If you look at my homepage Url below and select blog from the menu along the top you'll see the entry. If you don't want to do then just search online, I think its what your looking for. Tag: Sound
  - 15
    - How do you add a pause with the Timer control? How about using two timers? Hiya, Try this and watch the time when it gets to zero seconds. This shows the Date and Time from NOW in the Form title bar. It stops for 10 seconds and then restarts showing the Now time again. It uses the Timer2 tick event to start and stop the timer Timer1 . Regards, S_DS ____________________________________________ This project only uses two timers. Public Class Form1 ' Set the interval to 1000 milliseconds = 1 second ' within each Timer control. ' ENABLE the timers. Private Sub Form1_Load( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase .Load Timer1.Interval = 1000 Timer1.Enabled = True Timer2.Interval = 1000 Timer2.Enabled = True End Sub Private Sub Timer1_Tick( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick ' Show the date and time in the FORM title bar!! Me .Text = Now.ToLongDateString & " " & Now.ToLongTimeString End Sub Private Sub Timer2_Tick( ByVal sender As Object , _ ByVal e As System.EventArgs) Handles Timer2.Tick ' Here is a pause for 10 seconds. If Now.Second = 0 Then Timer1.Stop() If Now.Second = 10 Then Timer1.Start() End Sub End Class Tag: Sound
  - 16
    - Answer command prompt programmatically Some programs, not all, will accept redirection (from a batch file.) In other words, say program zzz.com stops at some point and wants a 'Y' or 'N' for an answer and also an enter. If you create a text file (Use notepad or similar,) that is simply the letter 'Y' and a CRLF and name it C:\Y.FIL. Then in your batch file, you would say: zzz < C:\y.fil on one line. Tip: To make quick short files from the command prompt use a 'copy from console' command. COPY CON C:\Y.FIL (Then hit enter) (Type the complete file and then hit Ctrl-Z) Tag: Sound

Andrew DeVaughn

How can I play a sound without the user seeing a media player

Re: Sound

nogChoco

Dim zSystemSound As System.Media.SystemSound = Media.SystemSounds.Exclamation
zSystemSound.Play()

Dim zSoundPlayer As New Media.SoundPlayer("C:\MySoundFile.wav")
zSoundPlayer.Play()

Top

Re: Sound

Dustin_H

You can also use....

My.Computer.Audio.Play(someFile)

Top

Re: Sound

Tall Dude

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

AxWindowsMediaPlayer1.Visible = False

End Sub

Top