|
 can anyone answer to me?
how can i get info of my connection? like sent or received bytes and pockets, how much is it connected and other info? and how can i connect to adsl trough my application, i am currently connecting through shortcut of connection which is on my desktop so i use:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start(Environment.SpecialFolder.Desktop + "\Adsl.lnk")
End Sub
This works but i want that in my app i can chose from combobox which connection i want to connect to and that it gets connections that are stored in control panel or whatever and that i connect directly so i don't have to create shortcuts, and that i can see info about connection ad that i can disconnect through a button and other stuff... Pleaseeeeeeeee Help!
Thanks for any help...
|
|
|
|
|
|
not really but thanks for giving even a little help... ![Beer | [beer]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/beer.gif)
|
|
|
|
|
I am trying to set a status column equal to 1 or 3 if it contains certain text in the lineitemnotes column. For example, if lineitemnotes contain the text "refunded" then the status is equal to 1 and if lineitemnotes contain the text "Added During Receiving" then status equal to 3. The problem I am having is it will set the first column with the text "refunded" and all the other stauts columns to 1 until it hit the column with the text "Added During Receiving" then all the status columns will be set to 3. However, I only want the status column to be 1 if the lineitemnites column contains the text "refunded" and status column equal to 3 if lineitemnotes column contains "Added During Receiving". Hope this is understandable. Here is my broke code to give an idea of what I am trying to do.
If Trim(row("wtnumber").ToString()) & Trim(row("wtcustomername").ToString()) = "" Then
If Trim(row("lineitemnotes").ToString.Contains("Refunded")) Then
customername = "Refunded"
status = "1"
ElseIf Trim(row("lineitemnotes").ToString.Contains("Added During Receiving")) Then
customername = "Stock"
status = "3"
End If
End If
I don't know if the contains command is correct or not. Any ideas will help.
jds1207
|
|
|
|
|
What is customername? A String variable? A column name?
Nate Lindley
|
|
|
|
|
customername is a string variable.
Dim customername As String
Dim status As String = vbEmpty
|
|
|
|
|
If the lineitemnotes column will be exactly 'Refunded' or 'Added During Recieving' then try this:
If Trim(row("wtnumber")).ToString() & Trim(row("wtcustomername")).ToString() = "" Then
If Trim(row("lineitemnotes")).ToLower() = "refunded" Then
customername = "Refunded"
status = "1"
ElseIf Trim(row("lineitemnotes")).ToLower() = "Added During Receiving" Then
customername = "Stock"
status = "3"
End If
End If
What exactly are you doing with the variables after you set them each time? If you're trying to iterate through a table and set the fields of the rows (customername, status) then you should be putting this code inside a For Each loop and either submitting each row individually or updating at the end via a dataset. This code should work though as far as checking the row's column for a certain value.
Nate Lindley
|
|
|
|
|
The variables are being inserted into a MySQL database. I am using a For Each Loop. Here is the code:
For Each row In dtTable.Rows
If row("WTNumber").ToString() = "" Then
SoNum = vbEmpty
Else
SoNum = row("WTNumber").ToString()
End If
If Trim(row("wtnumber").ToString()) & Trim(row("wtcustomername").ToString()) = "" Then
If Trim(row("lineitemnotes").ToString.Contains("Refunded")) Then
customername = "Refunded"
status = 1
ElseIf Trim(row("lineitemnotes").ToString.Contains("Added During Receiving")) Then
customername = "Stock"
status = 3
Else
customername = "Stock"
status = 3
End If
End If
Next row
|
|
|
|
|
No, the lineitemnotes column will not be exactly 'Refunded' or 'Added During Recieving', it comtains othe data too.
|
|
|
|
|
I was wondering if you can add a custom class to the My.Settings object. I mean I know you can because I did, but the problem I'm having is the class won't persist ie. the data isn't saved. The only requirment (I thought) was that the object needed to be serializable, which mine is. So am I doing something wrong, or is this just not an option. I looked for a while but just couldn't find an answer or an example. Also as a general rule, if there even is one, what kind of data should I save using the my.settings object? Should I just stick with basics like form location and color settings or is it appropriate to store whatever you want as long as you wish to store it in an xml format?
Here is a very simple class I made for testing.
<Serializable()> _
Public Class TestClass
Public Name As String
Public Sub New(ByVal name As String)
Me.Name = name
End Sub
End ClassThis is the code I used to extend My.Settings object.
Namespace My
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(Nothing)> _
Public Property MyTestClass() As TestClass
Get
Return CType(Me("MyTestClass"), TestClass)
End Get
Set(ByVal value As TestClass)
Me("MyTestClass") = value
End Set
End Property
End Class
End Namespace
|
|
|
|
|
wrote: to anyone who has encounter appforge
If you're asking about something obscure, all the more reason to put it in your subject line, so the subset of CPians who can help, will see it. imagine how useful it would be if all the subject lines were variations on 'help help help'
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
Is there a way to put a random letter in a set of labels in vb.net 2005, for example, when i load a program, a different set of letters will show up, only single letters, but different each time???
I want the letters to be from a-z, and be different each time for 10 different labels.
I know you can do random numbers, i wasnt sure about letters, and how they would be stipulated.
Cheers
|
|
|
|
|
just like you doo with numbers... i supose that you need that for joke or some fun...
Private Sub Timer Tick
dim i as integer=random number
GetLatter(i)
End Sub
private sub GetLatter(Byval xInput as integer)
if xInput=0 Then
label1.text="A"
elseif xInput=1 Then
label1.text="B"
End if
End Sub
Hope you understand... :->
|
|
|
|
|
I dont get it!
So your declaring i as an integer, but what is that used for?
Also dont get the get latter bit, how do i loop this through all the letters of the alphabet?
Cheers for the quick response btw, im a bit of a noobie, go easy on me!
|
|
|
|
|
' Create an ArrayList and fill it with ASCII values
Dim salt As New ArrayList
For num As Integer = 65 To 90
salt.Add(num)
Next
Dim rand As New Random()
Dim iPos As Integer = 0
Dim cTemp As Char
While salt.Count > 0
' Get a random position within the ArrayList
' use the Random.Next(min, max)
iPos = CInt(rand.Next(0, salt.Count - 1))
' Retrieve the letter within the ArrayList
' using ArrayList.Item(iPos)
cTemp = Convert.ToChar(CInt(salt.Item(iPos)))
' TODO: cTemp holds your random letter
MsgBox(cTemp.ToString)
' Remove the letter within the ArrayList
' using ArrayList.RemoveAt(iPos)
salt.RemoveAt(iPos)
' Using the above statment will
' decrease the ArrayList.Count
End While
This might be a little easier to under stand. Good luck.
I'm listening but I only speak GEEK.
|
|
|
|
|
now im even more confused!
|
|
|
|
|
Create a random generator:
Dim rnd as New Random()
Get a random character:
Dim c as Char = Convert.ToChar(rnd.Next(65, 91))
Put it in a label:
OneOfMyLabels.Text = c.ToString()
Repeat the last two steps for each label.
---
single minded; short sighted; long gone;
|
|
|
|
|
Yours a star, but:
Do you mean like this:
Dim Chara As Char = Convert.ToChar(rnd.Next(98, 123))
Private Sub frmTestAllRows_Load(ByVal sender As System.Object...
lblLetter1.Text = Chara.ToString()
lblLetter2.Text = Chara.ToString()
lblLetter3.Text = Chara.ToString()
lblLetter4.Text = Chara.ToString()
Cos that makes all the labels the same value!
Also, is there any way to do this for 20labels, without having to write out the statement for linking to the rand for each one
-- modified at 15:20 Tuesday 6th February, 2007
|
|
|
|
|
It's obvious from your answers on this thread that you're pretty new to VB. If you're writing something for some fun, finish this project by all means, but then buy a good book on VB ( the language, not the forms designer ) and work through it.
harveyhanson wrote: lblLetter1.Text = Chara.ToString()
lblLetter2.Text = Chara.ToString()
lblLetter3.Text = Chara.ToString()
lblLetter4.Text = Chara.ToString()
Will obviously make them all the same value.
harveyhanson wrote: Convert.ToChar(rnd.Next(98, 123))
will generate a new random char every time you call it.
You can write code to iterate over the Controls collection and find textboxes and set them. I suspect this is beyond you, and I am not a VB.NET user, so I can't write an example that I can guarentee will work. The other alternative is to write this code for every label on your form, yes.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
harveyhanson wrote: Do you mean like this
No.
I wrote:
Repeat the last two steps for each label.
---
single minded; short sighted; long gone;
|
|
|
|
|
Just create a function that returns a random letter. You should do this.
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
label1.text = RandomLetter()
label2.text = RandomLetter()
'...
End Sub
Dim rnd As New Random
Private Function RandomLetter() As String
Return Chr(rnd.Next(97, 123)).ToString
End Function
Or if you want to dynamically find each label and assign it a random letter use this:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
RandomizeLabels(Me, "Label*")
End Sub
'---Assigns a random letter to each label who's name matches the given pattern---
Dim rnd As New Random
Private Sub RandomizeLabels(ByVal container As Control, ByVal pattern As String)
For Each ctrl As Control In container.Controls
Dim lbl As Label = TryCast(ctrl, Label)
If lbl IsNot Nothing AndAlso lbl.Name Like pattern Then
lbl.Text = Chr(rnd.Next(97, 123)).ToString
End If
Next
End Sub
The above code assumes the labels are on your form and not in another container like a panel. If they are then instead of passing 'me' you should pass the container control like 'panel1'. Also the pattern can be anything. Just give your labels a consistent name such as lblRandom1, lblRandom2...and use a pattern of "lblRandom*".
-- modified at 17:52 Sunday 18th February, 2007
|
|
|
|
|
Ok, ive sorted this:
Dim c1 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter1.Text = c1.ToString()
Dim c2 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter2.Text = c2.ToString()
Dim c3 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter3.Text = c3.ToString()
Dim c4 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter4.Text = c4.ToString()
Dim c5 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter5.Text = c5.ToString()
Dim c6 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter6.Text = c6.ToString()
Dim c7 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter7.Text = c7.ToString()
Dim c8 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter8.Text = c8.ToString()
Dim c9 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter9.Text = c9.ToString()
Dim c10 As Char = Convert.ToChar(rnd.Next(97, 122)) : lblLetter10.Text = c10.ToString()
Is there anyway to put this in a loop so it doesnt take up so many lines of code, i know im just being pedantic, just thought i would check!
|
|
|
|
|
|
Gotcha! Cheers.
Just final question, can you explain exactly what this line does, is it that if lblLetter is not empy and also has a name similar to lblLetter then...???:
If lblLetter IsNot Nothing AndAlso lblLetter.Name Like pattern Then
|
|
|
|
|
Actually it wasn't necessary to change the variable 'lbl' to lblLetter. What the function does is loops through every control on your form or whatever parent control you passed in. Every control weather it's a button, or textbox, or label inherits from the control class. TryCast attempts to convert the control to a label. If this succeeds then lbl will contain a reference to a label that's on your form. However, if the control is a button or some other control that isn't a label the cast will fail and nothing will be returned. So we need to check to make sure 'lbl' isn't nothing. The function accepts a pattern so you can limit which labels get random letters, otherwise all labels on the form would get a random letter which may not be desirable. So the second part of the if statement checks to see that the name of the label matches a given patter. In your case you've named your labels that get random letters as lblLetter1, lblLetter2 and so on. So you would pass in the pattern lblLetter*. Simply put with that pattern any label with a name that begins with lblLetter will get a random letter. Hope that clears that line up.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
