Visual Basic Discussion Boards

VBDuncan14-Dec-04 1:24

14-Dec-04 1:24

Dear friends!
Does anyone know or even have tried to add "Find" form (like ctrl+F in Excell) in this grid? I would be very thankful for any help!!!

Multiple Return Types

nitin_ion14-Dec-04 0:35

nitin_ion

14-Dec-04 0:35

Is there any way that I can have multipule return Type for a function e.g. Function A can returns both Boolean and String or Integer.

Re: Multiple Return Types

Tom John14-Dec-04 1:12

Tom John

14-Dec-04 1:12

No, you cannot overload a procedure by only changing it's return type:

Rules of Procedure Overloading - MSDN[^]

However you can pass add additional parameters by reference (ByRef rather than the default ByVal) that are modified within the function and available in the calling code, the Graphics.MeasureString function is overloaded in this way to return the number of lines and characters fitted in addition to the return type of SizeF:

Graphics.MeasureString - MSDN[^]

Hope this helps.

Tom

Open Dialog Initial Directory

kenexcelon13-Dec-04 17:29

kenexcelon

13-Dec-04 17:29

How do you set the initial directory to my documents for Windows XP?

thanks

Re: Open Dialog Initial Directory

Tom John13-Dec-04 22:08

Tom John

13-Dec-04 22:08

kenexcelon wrote:
How do you set the initial directory to my documents for Windows XP?

Me.FolderBrowserDialog1.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
Me.FolderBrowserDialog1.ShowDialog()

Hope this helps

Tom

Re: Open Dialog Initial Directory

kenexcelon14-Dec-04 8:34

kenexcelon

14-Dec-04 8:34

Thanks a bunch. Worked like a charm.

Me.dlgOpen.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Personal)

Can you believe my vb teacher took off 20 points from my Word Processor project just because it didn't open from My Documents intitally. I think that was really steep.

How do u make a button link to a website?

Shrex13-Dec-04 10:25

Shrex

13-Dec-04 10:25

Hi guys,

i'm a beginner and my question might sound stupid but I have a button on my form and i want it to link to a website, how do i do it?

Re: How do u make a button link to a website?

Mekong River13-Dec-04 17:13

Mekong River

13-Dec-04 17:13

Try the following code in your button click event:

System.Diagnostics.Process.Start("http://www.thecompanyname.com")

A thousand mile of journey, begin with the first step.

APO-CEDC
Save Children Norway-Cambodia Office

Add zero to the front of a number

viettho13-Dec-04 8:27

viettho

13-Dec-04 8:27

Hi, i'm doing a project and I need to add 0 to the front of a number. Is there a way to format a number?

for example: 898 become 000898

If anyone could help me, I would appriciate.
Thank you.

Re: Add zero to the front of a number

Dennis C. Dietrich13-Dec-04 11:45

Dennis C. Dietrich

13-Dec-04 11:45

viettho wrote:
Hi, i'm doing a project and I need to add 0 to the front of a number. Is there a way to format a number?

for example: 898 become 000898

I assume you have some kind of variable where you store your number. Let's also assume this variable is an Int32 (Integer in Visual Basic). The easiest way is to use the method Int32.ToString(String)[^] and pass an appropriate NumberFormatInfo[^].

Dim myInt As Integer = 898
MessageBox.Show(myInt.ToString("D6"))

Best regards
Dennis

Re: Add zero to the front of a number

viettho13-Dec-04 12:04

viettho

13-Dec-04 12:04

thank you..it works.

Re: Add zero to the front of a number

Tom John13-Dec-04 22:22

Tom John

13-Dec-04 22:22

An alternate solution is to use the format function to ensure a number has an enforced number of characters:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vblr7/html/vafctFormat.asp[^]

Dim i As Integer = 898
MsgBox(Format(i, "00000#"))

Hope this helps

Tom

Re: Add zero to the front of a number

OICU81215-Dec-04 17:08

OICU812

15-Dec-04 17:08

Example:

Dim X As Integer = 827
TextBox1.Text = Format(x, "000000").ToString

UPLOAD CONTROL - HELP HELP - WHICH?

Purple Monk13-Dec-04 6:15

Purple Monk

13-Dec-04 6:15

Hi all,

Here's a quick question (well not that quick).

I have a drag and drop file upload control and am having an issue with the winsock control. Everything works fine on my LAN but nothing seems to work over the internet, the remote server keeps disconnecting, winsock error 10054 if anyone knows it.

As this became of great annoyance I have now coded the upload part in WinHTTP, Inet and finally xmlHttp30.

Note that the receiving end is written in ASP.NET and using a filestream to write the obtained stream to a file so all of the above methods work just fine (winsock only over LAN however).

The problem with the three later methods is that i cannot display the progress of the data sent as there are no events that i can see that display how much is sent and how much is to go (byte count).

In conclusion, what i need is either a way to stop the Winsock error occuring or another control that i can report back to the UI with the progresss?

Any ideas?

Any help greatly appreciated.

Print MsChart in VB.Net

Brightday13-Dec-04 5:19

Brightday

13-Dec-04 5:19

Is there anyone know how to print a mschart in vb.net? Please help.

Thanks.

Re: Print MsChart in VB.Net

Mekong River13-Dec-04 17:16

Mekong River

13-Dec-04 17:16

Do you want to print with the content of the for or not? If not (just print the chart) try to do it in crystal report instead.

A thousand mile of journey, begin with the first step.

APO-CEDC
Save Children Norway-Cambodia Office

Re: Print MsChart in VB.Net

Brightday14-Dec-04 3:35

Brightday

14-Dec-04 3:35

Yes, I want to print with contents. Any suggestion?

Thanks.

Re: Print MsChart in VB.Net

Mekong River14-Dec-04 11:04

Mekong River

14-Dec-04 11:04

Let try this code.[^]

A thousand mile of journey, begin with the first step.

APO-CEDC
Save Children Norway-Cambodia Office

Re: Print MsChart in VB.Net

Brightday15-Dec-04 2:45

Brightday

15-Dec-04 2:45

Thanks.

Help with a timeout function

Nilus13-Dec-04 1:24

Nilus

13-Dec-04 1:24

Help !!!

Situation: I running some vb to simulate key strokes into a order entry program. The program is running fine if the data's are ok which i want to enter. My problem is i can not check upfront if there are data's which the order entry program is not accepting. So my code is hanging.

Question: Do somebody know a function or how I timeout after a certain time if nothing is happen (program hangs) and stop my code and go do the error handling.

Thanks

Nilus

Re: Help with a timeout function

Dave Kreskowiak13-Dec-04 3:56

Dave Kreskowiak

13-Dec-04 3:56

There is no way to force a timeout like this. If your app hangs, so does your timeout code. Since your pushing keystrokes, there is no way to determine if what you pushed worked or not, so there is also no way of reseting the timeout.

The best way to do this is to validate the data BEFORE you send it to the other app.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

string manipultion

SelvaRavi13-Dec-04 0:43

SelvaRavi

13-Dec-04 0:43

i want to append a column of a table in a dataset as a string with out any loops

Ravi

Re: string manipultion

Dave Kreskowiak13-Dec-04 3:53

Dave Kreskowiak

13-Dec-04 3:53

What? Are you saying that you want to do something like this:

  Column1  Column2  Column3
     A1       B1       C1
     A2       B2       C2
     A3       B3       C3
     A4       B4       C4

String = C1C2C3C4

A loop would be the most efficient way to iterate through the datatable. What exactly are your asking?

And why does this smell like homework?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: string manipultion

kostasvel14-Dec-04 16:25

kostasvel

14-Dec-04 16:25

'Maybe it's example will help you
Dim ds As DataSet = New DataSet()
'If you have already a table use this method
Dim clm1 As DataColumn = ds.Tables("MyTable").Columns.Add("MyColumn", GetType(String))
'or if you want to create a new table with the column use the method below.
Dim clm2 As DataColumn = ds.Tables.Add.Columns.Add("MyColumn", GetType(String))
'The table take the default name like "Table1"
'I hope to helped you Ravi

Error in program

ShayShay12-Dec-04 23:35

ShayShay

12-Dec-04 23:35

This lab computes the amount of income tax that a person will have to pay, based on their salary
Whats wrong with this code? Is my calculations wrong?

Public Class FrmIncomeTax
Inherits System.Windows.Forms.Form

Private Sub FrmIncomeTax_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
Dim Salary As Integer
Dim Salary1 As Integer
Salary = lblResult.Text

Select Case Salary
Case Is <= 20000
Salary1 = Salary * 0.02
Case Is <= 50000
' 5% tax bracket
Salary1 = 400 + ((Salary - 20000) * 0.05)
Case Is <= 75000
' 10% tax bracket
Salary1 = 400 + ((Salary - 50000) * 0.1)
Case Is <= 297350
' 15% tax bracket
Salary1 = 400 + ((Salary - 75000) * 0.15)
Case Else
' 20% tax bracket
Salary1 = 400 + ((Salary - 100000) * 0.2)
End Select

txtSalary.Text = Salary1

End Sub
End Class ' FrmIncomeTax

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