Exclusive Mode (Updated)
This function allows the application to enter and exit exclusive mode. In this mode any message boxes or prompts from Windows and other applications will not show up infront of the program. This is useful when you don't want anything to come up infront of your application window.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Public Sub Exclusive_Mode(Use As Boolean) 'If True was passed makes app exclusive 'Else makes app not exclusive Dim Scrap Scrap = SystemParametersInfo(97, Use, "", 0) End Sub Upload <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1"> <tr> <td width="100%"><font color="#008000">'To add a flash movie to any vb.net app first you need to add the shockwave flash object most likely if your system is updated it will be called flash ocx. once its added create a sub to play the movie <br> mine is as follow:<br> </font></td> </tr> </table> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2"> <tr> <td width="50%">Private Sub playflash()<br> <br> With AxShockwaveFlash1 </td> <td width="50%"><font color="#008000">'my control name<br> </font></td> </tr> <tr> <td width="50%"> .Stop()</td> <td width="50%"><font color="#008000">'make sure you control the running of the movie</font></td> </tr> <tr> <td width="50%">..Movie = "C:\Documents and Settings\MySide _<br> \My Documents\Visual Studio _ Projects\WindowsApplication8\rose.swf"<br> </td> <td width="50%"><font color="#008000">'now there are three ways to locate the movie<br> '(1)<br> </font></td> </tr> <tr> <td width="50%"> </td> <td width="50%"><font color="#008000">'The file HAS TO BE IN THE BIN DIRECTORY<br> 'or this code with result in an EXCEPTION!<br> </font></td> </tr> <tr> <td width="50%">.Movie = String.Concat _(Application.StartupPath, _ "\rose.swf")<br> </td> <td width="50%"><font color="#008000">'(2) is like using the App.path in VB6, The file HAS TO BE IN THE BIN DIRECTORY as well<br> </font></td> </tr> <tr> <td width="50%">.Movie =System.Windows.Forms.Application. _ _StartupPath & "\rose.swf"<br> </td> <td width="50%"><font color="#008000">'(3) my fav of all</font></td> </tr> <tr> <td width="50%"> .playing = True<br> End With<br> End Sub<br> </td> <td width="50%"><font color="#008000">'now we get it to play.</font></td> </tr> </table> you can download this code from http://ecreationscanada.com/downloads.asp?vb read the .txt file and you will have it working! Good luck
Original Comments (3)
Recovered from Wayback Machine