Visual Basic

FirstPrevNext

Re: How I fill different image boxes through a loop VB.NET dan!sh 3-Aug-09 2:24 dan!sh 3-Aug-09 2:24  May be like this(in C#): ((PictureBox)(this.Controls["PictureBox"+i.ToString()]).Image Not sure if doing things like these are recommended. It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD Test For Null JasonD_S3-Aug-09 0:12 JasonD_S 3-Aug-09 0:12  I am looking to retrieve a value from an existing file and copy it to a new one, for the sake of a header. The value is a date. I am using a mix of old and new files, some have the information I need and it has to be copied to the new file, some older files don't and new data will need to be written in it's place to the header. The question is, can I use -> If ('Old Chicken' Is Nothing) Then 'Fill the freezer' Else 'Put Old Chicken In New Freezer' End If Or would it be sesible/is it acceptable to -> Try 'To put old chicken in new freezer' Catch As Exception 'Call it quits and just fill the freezer' End Try Any help would be greatly appreciated. Re: Test For Null dan!sh 3-Aug-09 0:21 dan!sh 3-Aug-09 0:21  The if/else approach. What if you get an exception in the try block? (Not because Old chicken is nothing but some other reason) It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD Re: Test For Null JasonD_S3-Aug-09 0:39 JasonD_S 3-Aug-09 0:39  Good good. I'm pretty new to programming and VB especially. I'm just worried that the if/else would just throw an error if the object I was trying to acquire did not exist at all and wasn't just empty. Thus the code would exit anyway, the try/catch would solve this. But yes, I take your point, if there was any other error in this snippet, it would be rather sidelined. Re: Test For Null dan!sh 3-Aug-09 1:01 dan!sh 3-Aug-09 1:01  Best would be to use if/else inside try/catch. It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD [Message Deleted] Johan Hakkesteegt3-Aug-09 1:05 Johan Hakkesteegt 3-Aug-09 1:05  [Message Deleted] Re: Test For Null JasonD_S3-Aug-09 1:15 JasonD_S 3-Aug-09 1:15  Maybe I should reword my question... All these answers are helpful (as a n00b anything that helps me learn is a good thing, so thanks). But when I test for the is MyChicken = 'null' (or similar), I get a NullReferenceException. I'm guessing because the old files header does not include a reference to the 'Chicken' I seek, so it looks for the chicken doesn't find it and exits code, saying it's not there, not even bothering to check for it's 'nullness'. I guess I mean... If MyChicken is there at all 'Put it in the freezer' Else 'Create a chicken and put in in the new freezer' End If If you'll excuse all the poultry references. Re: Test For Null Johan Hakkesteegt3-Aug-09 1:28 Johan Hakkesteegt 3-Aug-09 1:28  You're on the right track though. The best way to go is to start of with the Try Catch block and MsgBox(ex.ToString) in the Catch clause. Turning on line numbers in your code editor is also a good idea. Then when you get these NullReferenceExceptions, you'll know exactly which object is causing the error. Next thing is combining checks, on separate lines, so that you always first check for Is Nothing, and only then for anything else like null or empty strings, etc. My advice is free, and you may get what you paid for. Re: Test For Null JasonD_S3-Aug-09 1:55 JasonD_S 3-Aug-09 1:55  Thanks for the proTip. I'm testing the object key for 'is nothing', I figured it would be the best place to start, this is where I get the error, on the first line of said conditional (if null etc...). I have since discovered .contains, useful. Having jumped from C++/C all these VB short cuts and lack of pointers is giving me much fun/joy/sarcasm. Thanks for all your help though guys, there are some good snippets there. Re: Test For Null Kschuler3-Aug-09 8:01 Kschuler 3-Aug-09 8:01  Depending upon how you are pulling the value before comparing it, you may be able to check for nulls with the following statement: If myValue Is DBNull.Value Then 'Handle the Null value Else 'Value was not null End If Hope this helps. How do i Multiply Bytes w/o overflow (Like char in c++) ? Kobi_Z2-Aug-09 21:38 Kobi_Z 2-Aug-09 21:38  I try to translate code from c++ to vb6, in C++ i have: unsigned char a = 3 unsigned char b = 188 unsigned char c c = a^b I get an answer c = 191. I try the same in VB6 dim a as byte dim b as byte dim c as byte a = 3 b = 188 c = a^B I get Overflow How do i get the same result ? i tryed using combinations with MOD 256 but no success. thanks. Re: How do i Multiply Bytes w/o overflow (Like char in c++) ? Christian Graus2-Aug-09 22:00 Christian Graus 2-Aug-09 22:00  Well, your basic problem is that you're using VB6, which was always crap, and has been unsupported for a long time. Why are you still using it ? Christian Graus Driven to the arms of OSX by Vista. Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks. Re: How do i Multiply Bytes w/o overflow (Like char in c++) ? Kobi_Z2-Aug-09 22:25 Kobi_Z 2-Aug-09 22:25  Well, it is an additional feature im adding to a program allready written in VB6. the question is what would be easier, coverting the whole program to smth else or just trying to fix my problem. Re: How do i Multiply Bytes w/o overflow (Like char in c++) ? Christian Graus2-Aug-09 22:28 Christian Graus 2-Aug-09 22:28  It depends. If the program is going to live for a long time, I'd consider converting it to a real language. If all else fails, you can do what VB6 users always did, get a C++ dll to do the real work. I don't know why the operation you're trying is failing, I suspect the answer is that the ^ does something different in VB6 to c++. Christian Graus Driven to the arms of OSX by Vista. Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks. Re: How do i Multiply Bytes w/o overflow (Like char in c++) ? riced2-Aug-09 23:41 riced 2-Aug-09 23:41  IIRC it does. ^ in C/C++ is Bitwise Exclusive Or ^ in VB6 is exponentiation (raise to power) Regards David R --------------------------------------------------------------- "Every program eventually becomes rococo, and then rubble." - Alan Perlis Re: How do i Multiply Bytes w/o overflow (Like char in c++) ? dan!sh 2-Aug-09 22:43 dan!sh 2-Aug-09 22:43  "^" in C++ is bitwise XOR while in VB, it is power(exponent). Maybe that is the reason you are getting error. It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD Re: How do i Multiply Bytes w/o overflow (Like char in c++) ? Kobi_Z3-Aug-09 0:22 Kobi_Z 3-Aug-09 0:22  Yep, I eventually figured it out, im not so familiar with c++... thanks. Re: How do i Multiply Bytes w/o overflow (Like char in c++) ? KarstenK3-Aug-09 0:39 KarstenK 3-Aug-09 0:39  using VB6 is a real bad idea. Use some newer Versions as Vb.net. Always remember VB6 code isnt portable to VB.net, so VB6 is lost. Press F1 for help or google it. Greetings from Germany Which is the best and sure way to shutdown systems Amer Rehman2-Aug-09 20:55 Amer Rehman 2-Aug-09 20:55  Hi I need to shutdown remote systems running on windows xp with Dotnet Framework 1.1 installed. The user is limited on these machines. I have used the following methods to shutdown the systems. 1. wmi Dim oOS, oOperatingSystem As Object                         oOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")                         For Each oOperatingSystem In oOS                               oOperatingSystem.Win32Shutdown(nForcePowerDown)                         Next 2. shutdown.exe of xp The problem is using the wmi sometime fails for reasons I don't know. The other method needs Admin privileges. Which is also an overhead. What should I do? Use the API or there is some other way? Please help as search over internet has not helped me much. Thanks reman Re: Which is the best and sure way to shutdown systems Johan Hakkesteegt3-Aug-09 1:41 Johan Hakkesteegt 3-Aug-09 1:41  Let's just assume that your reasons for wanting to do this are entirely legitimate. Think about it, if it were possible to just shut down a remote system, without admin privileges, what would keep hackers from doing so? My advice is free, and you may get what you paid for. Re: Which is the best and sure way to shutdown systems Dave Kreskowiak3-Aug-09 2:03 Dave Kreskowiak 3-Aug-09 2:03  If you want to do remote shutdown, you need Admin privileges on the remote machine to do it. There is no way around it, for obvious reasons. A guide to posting questions on CodeProject[^] Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic      2006, 2007, 2008 But no longer in 2009... having problems (Public Shared Sub ShowTcpStatistics) Statement cannot within method body. End of method assumed// which is affecting my txtbox.Text that_dude_tj2-Aug-09 10:59 that_dude_tj 2-Aug-09 10:59  Imports System.Net Imports System.Net.NetworkInformation Imports System.Text Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click Public Shared Sub ShowTcpStatistics(ByVal version As NetworkInterfaceComponent) Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties() Dim tcpstat As TcpStatistics = Nothing txtbox.Text("") Select Case version Case (NetworkInterfaceComponent.IPv4) tcpstat = properties.GetTcpIPv4Statistics() txtbox.Text("TCP/IPv4 Statistics:") Exit Select Case (NetworkInterfaceComponent.IPv6) tcpstat = properties.GetTcpIPv6Statistics() txtbox.Text("TCP/IPv6 Statistics:") Exit Select Case Else Throw (New ArgumentException("version")) ' break; End Select txtbox.Text(" Minimum Transmission Timeout............. : {0}", tcpstat.MinimumTransmissionTimeout) txtbox.Text(" Maximum Transmission Timeout............. : {0}", tcpstat.MaximumTransmissionTimeout) txtbox.Text(" Connection Data:") txtbox.Text(" Current ............................ : {0}", tcpstat.CurrentConnections) txtbox.Text(" Cumulative .......................... : {0}", tcpstat.CumulativeConnections) txtbox.Text(" Initiated ........................... : {0}", tcpstat.ConnectionsInitiated) txtbox.Text(" Accepted ............................ : {0}", tcpstat.ConnectionsAccepted) txtbox.Text(" Failed Attempts ..................... : {0}", tcpstat.FailedConnectionAttempts) txtbox.Text(" Reset ............................... : {0}", tcpstat.ResetConnections) txtbox.Text("") txtbox.Text(" Segment Data:") txtbox.Text(" Received ........................... : {0}", tcpstat.SegmentsReceived) txtbox.Text(" Sent ................................ : {0}", tcpstat.SegmentsSent) txtbox.Text(" Retransmitted ....................... : {0}", tcpstat.SegmentsResent) txtbox.Text("") End Sub Re: having problems (Public Shared Sub ShowTcpStatistics) Statement cannot within method body. End of method assumed// which is affecting my txtbox.Text Christian Graus2-Aug-09 11:45 Christian Graus 2-Aug-09 11:45  You should buy a very basic book and work through it berfore continuing this task. You have a sub inside a sub. Remove the button4_click sub, or put an end sub at the bottom of it. Christian Graus Driven to the arms of OSX by Vista. Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks. Re: having problems (Public Shared Sub ShowTcpStatistics) Statement cannot within method body. End of method assumed// which is affecting my txtbox.Text Dave Kreskowiak2-Aug-09 11:46 Dave Kreskowiak 2-Aug-09 11:46  I think the cause of the error is really quite obvious. You didn't terminate your Protected Sub Button4_Click() method with an End Sub before you started with Public Shared Sub ShowTcpStatistics(). A guide to posting questions on CodeProject[^] Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic      2006, 2007, 2008 But no longer in 2009... txtbox.Text ="" Cannot refer to an instance member of a class from within a shared method or shared member initializerxt without an explicit instance of the class. that_dude_tj2-Aug-09 12:32 that_dude_tj 2-Aug-09 12:32  Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click ShowTcpStatistics(txtB.Text) End Sub Public Shared Sub ShowTcpStatistics(ByVal version As NetworkInterfaceComponent) Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties() Dim tcpstat As TcpStatistics = Nothing txtbox.Text = "" For Each tcp As TcpStatistics In tcpstat txtbox = tcp.ToString() Next Select Case version Case (NetworkInterfaceComponent.IPv4) tcpstat = properties.GetTcpIPv4Statistics() txtbox.Text("TCP/IPv4 Statistics:") Exit Select Case (NetworkInterfaceComponent.IPv6) tcpstat = properties.GetTcpIPv6Statistics() txtbox.Text("TCP/IPv6 Statistics:") Exit Select Case Else Throw (New ArgumentException("version")) ' break; End Select txtbox.Text(" Minimum Transmission Timeout............. : {0}", tcpstat.MinimumTransmissionTimeout) txtbox.Text(" Maximum Transmission Timeout............. : {0}", tcpstat.MaximumTransmissionTimeout) txtbox.Text(" Connection Data:") txtbox.Text(" Current ............................ : {0}", tcpstat.CurrentConnections) txtbox.Text(" Cumulative .......................... : {0}", tcpstat.CumulativeConnections) txtbox.Text(" Initiated ........................... : {0}", tcpstat.ConnectionsInitiated) txtbox.Text(" Accepted ............................ : {0}", tcpstat.ConnectionsAccepted) txtbox.Text(" Failed Attempts ..................... : {0}", tcpstat.FailedConnectionAttempts) txtbox.Text(" Reset ............................... : {0}", tcpstat.ResetConnections) txtbox.Text("") txtbox.Text(" Segment Data:") txtbox.Text(" Received ........................... : {0}", tcpstat.SegmentsReceived) txtbox.Text(" Sent ................................ : {0}", tcpstat.SegmentsSent) txtbox.Text(" Retransmitted ....................... : {0}", tcpstat.SegmentsResent) txtbox.Text("") End Sub

Last Visit: 31-Dec-99 18:00     Last Update: 27-Apr-24 8:17 Refresh ᐊ Prev1...976977978979980981982983984985 Next ᐅ

General    News    Suggestion    Question    Bug    Answer    Joke    Praise    Rant    Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.