|
Thankx Guffa, it helped.
Jats
|
|
|
|
|
Hi Friends,
I need to check the LAN connection status by using vb.net 2003(web application).
for ex:
you can assume that 10 machines are connected with each other any one of the machine is disconnected for the LAN means I have to know the status of disconnected machine status and connected machine status.
Do the needful
Thanks in Advance,
Known Is Drop.Unknown Is Ocean
|
|
|
|
|
|
I created a "UserControl" with about 260 controls, about 70% of them are UserControls with about 3 windows forms such as TextBox, ComboBox and DateTimePicker (which I will call "simple usercontrols" from now on). These 260 controls are spread over 7 TabPages of a TabControl.
From a certain point of the development on, the IDE hasn't shown the simple usercontrols any more (except for one of the tabpages in which the controls are still visible).
- The code, which is created automatically by the windows form designer seems to contain all the needed code for the controls in the same way as before, as far as I can see.
- In the form designer, the simple usercontrols are still listed in the combo within the propery window. When I select a simple usercontrol via this combo, it is marked in the form designer (surrounded by this typical rectangle telling the size of the control) though it is still invisible.
- The executable is ok, i.e. the "simple usercontrols" are visible.
To get rid of the problem I tried the following: I went back to a version of my usercontrol which didn't have this problem, added a few further controls and the same problem occured again.
Does there exist an upper limit of controls a form disgner can handle?
If someone has a hint/an idea to solve the problem, that would be really great. - Thanks in advance,
Michael
Code is in VB.Net 2003 (7.1.6030), Visual Studio 2003 with hotfix KB937059 and SP1 KB918007; MS.Net Framework 1.1 (1.1.4322 SP1)
|
|
|
|
|
i migrated the vb project into that of the .net
for the statment
Me.Cursor = vbNormal i am getting error it is not accepting vbNormal..
how to resolve it...
C:\Inetpub\wwwroot\HSBC.NET\frmApplication.vb(3324): Value of type 'Microsoft.VisualBasic.FileAttribute' cannot be converted to 'System.Windows.Forms.Cursor'.
|
|
|
|
|
soniasan wrote: Cursor
Look at the documentation for <a href="http://msdn2.microsoft.com/en-us/library/system.windows.forms.control.cursor.aspx">Cursor</a>[<a href="http://msdn2.microsoft.com/en-us/library/system.windows.forms.control.cursor.aspx" target="_blank" title="New Window">^</a>]. What type does it say it accepts?
|
|
|
|
|
There is settings which configure your project with strict type conversion or normal (like in vb 6, as you know you can assign an integer variable a string value like "147" it works fine in that).
Go to solution explorer, right click on you project definition (not solution one) and open its property.
A widow will be opened and now click on compile option there will be a combobox for Option Strict change it to on.
This will strict you to assign valid values to particular variables.
|
|
|
|
|
Hi to all
i migrated the project into that of from vb to that of the .net window
based application.
but it gives me error on
following statment
Load(frmManualSearch)
please tell me how to resolve this.....
|
|
|
|
|
soniasan wrote: but it gives me error on
What does the error say?
|
|
|
|
|
C:\Inetpub\wwwroot\HSBC.NET\frmSupManualSearch.vb(582): 'frmOutBound_manual' is a type and cannot be used as an expression.
when statment is ...
Load(frmOutBound_manual)
where frmOutBound_manual is the name of the form....
|
|
|
|
|
soniasan wrote: where frmOutBound_manual is the name of the form....
Incorrect. frmOutBound_manual is the name of the class that represents the form. A class is a specific kind of "type" (e.g. enums, structs are also "types")
You need to provide an instance of the class. If you do not have an instance already that you want to use then you have to create an instance of the class.
To create an instance of the class use the New keyword. Something like this:
Dim myForm As frmOutBound_manual = New frmOutBound_Manual()
|
|
|
|
|
Imports EmailThread
'Imports System.Web.Mail
Imports System.Net.Mail
Public Class Email
Private Sender As MailAddress
Private Receipient As New MailAddressCollection
Private Subject As String
Private Server As String
Private Body As String
Private ServerPort As Integer
Private Priority As MailPriority
Private Credentials As System.Net.NetworkCredential
Private Smtp As SmtpClient
Private email As MailMessage
Private HtmlBody As Boolean
Private DelivNotification As New DeliveryNotificationOptions
Private ReplyTo As MailAddress
Private Cc As New MailAddressCollection
Private Attach As System.Net.Mail.AttachmentCollection
Public Sub SetSMTPClient(ByVal Host As String, ByVal Port As Integer _
, ByVal EnableSSL As Boolean)
Smtp = New SmtpClient
With Smtp
.Host = Host
.Port = Port
.EnableSsl = EnableSSL
End With
End Sub
Public Sub SetCredential(ByVal domain As String, ByVal Username As String _
, ByVal Password As String)
'we create new structure credential instance
Credentials = New Net.NetworkCredential
Credentials.Domain = domain
Credentials.UserName = Username
Credentials.Password = Password
End Sub
Public WriteOnly Property SetPriority()
Set(ByVal value)
Priority = value
End Set
End Property
Public WriteOnly Property SetReceipient()
Set(ByVal value)
Receipient.Add(value)
End Set
End Property
Public WriteOnly Property SetReplyTo()
Set(ByVal value)
ReplyTo = value
End Set
End Property
Public WriteOnly Property SetAttach()
Set(ByVal value)
Attach.Add(value)
End Set
End Property
Public WriteOnly Property SetCC()
Set(ByVal value)
Cc.Add(value)
End Set
End Property
Public WriteOnly Property Setfrom()
Set(ByVal value)
Sender = value
End Set
End Property
Public WriteOnly Property setSubject()
Set(ByVal value)
Subject = value
End Set
End Property
Public WriteOnly Property setSMTPServer()
Set(ByVal value)
Server = value
End Set
End Property
Public WriteOnly Property setBody()
Set(ByVal value)
Body = value
End Set
End Property
Public WriteOnly Property setServerPort()
Set(ByVal value)
ServerPort = value
End Set
End Property
Public Sub SendEmail()
' Attach = New Net.Mail.AttachmentCollection
Dim obj As Object
email = New MailMessage
With email
.From = Sender
For Each obj In Receipient
.To.Add(obj.ToString)
Next
.Subject = Subject
.IsBodyHtml = HtmlBody
.Priority = Priority
.DeliveryNotificationOptions = DelivNotification
.ReplyTo = ReplyTo
For Each obj In Cc
.CC.Add(obj.ToString)
Next
.Body = Body
'For Each obj In Attach
' .Attachments.Add(obj)
'Next
End With
obj = Nothing
With Smtp
.UseDefaultCredentials = True
' .Credentials = Credentials
'.DeliveryMethod = SmtpDeliveryMethod.Network
.EnableSsl = True
.Port = ServerPort
End With
Try
Smtp.Send(email)
Catch ex As Net.Mail.SmtpException
MsgBox(ex.ToString)
End Try
Smtp = Nothing
End Sub
End Class
Please any help
i keep getitng the error "Time out"
phatkin
|
|
|
|
|
Well i got it working now....Anybody want the code...ask me and leme paste it here...
it was quite simple and corrected my mistakes from dnzone
http://www.dnzone.com/forum/topic.asp?topic_id=284
am sooooo happy now..
phatkin
|
|
|
|
|
Hi ALL
i am migrating the vb application which con.tains the OCX Control
to that of the .net project i Choose Vb.Net
But when in .net i create maually aspx pages.
and i copy that class modules also...
but i am not getting that events.
How i will convert that OCX control into that of vb.net project so that i can access
the events......
waiting for your kind response.....
|
|
|
|
|
Make sure what application you want to develop.
Web application (web sites) cannot have ocx controls. I think you want to develop windows application and by mistake you have chosen web site/application because web sites/application will have aspx extension.
Just select language vb/c# and select Windows Application project (new project)
|
|
|
|
|
No dear i want to develop web application which is developed in vb and contains the contol... which gives the functionality of dialer,
O.K. Now when i converted into .net it is get converted to windows application but i want to develop a web application it is possible,...???
when i click on toolbox and say add item
then window opens in that i shoose COM Component tab then i insert
APS Client Control from the list and then i can able to see that control
in which i migrated the vb project.
But Now i want to that code manually to develop web project
for that i choose .net 2005 now and i create .aspx pages by using vb.net
as code behind when i follow same process to add APS Client Control
it not appearing in thr toolbox. However it is there is in list..
of COM Component tab why it is not coming....
Please Help me in this regard
i will be very much thankful..
|
|
|
|
|
my VB.net application uploads local files to server. Every second my application need to detect whether my application still connected to that server or lost connection, how i can detect the connection lost or still connected ? using shell or ping ? how to use it ?
Regards,
Chee ken
|
|
|
|
|
|
firstly I would not check the connection every second, I would only check it just before I upload the file.
I use a function like the following to check if a connection exists :-
Public Shared Function IsWebSiteAvailable(ByVal Address As String) As Boolean<br />
Try<br />
Dim oUrl As New System.Uri(Address)<br />
Dim oWebRequest As System.Net.WebRequest = System.Net.WebRequest.Create(oUrl)<br />
Dim oResponse As System.Net.WebResponse = oWebRequest.GetResponse<br />
oResponse.Close()<br />
oWebRequest = Nothing<br />
Return True<br />
Catch<br />
Return False<br />
End Try<br />
End Function
There I would the code the upload as follows
If IsWebSiteAvailable("www.mysite.com") Then<br />
DoUpload()<br />
Else<br />
MessageBox.Show("Internet connection unavailable.")<br />
End If<br />
Steve Jowett
-------------------------
Sometimes a man who deserves to be looked down upon because he is a fool, is only despised only because he is an 'I.T. Consultant'
|
|
|
|
|
I want to put a Double Quote (") in a string. if I give it in a string, then the string terminates at the position where the Double Quote is put.
Can anybody suggest how to put a Double Quote in a string ?
Thanks In advance.
Sekhar 
|
|
|
|
|
Try """".
e.g. "This is a ""TEST"" string"
|
|
|
|
|
Hi,
In regards to your query I would like to inform you that in order to print double qoutes in a sting we have to use two double quotes (e.g., ""). We can print the double quotes in a string as follows:
BEGIN CODE
Dim str As String = "I ""Love"" VB "
MsgBox(str)
END CODE
The output will be I "Love" VB.
I hope this helps .
Regards,
John Adams
ComponentOne LLC
|
|
|
|
|
Use ChrW(34)
Like this:
TextBox1.Text = ChrW(34) & "This is a string." & ChrW(34)
The output would be:
"This is a string."
You can put any character in ChrW(.) by looking at this page: http://www.utoronto.ca/webdocs/HTMLdocs/NewHTML/iso_table.html[^]
As you can see, the double quote char is decimal 34.
http://www.themightyatom.nl
|
|
|
|
|
Can anyone help with the following? I need my Local System Service to check for the time of last user activity on an XP box with multiple logins using fast user switching. I've tried using a .dll (see link at the Imports statement) to hook the keyboard (intending to set a global TickCount variable on KeyDown events) after setting the service to interact with the desktop of the most recently logged in user. I can attach to the process from the VS debugger and step through everything without any error, but the KeyDown handler never gets called. I know the following "snippet" is still quite a bit to wade through but I'm stumped and getting desperate. Anyone see where I'm going wrong - or know an easier way of getting a global "LastInputTicks" value? How do the Windows Power Management routines know when there was last a sign that the user is still alive? Thanks in advance to anyone who spares the time.
<code>Imports WindowsHookLib 'http://www.codeproject.com/KB/vb/WindowsHookLib.aspx?
Friend WithEvents KbHook As LLKeyboardHook
Private Declare Function OpenWindowStation Lib "user32.dll" Alias "OpenWindowStationA" (ByVal lpszWinSta As String, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Int32) As Int32
Private Declare Function OpenDesktop Lib "user32.dll" Alias "OpenDesktopA" (ByVal lpszDesktop As String, ByVal dwFlags As Int32, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Int32) As Int32
Private Declare Function SetProcessWindowStation Lib "user32.dll" (ByVal hWinSta As Int32) As Int32
Private Declare Function SetThreadDesktop Lib "user32.dll" (ByVal hDesktop As Int32) As Int32
'Start the service with a login handler
Protected Overrides Sub OnStart(ByVal args() As String)
Dim objLog As EventLog = New EventLog("Security")
AddHandler objLog.EntryWritten, AddressOf SecurityLog_OnEntryWritten
objLog.EnableRaisingEvents = True
End Sub 'OnStart
Private Sub SecurityLog_OnEntryWritten(ByVal [source] As Object, ByVal e As EntryWrittenEventArgs)
'Only want user login events
If e.Entry.InstanceId <> 528 OrElse e.Entry.UserName.Contains("SERVICE") Then
Return
End If
MakeServiceInteractive()'http://www.codeguru.com/forum/showthread.php?t=238942
'Service then does other stuff on separate threads I'd like to abort when there's no active user
End Sub 'SecurityLog_OnEntryWritten
Private Sub MakeServiceInteractive()
Dim lngDefaultDesktop As Int32
Dim lngWinSta0 As Int32
lngWinSta0 = OpenWindowStation("WinSta0", False, &H37F)
If SetProcessWindowStation(lngWinSta0) <> 0 Then 'success
lngDefaultDesktop = OpenDesktop("Default", 0&, False, &H8L)
If SetThreadDesktop(lngDefaultDesktop) <> 0 Then 'success
KbHook = New LLKeyboardHook
KbHook.InstallHook()
WriteLog("KbHook state: " & KbHook.GetState.ToString())
'I can step through to a log entry of "KbHook state: Installed" so all seems well, but handler never gets hit.
End If
End If
End Sub 'MakeServiceInteractive
Private Sub KbHook_KeyDown(ByVal sender As Object, ByVal e As WindowsHookLib.KeyEventArgs) Handles KbHook.KeyDown
WriteLog(e.KeyCode.ToString & " Pressed") 'never gets called :confused:
End Sub 'KbHook_KeyDown</code>
|
|
|
|
|
I have 2 treeview on my form and I want to add drag and drop functionality from Treeview1 to Treeview2.
I got the sample code from the net.I tried after making some changes in the code and also tried by copying the same code but its not working.
Down is the samle code which I got from the internet.
[Code]
Private Sub TreeViewExample_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
treeTwo.AllowDrop = True
treeOne.AllowDrop = True
End Sub
Private Sub treeOne_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles treeOne.MouseDown, treeTwo.MouseDown
Dim tree As TreeView = CType(sender, TreeView)
Dim node As TreeNode
node = tree.GetNodeAt(e.X, e.Y)
tree.SelectedNode = node
If Not node Is Nothing Then
tree.DoDragDrop(node.Clone(), DragDropEffects.Copy)
End If
End Sub
Private Sub treeTwo_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles treeOne.DragOver, treeTwo.DragOver
Dim tree As TreeView = CType(sender, TreeView)
e.Effect = DragDropEffects.None
If Not e.Data.GetData(GetType(TreeNode)) Is Nothing Then
Dim pt As New Point(e.X, e.Y)
pt = tree.PointToClient(pt)
Dim node As TreeNode = tree.GetNodeAt(pt)
If Not node Is Nothing Then
e.Effect = DragDropEffects.Copy
tree.SelectedNode = node
End If
End If
End Sub
Private Sub treeTwo_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles treeOne.DragDrop, treeTwo.DragDrop
Dim tree As TreeView = CType(sender, TreeView)
Dim pt As New Point(e.X, e.Y)
pt = tree.PointToClient(pt)
Dim node As TreeNode = tree.GetNodeAt(pt)
node.Nodes.Add(e.Data.GetData(GetType(TreeNode)))
node.Expand()
End Sub
End Class
[/Code]
Can I body tell me where is the problem in the above code or any sample code which is working will be appreciated.
Thanks in advance
Ejaz
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
