Tape Device access via vb....

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
    - Passing various class types as parameters Hi I have the following code; Public DA(3) As Object DA(1) = New Class1 DA(2) = New Class2 Is there a way to pass the class types as parameter to a sub as below; SetDA(Class1,1) SetDA(Class2,2) where the sub declares variables for the passed class types, as below? Sub SetDA(ByRef ClassType As Object, ByVal Subs As Long) DA(Subs) = New ClassType End Sub Thanks Regards Tag: Tape Device access via vb.... Tag: 411219
  - 2
    - Domain name. Hi; I'm a VB programmer (since v4) and I noticed that VBLanguage.com was available last week so I grabbed it for resale. I'd like to give you guys in the Microsoft newsgroups the first shot at it if anyone is interested. It might make for a cool web site for somebody here. See ya. John Tag: Tape Device access via vb.... Tag: 411216
  - 3
    - Table name to table adapter Hi From a reference to a data table in a dataset can I reference the data adapter associated with the table to execute data adapter's merge method? Thanks Regards Tag: Tape Device access via vb.... Tag: 411215
  - 4
    - Array Problem When Index Value is Nothing Hi all, I ran into memory problems while tying to search and replace a very large text file. To solve this I break the file up into chunks and run the search and replace on each chunk. This works fine and has solved the OutOfMemory problem. However, on the last loop when the array c is written to CleanTMX, a number of 0x00 characters are written at the end of the file. This causes problems in a further XMLTransformation as this character is not allowed in XML. I looked at the values of the index. Th eproblem seems to be caused by index values at the end of the array being set to Nothing. Question: How can I get rid of these characters? Or how can I reduce the array to only contain index values that are not Nothing? Here's the code that writes the CleanTMX file: Dim c(My.Settings.ReadChunkSize) As Char 'ReadChunkSize is a user-defined setting, normally set to 10000 Using sr As StreamReader = New StreamReader(OriginalTMX, System.Text.Encoding.UTF8, True) Do While sr.Peek() >= 0 sr.Read(c, 0, c.Length) Dim i As Integer For i = 0 To arrFind.Length - 1 c = Regex.Replace(c, arrFind(i), arrReplace(i)) Next Try Using sw As StreamWriter = New StreamWriter(CleanTMX, True, System.Text.Encoding.UTF8) sw.Write(c) End Using Catch ex As Exception End Try Loop Would really appreciate any help on this one. Thanx Rob Tag: Tape Device access via vb.... Tag: 411213
  - 5
    - Dealing with DBConcurrencyException error in multi-table scenario Hi I am handling DBConcurrencyException for an adapter manager using code below. My problem is how to merge table in error with its copy from underlying database. If I need the table's data adapter for the merge, can I extract the data adapter at run time from the information I have viz adapter manager, dataset and the table in error. Thanks Regards Try Me.TableAdapterManager.UpdateAll(Me.MyDataSet) Catch ex As DBConcurrencyException For Each MyTable In MyDataSet.Tables If MyTable.HasErrors Then ' How do I merge MyTable with the database copy of itself here? End If Next End Try Tag: Tape Device access via vb.... Tag: 411212
  - 6
    - Stupid Question..Maybe I had a random thought today. Is it possible to make a complete application with several forms that contain databound info such as textboxes or dataGridViews and use 1 and only 1 dataset for the entire application? I ask because, when I created my program, for each and every form that has databound information, there is a dataset that is created. Now, correct me if I'm wrong, but when a tableAdapter, or DataTable is associated with the dataset, doesn't that contact the dataSource (ie. DB on server or remote location) during a fill(dtTableName) using excessive bandwidth? I ask about the bandwidth issue because I have an application that fills from the Products table of the database which contains over 6000+ records. I have 3 different forms that need to fill a tableAdapter from the Products table of the DB. Couldn't I just use the ONE dataset that might be Public to the entire app and grab the info from there. I understand that when changes are made and saved, then they will be saved to the dataSource which uses bandwidth but having to fill the info everytime I need to use a table from the DB takes a while to load the records. I hope to be schooled here since I mostly know about the drag and drop methods shown from online tutorials from Microsoft's Webcasts page. Unfortunately, I am using an Access DB on a mapped network drive but there has to be an easier/faster way of retrieving the data I need, right? Tony K. Tag: Tape Device access via vb.... Tag: 411209
  - 7
    - validation not fireing on button press! I have a button on the form which has causes validation set to true... when I click on it not one of my validating events fires on the form... every single control with it just skips over it and the button executes its procedure without validation... now when i go to a control then tab off it the validating event does fire... what in the world is going on here? im lost... it never acted like this before.... this is VS2008 with .NET 3.5 Tag: Tape Device access via vb.... Tag: 411203
  - 8
    - Looking for a free SFTP library for VB.NET 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 Tag: Tape Device access via vb.... Tag: 411202
  - 9
    - 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: Tape Device access via vb.... Tag: 411197
  - 10
    - 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: Tape Device access via vb.... Tag: 411195
  - 11
    - 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: Tape Device access via vb.... Tag: 411194
  - 12
    - 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: Tape Device access via vb.... Tag: 411192
  - 13
    - 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: Tape Device access via vb.... Tag: 411191
  - 14
    - 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: Tape Device access via vb.... Tag: 411186
  - 15
    - 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: Tape Device access via vb.... Tag: 411183
  - 16
    - 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: Tape Device access via vb.... Tag: 411182
  - 17
    - 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: Tape Device access via vb.... Tag: 411181
  - 18
    - 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: Tape Device access via vb.... Tag: 411180
  - 19
    - 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: Tape Device access via vb.... Tag: 411175
  - 20
    - 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: Tape Device access via vb.... Tag: 411174
  - 21
    - 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: Tape Device access via vb.... Tag: 411170
  - 22
    - 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: Tape Device access via vb.... Tag: 411168
  - 23
    - 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: Tape Device access via vb.... Tag: 411161
  - 24
    - 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: Tape Device access via vb.... Tag: 411158
  - 25
    - 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: Tape Device access via vb.... Tag: 411155
- Next
  - 1
    - 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: Tape Device access via vb.... Tag: 411153
  - 2
    - 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: Tape Device access via vb.... Tag: 411148
  - 3
    - 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: Tape Device access via vb.... Tag: 411147
  - 4
    - 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: Tape Device access via vb.... Tag: 411137
  - 5
    - .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: Tape Device access via vb.... Tag: 411136
  - 6
    - accept paypal supply sneaker trainer sports shoes max TN max 90 max www.tradertrade.com Tag: Tape Device access via vb.... Tag: 411135
  - 7
    - 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: Tape Device access via vb.... Tag: 411132
  - 8
    - 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: Tape Device access via vb.... Tag: 411124
  - 9
    - "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: Tape Device access via vb.... Tag: 411109
  - 10
    - 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: Tape Device access via vb.... Tag: 411100
  - 11
    - 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: Tape Device access via vb.... Tag: 411099
  - 12
    - 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: Tape Device access via vb.... Tag: 411097
  - 13
    - 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: Tape Device access via vb.... Tag: 411092
  - 14
    - 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: Tape Device access via vb.... Tag: 411088
  - 15
    - 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: Tape Device access via vb.... Tag: 411083
  - 16
    - 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: Tape Device access via vb.... Tag: 411080
  - 17
    - 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: Tape Device access via vb.... Tag: 411074
  - 18
    - 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: Tape Device access via vb.... Tag: 411069
  - 19
    - 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: Tape Device access via vb.... Tag: 411067
  - 20
    - 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: Tape Device access via vb.... Tag: 411066
  - 21
    - 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: Tape Device access via vb.... Tag: 411065
  - 22
    - 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: Tape Device access via vb.... Tag: 411062
  - 23
    - 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: Tape Device access via vb.... Tag: 411061
  - 24
    - test test Tag: Tape Device access via vb.... Tag: 411060
  - 25
    - 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: Tape Device access via vb.... Tag: 411059

Has anyone every used VB.net to control/write/read a tape device such as
LTO or SDLT? I'd like to be able to write a TAR utility within vb.net
that write to the tape device. Any suggestions?

Top

Re: Tape Device access via vb.... by Mr

Mr
Wed May 07 05:21:23 CDT 2008

"Sam Marrocco" <sm@SPAMMENO.com> wrote in message
news:48211215$0$20191$4c368faf@roadrunner.com...
> Has anyone every used VB.net to control/write/read a tape device such as
> LTO or SDLT? I'd like to be able to write a TAR utility within vb.net that
> write to the tape device. Any suggestions?

I don't know if it will help you get started or not.

If you have any savvy, you'll be able to take the example in C# and convert
it to VB hopefully, or you can look for some VB examples, if they are out
there using Google. I looked a little bit and didn't see anything in VB. If
it's in C#, then you can do it in VB.

http://www.codeproject.com/KB/system/Tape_drive_operator.aspx

I am glad I kind of looked it up for you, because this site is going to be
kept by me as a favorite, which will be part of my tools kit.

http://www.codeproject.com/KB/system/#System%20-%20Hardware%20programming

Top