|
|
I was trying to drill down to it in visual studio but It does not drill down very far in system.io for visual studio.
Unless I am doing something wrong?
|
|
|
|
|
kenn_rosie
Do you have "system" referenced in the solution explorer?
progload
|
|
|
|
|
Thanks, I found it, I expanded mscorlib and there it was
|
|
|
|
|
Hi, I am programming a tcp messanger with ips. this is my coding for the server!
THE PROBLEM IS THAT WHEN I MAKE PORT 5000 OR ANY OTHER NUMBER IT CRASHES AND TELLS ME THAT IT MUST BE PERFORMED BY 1 TIME ONLY! SOCKETERROR
listener = New TcpListener(5000)
listener.Start()
THIS IS MY WHOLE CODING FOR THE SERVER
Imports System.Threading
Imports System.Net.Sockets
Imports System.IO
Imports System.Windows.Forms
Public Class frmServer
Inherits Form
Private connection As Socket
Private readThread As Thread
Private socketStream As NetworkStream
Private writer As BinaryWriter
Private reader As BinaryReader
Private Sub frmServer_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
System.Environment.Exit(System.Environment.ExitCode)
End Sub
Private Sub txtOut_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtOut.KeyDown
Try
If (e.KeyCode = Keys.Enter AndAlso Not connection Is Nothing) Then
writer.Write("Server>>> " & txtIn.Text)
txtOut.Text &= vbCrLf & "Server>>> " & txtIn.Text
If txtIn.Text = "Terminate" Then
connection.Close()
End If
txtIn.Clear()
End If
Catch ex As SocketException
txtOut.Text &= vbCrLf & "Error writing object"
End Try
End Sub
Public Sub RunServer()
Dim listener As TcpListener
Dim counter As Integer = 1
Try
listener = New TcpListener(5000)
listener.Start()
While True
txtOut.Text = "Waiting for connection" & vbCrLf
connection = listener.AcceptSocket()
socketStream = New NetworkStream(connection)
writer = New BinaryWriter(socketStream)
reader = New BinaryReader(socketStream)
txtOut.Text &= "Connection " & counter & " recieved." & vbCrLf
writer.Write("Server>>> Connection Successful")
txtIn.ReadOnly = False
Dim theReply As String = ""
Try
Do
theReply = reader.ReadString()
txtOut.Text &= vbCrLf & theReply
Loop While (theReply <> "Client>>> Terminate" AndAlso connection.Connected)
Catch ex As IOException
MessageBox.Show("Client application closing")
Finally
txtOut.Text &= vbCrLf & "User terminated connection"
txtIn.ReadOnly = True
writer.Close()
reader.Close()
socketStream.Close()
connection.Close()
counter += 1
End Try
End While
Catch ex As IOException
MessageBox.Show("Server application closing")
End Try
End Sub
Adrian De Battista
-- modified at 18:26 Tuesday 21st February, 2006
|
|
|
|
|
I have written a very simple vb.net app to look at some properties in an msi file. Whenever I execute the msiInstall = CreateObject("WindowsInstaller.Installer") statement I get the error: Cannot create ActiveX component. I have added a reference to the Microsoft Windows Installer module and msi.dll is definately registered on my system. I have declared the msi object using Dim msiInstall As WindowsInstaller.Installer.
When I run the same bit of code in VBScript I do not get this error so it must be something in my VS 2003 configuration.
This is the complete error with details when I compile and run the exe:
************** Exception Text **************
System.Exception: Cannot create ActiveX component.
at Microsoft.VisualBasic.Interaction.CreateObject(String ProgId, String ServerName)
at UpdateVers.Form1.btnUpdateMin_Click(Object sender, EventArgs e) in C:\VB\UpdateVers\UpdateVers\UpdateVers\Form1.vb:line 95
at System.Windows.Forms.Control.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnClick(EventArgs e)
at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ButtonBase.WndProc(Message& m)
at System.Windows.Forms.Button.WndProc(Message& m)
at System.Windows.Forms.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************** Loaded Assemblies **************
mscorlib
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.2032
CodeBase: file:///c:/windows/microsoft.net/framework/v1.1.4322/mscorlib.dll
----------------------------------------
UpdateVers
Assembly Version: 1.0.2243.29760
Win32 Version: 1.0.2243.29760
CodeBase: file:///C:/VB/UpdateVers/UpdateVers/UpdateVers/obj/Debug/UpdateVers.exe
----------------------------------------
System.Windows.Forms
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.2032
CodeBase: file:///c:/windows/assembly/gac/system.windows.forms/1.0.5000.0__b77a5c561934e089/system.windows.forms.dll
----------------------------------------
System
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.2032
CodeBase: file:///c:/windows/assembly/gac/system/1.0.5000.0__b77a5c561934e089/system.dll
----------------------------------------
System.Drawing
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.2032
CodeBase: file:///c:/windows/assembly/gac/system.drawing/1.0.5000.0__b03f5f7f11d50a3a/system.drawing.dll
----------------------------------------
System.Xml
Assembly Version: 1.0.5000.0
Win32 Version: 1.1.4322.2032
CodeBase: file:///c:/windows/assembly/gac/system.xml/1.0.5000.0__b77a5c561934e089/system.xml.dll
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 7.0.5000.0
Win32 Version: 7.10.6001.4
CodeBase: file:///c:/windows/assembly/gac/microsoft.visualbasic/7.0.5000.0__b03f5f7f11d50a3a/microsoft.visualbasic.dll
----------------------------------------
Interop.WindowsInstaller
Assembly Version: 1.0.0.0
Win32 Version: 1.0.0.0
CodeBase: file:///C:/VB/UpdateVers/UpdateVers/UpdateVers/obj/Debug/Interop.WindowsInstaller.DLL
|
|
|
|
|
Hi,
i want to create a multiple datasets and bind it seperately. the query will look like
select * from table where id=ID
now,
if id = 1,
i want to generate dataset1 just for records with id=1 and
if id = 2,
i want to generate dataset2 just for records with id=2 and so forth
so that i can bind those datasets to different web control say for webchart component or a datagrid.
hope my question makes sense.
please help!!!
Robin
|
|
|
|
|
no problem dude.
just create 2 query n store them in 2 seperate variable.
say
Dim q1 As String="SELECT * from table WHERE id=2"
Dim q2 As String="SELECT * from table WHERE id=2"
Dim cmd1 As New SQLCommand(q1,conn) 'conn is ur connection
Dim cmd2 As New SQLCommand(q2,conn)
Dim da1 as New SQLDataAdapter
Dim da2 as New SQLDataAdapter
da1.selectCommand=cmd1
da2.selectCommand=cmd2
Dim ds1 As New DataSet
Dim ds2 As New DataSet
da1.Fill(ds1)
da2.Fill(ds2)
' ur dataset populated
' show them
DataGrid1.DataSource=ds1
DataGrid2.DataSource=ds2
Hope that helps.
this is not the end, this is how its goin to begin !
|
|
|
|
|
Does anybody know if there is a function
like the one in excel for vlookup.
  ;);P 
|
|
|
|
|
Dim lookupTable As New HashTable
lookupTable.Add("KeyName", "Value")
lookupTable.Add("KeyName1", "Value1")
lookupTable.Add("KeyName2", "Value2")
lookupTable.Add("KeyName3", "Value3")
Dim value = lookupTable.Item("KeyName")
My Blog[^]
FFRF[^]
|
|
|
|
|
I am creating a simple form that requires additional information before being displayed.
What I want to do:
Override ShowDialog(owner) with ShowDialog(owner, string0, string1) As DialogResult
That part is easy.
What I want to do is prevent the use of ShowDialog() and ShowDialog(owner).
Naturally, there are many ways to accomplish what I am trying to do, but I really want to know If I can do this. Is there a way to override these methods (or some other way) so that thay may not be called on my custom dialog?
Thanks
-mE
|
|
|
|
|
Guess I didn't pound my keyboard long enough. Kept looking and I found it. Use "shadows" instead of "overrides" and it does exactly what I wanted.
-mE
|
|
|
|
|
I use DB2 under AS/400 and the “SLTFORMULARIO_MG” stored procedure really exists.
Ok... because we don’t have that much time to spend, I tried another solution. I did remove the link between the stored procedure and the RPT file and so, I did set up one xml datasouce. So, I putted the stored procedure returns into a dataset and did use as:
<br />
oRpt = New ReportDocument<br />
oRpt.Load(_sFileRPT)<br />
<br />
oRpt.SetDataSource(_dtDados)<br />
Ok, the code ran nice and quickly, but because I can go to heave straightway. I still have a problem when using formulae to perform calculation. I got this damn error:
MENSAGEM DE ERRO:
A number, or currency amount is required here.
Error in File C:\DOCUME~1\BRRIOW~1\ASPNET\LOCALS~1\Temp\PEDIDO_SA {8885AC00-192E-4A1D-9E2A-A38289AEA818}.rpt:
Error in formula <UNITxVALOR>.
' ({SLTFORMULARIO_SA.PRECO_UNIT}) * {SLTFORMULARIO_SA.QTD_PEDIDA} '
A number, or currency amount is required here.
STACK TRACE:
at CrystalDecisions.ReportAppServer.Controllers.ReportSourceClass.Export(ExportOptions pExportOptions, RequestContext pRequestContext)
at CrystalDecisions.ReportSource.EromReportSourceBase.ExportToStream(ExportRequestContext reqContext)
Right, Right, I did many tests and when I changed the code from:
({SLTFORMULARIO_SA.PRECO_UNIT}) * {SLTFORMULARIO_SA.QTD_PEDIDA}
To:
({SLTFORMULARIO_SA.PRECO_UNIT}) + {SLTFORMULARIO_SA.QTD_PEDIDA}
It was fine, except from the fact that it was catenated instead of added.
Anyone could, please, help me up?
|
|
|
|
|
I am attempting for the first time to link Crystal reports with VB.Net and having a wee bit of trouble. I have provided some code I have done but for some reason it is not recognising....
Dim cr As New ReportDocument
What reference have I missed out and what is the best way to do such a thing. Any help, ideas would be gratefully appreciated.
Dim DA As OleDb.OleDbDataAdapter
Dim DS As New DataSet
Dim strSQL As String
strSQL = ""
strSQL = "SELECT EmployeeID, LastName, FirstName FROM EMPLOYEES"
DA.Fill(DS, "Employees")
'Verify the path to the Crystal Report's .RPT file
Dim strReportPath As String = "C:\Temp\crystalreport1.rpt"
'Load the Crystal report's .rpt file and pass in the data table
Dim cr As New ReportDocument
cr.Load(strReportPath)
cr.Setdatasources(DS.Tables("Employees")
|
|
|
|
|
Using the MAPI control to send email with outlook is easy enough to set up, but whatever you send as body text gets sent as-is. I am trying to get HTML to work in the messages i send, but it seems outlook will paste the message into the text section, and will not update the source section. As i am attempting to make a program for easy email generation for a email based game, i need some way for it to generate the email with the html in-tact. does anyone know any way of doing this.. there is a MsgType command, i beleve, but VB does not show a list of what can be typed after it to modify it, where it is just a control.
"Love, Life and Option Explicit"
|
|
|
|
|
How do I make a program that search through a site(like http://www.codeproject.com) and if a word is on that site it displays a messagebox(if the word new is in line 6 of http://www.codeproject.com the script msgbox ("There is something new!!!" , , "NEW") comes)
Thanks
|
|
|
|
|
For searching text , you can use Microsoft Index Server .Using it in code will return the pages in site where a particular word exists . But i m not sure if it can return line number . But after getting list of documents in search , perhaps a function can be writeen to find line numbers in those pages
Divya Rathi
|
|
|
|
|
Gentlemen,
I'm using VB6 and SQL Server 2000 I want to know if there is anyway
to use a digital camera in my VB project?.
Maybe let me take the picture via VB or taking it directly to the camera.
Thanks a lot
|
|
|
|
|
I have a memo field (multi line text box) and I want to be able to spell check it? Any Suggestions
|
|
|
|
|
the easiest way to do is download google toolbar. or you can use word object and use spell checker component. well honestly i was in process of using word spell checker but i had lil trouble and thought why not use google tool bar instead of wasting time on figuring out why it didnt work. 
robin
|
|
|
|
|
Is there a way to check spelling for a windows application?
|
|
|
|
|
iwant to use the agent control to show error messages.....also the speech ballon ust contain a ok button like it is in the msgbox....please help
|
|
|
|
|
There are some excellent examples on the MSDN website where the MS Agent download resides.
...Steve
"Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." (Translation: I'll show you the way, but not write the code for you.) I read that somewhere once
|
|
|
|
|
I'm trying to create a logon script that copies three icons from network drives and then places them on the suers desktop on logon. I can copy the icons fine as administrator, but under anyone elses logon name, i get access denied errors becuase only administrator has write control to the C:\Documents and Settings\All Users\Desktop folder.
What Im trying to do is get the username inserted into the filepath by the script. somethig like this:
'Creating a shell object to launch applications<br />
Set WShell = CreateObject("WScript.Shell")<br />
<br />
'Creating a network object to gather AD Username Data<br />
Set objNet = CreateObject("WScript.NetWork") <br />
<br />
<br />
user = objNet.UserName<br />
ComputerName = objNet.ComputerName<br />
<br />
'Mapping Network Drives<br />
Set objNetwork = CreateObject("WScript.Network")<br />
objNetwork.MapNetworkDrive "P:" , "\\corp-fs1\apps"<br />
objNetwork.MapNetworkDrive "M:" , "\\corp-fs1\data"<br />
<br />
'Copying Prodent, Lsap, IntelMS<br />
strFilePath = "P:\prodent\apps\public\prodent\shortcut to prodent.lnk"<br />
strDestination =("C:\Documents and Settings\" & user & "\Desktop\")<br />
<br />
<br />
<br />
Set objFSO = CreateObject("Scripting.FileSystemObject")<br />
<br />
<br />
<br />
Set objFileCopy = objFSO.GetFile(strFilePath)<br />
' Copy the file to its destination<br />
objFileCopy.Copy (strDestination)
I need strDestination to = C:\Documents and Settings\ *username*\desktop
Any ideas on how to do this?
"A child of five would understand this! Send someone to fetch a child of five!"-Groucho Marx
|
|
|
|
|
Just inserting the user's ID into the path is an unreliable method to generate the CORRECT path. Occasionally, Windows can switch the user's profile folder, creating a new one with a different name.
Get the value of the USERPROFILE environment variable, then append the path you want to that:
Dim WshShell, Path
Set WshShell = WScript.CreateObject("WScript.Shell")
Path = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
Path = Path & "\Desktop"
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
