|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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.....
|
|
|
|
|
You haven't shown us the code that is doing the serializing of the object...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dear mr Kreskowak,
I replied, but added the new code under my own posting thread 
Yours sincerely,
If you make something idiotproof, someone else will make a better idiot.....
|
|
|
|
|
So, As asked for: The serialazation process
Dim io As MemoryStream = New MemoryStream<br />
Dim SdServerSend As SerialClass.SerialDataPack = new SerialClass.SerialDataPack<br />
<br />
'-- set .plcname in serialized packet<br />
SdServerSend.PLCname = Form1.stTelemeOut.PLCname<br />
<br />
Dim Bf As BinaryFormatter = New BinaryFormatter<br />
<br />
'-- convert the file to send to a byte array<br />
Dim Br As New BinaryReader(File.OpenRead(filepath))<br />
Dim bytes() As Byte = Br.ReadBytes(Br.BaseStream.Length)<br />
Br.Close()<br />
<br />
'-- copy array to .file<br />
SdServerSend.File = bytes<br />
<br />
'-- serialize class to IO stream<br />
Bf.Serialize(io, SdServerSend)<br />
<br />
'-- writes IO to hdd<br />
Dim BW As New BinaryWriter(File.OpenWrite("C:\PLC\Listener\Received\temptest " & SdServerSend.Reason.ToString & " " & EventCounter & ".bin"))<br />
BW.Write(io.GetBuffer, 0, io.Length)<br />
BW.Close()<br />
<br />
'-- reset io.postion to 0<br />
io.Position = 0<br />
<br />
'-- send serialized data to listener<br />
Form1.ClientSocket.Send(io.GetBuffer, io.Length, 0)
If you make something idiotproof, someone else will make a better idiot.....
|
|
|
|
|
hi evry1,
i have to populate menus thru an Access database in VB 6.0
i know how to generate main menu and menu items at runtime in VB.NET, but what i want to know is that, how do i perform the same thing in VB 6.0?
there is no mainMenu property in a VB 6.0 form. Secondly i can add a menu item using a cotrol array of a menu, but this doesnt allow me to create a sub menu of a newly added menu.
Please help me!!!
thanx in advance
☺«««DTA»»»☺
|
|
|
|
|
To add submenus dynamically in VB6 you need to create a place holder top level menu and set it's Index property to 0. Then add sub menus by index.
|
|
|
|
|
Dear all,
Anyone can hide the tabpages in tabcotrol
Don't tell follows
Me.TabControl1.TabPages.Item(0).Visible = False
This is not working
And also can you draw line on tabpages
rugfy
Ishak
|
|
|
|
|
rugfy wrote:
Anyone can hide the tabpages in tabcotrol
You cannot hide the page, but you can use the TabPages collection of the Tab Control to remove the page altogether.
If you need to be able to add the TabPage back dending on some condition, you can save the TabPage in a Collection before you remove it. Because adding the page back in order is a hassle, the easiest thing to do is when you initialize the form, add all TabPages to the collection in the correct order. Then if you remove a TabPage and need to add it back later, just remove all TabPages and then replace them all in order from the collection.
Of course, you will lose any data that has been entered if you use this approach, so you may have to add additional code if you need to maintain the data state...
You can draw a line on a TabPage using the Graphics object. However, if you are going to be removing tabpages at run time, the events could get complicated. The easiest way to create a line is to create a Panel on the tab page, set it's BackColor to the color of the line you want, and set it's height to 1 pixel.
|
|
|
|
|
Thanx a Lot
But I don't need it ,My actual Think is i want to give the distance between two pages like seperator in toolbar for some elegant look.thats all.In this case my doubt is whats the use of
Tabcontrol.Tabpages(0).Vaiable = False
Does it doing nothing Thats Why
Any way Once Thanx For your reply
Ishak
|
|
|
|
|
Is there any way to the following?
I put a DVD in my dvd drive
some VB.net code detects that I put something in there
some more code detects that it's a dvd
Thanks
|
|
|
|
|
n/m. found something that will work
|
|
|
|
|
A very simple way is to use a Timer tick and check if the logical drive that points to that root directory/drive exists. This way you will know if something is present your drive
By DVD do you mean a DVD-Data disc (4.37GB) or DVD-Video disc?
|
|
|
|
|
dim cdDrive as Boolean
....
Private Sub Timer_Tick
cdDrive = System.IO.Directory.Exists(<cd dvd="" drive="" path="">)
End Sub
......
This is a very crude form but will tell if you there is media in your drive
|
|
|
|
|
Im having problems When trying to use VB as interface and use matlab
to run the code. My code is actually in Matlab form coz it related to
the neural network. And i've tried this link but i cant get the
solution also.
http://www.mathworks.com/access/helpdesk/help/techdoc/matlab_external/ch07cl25.html#133975
Does any one know how to use the VB to pass the value to Matlab and
execute a Matlab code
Below is the code that i wrote. But it just show me the rror that the
object does not support this method or property.
Set MatLab = CreateObject("matlab.application")
'string to pass to Matlab to run mFile from mfile directory
MatLabCommand = "run('" & initDirectory & startMfile & "')"
'execute matlab command
With MatLab
Visible = False
Result = .Execute(MatLabCommand)
End With
*Call MatLab.PutWorkSpaceData("MatlabCommand", "PlateNum", PlateNum)
startMfile = init.m
i've tried to remove the Call in * line but it shown me syntax error.
Hope that anyone can help.
Thank you
Best regards
|
|
|
|
|
Hi,
I have a lot of textbox in a lot of forms (vb.net winform)
if all my textbox have an event "Validating" how can i raise this event if the user don't enter in a textbox (focus) 
Thanks
Dan
|
|
|
|
|
Why would you want to ? If they never enter the textbox, you KNOW if it's valid or not, right ?
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
nop!
If I put some code in the validating event ... i don't want to put again some code in the button_click event (check if some textbox is empty) you see???
Dan
|
|
|
|
|
In that case you need a requiredfieldvalidator. If you're in a winforms app, you may need to force validation on a button press, as the model is not as clear as ASP.NET
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
ok Thanks Christian
I have 2 years experiences with asp.net but only 1 month with WinForms .... Why asp.net have a lot of validators and not in WinForms we need to code every thing :S
|
|
|
|
|
Because in WinForms we have state, we're *able* to program a lot more.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
You might want to take a look at an article on MSDN, called Validator Controls for Windows Forms[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thank you Dave excellent article
Dan
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
