Looking for a free SFTP library for VB.NET

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VB
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Writing a simple webservice Hi guys, I'm looking to develop a simple web service in VB.NET but I'm having some trivial issues. In Visual Studio I create a web services project and change the asmx.vb file to this: Imports System.Web.Services Imports System.Web.Services.Protocols Imports System.ComponentModel <System.Web.Services.WebService(Namespace:="http:// wwwpreview.#deleted#.co.uk/~ptaylor/Customer.wsdl")> _ <System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _ <ToolboxItem(False)> _ Public Class CustomerService Inherits System.Web.Services.WebService <WebMethod()> _ Public Function getCustomer() As TreeObject() Dim t1 As New TreeObject Dim t2 As New TreeObject Dim t3 As New TreeObject Dim arr(2) As TreeObject arr(0) = t1 arr(1) = t2 arr(2) = t3 Return arr End Function End Class As you can see my function returns an object of type "TreeObject" and when you run this it works. the clients are clearly returned an array 3 TreeObjects objects. However I cannot actually invoke any functions on these tree objects. This is the current definition of TreeObject: Imports System.Web.Services <System.Serializable()> _ Public Class TreeObject Public Sub New() End Sub <WebMethod()> _ Public Sub setId(ByVal id As Int32) End Sub <WebMethod()> _ Public Function getId() As String Return 1 End Function <WebMethod()> _ Public Sub setName(ByVal value As String) End Sub <WebMethod()> _ Public Function getName() As String Return "boo ya" End Function End Class However the functions GetName, SetName, GetId, SetId do not appear in the WSDL file and the functions are not accessable from the client. (I think TreeObject has no functions other than those inherited from Object) How do I make those functions accessible please? Do I need to set up another "service" or what? Thanks Phill Tag: Looking for a free SFTP library for VB.NET Tag: 411197
  - 2
    - Scrolling when doing a drag and drop in TableLayoutPanel (VS2005) Hello, I am trying to drag and drop a label control from one cell in a tablelayoutpanel to another (VB2005). There is no problem if both cells are visible, but i cannot get the tablelayoutpanel to scroll in any direction (autoscroll is on), when the cell i want to drag to is no currently visible and requires scrolling to get to see it. Any suggestions would be greatly appreciated. I have also noticed that my middle mouse scrollwheel no longer works for my tablelayoutpanel. Weird as it worked when i first started developing the form, but now the TLP is on a panel, it no longer works. Is this normal? Thanks so much, Jeff Tag: Looking for a free SFTP library for VB.NET Tag: 411195
  - 3
    - Screen Casting Does anyone know if there are any controls available that enable screencasting. I would like to design an app which allows a user to do a screencast to other users. Regards, Chris. Tag: Looking for a free SFTP library for VB.NET Tag: 411194
  - 4
    - HELP!!!!! MSBUILD : error : INTERNAL CONSOLE LOGGER ERROR MSBUILD : error : INTERNAL CONSOLE LOGGER ERROR. Project frame C: \Documents and Settings\tom\Local Settings\Temp\vs3BF.tmp expected, but was C:\DEVELOPMENT\VS2005\Dotnet\ASD Libraries \AdvancedSoftwareDesigns.Windows.Forms \AdvancedSoftwareDesigns.Windows.Forms.vbproj. This error just started occurring. It happens in several projects and now my key gui app is falling over right in the middle of the build. Anyone have any idea what this means? Tag: Looking for a free SFTP library for VB.NET Tag: 411192
  - 5
    - WWW.VOGUESONLINE.NET CHINA WHOLESALE COOGI BAPE LV TSHIRTS ETC ------------------- WWW.VOGUESONLINE.NET --------------- Affliction T-shirts lacoste T-shirts Polo T-shirts Brand ShirtsGGG T- shirts Designer T-Shirts Helen Coat burberry coat Cheap Jacket Juicy Couture bbc hoodies bape hoodies Cheap Designer Hoodies NFL NHL NBA MLB Jersey Tag: Looking for a free SFTP library for VB.NET Tag: 411191
  - 6
    - Developing a selection program Hi group, I have been given the task at work of producing a selection frogram for a range of our air handling units. I have a little experience of programing in VB 6 from many years ago, but would like to try and attempt this in VB.net and make as good a job as possible of it. The application will be required to output schedules and reports in both Excel and Word documents . What I am asking is, has anyone done anything like this and could give me some advice on how to go about it. I have bought a few well reviewed books but have not come across any mention of Word or Excel documents being prduced in VB.net. Any advice, tips or alternative coding language to use will be gratefully received. Thank you. Adrian. Tag: Looking for a free SFTP library for VB.NET Tag: 411186
  - 7
    - Why can't we disable a tab page? Most of the basic UI controls have Enabled property. I know we can't disable a specific tab page, but why is it so? What is the rationale? I don't think Microsoft developers designed that way because they couldn't implement it. Tag: Looking for a free SFTP library for VB.NET Tag: 411183
  - 8
    - Context & Property Shell Extensions Does anyone have any point of source on how to create context meny and property tabs shells extensions in VB.net? My intention is to integrate my program with jpg and bmp extensions and be able to display a custom menu on the contextual menu of these filetypes. I know they have to be registered in the registry with a guid and point to a dll but i have no idea on how to develop those in .net Thanks for the help. Tag: Looking for a free SFTP library for VB.NET Tag: 411182
  - 9
    - China Supply Jimmy Choo / Chloe / Bcbg / Juicy / Miumiu / Dior / ------- WWW.CHEAPFORWHOLESALE.COM ------- Discount Prada Handbags, Chanel Handbags, LV Handbags, (G U C C I)Handbags, D&G Handbags, Chloe Handbags, Hermes Handbags, Guess Handbags, Jimmy Choo Handbags, Bcbg Handbags. Supply Dior Wallet, Fendi Wallet, Coach Purse, Juicy Purse, Miumiu Purse Tag: Looking for a free SFTP library for VB.NET Tag: 411181
  - 10
    - DataGridView locks up application I have a DataGridView that I NEED to display the data that is scanned with a barcode. The columns are: Product Number Description Location Units On Hand Untis Scanned Min On Hand Max On Hand All columns are retrieved from the database except Units Scanned. That is calculated by the # of times the operator scans a barcode. The code I use for filling the DataGridView is: Private Sub ReceiveData(ByVal msg As String) ' Receive strings from a serial port. CheckForIllegalCrossThreadCalls = False Dim cnnInventory As OleDbConnection Dim dgvRow(7) As String Dim cmmInventory As OleDbCommand Dim dadInventory As OleDbDataAdapter Dim dtbInventory As DataTable Dim cmmUnitsOnHand As OleDbCommand Dim dadUnitsOnHand As OleDbDataAdapter Dim dtbUnitsOnHand As DataTable Dim intCounter As Integer, prodID As Integer 'Instantiate and open the connection cnnInventory = New OleDbConnection(My.Settings.Inventory_management_databaseConnectionString) cnnInventory.Open() 'Instantiate the command datatable cmmInventory = New OleDbCommand("SELECT * FROM Products", cnnInventory) dtbInventory = New DataTable() 'Instantiate and initialize the data adapter dadInventory = New OleDbDataAdapter("SELECT * FROM Products", cnnInventory) dadInventory.SelectCommand = cmmInventory 'Fill the data table view dadInventory.Fill(dtbInventory) 'Filter the data table view dtbInventory.DefaultView.RowFilter = "ProductIDNumber = '" & msg & "'" prodID = CType(dtbInventory.DefaultView(0).Row("ProductID").ToString, Integer) dgvRow(0) = msg dgvRow(1) = dtbInventory.DefaultView(0).Row("ProductDescription").ToString dgvRow(2) = dtbInventory.DefaultView(0).Row("ProductLocation").ToString dgvRow(5) = dtbInventory.DefaultView(0).Row("ReorderLevel").ToString dgvRow(6) = dtbInventory.DefaultView(0).Row("MinimumRequired").ToString 'Instantiate the command datatable cmmUnitsOnHand = New OleDbCommand("SELECT SUM(UnitsReceived) - SUM(UnitsSold) - SUM(UnitsShrinkage) AS UnitsOnHand " & _ "FROM [Inventory Transactions] WHERE (ProductID = " & prodID & ")", cnnInventory) dtbUnitsOnHand = New DataTable 'Instantiate and initialize the data adapter dadUnitsOnHand = New OleDbDataAdapter("SELECT SUM(UnitsReceived) - SUM(UnitsSold) - SUM(UnitsShrinkage) AS UnitsOnHand " & _ "FROM [Inventory Transactions] WHERE (ProductID = " & prodID & ")", cnnInventory) dadUnitsOnHand.SelectCommand = cmmUnitsOnHand 'Fill the data table view dadUnitsOnHand.Fill(dtbUnitsOnHand) 'Filter the data table view 'dtbUnitsOnHand.DefaultView.RowFilter = "ProductID = " & prodID For intCounter = 0 To dtbUnitsOnHand.DefaultView.Count - 1 dgvRow(3) = dtbUnitsOnHand.DefaultView(0).Row("UnitsOnHand").ToString Next Me.DataGridView1.Rows.Add(dgvRow) cnnInventory.Close() End Sub For each barcode ProductIDNumber scanned, it retrieves the description, location, unitsOnHand, minOnHand, maxOnHand. Problems: When the # of rows exceed the amount displayed, the applications seems to freeze. Example: I have a maximum of 20 rows that can be displayed at once, when I have entered 21 different items or more, then try to scroll on the vertical scroll bar, the application freezes and nothing else happens. Sometimes the scrollbar is not even displayed but instead it looks like a bunch of little grid cells. I have the properties set to show the vertical scroll bar. There is not a DataSource associated with the DataGridView. Why does it lock up when there are more rows added than displayed?? Thanks, Tony K. Tag: Looking for a free SFTP library for VB.NET Tag: 411180
  - 11
    - Objects raising events after "reinstantiation" I've run into this problem a couple of times when creating objects that raise events but I've always been able to code around it so I never asked the question. I'm using a Process object with .EnableRaisingEvents turned ON and .BeginOutputReadLine() so that I can process the output as it is generated from my process. The scenario for use is that this executable uses an .ini file that contains some settings with one of them being a path to an input file that will be scrubbed. This executable has a known issue in that only 1000 or so entries can be processed reliably during one "run" otherwise strange results occur if there are more. My use case provides that I will often have cases where I need to process 1000+ entries so my plan was to split however many entries into files of 1000 lines each and the whenever the Process.Exited event is fired when the executable finishes running, I would modify the .ini file to point to one of the other input files, re-start the process however many times I need to in order to process all my input. The problem lies in that after the first run, the Process does not raise events anymore for .OutputDataReceived but I am not re-instantiating the Process object in my class so I'm not sure why I cannot continue to capture events when I am in essence just re-starting the process with all the same properties turned on. FYI I do not have the code for this picky executable program either so please do not give any lame answers in that vein...I'm interested in how events are raised when objects die out and are re-instantiated or the context I've described above. Also I am calling Process.CancelOutputRead() in the Exited event and then calling Process.BeginOutputReadLine() after I re-start it so I don't believe this is the problem either. Thanks in advance. Tag: Looking for a free SFTP library for VB.NET Tag: 411175
  - 12
    - Databind DataGridView to List(of String) I use the following code to programmatically bind a DataGridView and a BindingNavigator to various List(of myClass). This works fine with each 'myClass' offering public properties. Dim mAllUsers As List(Of myClass) mAllUsers = GetAllUsers() 'returns List(Of myClass) Dim AllUsersBindingSource As New BindingSource(Me.components) ControlStationInfoBindingNavigator.BindingSource = AllUsersBindingSource ControlStationInfoDataGridView.AutoGenerateColumns = True ControlStationInfoDataGridView.DataSource = AllUsersBindingSource AllUsersBindingSource.DataSource = mAllUsers If I change the code to Dim mAllUsers As List(Of String) mAllUsers = GetAllUsers() 'returns List(Of String) then the DataGridView only displays one column containing the length of each string. I want only to display the strings in one column. thank you very much, herbert Tag: Looking for a free SFTP library for VB.NET Tag: 411174
  - 13
    - problem with checking null or empty value in detailsview Hi, i want to check whether the textbox of the detailsview is not left empty, in insert mode. I did this: Protected Sub DetailsView1_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertEventArgs) Handles DetailsView1.ItemInserting Dim h As String h = e.Values("myfield") 'If h = "" Then If h Is Nothing Then e.Cancel = True Label1.Text = "may not be empty." End If End Sub I tried two ways (with ="" and with is nothing), but in both cases, i always get the label text and the event is always cancelled, even when i full some value. So, what's wrong with this code? Thanks Bob Tag: Looking for a free SFTP library for VB.NET Tag: 411170
  - 14
    - Thumbnail Images in Listview (Please Help..) I am trying to show many Images in a Listview controls with size(100,100). But some of the images sizes are big, like width=238 and height 50. These images does not appear proper in the listview control. What do I need to do to see the Images same as I am looking using windows explorer thumbnail. Please help me as I am stuck on this for almost two days now. Thanks for any help you can provide. Mark Tag: Looking for a free SFTP library for VB.NET Tag: 411168
  - 15
    - Moving character Glyphs I modified a C# application from Bob Powell that moves graphics primitives around on the screen into a Vb.NET 2005 application. I want to modify this application so along with moving regular geometric shapes, I can also move the alphanumeric characters as well. For example I place the character "A" on the screen and when I point to it with the mouse the character will be outlined and while holding down the left mouse button move the "A" somewhere else on the screen. Since I learn best by example I wrote another class for the Characters, but it doesn't work. I asked Bob Powell and he suggested I convert the characters to glyphs and hit test these, but since VB.NET's only resembalance to the Visual Basic programming language is in name only I'm now completely lost. Here is the Class I wrote: Public Class DrawText Inherits Primitive Public Sub New() MyBase.New() End Sub Public Overloads Overrides Sub Draw(ByVal g As Graphics) Dim b As New SolidBrush(Me.Color) Dim txt As String = "Aa" 'Dim big_font As New Font("Times New Roman", 30, FontStyle.Bold) 'g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit 'g.DrawString(txt, big_font, Brushes.Black, 10, 100) 'g.FillRectangle(b, New Rectangle(Me.Location, Me.Size)) 'b.Dispose() 'Create a GraphicsPath Dim graphics_path As New Drawing2D.GraphicsPath 'Add some text to the path graphics_path.AddString(txt, _ New FontFamily("Times New Roman"), _ CInt(FontStyle.Bold), _ 80, New Point(10, 100), _ StringFormat.GenericTypographic) g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias g.FillPath(Brushes.White, graphics_path) g.DrawPath(New Pen(Drawing.Color.Black, 3), graphics_path) b.Dispose() If Highlight Then Dim p As New Pen(Drawing.Color.Red, 3) p.DashStyle = Drawing2D.DashStyle.DashDot g.DrawRectangle(p, New Rectangle(Me.Location, Me.Size)) p.Dispose() End If End Sub Public Overloads Overrides Function HitTest(ByVal p As Point) As Boolean Dim pth As New Drawing2D.GraphicsPath() pth.AddEllipse(New Rectangle(Location, Size)) Dim retval As Boolean = pth.IsVisible(p) pth.Dispose() Return retval End Function End Class Can someone tell me what I'm doing wrong? -- Mark Tag: Looking for a free SFTP library for VB.NET Tag: 411161
  - 16
    - Resizing an arraylist I have an arraylist of for example 1200. I want to re organize the array so that position 1 on the arraylist if actaully now position 3 and i want to add 3 position before position 3 and at the end of the arraylist. Can i use the Redim statement? Tag: Looking for a free SFTP library for VB.NET Tag: 411158
  - 17
    - What is the most efficient way ... Does anyone know an efficient way to generate sound tones in Visual Basic 2005/2008 so that I can specify: - Pitch - Duration - Volume ... which uses the computer's soundcard (not the motherboard speaker).? From what I've seen, DirectX may be the only solution but even that seems extremely cumbersome. I'm amazed that Visual Basic doesn't have an easy way to do this. It was a lot easier on my Apple //c! Thanks for any suggestions. Tag: Looking for a free SFTP library for VB.NET Tag: 411155
  - 18
    - How to change the amount into -ve in CR ? This is a multi-part message in MIME format. ------=_NextPart_000_1D68_01C8AEDF.7E9CE290 Content-Type: text/plain; charset="big5" Content-Transfer-Encoding: quoted-printable if {tmp_csinvinfo_os.debit}-{tmp_csinvinfo_os.credit} > 0 then {tmp_csinvinfo_os.netbaseamt} else=20 ({tmp_csinvinfo_os.netbaseamt} *(-1) the above code can't return the -ve value , how can i change the value = into -ve ??? Thanks a lot ------=_NextPart_000_1D68_01C8AEDF.7E9CE290 Content-Type: text/html; charset="big5" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; charset=3Dbig5"> <META content=3D"MSHTML 6.00.2900.3314" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3D"Palatino Linotype" size=3D2>if=20 {tmp_csinvinfo_os.debit}-{tmp_csinvinfo_os.credit} > 0=20 then<BR>{tmp_csinvinfo_os.netbaseamt}<BR>else=20 <BR> ({tmp_csinvinfo_os.netbaseamt} *(-1)</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3D"Palatino Linotype" size=3D2><BR>the above code can't = return the=20 -ve value , how can i change the value into -ve  ???<BR>Thanks a=20 lot<BR>   </FONT></DIV></BODY></HTML> ------=_NextPart_000_1D68_01C8AEDF.7E9CE290-- Tag: Looking for a free SFTP library for VB.NET Tag: 411153
  - 19
    - Conferencing Control Hi I want to create a very basic conferencing functionality. Are there any controls that allow VOIP conferencing, preferably something cheap. The simpler the better as I am a asp.net developer and new to winforms. Tag: Looking for a free SFTP library for VB.NET Tag: 411148
  - 20
    - query that will return null values to 0 i'm using mySQL as my backend to my program. i know this is not VB.NET anymore but i don't know how to do it. i have a query that will calculate if it satisfies the condition. it goes like this: SELECT (tblseedsubsidy.NoOfBags) FROM agri.tbltrcclient INNER JOIN agri.tblseedsubsidy ON (tbltrcclient.ClientID = tblseedsubsidy.ClientID) INNER JOIN agri.tblinventory ON (tblseedsubsidy.SeedID = tblinventory.SeedID) WHERE (tblseedsubsidy.CoOwner = '1' AND tbltrcclient.TypeofSeed = 'Corn') HAVING (sum(tblseedsubsidy.NoOfBags) /2); but every time it doesn't satisfy the condition where CoOwner must be equal to '1' it returns a null value. how can i convert the null value into 0? if anyone has any idea on how to do it i would really appreciate it. thanks. -- Message posted via DotNetMonster.com http://www.dotnetmonster.com/Uwe/Forums.aspx/dotnet-vb-net/200805/1 Tag: Looking for a free SFTP library for VB.NET Tag: 411147
  - 21
    - Wholesale, Fendi, Dior, Burberry, Armani, Prada, LV, D&G, Dior -----WWW.CHEAPFORWHOLESALE.COM----- Discount Coach Sandals, Dior Sandals, Prada Sandals, Chanel Sandals, Versace Sandals, Crocs Sandals, Women's Sandals Men's Slippers From China Discount, Prada Sunglasses, Discount, D&G Sunglasses, Discount, Fendi Sunglasses,Discount,Burberry Sunglasses Discount, Chanel Sunglasses Discount, LVSunglasses Discount, Dior Sunglasses Discount, (G U C C I ) Sunglasses Discount, ArmaniSunglasses Discount, Versace SunglassesDiscount, A&F Sunglasses Discount, LV Sunglasses Tag: Looking for a free SFTP library for VB.NET Tag: 411137
  - 22
    - .csv File to .xml File in VB.Net using 2.0 Framework and .xsd Hey All, I've been searching for a code snippet, not a 3rd party tool, that takes a .csv file and transforms it to an .xml file based upon an .xsd. Can anyone point me in the right direction or provide a code snippet? I would prefer vb.net but C# is fine too or even pseudo code with appropriate .Net objects and example. Thanks, TC Tag: Looking for a free SFTP library for VB.NET Tag: 411136
  - 23
    - accept paypal supply sneaker trainer sports shoes max TN max 90 max www.tradertrade.com Tag: Looking for a free SFTP library for VB.NET Tag: 411135
  - 24
    - adapter manager error handling Hi How can I handle errors in the UpdateAll method for adapter manager considering that it has multiple tables. Its probably easy by using try/catch if only one table has errors but what if more than one table have errors at update? Thanks Regards Tag: Looking for a free SFTP library for VB.NET Tag: 411132
  - 25
    - Where is the part to set when my mouse pointer move to textbox or label or buton it will display text description ? Where is the part to set when my mouse pointer move to textbox or label or buton it will display text description ? Regards, Tee Tag: Looking for a free SFTP library for VB.NET Tag: 411124
- Next
  - 1
    - "Late Binding" error is killing me! I am getting data from a device via UDP packets and they arrive thus: wsInverter.GetData(objData) ' Object required here. I then need to convert each of the returned data of 38 bytes in this packet to their hex values. Decimal would be OK, too, but I can't get to them at all! When I do this simple command, I get an error about late binding being no good with Strict On: i = strData(j) ' Simplified version to reduce options I tried everything I can think of to get to the data. There has to be a way to get to the bytes. The AxMSWinsockLib.AxWinsock wants an object. Any advice appreciated. I would prefer to leave strict on. Yeah, I know, anal retentive! This is probably a good time to get rid of AxMSWinsock, left over from VB6, which was the original version of this program. I don't mind that but it will take a bunch of changes that I will also have to learn about. Mike Tag: Looking for a free SFTP library for VB.NET Tag: 411109
  - 2
    - ListBox question Is it possible to address a listbox in a general manner depending on it's number eg ListBox1. ListBox2. etc so we have ListBoxi where i can be 1,2,3,4 etc I suppose it is like having an array of listboxes. k. Tag: Looking for a free SFTP library for VB.NET Tag: 411100
  - 3
    - Threading with forms Hi I am trying to create (not open) several forms in the background threads using the code given below at the end. 1. Am I doing it correctly? 2. How can I get handle sot these forms in the calling sub so I can access these forms after creation. 3. How do I know when threads have finished forms creation so I can show the form if needed? Thanks Regards Code ==== Private Sub Main() Dim t1 As New Thread(AddressOf CreateForm) t1.Start(GetType(Form1)) Dim t2 As New Thread(AddressOf CreateForm) t2.Start(GetType(Form2)) Dim t3 As New Thread(AddressOf CreateForm) t3.Start(GetType(Form3)) End Sub Public Sub CreateForm(ByVal ft As Object) Dim t As Type = TryCast(ft, Type) If Not t Is Nothing Then Using f As Form = TryCast(Activator.CreateInstance(t, False), Form) End Using End If End Sub Tag: Looking for a free SFTP library for VB.NET Tag: 411099
  - 4
    - DataGridView causing problems VB 2005 - Windows Vista I have a form that seems to lock up when the number of rows exceed the height of the datagridview. The following code executes when data is received through the serial port (ie. barcode scanning). It seems that everything works GREAT and processes as it was meant to be until the rows exceed the display area. I have 7 columns. The Description column is the only column with the AutoSizeMode set to Fill. The datagridview is docked to the top. DataSource and DataMember for the DGV is not set to any dataset. I have the vertical scrollbar property set but it does not show up most of the time. When/If it does, when I try and utilize the scrollbar, it locks up the application immediately. I don't understand but I think it has to do with the following method. Sub ReceiveData(ByVal msg As String) 'Called after serial port has received data and trimmed the value CheckForIllegalCrossThreadCalls = False description = Nothing 'form instance variable loc = Nothing Dim cmmInvMan As OleDbCommand Dim strSQL As String Dim drdTest As OleDbDataReader Dim cnnInvMan As OleDbConnection = New OleDbConnection(My.Settings.Inventory_management_databaseConnectionString) cnnInvMan.Open() strSQL = "SELECT * FROM Products WHERE ProductIDNumber = '" & msg & "'" cmmInvMan = New OleDbCommand(strSQL, cnnInvMan) drdTest = cmmInvMan.ExecuteReader Do While drdTest.Read prodIDNum = CInt(drdTest.Item("ProductID")) description = drdTest.Item("ProductDescription").ToString loc = drdTest.Item("ProductLocation").ToString minimumOnHand = CInt(drdTest.Item("ReorderLevel")) maximumOnHand = CInt(drdTest.Item("MinimumRequired")) Loop drdTest.Close() strSQL = "SELECT SUM(UnitsReceived) - SUM(UnitsSold) - SUM(UnitsShrinkage) AS UnitsOnHand " & _ "FROM [" & Me.Inventory_management_databaseDataSet.Inventory_Transactions.TableName & "] WHERE (ProductID = " & prodIDNum & ")" cmmInvMan = New OleDbCommand(strSQL, cnnInvMan) drdTest = cmmInvMan.ExecuteReader Do While drdTest.Read Try units = CInt(drdTest.Item("UnitsOnHand")) Catch ex As InvalidCastException units = 0 End Try Loop drdTest.Close() cnnInvMan.Close() Dim value As Integer Dim duplicateRow As DataGridViewRow For Each duplicateRow In Me.DataGridView1.Rows If duplicateRow.Cells(0).Value Is Nothing Then Exit For If duplicateRow.Cells(0).Value.ToString = msg Then 'MessageBox.Show(duplicateRow.Cells(1).ToString) value = CInt(duplicateRow.Cells(4).Value) value += 1 duplicateRow.Cells(4).Value = value.ToString 'unitsScanned If duplicateRow.Cells(1).Value Is Nothing Then 'description column duplicateRow.Cells(1).Value = description End If If duplicateRow.Cells(3).Value Is Nothing Then 'UnitsOnHand duplicateRow.Cells(3).Value = units.ToString End If If duplicateRow.Cells(2).Value Is Nothing Then 'location duplicateRow.Cells(2).Value = loc End If If duplicateRow.Cells(5).Value Is Nothing Then 'minOnHand duplicateRow.Cells(5).Value = minimumOnHand.ToString End If If duplicateRow.Cells(6).Value Is Nothing Then 'maxOnHand duplicateRow.Cells(6).Value = maximumOnHand.ToString End If Exit Sub End If Next Dim row As String() = {msg, description, loc, units.ToString, "1", minimumOnHand.ToString, maximumOnHand.ToString} Me.DataGridView1.Rows.Add(row) End Sub TIA, Tony K. Tag: Looking for a free SFTP library for VB.NET Tag: 411097
  - 5
    - Moved from VB6 to VS2005 and stumped on simple task Dear All, I'm bemused, I'm moving an application I've written from VB6 into VS2005, and I'm getting all the fundamentals over before I delve into the hard part, like getting the forms layout etc....and the simple things, like the 'About' option, opens another form.... Well here is the problem (which has me stumped).... My VB6 Application, I click 'About' and it opens a form, from that form, there is an 'ok' to close that form or 'information' which opens another form with 'information' on it... So I tried this in VS2005.....both forms get opened? but the code isn't telling it too? Form1 is the main form, Form3 is the About Box and Form2 is the Information Box, I choose About and Form2 and 3 open....even though the code is Form3.Show(), there is no reference to opening Form2, so why is form2 deciding to open? I'm confused.... Also, whilst I'm here, it is getting apparent, VS2005 is much more advanced that VB6, but on the flip side, so is the MSDN for it...Does anybody know of any sites that are for beginners for VS2005? Regards Paul. Tag: Looking for a free SFTP library for VB.NET Tag: 411092
  - 6
    - File Encryption/Decryption problem Iâ??m trying to encrypt and decrypt a file in vb.net. I am using the TripleDESCryptoServiceProvider encryption found in System.Security.Cryptography. Below is the code for my Encrypt and Decrypt functions. While my functions read and write files the encryption/decryption is not working properly. My test file has an original length of 66,048 bytes. My encrypted file ends up with 66,056 bytes â?¦ 8 bytes more than my original. When I decrypt the encrypted file the resultant file is also 66,056 bytes in length â?¦ obviously different than the original! I feel like Iâ??m missing something obvious. Does anyone have any suggestions? Thanks for your help. Public Function EncryptFile(ByVal SourceFilename As String, ByVal DestinationFilename As String) As Boolean Dim fsSourceStream As System.IO.FileStream = Nothing Dim encryptionStream As CryptoStream = Nothing Dim fsDestinationStream As System.IO.FileStream = Nothing Try ' Open file streams for the file reading and writing fsSourceStream = New System.IO.FileStream(SourceFilename, FileMode.Open, IO.FileAccess.Read) fsDestinationStream = New System.IO.FileStream(DestinationFilename, FileMode.Create, IO.FileAccess.Write) 'Bytes will be encrypted by an encryption stream encryptionStream = New CryptoStream(fsDestinationStream, _ New TripleDESCryptoServiceProvider().CreateEncryptor(mvarKey, mvarIV), CryptoStreamMode.Write) mvarBufferSize = 1024 ' Create buffer Dim fileBuffer(mvarBufferSize) As Byte Dim accumulatedBytesRead As Integer = 0 Dim bytesRead As Integer ' read the file ' Process bytes from fsSourceStream through the encryptionStream to the fsDestinationStream. Do bytesRead = fsSourceStream.Read(fileBuffer, 0, mvarBufferSize) If (bytesRead = 0) Then Exit Do encryptionStream.Write(fileBuffer, 0, bytesRead) accumulatedBytesRead += bytesRead Loop encryptionStream.FlushFinalBlock() Return True Catch ex As Exception MsgBox("Exception error occurred in EncryptFile." & vbNewLine & vbNewLine _ & ex.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Information) Return False Finally 'close streams If encryptionStream IsNot Nothing Then encryptionStream.Close() End If If fsSourceStream IsNot Nothing Then fsSourceStream.Close() End If If fsDestinationStream IsNot Nothing Then fsDestinationStream.Close() End If End Try End Function Public Function DecryptFile(ByVal SourceFilename As String, ByVal DestinationFilename As String) As Boolean Dim fsSourceStream As System.IO.FileStream = Nothing Dim decryptionStream As CryptoStream = Nothing Dim fsDestinationStream As System.IO.FileStream = Nothing Try ' Open file streams for the file reading and writing fsSourceStream = New System.IO.FileStream(SourceFilename, FileMode.Open, IO.FileAccess.Read) fsDestinationStream = New System.IO.FileStream(DestinationFilename, FileMode.Create, IO.FileAccess.Write) ' Process bytes through a CryptoStream. decryptionStream = New CryptoStream(fsSourceStream, _ New TripleDESCryptoServiceProvider().CreateEncryptor(mvarKey, mvarIV), CryptoStreamMode.Read) ' Create buffer mvarBufferSize = 1024 Dim fileBuffer(mvarBufferSize) As Byte Dim accumulatedBytesRead As Integer = 0 Dim bytesRead As Integer ' read the file ' Process bytes from fsSourceStream to fsDestinationStream. Do bytesRead = decryptionStream.Read(fileBuffer, 0, mvarBufferSize) If (bytesRead = 0) Then Exit Do fsDestinationStream.Write(fileBuffer, 0, bytesRead) accumulatedBytesRead += bytesRead Loop fsDestinationStream.Flush() Return True Catch ex As Exception MsgBox("Exception error occurred in DecryptFile." & vbNewLine & vbNewLine _ & ex.Message, MsgBoxStyle.OkOnly Or MsgBoxStyle.Information) Return False Finally 'close(streams) If decryptionStream IsNot Nothing Then decryptionStream.Close() End If If fsSourceStream IsNot Nothing Then fsSourceStream.Close() End If If fsDestinationStream IsNot Nothing Then fsDestinationStream.Close() End If End Try End Function -- Loren Baker Tag: Looking for a free SFTP library for VB.NET Tag: 411088
  - 7
    - How do I write a code to activate a popup menu when I right click in a label control? How do I write a code to activate a popup menu when I right click in a label control? Regards, Tee Tag: Looking for a free SFTP library for VB.NET Tag: 411083
  - 8
    - GOOD PRICE ADIDAS DSQUARED D&G SHOES Thenikeshoes DOT net If you are interested in any of our products, please contact our salesman and they will respond in 24 hours after hearing from you. If you cannot find the shoes you are seeking for in the list, please also contact with us and send us your photos, we will do our best to find the shoes from our partners and satisfy you with our best service. Our main customers are from Europe and North America and we know well about the requirements for those markets, such as style number, sticker and box details. We sincerely hope to establish beneficial partnership with your valued company Tag: Looking for a free SFTP library for VB.NET Tag: 411080
  - 9
    - Closing all forms I found this nifty routine that closes a form one by one every time it is called. However, I need to hide them instead of closing them. Is there a way to alter the code? I assume it has something to do with this line here... PostMessage(i, CInt(&H10), vbNullString, vbNullString) Thanks k Public Sub closeallforms() Dim objType As Type() = Reflection.Assembly.GetExecutingAssembly.GetTypes() Dim x As Integer, i As Integer Try For x = LBound(objType) To UBound(objType) If Not objType(x).Name = Me.Name Then '/// make sure you dont unload this form yet. i = FindWindow(vbNullString, objType(x).Name) PostMessage(i, CInt(&H10), vbNullString, vbNullString) End If Next Catch ex As Exception MessageBox.Show("Oops, the following error occured:" & ex.Message) Finally 'MyBase.Close() '/// now that all the other forms are closed , unload this one. End Try End Sub Tag: Looking for a free SFTP library for VB.NET Tag: 411074
  - 10
    - Can your app detect Webrowser events? I want to make a WYSIWYG editor for HTML pages that can detect events in the webbrowser control in real time and control the webbrowser control (and internal documents) to allow simple stuff like dragging and dropping HTML controls on the webbrowser control. The goal is a real-time view of the page as it is edited. Is it possible for a .Net app to trap these events and respond accordingly? I have googled for soem code examples, but haven't found anything yet. Do you know of any code examples of this? Thanks so much for your time! jim Tag: Looking for a free SFTP library for VB.NET Tag: 411069
  - 11
    - Which formats can not be pasted by a RichTextBox RichEdit control's EM_CANPASTE, ITextRange::CanPaste or the RichTextBox.CanPaste can be used to determine if a format can be pasted by the control. I don't suppose there is a list of formats that can be pasted by the control. Is there? Actually I'd like to know which formats can not be pasted. Thanks in advance Tag: Looking for a free SFTP library for VB.NET Tag: 411067
  - 12
    - scheduler i'm trying to create a scheduler program for a friend of mine. he needs to have customer information with a relationship to the scheduler. i'm at a loss trying to get started. can someone guide me? has anyone done this before? Tag: Looking for a free SFTP library for VB.NET Tag: 411066
  - 13
    - ANN: Professional Refactoring in Visual Basic published Hello Visual Basic programmers, Just to let anyone know that my book "Professional Refactoring in Visual Basic" has been published by Wrox. I intended this book to be an introductory book on refactoring for Visual Basic programmers. So, instead of complete smell and refactoring catalogue, the book lists the most important ones, but also includes book-long study case, has a chapter on free refactoring Visual Studio plug-in Refactor! for VB from Developer Express, deals with legacy (VB6) code upgrade and even dips into subjects like refactoring to patterns and some advanced object oriented design principles. You can take a look at TOC and download first chapter from Wrox site: http://media.wiley.com/product_data/excerpt/91/04701797/0470179791.pdf Thank you for your attention, Danijel Arsenovski Tag: Looking for a free SFTP library for VB.NET Tag: 411065
  - 14
    - Obtaining Domain Controller here is a question I've not been able to find the answer too.... I want to find domain controllers(or specifically time servers) on our private network. The computer that will run my app may or may not be in the domain, but is connected to the network. 1) how do I find all the domain controllers on our network(or if I have to, or can tell, time servers) 2)is it possible to find these as a non member of the domain? Brian Tag: Looking for a free SFTP library for VB.NET Tag: 411062
  - 15
    - MonthCalendar I think I asked this before but don't remember seeing an answer. I am using the month calendar and when I select muliple dates, the number disappear. Is there a refresh or something to casue this to redraw without losing the selected dates? Brian Tag: Looking for a free SFTP library for VB.NET Tag: 411061
  - 16
    - test test Tag: Looking for a free SFTP library for VB.NET Tag: 411060
  - 17
    - Closing a form from another form Sounds simple enough when I do Form2.Hide() calling this from Form1 it closes fine (or hides) However, I have a form which is called from another form say Form3 which is called from Form2 and it won't close or hide. I do Form3.Close() and nothing happens - no error message either. Each form is defined at the top as dim formx as new formx() where x is the number of the form. K. Tag: Looking for a free SFTP library for VB.NET Tag: 411059
  - 18
    - vsto vs vs2008 Hi 1. What is better vsto or vs2008 for outlook addins development in terms of ease of development and deployment? 2. Can vsto and vs2008 be installed side by side on the same machine? 3. Can vsto develop addins for outlook 2003 on a pc with outlook 2007? Thanks Regards Tag: Looking for a free SFTP library for VB.NET Tag: 411055
  - 19
    - Calling unmanaged DLL issue Hello, I am trying to call an unmanaged API (IP helper) and having problems getting started. I have the following code to read an IP Forward table. It appears my first call to "GetIPForwardTable" appears to work, it returns the required buffer size in the ByteCount variable. However when I try the second call, the one that should actually read the table the application simply exits. This suggests a stack corruption or similar. Can anyone see what is wrong with the code? Dim lpDataBuffer As IntPtr Dim BufferSize As Int32 Dim ByteCount As Int32 = Marshal.SizeOf(BufferSize) Dim Result As Int32 ' ' create unmanged data buffer that is too small for real data, ' this will force the method to return the actual byte count needed ' lpDataBuffer = Marshal.AllocHGlobal(2) Try ' ' First do a read, the buffer size is too small, this ' will return the needed size in the buffer size buffer ' Result = GetIpForwardTable(lpDataBuffer, ByteCount, True) ' ' Free the unmanged data buffer ' Marshal.FreeHGlobal(lpDataBuffer) ' ' Create a new buffer for the real data ' lpDataBuffer = Marshal.AllocHGlobal(5000) ' ' Read the table ' Result = GetIpForwardTable(lpDataBuffer, ByteCount, True) Catch ex As Exception MsgBox("OOPS!") End Try Thanks for any pointers, Sid. Tag: Looking for a free SFTP library for VB.NET Tag: 411045
  - 20
    - How to use (add, read, change, delete) registry keys with vb.net Reason of this project: This is the next part of the previous tutorial. We'll learn here how to add, change, read, delete registry keys and values using vb.net. I included a sample that contains all those functionality. Project details: 1- How to add a registry key/value 2- How to read a registry value 3- How to delete a key or a value 4- Changing a value or a key 5- Hints to use registry with VB.net 6- The registry reader (VB.net) 1- How to add a registry key/value One thing that I think I forget to notice. A folder in the registry is name "key" and the elements in this key are named "values". There's a description of each value type in the 5th tutorial Now we'll see how to add a key or a value. Probably you have thought where we'll put it and whether it's a key or a value. So we have 2 things to notice. Visual Basic will automatically show you the hives (they are stored in). You'll have only to choose the needed one. To do that paste the following line. My.Computer.Registry.CurrentUser.CreateSubKey("TestKey") This line will create a key in the HKEY_CURRENT_USER hive and will be named "testkey" Now let's move on to see how to set a value. For the value we'll need three things: Value path, Value name and value value. We can also precise the value type if not Visual Basic will try to assign the value type depending on the object type. My.Computer.Registry.SetValue("HKEY_CURRENT_USER\TestKey", "TestValue", "This is a test value.") Tip: Type "," and Visual Basic will show a list of value types. The sample: The sample contain two part, one for creating keys and the other to create values. To create a key just put the named of the key and it'll be created in the Current_User folder. To assign a value, type the complete path, for example "HKEY_CURRENT_USER\mykey" and then the value name then the value content and click add to create it. 2- How to read a registry value The next thing is to read what we wrote! This is so simple, just put the following line. You'll need to have the Path and the name of the value. Dim readValue As String readValue = My.Computer.Registry.GetValue _ ("HKEY_CURRENT_USER\TestKey", "TestValue", Nothing) MsgBox("The value is " & readValue) If you wish to do more complex things, like getting the keys in a hive and getting the values of keys... Then you should see the registry viewer sample. (Download the source code to get it) 3- How to delete a registry key or value We finish by deleting what we added. To do this it's easy! The following line will delete a key My.Computer.Registry.CurrentUser.DeleteSubKey("TestKey") To delete a value my.Computer .Registry .CurrentUser.DeleteValue("Test value") 4- Changing a value or a key Changing a value can be somewhat difficult. Dim autoshell = My.Computer.Registry.LocalMachine.OpenSubKey("Software \Microsoft\Windows NT\CurrentVersion\Winlogon", True) '' Set the value to 0 autoshell.SetValue("autorestartshell", 0) autoshell.Close() After opening a subkey (don't forget true! as it give you permission to delete), we can use the autoshell in order to change any value in the following subkey. 5- Hints to use registry with VB.net We can count the values in a hive My.Computer.Registry.CurrentUser.ValueCount.ToString() But also the keys My.Computer.Registry.CurrentUser.SubKeyCount.ToString() And check if a value exist If My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\MyKey", _ "TestValue", Nothing) Is Nothing Then MsgBox("Value does not exist.") Else MsgBox("Value exist.") End If 6- The registry reader (VB.net) I have included an application with the source code. This one will resume all what we have done. It's like the registry editor of Windows but still view only and can't edit values. Download the source code http://thedotnetsource.blogspot.com/2008/03/tutorial-6-how-to-use-add-read-change.html The Zip file contains: -The sample source code -The registry viewer application -The readme.txt file -The tutorial.txt file Still have question: If you have any problem or you found a bug, post a comment describing your problem. If you have a general question, we highly recommend the MSDN Forums as the best Dot Net forums in the net. Tag: Looking for a free SFTP library for VB.NET Tag: 411042
  - 21
    - How do I set my form start at the right bottom site in any monitor resolution? How do I set my form start at the right bottom site in any monitor resolution? Regards, Tee Tag: Looking for a free SFTP library for VB.NET Tag: 411037
  - 22
    - "Change your language and you change your thoughts." "Change your language and you change your thoughts." Learn English and free download Grammar & dictionary. Just click the website and share ur thoughts=85.enter in the search column =93What do u want about English language=94? u=92ll get it it everything=85.. A common example of two verbs mixed up by learners are 'made' and 'do'. For example, someone might use 'make a course' or 'do changes' =96 as opposed to the correct format: 'do a course' and 'make changes'. "Language shapes the way we think, and determines what we can think about." http://Onlinespokenenglish.googlepages.com/home Tag: Looking for a free SFTP library for VB.NET Tag: 411034
  - 23
    - Trying to insert textboxdata into database Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Projname, ProjSpon As String Dim AppName, AppType, AppSupp, AppDesc As String Dim VendName, VendPhone As String Dim ReqName, ReqPurp As String Dim BudgItem, BudgNum As String Dim BudgOnly As Integer If chkBudg.Checked = True Then BudgOnly = 1 Else BudgOnly = 0 Projname = Convert.ToString(txtProjName.Text) ProjSpon = Convert.ToString(txtProjSpon.Text) AppNAme = Convert.ToString(txtAppName.Text) VendName = Convert.ToString(txtVendName.Text) VendPhone = Convert.ToString(txtVendPhone.Text) AppType = Convert.ToString(cmbAppType.SelectedItem) AppSupp = Convert.ToString(cmbAppSupp.SelectedItem) AppDesc = Convert.ToString(txtAppDes.Text) ReqName = Convert.ToString(txtReqName.Text) ReqPurp = Convert.ToString(cmbReqPurp.SelectedItem) BudgItem = Convert.ToString(cmbBudgetItem.SelectedItem) BudgNum = Convert.ToString(txtbudgetNum.Text) Dim strSQL As String Dim strConn As String strSQL = "Insert Into system.ServerRequest Values('" & BudgOnly & "','" & Projname & "','" & ProjSpon & "','" & AppName & "','" & VendName & "','" & VendPhone & "','" & AppType & "','" & AppSupp & "','" & AppDesc & "','" & ReqName & "','" & ReqPurp & "','" & BudgItem & "','" & BudgNum & "')" MsgBox("SQL:" & strSQL) strConn = "Provider=SQLOLEDB.1;Password=vbuser;Persist Security Info=True;User ID=VBuser;Initial Catalog=Masterserver;Data Source=patmtest\sqlexpress" MyConnObj = New ADODB.Connection MyConnObj.Open(strConn) SQLcmd = New ADODB.Command SQLcmd.ActiveConnection = MyConnObj SQLcmd.CommandText = strSQL SQLcmd.Execute() MyConnObj.Close() MyConnObj = Nothing Tag: Looking for a free SFTP library for VB.NET Tag: 411032
  - 24
    - What is the command to display computer name & ip address ? What is the command to display computer name & ip address in VB.NET 2005 (OS WindowsXP & Windows Vista) Regards, Tee Tag: Looking for a free SFTP library for VB.NET Tag: 411022
  - 25
    - MonthCalendar Hi, I am having a problem with the monthcalendar control. When I allow multi selection of dates.. the dates disappear. How can make them appear and maintain the user selection? Brian Tag: Looking for a free SFTP library for VB.NET Tag: 411014

Can anyone recommend a free or open source Secure FTP (SFTP) library that
can be used from VB.NET?

I can see a number of commercial solutions but if there's a library we can
use without getting bogged down in licensing issues it would make things
much easier for me...

Many thanks,

--

(O)enone

Top

Re: Looking for a free SFTP library for VB.NET by kimiraikkonen

kimiraikkonen
Wed May 07 04:34:07 CDT 2008

On May 6, 6:50 pm, "\(O\)enone" <oen...@nowhere.com> wrote:
> Can anyone recommend a free or open source Secure FTP (SFTP) library that
> can be used from VB.NET?
>
> I can see a number of commercial solutions but if there's a library we can
> use without getting bogged down in licensing issues it would make things
> much easier for me...
>
> Many thanks,
>
> --
>
> (O)enone

Hi,
The only i could find is: (but i'm afraid it's a paid one)
http://www.rebex.net/sftp.net/

Thanks,

Onur

Top

Re: Looking for a free SFTP library for VB.NET by \(O\)enone

\(O\)enone
Wed May 07 06:25:41 CDT 2008

kimiraikkonen wrote:
> The only i could find is: (but i'm afraid it's a paid one)
> http://www.rebex.net/sftp.net/

Oh well, I guess paid is better than nothing! :)

I did eventually find an open source project that looked very promising
here:

http://www.codeproject.com/KB/IP/sharpssh.aspx

I tried and tried but couldn't get it to work properly though, certain
operations kept locking it up. Probably my fault but I don't have any more
time to look into it at the moment.

I tried the Rebex product you mentioned and it worked perfectly straight
away, so I guess that'll be the one I go with.

Many thanks,

--

(O)enone

Top