|
Will it be easy to disable the button when a new instance of the help window is opened and enable it when done with the help window.
"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder
coolestCoder
|
|
|
|
|
Yes, but how do i know whether the help window is opened or not - to enable/disable the button.
Be simple and Be sample.
|
|
|
|
|
Hi there
This is my first post on this excelent site. I have an application which today is a pretty standart application. Theres a form, and theres an object doing all the work.
Well, now i have to split it up. I have to make the work-process as a "server-side" service, or something similar.
And the interface a "client-side" interface, which can do some basic controlling of the "server-side application" and also receive status from the server.
The server can run on multiple machines, on multiple LANs, even on multiple Domains.
When i open the UI i have to be able to monitor each and every server, and the works thats being done there.
Now that interface... The interface can actually also be instantiated on multiple machines.
The server application is a production tool, used on plants throughout the world. Each plant can have X amount of machines running the production tool. Then let's say there as production planner who wants to monitor the production, localy at the plant. He logs on and receives messages from all the machines. He can also click on a process and end it (due to errors or what not).
Another chief of production planning at HQ also wants to see whats going on in Italy, but he resides in germany. So he also just opens his Interface.
I've thought about using Remoting or MSMQ. But if anyone has any other options for me to use, please tell me about it, and maybe refer me to some articles.
The application is developed in VB.Net.
|
|
|
|
|
I think you should use web services for this. The client application can be windows application or even a web application. If it is a web application then there is no need to install it on every client machine and it will be easier to maintain.
"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder
coolestCoder
|
|
|
|
|
Guys, I want to put my reports on a web service, or single network location, from where I will be able to download a copy of the report, then load it, at runtime to use in a desktop application.
I tried to use the DownloadFile method of WebClients to directly download the *.rpt file, but IIS is not returning the file – any suggestions?
Trying to use web browser or free download manager to see if I can download the file brings up an unknown server error. Permissions were changed to allow read & write, anonymous access granted, no change.
I also tried to use the publish as web service feature on the report, when i load the *Service.asmx file in a browser, I will see the shared methods of the report in the browser , but attempting to load the reportdocument with that url fails, attempting to download that file downloads the HTML source for the page viewed in the browser, which cant be used to load into reportdocument .
Am I trying to do the impossible here?
There's no dumb question
|
|
|
|
|
I have a project that uses a web service to download report files. So it is possible. One issue we had was that we had to setup the MIME type of .rpt in IIS of the machines that hosted the web service. It won't let users download a file that it doesn't recognize the extention of. You could test this theory by trying to download a .txt file (or other very common file extention type) instead and seeing if it works.
Hope this helps.
|
|
|
|
|
(VB.NET) Displaying data in combobox using oledbdatareader.
Thanks
|
|
|
|
|
Dim DBConnectionString As String = ""<br />
Dim MyTableName As String = ""<br />
Dim MyCommandText As String = ""<br />
Dim MyReader As System.Data.OleDb.OleDbDataReader<br />
Dim DBCommand As New System.Data.OleDb.OleDbCommand<br />
Dim DBConnection As System.Data.OleDb.OleDbConnection<br />
Dim MyDataSet As DataSet<br />
<br />
'Call some helper functions.<br />
DBConnection = GetConnection()<br />
DBConnectionString = GetConnectionString()<br />
<br />
'Set connection and open<br />
DBConnection.ConnectionString = DBConnectionString<br />
DBConnection.Open()<br />
<br />
'Set command.<br />
MyTableName = DBTableName.ToString()<br />
MyCommandText = " select * from " & MyTableName & " "<br />
DBCommand.CommandText = MyCommandText<br />
<br />
'Get a data reader.<br />
MyReader = DBCommand.ExecuteReader()<br />
<br />
‘Populate your combo with MyReader<br />
While MyReader.Read<br />
MyCombo.Items.Add(MyReader("FieldName"))<br />
End While
Tirtha
"A man can ride on your back only when it is bent....."
|
|
|
|
|
|
Hi i have intime(08:45) and outtime(20:16)=>24 hours format...,
Dim intime As DateTime
dim outtime as datetime
Dim tspan As TimeSpan = outtime.Subtract(intime)
use this i can get total work hours for a day shift..........,
suppose if its night shift.........,
intime(19:45) and outtime(08:00)=>24 hours format...,
then how i can get total work hours......,
plz help me..................
Magi
|
|
|
|
|
Not sure, but try this: Should return the absolute value of the time difference, regardless of negativity.
math.abs(tspan.hours)
Abs is short for absolute value (and it is an available math function), expressed in mathematics as |value|.
Eg.
|8| = 8
|-8| = 8
Posted by The ANZAC
|
|
|
|
|
hey i didnt ask how to show absolute value
see my ques is i have intime(19:45) and outtime(8:53)
so if i use time span then i am getting value (10:59)
but exact answer is (13:08)
now u got it my ques...........,
i need difference between two times.............
Magi
|
|
|
|
|
well subtract the intime(19:45) from (24:00) then add it to the outtime. This is the basic premise, i'll leave the task of applying it to your code, up to you.
Posted by The ANZAC
|
|
|
|
|
if u have the tspan established as the intime subtracted from the outtime then tspan should be accurate. Thats a little confusing. I'm not sure why this is happenning.
Posted by The ANZAC
|
|
|
|
|
ya it will give accurate time.........
when its in 00:00 to 23:59
but if ur input is night shift........
like what i said before intime(19:45) and outtime(08:16)
then its giving error output........,
i want exact output for night shift work hours......
Magi
|
|
|
|
|
How are you creating your date objects? If you created them correctly then the difference should be working without a problem. Look at this:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'T1 is March 20 2007, at 19:45
Dim t1 As New Date(2007, 3, 20, 19, 45, 0)
'T2 is March 21 2007, at 8:53
Dim t2 As New Date(2007, 3, 21, 8, 53, 0)
'The timespan is 13:08...which is correct
MsgBox(t2.Subtract(t1).ToString())
End Sub
If your still having trouble try posting a larger sample of code.
|
|
|
|
|
perviously I convert a byte array to string/text and store into database, like coding below:
cmd.Parameters("@LeadFormControls").Value = System.Text.Encoding.UTF8.GetString (bytLeadFormControls)
how do I convert back string/text back to a byte arrry when i retrieve it from database.
Any idea?
Angela
|
|
|
|
|
Typically, you'd use the StringBuilder[^]class.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Here is a class I found and modified to encrypt/decrypt. Hope it helps you.
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Public Class Encryption64
Private key() As Byte = {}
Private IV() As Byte = {&H11, &H22, &H33, &H44, &H55, &H66, &H77, &H88}
Public Function Decrypt(ByVal strToDecrypt As String, _
ByVal strEncryptionKey As String) As String
'*******************************************************
' This function will:
' - Accept a string and encryption key
' - Decrypt and return the string
'
' NOTE: If strToDecrypt is from a query string,
' the Request.QueryString will have replaced
' any '+' characters with a space.
'*******************************************************
Dim inputByteArray(strToDecrypt.Length) As Byte
Dim des As New DESCryptoServiceProvider()
Dim ms As New MemoryStream()
Try
'Set key
key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))
'Convert input string into byte array
inputByteArray = Convert.FromBase64String(strToDecrypt)
'Perform the decryption with memory stream object
Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
'Convert and return decrypted byte array in memory stream into string
Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
Return encoding.GetString(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
Public Function Encrypt(ByVal strToEncrypt As String, _
ByVal strEncryptionKey As String) As String
'***************************************************
' This function will:
' - Accept a string and encryption key
' - Encrypt and return the string
'***************************************************
Dim des As New DESCryptoServiceProvider()
Dim ms As New MemoryStream()
Try
'Set key
key = System.Text.Encoding.UTF8.GetBytes(Left(strEncryptionKey, 8))
'Convert input string into byte array
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(strToEncrypt)
'Perform the encryption with memory stream object
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
'Convert and return encrypted byte array in memory stream into string
Return Convert.ToBase64String(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function
End Class
|
|
|
|
|
byte[] info = System.Text.Encoding.UTF8.GetBytes("hello world");
|
|
|
|
|
Hello,
I have some code below. It searches records for the same manufacturer and model. If it finds a record that has the same manufacturer and model it will return true. Else it will return false.
However, if there is a problem and the function will need to return something. What would would I return. As I have to check the boolean if it is true or false , and do something. However, if there is an exception, I don't what to do anything with the true or false. Maybe roll back operation could not be completed, like in transactions.
<br />
'Check to see if the manufacturer and model name is the same. <br />
Private Function CompareManufacturer_Model() As Boolean<br />
Dim find As String = String.Empty<br />
Dim index As Integer = 0<br />
<br />
Try<br />
find = String.Format("Manufacturer = {0} AND Model = {1}", Me.txtManufacturer.Text, Me.txtModel.Text)<br />
Me.bsEquipment.Filter = find<br />
If (Me.bsEquipment.Count > 0) Then<br />
'There is a manufacturer and model that is the same so increment the quantity<br />
Return True<br />
Else<br />
'Manufacturer and model don't exist so add a new one.<br />
Return False<br />
End If<br />
Catch ex As Exception<br />
MessageBox.Show(ex.Message)<br />
'What would i return here<br />
End Try<br />
End Function<br />
Many thanks,
Steve
|
|
|
|
|
Define a custom exception and catch it when you call this method, or define a struct which contains all the info you want to return ( or even an enum, true, false, error )
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 )
|
|
|
|
|
i dont actually know what you are trying to do,but try this code between your Catch and End Try block
.<br />
.<br />
.<br />
.<br />
Catch ex As Exception<br />
<br />
If Not ex.Message="" Then<br />
''Do your needful<br />
End If<br />
<br />
End Try
Live life to the fullest
|
|
|
|
|
Checking the Message string is a bad idea. Sure, it might work in this case, but it's a bad nabit to get into considering an Exception message can be thrown in many different languages.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi Steve,
It seems the guys misunderstood the problem you are facing. (Otherwise I misunderstood, in which case you can skip over this answer )
I suppose you call this function or sub somewhere in your code, and then continue the rest of the code depending on what gets returned, right? So when an exception happens, whatever it is, you need it to return neither True nor False.
I'd say the simplest solution is to forget about the boolean and instead return an integer:
<br />
Private Function YourFunction() as Integer<br />
If something = True Then<br />
Return 0<br />
Else<br />
Return 1<br />
End If<br />
Catch Ex as Exception<br />
Return 2<br />
End Try<br />
End Function<br />
and then:
<br />
Select Case YourFunction()<br />
Case 0 'your function would have returned True<br />
<br />
Case 1 'your function would have returned False<br />
<br />
Case 2 'an exception would have occurred in you function<br />
<br />
End Select<br />
Hope this helps you,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|