rosshodges

Thanks

Hi, I am looking for a sort of mentor that I can email to help me with simple questions. To save me posting stupid questions on here! It wont be all the time just when I am really stuck. If anyone can help mail me rosshodges@hotmail.com Thanks, Ross

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Label19.Text = "" Then MsgBox("Please enter Data") If Label19.Text Then Dim psInfo As New _ System.Diagnostics.ProcessStartInfo _ (Label19.Text) psInfo.WindowStyle = _ System.Diagnostics.ProcessWindowStyle.Normal Dim myProcess As Process = _ System.Diagnostics.Process.Start(psInfo) End If End Sub Depending on the value of the label I would like it to do different things. If Label19.Text = "" it shows the error message as it should but then continues to do the 2nd part. How can I teminate it after it has displayed the error message? I have tried end if but this doesnt work? Ross

I am trying to browse for a file then add it to a box of some description but I only want one file to be added.

Can I make a list box so its a single line and not multiple? If not what can I use that does the same job? Ross

Thanks Yeah thats works. Thanks! Ross

I have the following code Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFile1.ShowDialog() ListBox2.Items.Add(ListBox2.Text) End Sub It adds the file to the list box but it doesnt display the file name or path its just a blue line?! Any help is welcome! Regards, Ross

Any ideas what i can change it to? Or the only thing i am trying to do is stop the error appearing when it reaches the limit of 23:59:59 can you think of a way without using Resetnumber()? Regards, Ross

Any ideas what i can change it to? Or the only thing i am trying to do is stop the error appearing when it reaches the limit of 23:59:59 can you think of a way without using Resetnumber()? Regards, Ross

Calling I have have this code Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged Mydisplay() ResetNumber() If NumericUpDown2.Value > 59 Then NumericUpDown3.Value += 1 NumericUpDown2.Value = 0 'That as you can see makes the next NumericUpDown go up by 'one(its a count down timer HH:mm:ss but when it gets put up to '23:59:59 It doesnt no what to do and gives me an error. So i 'tried this Private Sub ResetNumber() If NumericUpDown1.Value = 23 And NumericUpDown2.Value = 59 And NumericUpDown3.Value = 59 Then NumericUpDown1.Value = 0 NumericUpDown2.Value = 0 NumericUpDown3.Value = 0 But it totally un does what I have done before!

Private Sub ResetNumber() If NumericUpDown1.Value = 23 And NumericUpDown2.Value = 59 And NumericUpDown3.Value = 58 Then NumericUpDown1.Value = 0 NumericUpDown2.Value = 0 NumericUpDown3.Value = 0 End If End Sub i was getting an error when puting my count down timer to 23:59:59 so i made this code but it doesnt work any ideas? Ross

Figured It It has to be HH instead of hh. Thanks for your help Ross

I have time code in my program but its all in 12 hour format. How can I change it into 24 hour time? Regards, Ross

Hi, Can someone please take a look at my project and see why when I Use the Numericupdown It jumps from 00:00:00 to 12:00 : (what ever value I put in). Also when it counts down to 00:00:00 I get an error! Regards, Ross project.zip

Icon The main icon. The one on the main exe.

How can i add a icon to my program i inserted it to the program and its on the left side with my other forms but it does not appear when i compile the program. ross

I have done all the basics on my countdown timer program. Private Sub Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leave.Click Me.Close() End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Dim frm As New About() frm.Show() End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Me.ShowInTaskbar = False Me.NotifyIcon1.Visible = True Me.Hide() e.Cancel = False End Sub Private Sub Tray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tray.Click Me.NotifyIcon1.Visible = True Me.Hide() End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Me.Close() End Sub Private Sub NotifyIcon1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown If Not Me.Visible Then Me.CenterToScreen() Me.Show() Me.Activate() Me.NotifyIcon1.Visible = False Me.ShowInTaskbar = False End If End Sub Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) If NumericUpDown2.Value = 59 Then NumericUpDown3.Value += 1 NumericUpDown2.Value = 0 End If End Sub Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged If NumericUpDown3.Value = 59 Then NumericUpDown1.Value += 1 NumericUpDown3.Value = 0 End If End Sub Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click If NumericUpDown3.Value > 0 Then NumericUpDown3.Value = 0 End If If NumericUpDown1.Value > 0 Then NumericUpDown1.Value = 0 End If If NumericUpDown2.Value > 0 Then NumericUpDown2.Value = 0 End If End Sub End Class I have one label for the time and hrs:mins:secs and 3 numericupdown boxs again hrs:mins:secs. I also have 3 timers hrs:mins:secs I dont no how to link the numericboxs up to the timer and make the label count down. Any ideas welcome Regards, Ross

It loads up in the sys tray on opening not when i minimize it. Any ideas? Ross

thanks that works! regards, ross

sorry to confuse you , its a countdown timer program. and the NumericUpDown boxs are the minutes seconds and hours . when the seconds get to 59 i want the minutes go to 1. i can do this with the code above but it only works from 59 secs to one min. not from 1min 59 until two and 2min 59 can anyone help i tried putting in (+1) instead of +1 but it gives and an error. Regards, Ross

I have this code Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick If Not Me.Visible Then Me.CenterToScreen() Me.Show() Me.Activate() Me.NotifyIcon1.Visible = False Me.ShowInTaskbar = True End If End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Me.ShowInTaskbar = False Me.NotifyIcon1.Visible = True Me.Hide() e.Cancel = True End Sub I Would like it when i click on a button for it to min to the sys tray. How can i do this i cant figure it out. Thanks, Ross

I have the following code Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged If NumericUpDown2.Value > 59 Then NumericUpDown1.Value = +1 NumericUpDown2.Value = 0 End If but it only makes NumericUpDown1 go up to 1 from 0 not from 1 to 2. I would like it to go like a timing device. So from 1 to 2 to 3 etc. NumericUpDown2.Value = secs NumericUpDown1.Value = minutes Regards, Ross

Can anyone recommend any free components to make a customised form (skin)?

Sorry to bother you yet again. I have two questions. Firstly I have a button how do I make it close just the form? and secondly I would like my dropdown menu(combo box) to display infomation e.g Freeserve but I would like the data for Freeserve to be smtp.freeserve.net Regards, Ross

Its ok I have solved the problem thanks for your help on the previous post.