Visual Basic

Re: How to show data in datagrid

15-Mar-05 9:08

I don't think you can do it without the two, if you are using database.

Please wait for another reply.

Dave Kreskowiak15-Mar-05 9:13

15-Mar-05 9:13

How else are you going to get the data out of the database?

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

Calling a button click

Suman Singh15-Mar-05 7:55

15-Mar-05 7:55

I am a new learner of VB.net.

Can anybody let me know, how to call a buton_click procedure on textbox.keypress event.

Suman Singh
suman9730@hotmail.com

Jim Matthews15-Mar-05 8:32

15-Mar-05 8:32

place the following line of code into your keypress event handler:

me.myButton.PerformClick()

-jim

Suman Singh15-Mar-05 8:54

15-Mar-05 8:54

Hi,

Thanks for your quick reply.

But how can I identify the button if i have 5 buttons on the form.

Please help again.

A learner this side.

Thanks!

Jim Matthews15-Mar-05 9:25

15-Mar-05 9:25

is it a situation where you want to perform a click on a particular button based on which text box has the focus?

if this is the case, just evaluate what you want to determine and perform a click on the appropriate button. for instance

Private Sub myKeyPressHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles myTextBox.KeyPress, 
someOtherTextBox.KeyPress, 
yetAnotherTextBox.KeyPress
      
If (Object.ReferenceEquals(sender, Me.myTextBox)) Then
   me.myButton.PerformClick()
elsif (object.ReferenceEquals(sender, me.someOtherTextBox))
   me.someOtherButton.PerformClick()
elseif (object.ReferenceEquals(sender, me.yetAnotherButton))
   me.yetAnotherButton.PerformClick()
else
   messagebox.show("It was yet even another textbox that received the text!")
End If

End Sub

hope this helps you out.

-jim

Suman Singh15-Mar-05 10:17

15-Mar-05 10:17

Thanks again Jim,

I want to press Enter key in textbox after giving my password (let say)

And by pressing Enter key, the code written in

Private sub Login_Validate_button(by val sender as object......)handles....

----
----
----

End Sub

get invoked.

How can I call this button procedure by pressing the Enter key in textbox.

Thanks !

Jim Matthews15-Mar-05 10:32

15-Mar-05 10:32

no problem Suman,

in this case, just handle the keypress as follows...

private sub txtPassword_KeyPress(byval sender as object, byval e as System.windows.forms.keyeventargs) handles txtPassword.KeyPress

   if (e.keycode=keys.enter) then
      me.btnLogin.PerformClick()
   end if

End Sub

when working with event handlers, always look to the event arguments for context specific data regarding the event being raised.

-jim

Loop Question

Makniteasy15-Mar-05 7:27

Makniteasy

15-Mar-05 7:27

i need to loop some rows in my datagrid to add them and show the total.
i am using:

<br />
Dim dr As DataRow<br />
        Dim Amount As Double = 0<br />
        For Each dr As System.Data.DataRow _<br />
        In ds.Tables(0)<br />
            dr = dr + ds.Tables(0).Rows.Item("Amount")<br />
        Next<br />
        Me.Text = ("My Balance $") & Amount.ToString<br />

everything is fine except the underlined part. it keeps saying that it is a member of system.data.datatable which is not a collection type. does anyone know what i am doing wrong?

Makniteasy

Jim Matthews15-Mar-05 8:30

15-Mar-05 8:30

Tables(0) is not a collection, it's a specific table.

...
For each r as Datarow in ds.Tables(0).Rows
...

by the way your initial declaration of dr is reduntant since you are initializing it again within your for statement. just thought i'd mention it.

-jim

Makniteasy15-Mar-05 8:42

Makniteasy

15-Mar-05 8:42

thanks that fixed that problem but now i have another:

<br />
 Dim Amount As Double = 0<br />
<br />
            For Each dr As DataRow In ds.Tables(0).Rows<br />
<br />
                dr = dr + ds.Tables(0).item("Amount")<br />
<br />
            Next<br />
            Me.Text = ("My Balance $") & ("Amount").ToString<br />

now this is underlined. i think im lost in the loop now.any more suggestions?

Makniteasy

Jim Matthews15-Mar-05 9:09

15-Mar-05 9:09

can you give us an idea of exactly what it is you're trying to do? the code you've provided doesn't really make much sense.

just a brief description should help.

-jim

Dave Kreskowiak15-Mar-05 9:11

15-Mar-05 9:11

You're not adding the amounts. You're actually trying to add a Column to a DataRow.
I think you're looking for:

Dim Amount As Double = 0
For Each dr As DataRow In ds.Tables(0).Rows
    Amount += dr.Item("Amount")
Next
Me.Text = "My Balance $" & Amount.ToString()

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

HTA and IsConnectible Ping

Makniteasy17-Mar-05 7:15

Makniteasy

17-Mar-05 7:15

thanks for the help. The help you provided was exactly what i needed. i was trying to get the amount column of a datagrid, for which the user enters the amount they paid, to show in the datagrid caption text when entered.
I am going to post another question so that you wont have to keep to returning this one.

thanks

Makniteasy

pn199515-Mar-05 3:32

pn1995

15-Mar-05 3:32

I'm having another issue with my little HTA application that I'm hoping you could advise on.

Basically when a user enters a PC name in a box and selects GO. I want the code to run a ping against the remote machine to see if it is online or not. Now in a normal vb script the IsConnectible ping check works great. However when called from within my HTA app it always come back and says that the PC is online.

Anyone know why its not working in the HTA?

This is my code...thanks

<title>System Information
<hta:application
="" id="objSysInfo" applicationname="System Information" scroll="yes" singleinstance="yes" windowstate="maximize">

Sub MainSub
On Error Resume Next

DataArea.InnerHTML= " "
sComputer = ComputerTextBox.Value
If sComputer = Empty Then
strHTML = strHTML & "Please Enter a Computer Name "
DataArea.InnerHTML = strHTML

Else
If IsConnectible(sComputer,"","") Then
strHTML = strHTML & "Computer is online"
Else
strHTML = strHTML & "Computer is offline"

End If
DataArea.InnerHTML = strHTML
End If

End Sub

Sub IsConnectible(sHost, iPings, iTO)
' Returns True or False based on the output from ping.exe
'
' Author: Alex Angelopoulos/Torgeir Bakken
' Works an "all" WSH versions
' sHost is a hostname or IP

' iPings is number of ping attempts
' iTO is timeout in milliseconds
' if values are set to "", then defaults below used

If iPings = "" Then iPings = 2
If iTO = "" Then iTO = 750

Const OpenAsDefault = -2
Const FailIfNotExist = 0
Const ForReading = 1

Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")
sTempFile = sTemp & "\runresult.tmp"

oShell.Run "%comspec% /c ping -n " & iPings & " -w " & iTO _
& " " & sHost & ">" & sTempFile, 0 , True

Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, _
FailIfNotExist, OpenAsDefault)

sResults = fFile.ReadAll
fFile.Close
oFSO.DeleteFile(sTempFile)
IsConnectible = CBool(InStr(sResults, "TTL="))

End Sub

Re: HTA and IsConnectible Ping

Dave Kreskowiak15-Mar-05 6:22

Re: need help: deserialise

15-Mar-05 6:22

You might want to check the contents of your Temp file that PING write first, before you delete it. I think the answer to your question will be in there.

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

need help: deserialise

Dahoolio15-Mar-05 3:14

Dahoolio

15-Mar-05 3:14

Can someone PLEASE look at the following code??

<code>
<Serializable()> _
Public Class SerialDataPack

Public Shared PLCname As String '-- PLC Station name
Public Shared Reason As Reasons '-- Enumerate of reason to send
Public Shared File() As Byte '-- File as bytearray

Enum Reasons
[STARTUP]
[EVENT]
[REQ]
[GENREQ]
End Enum

End Class</code>

i serialize the object, send it to the other client and do the following code:

<code>Dim filepath As String = "c:\PLC\Listener\Received\Temp " & EventCounter & ".bin"
'-- write this file to HDD location filepath;
Dim BW As New BinaryWriter(File.OpenWrite(filepath))
BW.Write(Buffer, 0, numbytes)
BW.Close()

'-- then read it back with binaryformatter
Dim bf As BinaryFormatter = New BinaryFormatter
Dim fs = New FileStream(filepath, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim SocketListenerSDRecv As SerialData.SerialDataPack
'-- similair to CType but faster runtime according to MSDN
SocketListenerSDRecv = DirectCast(bf.Deserialize(fs), SerialData.SerialDataPack)
fs.Close()</code>

when i DESERIALIZE the fs i get the folowing error (and CType spawns same error);

"The given conversion is invalid"

does someone has a suggestion, maybe i should re-implement my serializable class?????

If you make something idiotproof, someone else will make a better idiot.....

Dave Kreskowiak15-Mar-05 6:17