What is the most efficient way ...

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VB
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - How to change the amount into -ve in CR ? This is a multi-part message in MIME format. ------=_NextPart_000_1D68_01C8AEDF.7E9CE290 Content-Type: text/plain; charset="big5" Content-Transfer-Encoding: quoted-printable if {tmp_csinvinfo_os.debit}-{tmp_csinvinfo_os.credit} > 0 then {tmp_csinvinfo_os.netbaseamt} else=20 ({tmp_csinvinfo_os.netbaseamt} *(-1) the above code can't return the -ve value , how can i change the value = into -ve ??? Thanks a lot ------=_NextPart_000_1D68_01C8AEDF.7E9CE290 Content-Type: text/html; charset="big5" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; charset=3Dbig5"> <META content=3D"MSHTML 6.00.2900.3314" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3D"Palatino Linotype" size=3D2>if=20 {tmp_csinvinfo_os.debit}-{tmp_csinvinfo_os.credit} > 0=20 then<BR>{tmp_csinvinfo_os.netbaseamt}<BR>else=20 <BR> ({tmp_csinvinfo_os.netbaseamt} *(-1)</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3D"Palatino Linotype" size=3D2><BR>the above code can't = return the=20 -ve value , how can i change the value into -ve  ???<BR>Thanks a=20 lot<BR>   </FONT></DIV></BODY></HTML> ------=_NextPart_000_1D68_01C8AEDF.7E9CE290-- Tag: What is the most efficient way ... Tag: 411153
  - 2
    - Conferencing Control Hi I want to create a very basic conferencing functionality. Are there any controls that allow VOIP conferencing, preferably something cheap. The simpler the better as I am a asp.net developer and new to winforms. Tag: What is the most efficient way ... Tag: 411148
  - 3
    - query that will return null values to 0 i'm using mySQL as my backend to my program. i know this is not VB.NET anymore but i don't know how to do it. i have a query that will calculate if it satisfies the condition. it goes like this: SELECT (tblseedsubsidy.NoOfBags) FROM agri.tbltrcclient INNER JOIN agri.tblseedsubsidy ON (tbltrcclient.ClientID = tblseedsubsidy.ClientID) INNER JOIN agri.tblinventory ON (tblseedsubsidy.SeedID = tblinventory.SeedID) WHERE (tblseedsubsidy.CoOwner = '1' AND tbltrcclient.TypeofSeed = 'Corn') HAVING (sum(tblseedsubsidy.NoOfBags) /2); but every time it doesn't satisfy the condition where CoOwner must be equal to '1' it returns a null value. how can i convert the null value into 0? if anyone has any idea on how to do it i would really appreciate it. thanks. -- Message posted via DotNetMonster.com http://www.dotnetmonster.com/Uwe/Forums.aspx/dotnet-vb-net/200805/1 Tag: What is the most efficient way ... Tag: 411147
  - 4
    - Wholesale, Fendi, Dior, Burberry, Armani, Prada, LV, D&G, Dior -----WWW.CHEAPFORWHOLESALE.COM----- Discount Coach Sandals, Dior Sandals, Prada Sandals, Chanel Sandals, Versace Sandals, Crocs Sandals, Women's Sandals Men's Slippers From China Discount, Prada Sunglasses, Discount, D&G Sunglasses, Discount, Fendi Sunglasses,Discount,Burberry Sunglasses Discount, Chanel Sunglasses Discount, LVSunglasses Discount, Dior Sunglasses Discount, (G U C C I ) Sunglasses Discount, ArmaniSunglasses Discount, Versace SunglassesDiscount, A&F Sunglasses Discount, LV Sunglasses Tag: What is the most efficient way ... Tag: 411137
  - 5
    - .csv File to .xml File in VB.Net using 2.0 Framework and .xsd Hey All, I've been searching for a code snippet, not a 3rd party tool, that takes a .csv file and transforms it to an .xml file based upon an .xsd. Can anyone point me in the right direction or provide a code snippet? I would prefer vb.net but C# is fine too or even pseudo code with appropriate .Net objects and example. Thanks, TC Tag: What is the most efficient way ... Tag: 411136
  - 6
    - accept paypal supply sneaker trainer sports shoes max TN max 90 max www.tradertrade.com Tag: What is the most efficient way ... Tag: 411135
  - 7
    - adapter manager error handling Hi How can I handle errors in the UpdateAll method for adapter manager considering that it has multiple tables. Its probably easy by using try/catch if only one table has errors but what if more than one table have errors at update? Thanks Regards Tag: What is the most efficient way ... Tag: 411132
  - 8
    - Where is the part to set when my mouse pointer move to textbox or label or buton it will display text description ? Where is the part to set when my mouse pointer move to textbox or label or buton it will display text description ? Regards, Tee Tag: What is the most efficient way ... Tag: 411124
  - 9
    - "Late Binding" error is killing me! I am getting data from a device via UDP packets and they arrive thus: wsInverter.GetData(objData) ' Object required here. I then need to convert each of the returned data of 38 bytes in this packet to their hex values. Decimal would be OK, too, but I can't get to them at all! When I do this simple command, I get an error about late binding being no good with Strict On: i = strData(j) ' Simplified version to reduce options I tried everything I can think of to get to the data. There has to be a way to get to the bytes. The AxMSWinsockLib.AxWinsock wants an object. Any advice appreciated. I would prefer to leave strict on. Yeah, I know, anal retentive! This is probably a good time to get rid of AxMSWinsock, left over from VB6, which was the original version of this program. I don't mind that but it will take a bunch of changes that I will also have to learn about. Mike Tag: What is the most efficient way ... Tag: 411109
  - 10
    - ListBox question Is it possible to address a listbox in a general manner depending on it's number eg ListBox1. ListBox2. etc so we have ListBoxi where i can be 1,2,3,4 etc I suppose it is like having an array of listboxes. k. Tag: What is the most efficient way ... Tag: 411100
  - 11
    - Threading with forms Hi I am trying to create (not open) several forms in the background threads using the code given below at the end. 1. Am I doing it correctly? 2. How can I get handle sot these forms in the calling sub so I can access these forms after creation. 3. How do I know when threads have finished forms creation so I can show the form if needed? Thanks Regards Code ==== Private Sub Main() Dim t1 As New Thread(AddressOf CreateForm) t1.Start(GetType(Form1)) Dim t2 As New Thread(AddressOf CreateForm) t2.Start(GetType(Form2)) Dim t3 As New Thread(AddressOf CreateForm) t3.Start(GetType(Form3)) End Sub Public Sub CreateForm(ByVal ft As Object) Dim t As Type = TryCast(ft, Type) If Not t Is Nothing Then Using f As Form = TryCast(Activator.CreateInstance(t, False), Form) End Using End If End Sub Tag: What is the most efficient way ... Tag: 411099
  - 12
    - DataGridView causing problems VB 2005 - Windows Vista I have a form that seems to lock up when the number of rows exceed the height of the datagridview. The following code executes when data is received through the serial port (ie. barcode scanning). It seems that everything works GREAT and processes as it was meant to be until the rows exceed the display area. I have 7 columns. The Description column is the only column with the AutoSizeMode set to Fill. The datagridview is docked to the top. DataSource and DataMember for the DGV is not set to any dataset. I have the vertical scrollbar property set but it does not show up most of the time. When/If it does, when I try and utilize the scrollbar, it locks up the application immediately. I don't understand but I think it has to do with the following method. Sub ReceiveData(ByVal msg As String) 'Called after serial port has received data and trimmed the value CheckForIllegalCrossThreadCalls = False description = Nothing 'form instance variable loc = Nothing Dim cmmInvMan As OleDbCommand Dim strSQL As String Dim drdTest As OleDbDataReader Dim cnnInvMan As OleDbConnection = New OleDbConnection(My.Settings.Inventory_management_databaseConnectionString) cnnInvMan.Open() strSQL = "SELECT * FROM Products WHERE ProductIDNumber = '" & msg & "'" cmmInvMan = New OleDbCommand(strSQL, cnnInvMan) drdTest = cmmInvMan.ExecuteReader Do While drdTest.Read prodIDNum = CInt(drdTest.Item("ProductID")) description = drdTest.Item("ProductDescription").ToString loc = drdTest.Item("ProductLocation").ToString minimumOnHand = CInt(drdTest.Item("ReorderLevel")) maximumOnHand = CInt(drdTest.Item("MinimumRequired")) Loop drdTest.Close() strSQL = "SELECT SUM(UnitsReceived) - SUM(UnitsSold) - SUM(UnitsShrinkage) AS UnitsOnHand " & _ "FROM [" & Me.Inventory_management_databaseDataSet.Inventory_Transactions.TableName & "] WHERE (ProductID = " & prodIDNum & ")" cmmInvMan = New OleDbCommand(strSQL, cnnInvMan) drdTest = cmmInvMan.ExecuteReader Do While drdTest.Read Try units = CInt(drdTest.Item("UnitsOnHand")) Catch ex As InvalidCastException units = 0 End Try Loop drdTest.Close() cnnInvMan.Close() Dim value As Integer Dim duplicateRow As DataGridViewRow For Each duplicateRow In Me.DataGridView1.Rows If duplicateRow.Cells(0).Value Is Nothing Then Exit For If duplicateRow.Cells(0).Value.ToString = msg Then 'MessageBox.Show(duplicateRow.Cells(1).ToString) value = CInt(duplicateRow.Cells(4).Value) value += 1 duplicateRow.Cells(4).Value = value.ToString 'unitsScanned If duplicateRow.Cells(1).Value Is Nothing Then 'description column duplicateRow.Cells(1).Value = description End If If duplicateRow.Cells(3).Value Is Nothing Then 'UnitsOnHand duplicateRow.Cells(3).Value = units.ToString End If If duplicateRow.Cells(2).Value Is Nothing Then 'location duplicateRow.Cells(2).Value = loc End If If duplicateRow.Cells(5).Value Is Nothing Then 'minOnHand duplicateRow.Cells(5).Value = minimumOnHand.ToString End If If duplicateRow.Cells(6).Value Is Nothing Then 'maxOnHand duplicateRow.Cells(6).Value = maximumOnHand.ToString End If Exit Sub End If Next Dim row As String() = {msg, description, loc, units.ToString, "1", minimumOnHand.ToString, maximumOnHand.ToString} Me.DataGridView1.Rows.Add(row) End Sub TIA, Tony K. Tag: What is the most efficient way ... Tag: 411097
  - 13
    - Moved from VB6 to VS2005 and stumped on simple task Dear All, I'm bemused, I'm moving an application I've written from VB6 into VS2005, and I'm getting all the fundamentals over before I delve into the hard part, like getting the forms layout etc....and the simple things, like the 'About' option, opens another form.... Well here is the problem (which has me stumped).... My VB6 Application, I click 'About' and it opens a form, from that form, there is an 'ok' to close that form or 'information' which opens another form with 'information' on it... So I tried this in VS2005.....both forms get opened? but the code isn't telling it too? Form1 is the main form, Form3 is the About Box and Form2 is the Information Box, I choose About and Form2 and 3 open....even though the code is Form3.Show(), there is no reference to opening Form2, so why is form2 deciding to open? I'm confused.... Also, whilst I'm here, it is getting apparent, VS2005 is much more advanced that VB6, but on the flip side, so is the MSDN for it...Does anybody know of any sites that are for beginners for VS2005? Regards Paul. Tag: What is the most efficient way ... Tag: 411092
  - 14
    - File Encryption/Decryption problem Iâ??m trying to encrypt and decrypt a file in vb.net. I am using the TripleDESCryptoServiceProvider encryption found in System.Security.Cryptography. Below is the code for my Encrypt and Decrypt functions. While my functions read and write files the encryption/decryption is not working properly. My test file has an original length of 66,048 bytes. My encrypted file ends up with 66,056 bytes â?¦ 8 bytes more than my original. When I decrypt the encrypted file the resultant file is also 66,056 bytes in length â?¦ obviously different than the original! I feel like Iâ??m missing something obvious. Does anyone have any suggestions? Thanks for your help. Public Function EncryptFile(ByVal SourceFilename As String, ByVal DestinationFilename As String) As Boolean Dim fsSourceStream As System.IO.FileStream = Nothing Dim encryptionStream As CryptoStream = Nothing Dim fsDestinationStream As System.IO.FileStream = Nothing Try ' Open file streams for the file reading and writing fsSourceStream = New System.IO.FileStream(SourceFilename, FileMode.Open, IO.FileAccess.Read) fsDestinationStream = New System.IO.FileStream(DestinationFilename, FileMode.Create, IO.FileAccess.Write) 'Bytes will be encrypted by an encryption stream encryptionStream = New CryptoStream(fsDestinationStream, _ New TripleDESCryptoServiceProvider().CreateEncryptor(mvarKey, mvarIV), CryptoStreamMode.Write) mvarBufferSize = 1024 ' Create buffer Dim fileBuffer(mvarBufferSize) As Byte Dim accumulatedBytesRead As Integer = 0 Dim bytesRead As Integer ' read the file ' Process bytes from fsSourceStream through the encryptionStream to the fsDestinationStream. Do bytesRead = fsSourceStream.Read(fileBuffer, 0, mvarBufferSize) If (bytesRead = 0) Then Exit Do encryptionStream.Write(fileBuffer, 0, bytesRead) accumulatedBytesRead += bytesRead Loop encryptionStream.FlushFinalBlock() Return True Catch ex As Exception MsgBox("Exception error occurred in EncryptFile." & vbNewLine & vbNewLine _ & ex.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Information) Return False Finally 'close streams If encryptionStream IsNot Nothing Then encryptionStream.Close() End If If fsSourceStream IsNot Nothing Then fsSourceStream.Close() End If If fsDestinationStream IsNot Nothing Then fsDestinationStream.Close() End If End Try End Function Public Function DecryptFile(ByVal SourceFilename As String, ByVal DestinationFilename As String) As Boolean Dim fsSourceStream As System.IO.FileStream = Nothing Dim decryptionStream As CryptoStream = Nothing Dim fsDestinationStream As System.IO.FileStream = Nothing Try ' Open file streams for the file reading and writing fsSourceStream = New System.IO.FileStream(SourceFilename, FileMode.Open, IO.FileAccess.Read) fsDestinationStream = New System.IO.FileStream(DestinationFilename, FileMode.Create, IO.FileAccess.Write) ' Process bytes through a CryptoStream. decryptionStream = New CryptoStream(fsSourceStream, _ New TripleDESCryptoServiceProvider().CreateEncryptor(mvarKey, mvarIV), CryptoStreamMode.Read) ' Create buffer mvarBufferSize = 1024 Dim fileBuffer(mvarBufferSize) As Byte Dim accumulatedBytesRead As Integer = 0 Dim bytesRead As Integer ' read the file ' Process bytes from fsSourceStream to fsDestinationStream. Do bytesRead = decryptionStream.Read(fileBuffer, 0, mvarBufferSize) If (bytesRead = 0) Then Exit Do fsDestinationStream.Write(fileBuffer, 0, bytesRead) accumulatedBytesRead += bytesRead Loop fsDestinationStream.Flush() Return True Catch ex As Exception MsgBox("Exception error occurred in DecryptFile." & vbNewLine & vbNewLine _ & ex.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Information) Return False Finally 'close(streams) If decryptionStream IsNot Nothing Then decryptionStream.Close() End If If fsSourceStream IsNot Nothing Then fsSourceStream.Close() End If If fsDestinationStream IsNot Nothing Then fsDestinationStream.Close() End If End Try End Function -- Loren Baker Tag: What is the most efficient way ... Tag: 411088
  - 15
    - How do I write a code to activate a popup menu when I right click in a label control? How do I write a code to activate a popup menu when I right click in a label control? Regards, Tee Tag: What is the most efficient way ... Tag: 411083
  - 16
    - GOOD PRICE ADIDAS DSQUARED D&G SHOES Thenikeshoes DOT net If you are interested in any of our products, please contact our salesman and they will respond in 24 hours after hearing from you. If you cannot find the shoes you are seeking for in the list, please also contact with us and send us your photos, we will do our best to find the shoes from our partners and satisfy you with our best service. Our main customers are from Europe and North America and we know well about the requirements for those markets, such as style number, sticker and box details. We sincerely hope to establish beneficial partnership with your valued company Tag: What is the most efficient way ... Tag: 411080
  - 17
    - Closing all forms I found this nifty routine that closes a form one by one every time it is called. However, I need to hide them instead of closing them. Is there a way to alter the code? I assume it has something to do with this line here... PostMessage(i, CInt(&H10), vbNullString, vbNullString) Thanks k Public Sub closeallforms() Dim objType As Type() = Reflection.Assembly.GetExecutingAssembly.GetTypes() Dim x As Integer, i As Integer Try For x = LBound(objType) To UBound(objType) If Not objType(x).Name = Me.Name Then '/// make sure you dont unload this form yet. i = FindWindow(vbNullString, objType(x).Name) PostMessage(i, CInt(&H10), vbNullString, vbNullString) End If Next Catch ex As Exception MessageBox.Show("Oops, the following error occured:" & ex.Message) Finally 'MyBase.Close() '/// now that all the other forms are closed , unload this one. End Try End Sub Tag: What is the most efficient way ... Tag: 411074
  - 18
    - Can your app detect Webrowser events? I want to make a WYSIWYG editor for HTML pages that can detect events in the webbrowser control in real time and control the webbrowser control (and internal documents) to allow simple stuff like dragging and dropping HTML controls on the webbrowser control. The goal is a real-time view of the page as it is edited. Is it possible for a .Net app to trap these events and respond accordingly? I have googled for soem code examples, but haven't found anything yet. Do you know of any code examples of this? Thanks so much for your time! jim Tag: What is the most efficient way ... Tag: 411069
  - 19
    - Which formats can not be pasted by a RichTextBox RichEdit control's EM_CANPASTE, ITextRange::CanPaste or the RichTextBox.CanPaste can be used to determine if a format can be pasted by the control. I don't suppose there is a list of formats that can be pasted by the control. Is there? Actually I'd like to know which formats can not be pasted. Thanks in advance Tag: What is the most efficient way ... Tag: 411067
  - 20
    - scheduler i'm trying to create a scheduler program for a friend of mine. he needs to have customer information with a relationship to the scheduler. i'm at a loss trying to get started. can someone guide me? has anyone done this before? Tag: What is the most efficient way ... Tag: 411066
  - 21
    - ANN: Professional Refactoring in Visual Basic published Hello Visual Basic programmers, Just to let anyone know that my book "Professional Refactoring in Visual Basic" has been published by Wrox. I intended this book to be an introductory book on refactoring for Visual Basic programmers. So, instead of complete smell and refactoring catalogue, the book lists the most important ones, but also includes book-long study case, has a chapter on free refactoring Visual Studio plug-in Refactor! for VB from Developer Express, deals with legacy (VB6) code upgrade and even dips into subjects like refactoring to patterns and some advanced object oriented design principles. You can take a look at TOC and download first chapter from Wrox site: http://media.wiley.com/product_data/excerpt/91/04701797/0470179791.pdf Thank you for your attention, Danijel Arsenovski Tag: What is the most efficient way ... Tag: 411065
  - 22
    - Obtaining Domain Controller here is a question I've not been able to find the answer too.... I want to find domain controllers(or specifically time servers) on our private network. The computer that will run my app may or may not be in the domain, but is connected to the network. 1) how do I find all the domain controllers on our network(or if I have to, or can tell, time servers) 2)is it possible to find these as a non member of the domain? Brian Tag: What is the most efficient way ... Tag: 411062
  - 23
    - MonthCalendar I think I asked this before but don't remember seeing an answer. I am using the month calendar and when I select muliple dates, the number disappear. Is there a refresh or something to casue this to redraw without losing the selected dates? Brian Tag: What is the most efficient way ... Tag: 411061
  - 24
    - test test Tag: What is the most efficient way ... Tag: 411060
  - 25
    - Closing a form from another form Sounds simple enough when I do Form2.Hide() calling this from Form1 it closes fine (or hides) However, I have a form which is called from another form say Form3 which is called from Form2 and it won't close or hide. I do Form3.Close() and nothing happens - no error message either. Each form is defined at the top as dim formx as new formx() where x is the number of the form. K. Tag: What is the most efficient way ... Tag: 411059
- Next
  - 1
    - vsto vs vs2008 Hi 1. What is better vsto or vs2008 for outlook addins development in terms of ease of development and deployment? 2. Can vsto and vs2008 be installed side by side on the same machine? 3. Can vsto develop addins for outlook 2003 on a pc with outlook 2007? Thanks Regards Tag: What is the most efficient way ... Tag: 411055
  - 2
    - Calling unmanaged DLL issue Hello, I am trying to call an unmanaged API (IP helper) and having problems getting started. I have the following code to read an IP Forward table. It appears my first call to "GetIPForwardTable" appears to work, it returns the required buffer size in the ByteCount variable. However when I try the second call, the one that should actually read the table the application simply exits. This suggests a stack corruption or similar. Can anyone see what is wrong with the code? Dim lpDataBuffer As IntPtr Dim BufferSize As Int32 Dim ByteCount As Int32 = Marshal.SizeOf(BufferSize) Dim Result As Int32 ' ' create unmanged data buffer that is too small for real data, ' this will force the method to return the actual byte count needed ' lpDataBuffer = Marshal.AllocHGlobal(2) Try ' ' First do a read, the buffer size is too small, this ' will return the needed size in the buffer size buffer ' Result = GetIpForwardTable(lpDataBuffer, ByteCount, True) ' ' Free the unmanged data buffer ' Marshal.FreeHGlobal(lpDataBuffer) ' ' Create a new buffer for the real data ' lpDataBuffer = Marshal.AllocHGlobal(5000) ' ' Read the table ' Result = GetIpForwardTable(lpDataBuffer, ByteCount, True) Catch ex As Exception MsgBox("OOPS!") End Try Thanks for any pointers, Sid. Tag: What is the most efficient way ... Tag: 411045
  - 3
    - How to use (add, read, change, delete) registry keys with vb.net Reason of this project: This is the next part of the previous tutorial. We'll learn here how to add, change, read, delete registry keys and values using vb.net. I included a sample that contains all those functionality. Project details: 1- How to add a registry key/value 2- How to read a registry value 3- How to delete a key or a value 4- Changing a value or a key 5- Hints to use registry with VB.net 6- The registry reader (VB.net) 1- How to add a registry key/value One thing that I think I forget to notice. A folder in the registry is name "key" and the elements in this key are named "values". There's a description of each value type in the 5th tutorial Now we'll see how to add a key or a value. Probably you have thought where we'll put it and whether it's a key or a value. So we have 2 things to notice. Visual Basic will automatically show you the hives (they are stored in). You'll have only to choose the needed one. To do that paste the following line. My.Computer.Registry.CurrentUser.CreateSubKey("TestKey") This line will create a key in the HKEY_CURRENT_USER hive and will be named "testkey" Now let's move on to see how to set a value. For the value we'll need three things: Value path, Value name and value value. We can also precise the value type if not Visual Basic will try to assign the value type depending on the object type. My.Computer.Registry.SetValue("HKEY_CURRENT_USER\TestKey", "TestValue", "This is a test value.") Tip: Type "," and Visual Basic will show a list of value types. The sample: The sample contain two part, one for creating keys and the other to create values. To create a key just put the named of the key and it'll be created in the Current_User folder. To assign a value, type the complete path, for example "HKEY_CURRENT_USER\mykey" and then the value name then the value content and click add to create it. 2- How to read a registry value The next thing is to read what we wrote! This is so simple, just put the following line. You'll need to have the Path and the name of the value. Dim readValue As String readValue = My.Computer.Registry.GetValue _ ("HKEY_CURRENT_USER\TestKey", "TestValue", Nothing) MsgBox("The value is " & readValue) If you wish to do more complex things, like getting the keys in a hive and getting the values of keys... Then you should see the registry viewer sample. (Download the source code to get it) 3- How to delete a registry key or value We finish by deleting what we added. To do this it's easy! The following line will delete a key My.Computer.Registry.CurrentUser.DeleteSubKey("TestKey") To delete a value my.Computer .Registry .CurrentUser.DeleteValue("Test value") 4- Changing a value or a key Changing a value can be somewhat difficult. Dim autoshell = My.Computer.Registry.LocalMachine.OpenSubKey("Software \Microsoft\Windows NT\CurrentVersion\Winlogon", True) '' Set the value to 0 autoshell.SetValue("autorestartshell", 0) autoshell.Close() After opening a subkey (don't forget true! as it give you permission to delete), we can use the autoshell in order to change any value in the following subkey. 5- Hints to use registry with VB.net We can count the values in a hive My.Computer.Registry.CurrentUser.ValueCount.ToString() But also the keys My.Computer.Registry.CurrentUser.SubKeyCount.ToString() And check if a value exist If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\MyKey", _ "TestValue", Nothing) Is Nothing Then MsgBox("Value does not exist.") Else MsgBox("Value exist.") End If 6- The registry reader (VB.net) I have included an application with the source code. This one will resume all what we have done. It's like the registry editor of Windows but still view only and can't edit values. Download the source code http://thedotnetsource.blogspot.com/2008/03/tutorial-6-how-to-use-add-read-change.html The Zip file contains: -The sample source code -The registry viewer application -The readme.txt file -The tutorial.txt file Still have question: If you have any problem or you found a bug, post a comment describing your problem. If you have a general question, we highly recommend the MSDN Forums as the best Dot Net forums in the net. Tag: What is the most efficient way ... Tag: 411042
  - 4
    - How do I set my form start at the right bottom site in any monitor resolution? How do I set my form start at the right bottom site in any monitor resolution? Regards, Tee Tag: What is the most efficient way ... Tag: 411037
  - 5
    - "Change your language and you change your thoughts." "Change your language and you change your thoughts." Learn English and free download Grammar & dictionary. Just click the website and share ur thoughts=85.enter in the search column =93What do u want about English language=94? u=92ll get it it everything=85.. A common example of two verbs mixed up by learners are 'made' and 'do'. For example, someone might use 'make a course' or 'do changes' =96 as opposed to the correct format: 'do a course' and 'make changes'. "Language shapes the way we think, and determines what we can think about." http://Onlinespokenenglish.googlepages.com/home Tag: What is the most efficient way ... Tag: 411034
  - 6
    - Trying to insert textboxdata into database Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Projname, ProjSpon As String Dim AppName, AppType, AppSupp, AppDesc As String Dim VendName, VendPhone As String Dim ReqName, ReqPurp As String Dim BudgItem, BudgNum As String Dim BudgOnly As Integer If chkBudg.Checked = True Then BudgOnly = 1 Else BudgOnly = 0 Projname = Convert.ToString(txtProjName.Text) ProjSpon = Convert.ToString(txtProjSpon.Text) AppNAme = Convert.ToString(txtAppName.Text) VendName = Convert.ToString(txtVendName.Text) VendPhone = Convert.ToString(txtVendPhone.Text) AppType = Convert.ToString(cmbAppType.SelectedItem) AppSupp = Convert.ToString(cmbAppSupp.SelectedItem) AppDesc = Convert.ToString(txtAppDes.Text) ReqName = Convert.ToString(txtReqName.Text) ReqPurp = Convert.ToString(cmbReqPurp.SelectedItem) BudgItem = Convert.ToString(cmbBudgetItem.SelectedItem) BudgNum = Convert.ToString(txtbudgetNum.Text) Dim strSQL As String Dim strConn As String strSQL = "Insert Into system.ServerRequest Values('" & BudgOnly & "','" & Projname & "','" & ProjSpon & "','" & AppName & "','" & VendName & "','" & VendPhone & "','" & AppType & "','" & AppSupp & "','" & AppDesc & "','" & ReqName & "','" & ReqPurp & "','" & BudgItem & "','" & BudgNum & "')" MsgBox("SQL:" & strSQL) strConn = "Provider=SQLOLEDB.1;Password=vbuser;Persist Security Info=True;User ID=VBuser;Initial Catalog=Masterserver;Data Source=patmtest\sqlexpress" MyConnObj = New ADODB.Connection MyConnObj.Open(strConn) SQLcmd = New ADODB.Command SQLcmd.ActiveConnection = MyConnObj SQLcmd.CommandText = strSQL SQLcmd.Execute() MyConnObj.Close() MyConnObj = Nothing Tag: What is the most efficient way ... Tag: 411032
  - 7
    - What is the command to display computer name & ip address ? What is the command to display computer name & ip address in VB.NET 2005 (OS WindowsXP & Windows Vista) Regards, Tee Tag: What is the most efficient way ... Tag: 411022
  - 8
    - MonthCalendar Hi, I am having a problem with the monthcalendar control. When I allow multi selection of dates.. the dates disappear. How can make them appear and maintain the user selection? Brian Tag: What is the most efficient way ... Tag: 411014
  - 9
    - AutoSize Issues I am trying to display several images on a standard Windows Form. Each image is displayed in a PictureBox control that is 180,130 in size. I get the Primary Screen size to determine how many images will on one line of images. I have a form boolean variable that I set to true in the ClientSizedChanged event handler. In the loop where I am displaying the images, I check this boolean, and if true, I set the Y coordinate loop counter to the actual Y location of the last image placed. This seems to work OK for the first line of images drawn after the first client size changed event, but it goes haywirea after that, drawing each image at some random location on a line, with several lines since the last image drawn. It seems unpredictable on just how the client size is adjusted on an autoscroll generated event. Any help would be appreciated. Tag: What is the most efficient way ... Tag: 411011
  - 10
    - MonthCalendar I think I asked this before but don't remember seeing an answer. I am using the month calendar and when I select muliple dates, the number disappear. Is there a refresh or something to casue this to redraw without losing the selected dates? Brian Tag: What is the most efficient way ... Tag: 411002
  - 11
    - Find Subs/Functions which are no longer referenced? In the VS2005 editor (VB.Net project), is there a way to find all Subs/Functions which are no longer referenced without having to click each one individually? -- Dennis Tag: What is the most efficient way ... Tag: 410987
  - 12
    - VS 2008 conversion wizard displayed for VS 2008 Outlook 2003 add-in on pc with Outlook 2007 Hi An outlook 2003 add-in solution created in vs 2008 on a pc with outlook 2007 when re-opened in vs 2008 brings up the conversion wizard. Cancelling wizard closes solution and does not allow to proceed. The development machine has Office 2007 installed but as production machines have Outlook 2003 therefore Outlook 2003 project template is selected for this solution. How can I avoid the conversion of the project? Thanks Regards Following hot fixes are installed on PC. Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB944899) KB944899 Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB945282) KB945282 Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB946040) KB946040 Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB946308) KB946308 Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB946344) KB946344 Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB947171) KB947171 Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB947173) KB947173 Hotfix for Microsoft Visual Studio 2008 Professional Edition - ENU (KB947789) KB947789 Tag: What is the most efficient way ... Tag: 410985
  - 13
    - Tool to mark code which has been executed We're upgrading a very complex VB6 applications (1000+ forms and 300K lines of code) to VB.NET, and then to C#. We need to do a full test after the upgrade is done. Of course there are no docs and hardly any code comments. Does anyone know of a tool that would mark .NET code as having been run so when we test we are sure we hit all the possible scenarios? If we miss one option in a Select Case construct for example, I'd like to see the code that was executed highlighted in some color so we can focus on setting up the data on the options that didn't get executed. Thanks Carl Tag: What is the most efficient way ... Tag: 410983
  - 14
    - Need help with scope (I think) I have a web form that I am simply dispaying the value(column) from a dataset into a textbox. Here is the code In the page load event cmd.Connection = cn da.SelectCommand = cmd cmd.CommandText = "Select bhdescription,bhid " & _ "from tBehaviorsTypes " & _ "order by bhid; " da.Fill(dsBT, "dsBhTypes") cn.Close() X = 0 Me.lblBehavior.Text = dsBT.Tables("dsBhTypes").Rows(X).Item"bhDescription").ToString data adaper, data set, connection and command object are declared as follows Public ds As New DataSet Public dsBT As New DataSet Public cn As New Data.SqlClient.SqlConnection(ConfigurationManager.AppSettings.Get("mCnn")) Public da As New SqlClient.SqlDataAdapter Public cmd As New SqlClient.SqlCommand X is declared as a public in a public module Everything in the page load appears to work I've tried running this as a project running on localhost and a website on from the IIS server and get same results. Any ideas? Thanks!!!!! The form has a next button which excutes the following code: X = X + 1 Me.lblBehavior.Text = dsBT.Tables("dsBhTypes").Rows(X).Item("bhDescription").ToString Me.TextBox1.Text = X.ToString my problem is that x only increments the first time the next button is clicked not incrementing. --------------= Posted using GrabIt =---------------- ------= Binary Usenet downloading made easy =--------- -= Get GrabIt for free from http://www.shemes.com/ =- Tag: What is the most efficient way ... Tag: 410981
  - 15
    - How its working ?? Hi All, Can anyone help me to understand this. please see the code: private fun1(){ int count1, count2; string strTest; DataTable dt = new DataTable(); DataColumn dc1 = new DataColumn("No"); dt.Columns.Add(dc1); DataRow dr = dt.NewRow(); dr["No"] = "100"; dt.Rows.Add(dr); dr = dt.NewRow(); dr["No"] = "101"; dt.Rows.Add(dr); strTest = "Test String"; Session["MYDT"] = dt; Session["STR"] = strTest; count1 = ((DataTable)Session["MYDT"]).Rows.Count; //2 dt.Clear(); strTest = ""; DataRow dr1 = dt.NewRow(); dr1["No"] = "AAA"; dt.Rows.Add(dr1); Session["DT1"] = dt; count1 =((DataTable)Session["DT1"]).Rows.Count; //1 count2 =((DataTable)Session["MYDT"]).Rows.Count; //1 Session.RemoveAll();} If I delete dt.clear() line it gives me both datatable MYDT with 2 rows and DT1 with one row, which is correct. but with dt.clear() its retuning me 1 row for both table but not behaving same with STR. why. thanks for looking this post. Tag: What is the most efficient way ... Tag: 410974
  - 16
    - How do you create Listings().ListingItems() OK i know this is a 101 question but... ASP.NET/VB.NET ListingItems() as string I need a nested array of Listings().ListingItems() so i can read a text file and split each line and insert the results into this array. The read and split are easy (and so should be setting up this array), but i am banging my head on how to get my class defined as an array. Again, end result is Listings().ListingItems() Thank you in advance for your help. Tag: What is the most efficient way ... Tag: 410970
  - 17
    - stop multi instantes of program on one machine Hi, I am sorry that my description is not better but it is hard to think of one for this problem. I have a program on the user computer and I need to only let them have one instants of this program open at one time. Is there a way to check to see if the program in already running and not let them open it? Thank you in advance for your help. Tag: What is the most efficient way ... Tag: 410956
  - 18
    - How to create a checkbox datatype column in a table in VB .net code I am creating a new boolean column in a MSAccess .mdb database like this: Dim Cmd As New OleDb.OleDbCommand("ALTER TABLE m_table ADD boolColumn YesNo", objConn) Cmd.ExecuteNonQuery() , which works fine. But... when the .mdb file is opened in Access the values for the new column are shown as "-1" and "0"... Is there a way to make the column display in Access as checkboxes? I want to be able to do this at runtime in my .net program. thanks. Tag: What is the most efficient way ... Tag: 410949
  - 19
    - Validating a XML input Hi again, folks. i'm developing a windows application that gets data from an Mysql database through PHP server-side scripts. I'm not totally familiar with Requests and XML on .Net 2.0. I'll load these sort of data - simply generated by the phps - into a dataset and i want to validate, before, if the response from server isn't anything other than an valid XML structure, to be able to catch eventual server-side errors. How this could be done? Load the data into a xml object and catch parse errors? Thanks for any appointments Thiago Tag: What is the most efficient way ... Tag: 410939
  - 20
    - Conversion wizard comes up on same version project Hi I created an Outlook 2003 Add In project in vs 2008. VS 2008 automatically creates an associated Setup project in the same solution. When I close the solution and open again, the Conversion Wizard comes up and attempts to convert the project to vs 2008 even though the project was created in vs 2008 to start with. What is the problem and how can I fix it? Thanks Regards Tag: What is the most efficient way ... Tag: 410927
  - 21
    - Need help with custom install package This is my first custom installer and essentially I needed to create one that installed windows installer 3.1 then installed .Net 2.0 Service Pack 1. I could not find a pre-packaged .Net 2.o SP 1 installer package anywhere so this is my attempt. The problem seems to be that when I first created it if .NET 2.0 was installed it would not install .NET 2.0 SP1 so I commented out the line where it checks but that leads the installer to try and reinstall it on reboot. Can anyone tell me how to differentiate between .NET 2.0 and .NET 2.0 SP 1? my package.xml file: <?xml version="1.0" encoding="utf-8" ?> <Product xmlns="http://schemas.microsoft.com/developer/2004/01/bootstrapper" ProductCode="Custom.Bootstrapper.Package"> <PackageFiles CopyAllPackageFiles="false"> <PackageFile Name="NetFx20SP1_x86.exe"/> <PackageFile Name="WindowsInstaller-KB893803-v2-x86.exe" HomeSite="Msi31Exe" PublicKey="3082010A0282010100CF38F7E1A4275EF8F0CCAACEFB3ADE3B6231460546BBF5B6051AD3B3ACC29F0F4C670828C44310F53B75797F6A91F4D633C861BFFA9190007AF0791D5D6870F690B29877B5031D2F9B9D9B75892F4A01417C9E7CCB87439BF49674999E98C1CF40575816F6C0D59216E52485718F9949ED557C65C91F380023C53EAB11D6296CC69EA0705B7DD537D4677720C306CE85F84E3480A035C41C53320157EFB128BD6C01E3AD40BC80A90949DB36E337F41D49AA2AA76BD019D3CC8E9DD686467A134AD64519A553B3E2782F2E35976B4CC6E81AB0D3D1249069ABCEFC696E3E4CFB024162DC07985D7E5CA74C27316B564CE198D8E0D11D718D3D2AC07F714DFFCF0203010001"/> <PackageFile Name="dotnetchk.exe"/> </PackageFiles> <InstallChecks> <ExternalCheck Property="DotNetInstalled" PackageFile="dotnetchk.exe" /> <RegistryCheck Property="IEVersion" Key="HKLM\Software\Microsoft\Internet Explorer" Value="Version" /> </InstallChecks> <Commands> <Command PackageFile="WindowsInstaller-KB893803-v2-x86.exe" Arguments= '/norestart'> <InstallConditions> <BypassIf Property="VersionMsi" Compare="VersionGreaterThanOrEqualTo" Value="3.1"/> <FailIf Property="Version9x" Compare="ValueExists" String="InvalidPlatform"/> <FailIf Property="VersionNT" Compare="VersionLessThan" Value="5.0.3" String="InvalidPlatform"/> <FailIf Property="ProcessorArchitecture" Compare="ValueNotEqualTo" Value="Intel" String="InvalidPlatformArchitecture" /> <FailIf Property="AdminUser" Compare="ValueEqualTo" Value="false" String="AdminRequired"/> </InstallConditions> <ExitCodes> <ExitCode Value="0" Result="Success"/> <ExitCode Value="1641" Result="SuccessReboot"/> <ExitCode Value="3010" Result="SuccessReboot"/> <DefaultExitCode Result="Fail" FormatMessageFromSystem="true" String="GeneralFailure" /> </ExitCodes> </Command> <Command PackageFile="NetFx20SP1_x86.exe" Arguments=""> <InstallConditions>    <BypassIf Property="IsMsiInstalled" Compare="ValueGreaterThan" Value="0"/>  <FailIf Property="AdminUser" Compare="ValueEqualTo" Value="false" String="AdminRequired"/>  <FailIf Property="Version9X" Compare="VersionLessThan" Value="4.10" String="InvalidPlatformWin9x"/>  <FailIf Property="VersionNT" Compare="VersionLessThan" Value="5.0.3" String="InvalidPlatformWinNT"/>  <FailIf Property="IEVersion" Compare="ValueNotExists" String="InvalidPlatformIE" /> <FailIf Property="IEVersion" Compare="VersionLessThan" Value="5.01" String="InvalidPlatformIE" />  <FailIf Property="ProcessorArchitecture" Compare="ValueNotEqualTo" Value="Intel" String="InvalidPlatformArchitecture" /> </InstallConditions>  <ExitCodes> <ExitCode Value="0" Result="Success"/> <ExitCode Value="3010" Result="SuccessReboot"/> <ExitCode Value="4097" Result="Fail" String="AdminRequired"/> <ExitCode Value="4098" Result="Fail" String="WindowsInstallerComponentFailure"/> <ExitCode Value="4099" Result="Fail" String="WindowsInstallerImproperInstall"/> <ExitCode Value="4101" Result="Fail" String="AnotherInstanceRunning"/> <ExitCode Value="4102" Result="Fail" String="OpenDatabaseFailure"/> <ExitCode Value="4113" Result="Fail" String="BetaNDPFailure"/> <DefaultExitCode Result="Fail" FormatMessageFromSystem="true" String="GeneralFailure" /> </ExitCodes> </Command> Tag: What is the most efficient way ... Tag: 410926
  - 22
    - How to put value from table in a label? I have the following code? Dim cn As New Data.SqlClient.SqlConnection(ConfigurationManager.AppSettings.Get("mCnn")) Dim da As New SqlClient.SqlDataAdapter Dim ds As New DataSet Dim cmd As New SqlClient.SqlCommand cmd.Connection = cn da.SelectCommand = cmd cmd.CommandText = "Select bhDescription,bhid " & _ "from tBehaviorTypes " & _ "order by bhid; " da.Fill(ds, "dsBhTypes") How do i loop thru this to place the value of bhDescription into label? Appreciate the help. -- --------------------------------- --- -- - Posted with NewsLeecher v3.9 Beta 2 Web @ http://www.newsleecher.com/?usenet ------------------- ----- ---- -- - Tag: What is the most efficient way ... Tag: 410925
  - 23
    - MMC Images I'm currently working on an MMC snap-in that will contain 500+ items in the results pane. Once this happens the images I have set for each of the items turns into the default image for the mmc. The problem occurs, I believe, because of the way the mmc refreshes. The help I'm seeking is why this is happening, or even simple direction such as the name of the default image so I can search for help that way. Tag: What is the most efficient way ... Tag: 410923
  - 24
    - How do I make a gridview appear? I have a gridview that is dependent on a stored procedure that takes parameters. I bound it to a sqldatasource control, and then I made the sql data source parameters come from session variables. The problem is that setting the session variables to values has no effect on the grid view. It does not appear at all. One person suggested I force an execution of the 'select statement' of the gridview. There is a command such as : Gridview.select, but it takes arguments, and the arguments are of a type that I don't understand. Has anyone had experience with something like this? -- Marvin Tag: What is the most efficient way ... Tag: 410920
  - 25
    - Christian Dior Ladies Watches Dior Christal CD112114M001 - 3 - Christian Dior Ladies Watches Dior Christal CD112114M001 - 3 - Cheapest Watch Christian Dior Ladies Watches Dior Christal CD112114M001 - 3 Link : http://www.watchesprice.net/Christian-Dior-Ladies-Watches-Dior-Christal-CD112114M001-3-5141.html Cheap Watches Home : http://www.watchesprice.net/ Lower Price Christian Dior Brands : http://www.watchesprice.net/Christian-Dior-Watches.html Christian Dior Ladies Watches Dior Christal CD112114M001 - 3 --- one of best selling watches, it is crafted in high quality Watches. Christian Dior Ladies Watches Dior Christal CD112114M001 - 3 Description: Christian Dior watches - world luxury watches only made by the best Swiss watchmakers. Each in the Christian Dior watches is an original and exclusive creation, a timeless object, the reflection of a personality. Christian Dior Ladies Watches Dior Christal CD112114M001 - 3 Details: Brand: Christian Dior Band material: Steel Bracelet with grey sapphire crystal rank Case material: Steel 28mm Dial color: Silver Movement type: Quartz Water-resistant to 50 meters The Same Christian Dior Series : Dior Christal Ladies Watch CD113110M002 : http://www.watchesprice.net/Dior-Christal-Ladies-Watch-CD113110M002-5142.html Christian Dior Christal Ladies Watch CD113114M002 : http://www.watchesprice.net/Christian-Dior-Christal-Ladies-Watch-CD113114M002-5143.html Dior Christal Ladies Watch CD114318M001 : http://www.watchesprice.net/Dior-Christal-Ladies-Watch-CD114318M001-5144.html Christian Dior Ladies Watches Dior Christal CD112110M001 - 3 : http://www.watchesprice.net/Christian-Dior-Ladies-Watches-Dior-Christal-CD112110M001-3-5145.html Christian Dior Ladies Watches Dior Christal CD112111M002 - 3 : http://www.watchesprice.net/Christian-Dior-Ladies-Watches-Dior-Christal-CD112111M002-3-5146.html Dior Christal Ladies Watch CD112113M001 : http://www.watchesprice.net/Dior-Christal-Ladies-Watch-CD112113M001-5147.html Christian Dior Women's Black Leather Strap Watch #CD042110A001 : http://www.watchesprice.net/Christian-Dior-Womens-Black-Leather-Strap-Watch-CD042110A001-5148.html Christian Dior Ladies Watches Malice CD052180A002 - 3 : http://www.watchesprice.net/Christian-Dior-Ladies-Watches-Malice-CD052180A002-3-5149.html Tag: What is the most efficient way ... Tag: 410917

Does anyone know an efficient way to generate sound tones in Visual
Basic 2005/2008 so that I can specify:

- Pitch
- Duration
- Volume

... which uses the computer's soundcard (not the motherboard
speaker).?

From what I've seen, DirectX may be the only solution but even that
seems extremely cumbersome. I'm amazed that Visual Basic doesn't have
an easy way to do this. It was a lot easier on my Apple //c!

Thanks for any suggestions.

Top

Re: What is the most efficient way ... by kimiraikkonen

kimiraikkonen
Mon May 05 08:32:38 CDT 2008

On May 5, 4:00 pm, furytra...@gmail.com wrote:
> Does anyone know an efficient way to generate sound tones in Visual
> Basic 2005/2008 so that I can specify:
>
> - Pitch
> - Duration
> - Volume
>
> ... which uses the computer's soundcard (not the motherboard
> speaker).?
>
> From what I've seen, DirectX may be the only solution but even that
> seems extremely cumbersome. I'm amazed that Visual Basic doesn't have
> an easy way to do this. It was a lot easier on my Apple //c!
>
> Thanks for any suggestions.

You can use Windows Media Player SDK, can be used by adding ActiveX
control to your toolbox from COM tab(wmp.dll). It allows you to see
media duration and volume adjustment.

Onur

Top

Re: What is the most efficient way ... by furytrader

furytrader
Mon May 05 12:15:31 CDT 2008

Thanks, Onur, I'll check it out!

Top