|
<font face="Courier New" size="2"><font color="blue">Dim</font> V_DuVin <font color="blue">As</font> Boolean<br><font color="blue">Dim</font> V_DatVin <font color="blue">As</font> Boolean<br><font color="blue">Dim</font> V_DinPoang <font color="blue">As</font> Integer<br><font color="blue">Dim</font> V_DatPoang <font color="blue">As</font> Integer<br><font color="#009999">'////BELOW WINDOWS GENERATED CODE AREA^^^^.</font><br><font color="blue">Private</font> <font color="blue">Sub</font> Button1_Click(ByVal sender <font color="blue">As</font> System.Object, ByVal e <font color="blue">As</font> System.EventArgs) Handles Button1.Click<br> V_DuVin = True<br><font color="blue">End</font> <font color="blue">Sub</font><br><br><font color="blue">Private</font> <font color="blue">Sub</font> Button2_Click(ByVal sender <font color="blue">As</font> System.Object, ByVal e <font color="blue">As</font> System.EventArgs) Handles Button2.Click<br>If V_DuVin = True Then<br> V_DinPoang = V_DinPoang + 1<br> ElseIf V_DatVin = True Then<br> V_DatPoang = V_DatPoang + 1<br> <font color="blue">End</font> If<br> MessageBox.Show(V_DinPoang)<br><font color="blue">End</font> <font color="blue">Sub</font></font>
you must have the items dimmed on a main part of the form , like just below the windows generated code , otherwise the values will reset each time if they are only declared in a sub.
<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
{
<font color="blue">switch</font>(twins)
{
<font color="blue">Case</font> ("twins on the way"):
MessageBox.Show("for mr and mrs dynamic","twins on the way");
<font color="blue">break</font>;
}
}
|
|
|
|
|
Thanks. The problems are solved.
//OT
|
|
|
|
|
<br />
Dim V_DinPoang As Integer<br />
Dim V_DatPoang As Integer<br />
Check the scope of these variables. Make them Global or Static
"It was when I found out I could make mistakes that I knew I was on to something."
-Ornette Coleman
|
|
|
|
|
I'm encountering a frustrating problem with my child windows. When the size of my Windows forms are 712w, 480h, all the controls contained in the forms are displayed correctly in Windows 2000. However, looking at these forms in Windows XP yields a different result. In Windows XP the controls (buttons) located at the bottom of the form are cut off. I have to resize the form to 712w, 490h for it to display correctly in Windows XP. Is there a difference in how the forms are measured between each operating system? Does this mean that I will have to detect which O/S my application is running on and adjust the form's height accordingly? The only difference I can see between the two O/S's is the hieght of their caption bar. XP's is taller because it implements that "bubble" style. However, I don't believe that the caption bar is included in the forms height value. Can anyone provide me with some insight into this issue.
Thanks,
Andrew
|
|
|
|
|
I have a BIG problem...
I am really stuck on how to achieve this for aa hotel booking application.
Here is a rate card for the hotel:-
Jan 8th - March 31st
Daily Rate = 19.00
Week Rate = 125.00
April 1st - June 30th
Daily Rate = 20.00
Week Rate = 130.00
July 1st - Sept. 17th
Daily Rate = 22.00
Week Rate = 140.00
Sept 18th - Dec 3rd
Daily Rate = 20.00
Week Rate = 140.00
Dec 4th - Jan 7th
Daily Rate = 21.00
Week Rate = 135.00
If someone stays for 10 days, they are charged a week rate and then 3 day rates... should someone stay for 14 days, they are charged 2 week rates, etc.
If someone wants to stay 1 week and that stay overlaps rate periods ie, from dec 1st then they are charged the week rate as it is on their arrival day. If they were staying for 2 weeks from dec 1st, then the 1st week would be at one rate and the second week at a different rate.
If someone was staying for 10 days for instance from dec 1st, then they would be charged 1 week @ 140.00 and 3 days at 21.00.
I hope the above is understandable.
If I know the start date and the end date, how the hell can work out the cost??
Any help would sure save me from buying more valium!!
Rob
|
|
|
|
|
I would make one function that returns the Daily Rate for any day in the year. Then another function that returns the Weekly Rate of any day in the year.
Then the function that calculates how much to charge the customer could simply take the check-in date and then start calling the Daily Rate function for every day he stays and add it up. When he has stayed one week I would delete the sum and instead take the weekly rate etc..
jhaga
CodeProject House, Paul Watson wrote:
...and the roar of John Simmons own personal Nascar in the garage. Meg flitting about taking photos.Chris having an heated arguement with Colin Davies and .S.Rod. over egian values. Nish manically typing *censur*. Duncan racing around after his pet *c.* Michael Martin and Bryce loudly yelling *c.* C.G. having a fit as Roger Wright loads up *c.* . Anna waving her *c.* and Deb scoffing chocolates in the corner.
...Good heavens!
|
|
|
|
|
How do i get the active window name
in vb.net ?
Thanks...
|
|
|
|
|
did you post this question on another site? if so i answered it on there :
http://pub13.ezboard.com/fvisualbasicexplorerfrm40.showMessage?topicID=692.topic[^]
<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
{
<font color="blue">switch</font>(twins)
{
<font color="blue">Case</font> ("twins on the way"):
MessageBox.Show("for mr and mrs dynamic","twins on the way");
<font color="blue">break</font>;
}
}
|
|
|
|
|
Hi.
I'm trying to watch the incoming traffic on a specific port. I would like to get the number of bytes received through this port at a given time.
That may be easy, but Ive made searches in tcplistener and socket classes and in system.diagnostics namespace and couldn't find out how to achieve this.
That would be great if someone could give me a few hints.
Thanx in advance.
|
|
|
|
|
i am also looking for this thing. i want to monitor how much traffic i do have on some port or how much traffic is there of some protocol.. i think SNMP implementation provides such solution but not sure.. so if u gotto know about it... plz also reply me on my email address.
sbk_one@yahoo.com
Thanx
Muhammad Shoaib Khan
http://geocities.com/lansolution
|
|
|
|
|
I have alot of experince with VB6 and qbasic parallel (real world) interfacing, but how do you do it in VB.net. I want to upgrade to VB.net on my robot i am building but I cant find any APIs to do it with. ITs running Win2000PRo OS with VB.net
Any help would be awesome...thanks in advace
|
|
|
|
|
I have written a remoting project for the 1000 (I stopped counting) time. And still I can't get the events to work... the rest works fine, but when I add an eventhandler to my app I get this error:
Cannot find the assemblu ChatClient, Version=.... Curlture=neutral, PublicKeyToken=null.
This is appearantly my client assembly, but I don't get it why!
Can somebody tell me what the problem is?
Code for the client:
<br />
channel = New TcpChannel<br />
<br />
ChannelServices.RegisterChannel(channel)<br />
<br />
mgr = CType(Activator.GetObject(GetType(ClassOne), "http://localhost:89/Chat.soap"), ClassOne)<br />
<br />
AddHandler mgr.OnTextReceived, AddressOf mgrTextReceived<br />
Code for the server:
RemotingConfiguration.Configure("chatserver.exe.config")
Greetings....
|
|
|
|
|
a BIG d0h for me :P
I found the solution and it was too obvious to be true 
Greetings....
|
|
|
|
|
Hi,
Is it some one out there who could please help me transelate this C# code to VB.NET?
int vPos=(index <= selectedBand) ? buttonHeight*index : buttonHeight*index+selectedBandHeight;
int height=selectedBand==index ? selectedBandHeight+buttonHeight : buttonHeight;
Thanks,
Richard
|
|
|
|
|
I believe that C# syntax can be accomplished with the IIf VB function.
Dim vPos as Integer = CInt(IIf(index <= selectedBand, buttonHeight * index, buttonHeight * index + selectedBandHeight))
Dim height as Integer = CInt(IIf(selectedBand = index, selectedBandHeight + buttonHeight, buttonHeight))
This code is off the top of my head and hasn't been tested, so be warned. 
|
|
|
|
|
Thanks Matt, it did work just fine!
|
|
|
|
|
Hello,
I am building an application that requires data to be entered into a control that looks like the Data Grid. Basically, it should mimic the functionality of entering data into MS Excel. I know the Data Grid is primarily used to display data binded to a data source, such as a DataSet. Is there any way to display a blank data grid and use it for data entry? If not, what do you experts suggest that I do to get the results I'm looking for?
One possible solution that I came up with was to bind the data grid to the table that the data is destined for. Next, I would add one row of text boxes that would represent each column below the grid. The user could then add the record to the data grid (and underlying table) by typing the details into the the textboxes below the grid, followed by clicking the "Add" button. However, a grid will not appear unless there is data in the underlying table to be displayed. The empty data grid control does not look attractive on a form.
I remember building an application in vb 6.0 where I got around this by placing textboxes over the cells of the data grid control. However, I can't remember exactly how I did this, or if it would even work with the .NET data grid control.
Any help would be greatly appreciated
|
|
|
|
|
I want to add a PictureBox to another form. But when I go from form1 to form2, the picture in form2 won't show. Why is this?
I use this code:
dim frmForm2 as new form
frmForm2.showdialog
I've also tried just frmForm2.show
What am I doing wrong?
Should I create a new picturebox in code?
I need sleep....zzzzzzzzzz
Thank you
The Jazz Master 6000
DJ Badknees
Parma Grind Crew - www.geocities.com/parmagrindcrew
|
|
|
|
|
here ya go :
VB:
<font color="blue">Private</font> <font color="blue">Sub</font> Button1_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button1.Click
<font color="blue">Dim</font> frm <font color="blue">As</font> <font color="blue">New</font> Form2() <font color="darkgreen">'/// must say as new Form2() not Form</font>
frm.Show()
<font color="blue">End</font> <font color="blue">Sub</font>
hope this helps.
<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
{
<font color="blue">switch</font>(twins)
{
<font color="blue">Case</font> ("twins on the way"):
MessageBox.Show("for mr and mrs dynamic","twins on the way");
<font color="blue">break</font>;
}
}
|
|
|
|
|
Thanks A Lot
The Jazz Master 6000
DJ Badknees
Parma Grind Crew - www.geocities.com/parmagrindcrew
|
|
|
|
|
I am handling an upgrade from VB6 to VB.NET and want to use the opportunity to improve coding standards and overhaul some old code.
I would like to use the MS Code Advisor to check up the code before going into the transition phase. To do this I would like to extend the set of rules to cover a much broader range of coding standard rules. Apparently the Code Advisor can be extended in two ways; first by using VBScript regexps, obviously somewhat limited in scope; second by implementing the IRuleHandler interface to add your own rule classes. However althought the first is copiously documented (no doubt because it is self-explanatory) the second receives no attention whatsoever, and I can't google it anywhere.
Does anyone, know of docs on the interface and the available support routines?
Thanks
Onuk
|
|
|
|
|
i have a program that goes into a folder looks into each subfolder and gets all the .jpg files and stores the file names in an array which i then use to insert the path into a msde database. My problem is either one of two things happen
1.the form freezes but the program still does what it needs to
2.or the program simply just freezes
the machine i am using has 1 ghz processor and 786 mb ram and my uses will not have computers even close to this so anybody have any suggestions?
|
|
|
|
|
|
you mean something like this :
VB:
<font color="blue">Private</font> <font color="blue">Sub</font> Button3_Click(<font color="blue">ByVal</font> sender <font color="blue">As</font> System.Object, <font color="blue">ByVal</font> e <font color="blue">As</font> System.EventArgs) <font color="blue">Handles</font> Button3.Click
<font color="blue">Dim</font> someStuff <font color="blue">As String</font>
<font color="blue">Dim</font> i <font color="blue">As Integer</font>
<font color="blue">For</font> i = 1 <font color="blue">To</font> 4
TextBox1.AppendText(someStuff & " : part : " & i & vbCrLf)
<font color="darkgreen">'/// do your stuff here .</font>
<font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>
putting your stuff to do where it says "TextBox1.AppendText"
<font color="blue">Private void</font> ExpectingTwins(<font color="blue">string</font> twins)
{
<font color="blue">switch</font>(twins)
{
<font color="blue">Case</font> ("twins on the way"):
MessageBox.Show("for mr and mrs dynamic","twins on the way");
<font color="blue">break</font>;
}
}
|
|
|
|
|
Thanks. But I don't quite understand how to implement that in my program. It's maybe best to show you the code in question.
<br />
Private Sub K_Sten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Sten.Click<br />
/.../<br />
End Sub<br />
<br />
Private Sub K_Sax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Sax.Click<br />
/.../<br />
End Sub<br />
<br />
Private Sub K_Pase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Pase.Click<br />
/.../<br />
End Sub<br />
<br />
Private Sub K_Klar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Klar.Click<br />
/.../<br />
End Sub<br />
<br />
Private Sub Huvud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
/.../<br />
End Sub<br />
<br />
Private Sub K_Ny_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_Ny.Click<br />
This is where I want to go back to: Sub K_Sten_Click; Sub K_Sax_Click; Sub K_Pase_Click; Sub K_Klar_Click.
All of my subroutines runs independent of each other.
<br />
<br />
Private Sub M_Avsluta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_Avsluta.Click<br />
/.../<br />
End Sub<br />
<br />
Private Sub M_Om_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M_Om.Click<br />
/.../<br />
End Sub<br />
//OT
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
