Visual Basic

Re: Resolution Problem Pls Help

11-Jun-07 18:06

Try docking your controls so that they maintain equal amount of form space.

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

Christian Graus11-Jun-07 19:50

Christian Graus

11-Jun-07 19:50

You need to set the anchor property on your controls, so they size themselves automatically.

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Date

Socheat.Net11-Jun-07 17:24

11-Jun-07 17:24

HI, I have problem don't know what to do? I want to substract date, example.

Date July/07/07
Date Today June/12/07
Result "Date - Date Today" , What do i do?
I want to get result of the day "Left 25 days"

Socheat

................

MatrixCoder11-Jun-07 17:29

11-Jun-07 17:29

You would use the DateTime.Subtract method.

Dim StartDate As New System.DateTime(2007, 6, 11, 12, 0, 0)
Dim EndDate As New System.DateTime(2007, 7, 12, 12, 0, 0)

Dim TotalDate As System.TimeSpan
TotalDate = EndDate.Subtract(StartDate)
MsgBox(TotalDate.TotalDays & "Days Left")

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

Socheat.Net11-Jun-07 17:37

11-Jun-07 17:37

I get an error.
Type "System.TimeSpanTotalDate" is not defined.

So what can i do?

Socheat

................

MatrixCoder11-Jun-07 17:39

11-Jun-07 17:39

It should work. Could you please post your code?

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

Socheat.Net11-Jun-07 17:51

11-Jun-07 17:51

It work now.

Dim StartDate As New System.DateTime(2007, 6, 11, 12, 0, 0)
Dim EndDate As New System.DateTime(2007, 7, 7, 12, 0, 0)
Dim TotalDate As System.TimeSpan = EndDate.Subtract(StartDate)
response.Write(TotalDate.TotalDays & " days left")

By the way I want to get day and time left like N7W "24 days nad 2hours left"

Socheat

Sathesh Sakthivel11-Jun-07 18:08

Sathesh Sakthivel

11-Jun-07 18:08

substituting minutes, seconds, days, or whatever interval you are looking for in the place of 'hours'. Well, in Visual Basic .NET there are two main ways to achieve this result; the DateDiff function or through the TimeSpan structure.

Both of these methods are equally valid, where they overlap in functionality, but each of them has a couple of unique features. Despite their similar functions, the core difference between the two is that DateDiff is a function, so you need to call it every time you need to retrieve a value, whereas TimeSpan is a structure that is created once and then you just work with its various members as needed.

Using DateDiff, you call it with different date interval parameters to retrieve the appropriate value:

Dim D1, D2 As Date
D1 = Date.Now
D2 = 11/9/2007 'DateDiff
Console.WriteLine("DateDiff")
Console.WriteLine()
Console.WriteLine("{0} Days", _DateDiff(DateInterval.Day, D1, D2))
Console.WriteLine("{0} Hours", _DateDiff(DateInterval.Hour, D1, D2))
Console.WriteLine("{0} Minutes", _DateDiff(DateInterval.Minute, D1, D2))
Console.WriteLine("{0} Seconds", _DateDiff(DateInterval.Second, D1, D2))
Console.WriteLine()

Hope this code will Help you.

Regards,

Satips. Rose | [Rose]

Socheat.Net11-Jun-07 18:34

VS2005...Weird Speed Issue

11-Jun-07 18:34

Conversion from 'Double' to 'Date' requires calling the 'Date.FromOADate' method.

Please help me

Socheat

Polymorpher11-Jun-07 17:02

Polymorpher

11-Jun-07 17:02

Hey guys I'm writing a program in VS2005 using VB.NET...I'm having a very strange issue. I'm running a fairly lengthy process where I show a progress bar and an estimation of the time remaining...when I run my project while VS is open, the process runs at a normal pace, even if i start the process from the bin and not from VS itself...if i kill VS and then run the process, it becomes unbelievably slow, has anyone else had this problem? Any ideas on how to fix it?

Apparently it's not OK to start a bonfire of Microsoft products in the aisles of CompUSA even though the Linuxrulz web site says so

Johan Hakkesteegt12-Jun-07 2:28

Johan Hakkesteegt

12-Jun-07 2:28

Have you tried running the process, with all antivirus programs unloaded ?

My advice is free, and you may get what you paid for.

Polymorpher12-Jun-07 6:57

Polymorpher

12-Jun-07 6:57

I don't use any anti virus software, I us a disk image that I can dynamically add to, so any time I get a virus or anything of that sort, I just reinstall off of my image...takes about 5 minutes.

It almost seems that VS somehow gives .NET processes a boost or something...I'm not sure. It's very strange, but the rate of speed is drastically different when not running VS, so much so that I think it would almost make the program unusable unless VS was running in the background the entire time...The tool is a data transfer program for SQLServer 2005. On average with VS running, it transfers roughly 150 records per second...when i shut VS down, the rate drops to roughly 20 records per second.

Apparently it's not OK to start a bonfire of Microsoft products in the aisles of CompUSA even though the Linuxrulz web site says so

Polymorpher13-Jun-07 16:31

Polymorpher

13-Jun-07 16:31

Hmmm I figured it out...It is because with VS open I also have a live connection to my database...if i leave my connection open instead of closing it each time i have finished transferring data i don't have this issue. seems a little strange considering connection pooling is supposed to help with this, but apparently doesn't help all that much.

Apparently it's not OK to start a bonfire of Microsoft products in the aisles of CompUSA even though the Linuxrulz web site says so

Johan Hakkesteegt13-Jun-07 20:47

Johan Hakkesteegt

13-Jun-07 20:47

Generally speaking, when using databases it is always faster to have as few separate calls and as few separate connections to the db as possible. Don't know why, but so I hear, and so I have experienced myself.

Good to hear your problem was solved

Johan

My advice is free, and you may get what you paid for.

Add New Field

Socheat.Net11-Jun-07 17:02

11-Jun-07 17:02

Hi, Can anyone give me an example to create new field to table in Ms Access with VB.NET?

Socheat

................

Re: Add New Field

MatrixCoder11-Jun-07 17:13

11-Jun-07 17:13

Google works wonders: VB.Net Create MS Access Field Wink | ;)

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

Re: Add New Field

Socheat.Net11-Jun-07 17:26

11-Jun-07 17:26

I have tried already, but not found.

Socheat

................

for next loop [modified]

RoedRunner11-Jun-07 16:45

RoedRunner

11-Jun-07 16:45

While I understand how to use a for next loop, I cannot work the integer (eg. 1 to 10) into the name of an object. For instance, I would like to create a for next loop for the following code

ckfld1.Checked = False
ckfld2.Checked = False
ckfld3.Checked = False
ckfld4.Checked = False
ckfld5.Checked = False
ckfld6.Checked = False
ckfld7.Checked = False
ckfld8.Checked = False
ckfld9.Checked = False
ckfld10.Checked = False

Could someone show me how to do this?

I tried the following but it does not work.

For x As Integer = 1 To 10
dim c as new checkbox
c.name = "ckfld" & x
c.checked = false
Next

Any help is appreciated. I am using vs 2005.

Thanks

Marc

-- modified at 23:05 Monday 11th June, 2007

MatrixCoder11-Jun-07 17:10

11-Jun-07 17:10

Try this instead:

For Each Box As CheckBox In Me.Controls
Box.Checked = True
Next

This finds all CheckBoxes in your form and checks them. You can also do the same using a Panel or GroupBox.

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

RoedRunner11-Jun-07 17:16

RoedRunner

11-Jun-07 17:16

The problem is that there will be checkboxes that should not be affected by the for next loop, which is why I was trying to accomplish this the other way.

Is it possible to do it the other way?

MatrixCoder11-Jun-07 17:18

11-Jun-07 17:18

In that case you would put the CheckBoxes you do want to be checked in a Panel.

Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.

Tirthadip11-Jun-07 19:10

Tirthadip

11-Jun-07 19:10

Firstly you have many checkboxes....I want to know whether you have maintained the same convention while naming your checkbox control....i.e ckfld1,ckfld2,ckfld3,ckfld4...????

If a specific set of checkboxes are to be unchecked then matrixcoder has rightly said to put your checkboxes in a Panel.Then you can write

For Each ctrl As Control In Panel1.Controls<br />
CType(ctrl,CheckBox).Checked=False<br />
Next

Other wise you have to Split the ID of your checkboxes to have the number....you can use Substring method of string Class to do that. After that you can use that number in a For-Each loop to uncheck your CheckBoxes.But it should be a second choice I think.

Tirtha

Do not go where the path may lead, go instead where there is no path and leave a trail.

Author: Ralph Waldo Emerson (1803-82), American writer, philosopher, poet, essayist

Duane in Japan12-Jun-07 21:09

Duane in Japan

12-Jun-07 21:09

Do you actually need to loop through the same set of chkboxes, the exact same set each time or is it a random selection?

Private Sub TextBox29_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox29.Validating
Dim Box26 As Double = 0
Dim Box29 As Double = 0
TextBox29.SelectAll()
Dim response As MsgBoxResult
If TextBox29.Text.Length = 0 Then
MsgBox(("A 'B5' value is required." & vbCrLf & _
"Would you like to add more input"), MsgBoxStyle.YesNo)
If response = MsgBoxResult.Yes Then
e.Cancel = True
Else
e.Cancel = False
TextBox28.Text = 0
TextBox31.Text = 0
TextBox32.Focus()
End If
ElseIf Not IsNumeric(TextBox29.Text) Then
MsgBox("This 'B5' value is not numeric.", MsgBoxStyle.Exclamation)
e.Cancel = True
ElseIf CheckBox10.Checked Then
e.Cancel = False
Else
Box26 = CDbl(TextBox26.Text)
Box29 = CDbl(TextBox29.Text)
TextBox27.Text = CStr(Box29 + 1)
TextBox28.Text = CStr(Box26 - Box29)
End If
'If Box29 <= 0 Then
' MsgBox("Your 'B5' value must be greater than zero.", MsgBoxStyle.Exclamation)
' e.Cancel = True
'End If
TextBox35.Clear()
TextBox36.Clear()
TextBox37.Clear()
TextBox38.Clear()
TextBox39.Clear()
End Sub

Notice above:

ElseIf CheckBox10.Checked Then
e.Cancel = False

I have a total of 10 chkboxes and I will check them at complete random depending on the current scenario, and the scenarios are never the same. Later down in the code I just turn off all chkboxes but I could program only certain ones if needed. This is a NOOBs rendition.

Private Sub TextBox39_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox39.Validating
Dim Box35 As Double = (TextBox35.Text)
Dim Box36 As Double = (TextBox36.Text)
Dim Box37 As Double = (TextBox37.Text)
Dim Box38 As Double = (TextBox38.Text)
TextBox39.Text = CStr((Box35 + Box36) + (Box37 - Box38))
If CheckBox1.Checked Then
TextBox4.Text = TextBox39.Text
TextBox8.Focus()
End If
If CheckBox2.Checked Then
TextBox7.Text = TextBox39.Text
TextBox11.Focus()
End If
If CheckBox3.Checked Then
TextBox10.Text = TextBox39.Text
TextBox14.Focus()
End If
If CheckBox4.Checked Then
TextBox13.Text = TextBox39.Text
TextBox17.Focus()
End If
If CheckBox5.Checked Then
TextBox16.Text = TextBox39.Text
TextBox20.Focus()
End If
If CheckBox6.Checked Then
TextBox19.Text = TextBox39.Text
TextBox23.Focus()
End If
If CheckBox7.Checked Then
TextBox22.Text = TextBox39.Text
TextBox26.Focus()
End If
If CheckBox8.Checked Then
TextBox25.Text = TextBox39.Text
TextBox29.Focus()
End If
If CheckBox9.Checked Then
TextBox28.Text = TextBox39.Text
TextBox30.Focus()
End If
If CheckBox10.Checked Then
TextBox31.Text = TextBox39.Text
TextBox32.Focus()
End If
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
CheckBox7.Checked = False
CheckBox8.Checked = False
CheckBox9.Checked = False
CheckBox10.Checked = False

TextBox35.Visible = False
Label35.Visible = False
TextBox36.Visible = False
Label36.Visible = False
TextBox37.Visible = False
Label37.Visible = False
TextBox38.Visible = False
Label38.Visible = False
TextBox39.Visible = False
Label39.Visible = False
End Sub

I have no naming conventions in my first project here and I am sure there are much better ways of doing my project but its my first attempt with minimal help. YES I unchecked all chkboxes but can code only ones needed at any point in the code blocks. If...Then or If...Then...Else statemants can do your work too to handle different scenarios, of course we do not know exactly what you are working on here.

Remember, I am a NOOB.

Training, http://msdn2.microsoft.com/en-us/library/system.windows.forms.checkbox.checked(VS.80).aspx