Add reference to "Microsoft Word xx.x Object Library":
Click "Project"
Select "Add Reference"
Click "COM" tab
Select "Microsoft Word xx.x Object Library"
Add import statements:
Imports System.Runtime.InteropServices
Imports Word = Microsoft.Office.Interop.Word
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'use early binding
Dim objWordApp As Word.Application = Nothing
Try
objWordApp = New Word.Application
'Open an existing document.
objWordApp.Documents.Open("C:\Temp\Sample.docx")
'copy data to clipboard
RichTextBox1.SelectAll()
RichTextBox1.Copy()
'find <address>
objWordApp.Selection.Find.Execute("<address>")
'copy richtext from clipboard
objWordApp.Selection.PasteSpecial(DataType:= Word.WdPasteDataType.wdPasteRTF)
'clear the clipboard
Clipboard.Clear()
'Save and close the document.
objWordApp.Documents.Item(1).Save()
objWordApp.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
'quit Word
If Not IsNothing(objWordApp) Then
objWordApp.Quit()
objWordApp = Nothing
End If
End Try
End Sub
*Note: The font properties will be transferred from the RichTextBox as well.
Check your recycle bin to see if it is there. Otherwise you may be able to recover the file using data recovery software. You will want to stop using the drive that contains the data until you recover the file, as further usage may overwrite the file that you are trying to recover.
Also, this is not really a vb issue, but rather a deleted file / data recovery issue.
In the future, ensure that you have a backup solution in place so that your files are backed up.
There is a correction to my above post. There was a typo. Also, the previously mentioned keys are for XP/Win 7 (32-bit). If you are using Win 7 (64-bit), you need to look in the "Wow6432Node"--since Jet 4.0 doesn't have a 64-bit version (Jet 4.0 only exists in a 32-bit version). These keys may also be found in MS server verions. Open a "cmd.exe" window, and run the following commands.
The best way for you to learn is to research the issues that you encounter. You will find information that may not be useful to you right now, but one day it may be of use to you. If you are not finding useful information using your favorite search engine, then re-phrase your query--try removing words from your search.
Pass the info in the constructor and choose the correct tab using code in the constructor or use form communication--see the tutorial for form comunication.
Glad to hear it is working. The registry keys above are for Win 7. They may be different on different OS's.32-bit applications can run on 64-bit machines. However, 64-bit applications can't run on 32-bit machines.
That's because every time your event (TextChanged) occurs you are calling the "Add" method. You should only add the binding if it doesn't already exist.
If User ID and Password are specified and Integrated Security is set to true, the User ID and Password will be ignored and Integrated Security will be used.
If you want to use domain authentication, grant appropriate permissions as Begginnerdev mentioned.
It seems like a no-brainer to develop using the .NET version that you plan on using to run the program, because new features are added in newer versions. Either install .NET 4.5 on the server, or install the .NET version you plan on using to run the program, on your development machine and use that version for your program (v4.0).
Check manufacturer website for driver update. If no update exists, re-install the existing driver. Also, try removing from device manager and letting the OS re-install the device.
I don't think anyone has any idea what you are talking about. What is "real excel"? There are tons of examples on how to create excel files on the net. Present some code, or at least some pseudo code of what you are trying to do.
For Each ctrlItem As Control In Me.Controls
If TypeOf ctrlItem Is System.Windows.Forms.CheckBox Then
Dim myCheckBox = CType(ctrlItem, System.Windows.Forms.CheckBox)
myCheckBox.Checked = True
End If
Next
Or
Private Sub checkCheckBoxesStartingWith(ByVal startsWithText As String)
For Each ctrlItem As Control In Me.Controls
If TypeOf ctrlItem Is System.Windows.Forms.CheckBox Then
If ctrlItem.Name.StartsWith(startsWithText) Then
Dim myCheckBox = CType(ctrlItem, System.Windows.Forms.CheckBox)
myCheckBox.Checked = True
End If
End If
Next
End Sub
Your first issue is being able to clearly describe the problem that you are trying to solve (the reason for creating the program or the immediate issue you are trying to solve). "we must take the inputs of both list..." What "list"?
You either need to narrow down the problem you are asking for help with, or give more details about the entire problem (program) so we can try to figure out what you are trying to do.
If you aren't able to clearly describe the problem you will never be able to solve it. Also, no one else will be able to help you.
If you know how to create your own forms, why are you using "InputBox" for input? Create a form with appropriate controls (textbox, combobox, richtextbox, etc...) to get the data from the user.
You can instantiate the resource object and then pass the variable to the using statement, but this is not a best practice. In this case, the object remains in scope after control leaves the using block even though it will probably no longer have access to its unmanaged resources. In other words, it will no longer be fully initialized. If you try to use the object outside the using block, you risk causing an exception to be thrown. For this reason, it is generally better to instantiate the object in the using statement and limit its scope to the using block.
GagaCode commented: that really helped a lot thank you so much+0
If you look at the xml file, you will see that "nomina:Percepcion" occurs multiple times. So, we can use a list for it. You may be able to use an array, but I had difficulty in getting the array to work, so I switched to a list:
<XmlElementAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property Percepcion As New List(Of ComprobanteComplementoNominaPercepcionesPercepcion)
The class is defined as follows:
Imports System.Xml.Serialization
Imports System.Xml.Schema
<XmlRootAttribute(elementName:="Percepciones", Namespace:="http://www.sat.gob.mx/nomina", IsNullable:=False)>
Public Class ComprobanteComplementoNominaPercepciones
Public Sub New()
'add namespace
'xmlns = New XmlSerializerNamespaces()
'xmlns.Add("nomina", "http://www.sat.gob.mx/nomina")
End Sub
'namespaces
<System.Xml.Serialization.XmlNamespaceDeclarations()>
Public Property xmlns As XmlSerializerNamespaces
<XmlAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property TotalExento As String
<XmlAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property TotalGravado As String
<XmlElementAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property Percepcion As New List(Of ComprobanteComplementoNominaPercepcionesPercepcion)
'<XmlElementAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
'Public Property Percepcion() As New ComprobanteComplementoNominaPercepcionesPercepcion
End Class
And the class referenced by "Percepcion":
Imports System.Xml.Serialization
Imports System.Xml.Schema
<XmlRootAttribute(elementName:="Percepcion", Namespace:="http://www.sat.gob.mx/nomina", IsNullable:=False)>
Public Class ComprobanteComplementoNominaPercepcionesPercepcion
Public Sub New()
End Sub
Public Sub New(ByVal Clave As String, ByVal Concepto As String, ByVal ImporteExento As String, ByVal ImporteGravado As String, ByVal TipoPercepcion As String)
Me.Clave = Clave
Me.Concepto = Concepto
Me.ImporteExento = ImporteExento
Me.ImporteGravado = ImporteGravado
Me.TipoPercepcion = TipoPercepcion
End Sub
'namespaces
<System.Xml.Serialization.XmlNamespaceDeclarations()>
Public Property xmlns As XmlSerializerNamespaces
<XmlAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property Clave As String
<XmlAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property Concepto As String
<XmlAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property ImporteExento As String
<XmlAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property ImporteGravado As String
<XmlAttribute(Namespace:="http://www.sat.gob.mx/nomina")>
Public Property TipoPercepcion As String
End …
Notice that "TimbreFiscalDigital" uses a new "schemaLocation", so we include it in the class definition. Also, notice that the namespaces are referred to by their URI (http://...) when using "Namespace:=". This is defined using:
Public Sub New()
xmlns.Add("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
End Sub
'namespaces
<System.Xml.Serialization.XmlNamespaceDeclarations()>
Public Property xmlns As XmlSerializerNamespaces
Also, the namespace is listed in "schemaLocation":
I don't have a lot of time so I will give a brief description. The code I previously provided can be used for both serialization and de-serialization.
Some of the information I provide you may already know, but I will provide it for people who may not know. I've only learned about serialization in the past few days, so I will provide information base on what I have learned.
Add the following to the top of the classes that we are using:
using System.Xml.Serialization
using System.Xml.Schema
Create a class for the root element and then for each element that contains a sub-element.
Let's identify the structure of the XML file:
Root element: cfdi:Comprobante contains schemaLocation and multiple xmlns
*Note: During serialization/de-serialization the name of the object (class name, property name, variable name) will be used as the name of the XML object (element name, attribute name, etc...) unless otherwise specified. You can change that behavior by using "elementName:=".
Example 1:
<XmlRootAttribute(elementName:="Comprobante", Namespace:="http://www.sat.gob.mx/cfd/3", IsNullable:=False)>
Public Class Comprobante
End Class
Example 2:
<XmlElementAttribute(elementName:="Nomina", Namespace:="http://www.sat.gob.mx/nomina")>
Public Property Nomina As New ComprobanteComplementoNomina
To add schemaLocation, we use the following:
'schemaLocation
<XmlAttribute(Namespace:=System.Xml.Schema.XmlSchema.InstanceNamespace)>
Public Property …
The attached file contains a version using serialization (XmlSerializer). It doesn't de-serialize the complete file (I didn't have enough time to complete it), but it will de-serialize the information that you mentioned above. When I have more time, I will post an explanation here.
'keeps track of selected rows
Private selectedRowsDict As New Dictionary(Of Integer, String)
DataGridView MouseClick event:
Private Sub DataGridView1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
'allows for row de-selection by toggling
'between row being selected and de-selected
If selectedRowsDict.ContainsKey(DataGridView1.CurrentRow.Index) Then
'deselect row
selectedRowsDict.Remove(DataGridView1.CurrentRow.Index)
Else
'select row
selectedRowsDict.Add(DataGridView1.CurrentRow.Index, "Selected")
End If
'loop through all rows in DataGridView
'de-select rows that have been de-selected
'select rows that have been selected
For rowNum As Integer = 0 To DataGridView1.RowCount - 1
If selectedRowsDict.ContainsKey(rowNum) Then
DataGridView1.Rows(rowNum).Selected = True
Else
DataGridView1.Rows(rowNum).Selected = False
End If
Next
End Sub
One more way to do it (without using a loop), is to create a method that removes one word, and call it repeatedly. Although, I advise against this method.
Private Function removeWord(ByVal userStr As String)
Dim retStr As String = userStr
'remove any leading or trailing spaces
retStr = userStr.Trim()
If retStr.Contains(" ") Then
'string contains more than 1 word
retStr = retStr.Substring(retStr.IndexOf(" ") + 1)
Else
'string contains only 1 word
retStr = String.Empty
End If
Return retStr
End Function
Usage: Dim myStr As String = String.Empty
'call 2 times to remove 2 words myStr = removeWord(myStr) myStr = removeWord(myStr)
The easiest way to do it without using a loop is to use recursion. I will show you two recursive methods. The difference is the placement of the subtraction from the counter (numberOfWords = numberOfWords - 1). This determines whether you will use <= or just < in your "if" statement.
Note: The counter parameter numberOfWords must be passed using ByRef for this to work.
If we decrement after the "if" statement we do something like the following:
Version 1:
Private Function removeWords(ByVal userStr As String, ByRef numberOfWords As String)
Dim retStr As String = String.Empty
'if we decrement after this statement,
'we use <= here
If numberOfWords <= 0 Or userStr.Length = 0 Then
Return userStr
End If
...
'decrement counter
numberOfWords = numberOfWords - 1
'recursively call removeWords
Return removeWords(retStr, numberOfWords)
End Function
removeWords function:
Private Function removeWords(ByVal userStr As String, ByRef numberOfWords As String)
Dim retStr As String = String.Empty
'return the string when it is either
'empty or the desired number of words
'have been removed
If numberOfWords <= 0 Or userStr.Length = 0 Then
Return userStr
End If
'remove any leading or trailing spaces
retStr = userStr.Trim()
If retStr.Contains(" ") Then
'string contains more than 1 word
retStr = retStr.Substring(retStr.IndexOf(" ") + 1)
Else
'string contains only 1 word
retStr = String.Empty
End If
'decrement counter
numberOfWords = numberOfWords - 1
'recursively call removeWords
Return removeWords(retStr, numberOfWords)
End Function
Version 2: If we decrement before the "if" statement we …
...The database file is copied from the project directory to the bin directory every time you build your application. Every time you build your application and save changes to the data, those changes are overwritten when the original file is copied to the bin directory, replacing the copy that you just changed. You do not see the updated data the next time you run your application. Any changes made to the data file in the output folder will be overwritten the next time you run the application....
Depending on what testing software you use, your hdd may or may not test as bad and still be the problem. I would start by running "chkdsk" (checkdisk). Then download and run drive testing software from the hard drive manufacturer.
What I have found to work the best though, is Acronis True Image (by attempting to create an image--backup). It will error out if it finds bad sectors.
You didn't mention what brand hard drive you have, but here are some links for two different brands:
I've never used "Xml.Serialization", but the following has been tested with the XML file you provided above:
Private Sub getEmployeeData(ByVal filename As String)
Dim doc As New Xml.XmlDocument
Dim numEmpleado As String = String.Empty
Dim selloSAT As String = String.Empty
Dim selloCFD As String = String.Empty
Dim noCertificadoSAT As String = String.Empty
Dim uuid As String = String.Empty
Dim fechaTimbrado As String = String.Empty
If Not (System.IO.File.Exists(filename)) Then
MessageBox.Show(filename + " not found.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Return 'exit
End If
Try
'load XML document
doc.Load(filename)
'set up NameSpaceManager
Dim man As Xml.XmlNamespaceManager = New Xml.XmlNamespaceManager(doc.NameTable)
'get the following information from the line that has
'the following format:
'xmlns:<prefix>=<url>
'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
'add "xsi" to namespace
man.AddNamespace("cfdi", "http://www.sat.gob.mx/cfd/3")
'xmlns:nomina="http://www.sat.gob.mx/nomina"
'add "nomina" to namespace
man.AddNamespace("nomina", "http://www.sat.gob.mx/nomina")
'xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital"
'add "tfd" to namespace
man.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
'get "nomina:Nomina" node
Dim xmlNominaNominaNode As Xml.XmlNode
xmlNominaNominaNode = doc.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/nomina:Nomina", man)
'if xmlNominaNominaNode has attributes, read them
If Not (xmlNominaNominaNode.Attributes Is Nothing) Then
For Each myAttrib As Xml.XmlAttribute In xmlNominaNominaNode.Attributes
'Console.WriteLine(" " & myAttrib.Name & ":" + myAttrib.Value)
If myAttrib.Name = "NumEmpleado" Then
numEmpleado = myAttrib.Value
End If
Next
End If
'get "tfd:TimbreFiscalDigital" node
Dim xmlTfdTimbreFiscalDigital As Xml.XmlNode
xmlTfdTimbreFiscalDigital = doc.SelectSingleNode("/cfdi:Comprobante/cfdi:Complemento/tfd:TimbreFiscalDigital", man)
'if xmlTfdTimbreFiscalDigital has attributes, read them
If Not (xmlTfdTimbreFiscalDigital.Attributes Is Nothing) Then
For Each myAttrib As Xml.XmlAttribute In xmlTfdTimbreFiscalDigital.Attributes
'Console.WriteLine(" " & myAttrib.Name & ":" + myAttrib.Value)
If myAttrib.Name = "selloSAT" Then
selloSAT = myAttrib.Value
ElseIf myAttrib.Name = "selloCFD" Then
selloCFD = myAttrib.Value
ElseIf myAttrib.Name …
Create a List as ddanbe stated. Then create a sort method that sorts the list based on the field that you want to use to sort it. The code below sorts by ConferenceDate, then ParticipantType, then by Participant.
Conference.vb
Public Class Conference
Public Participant As String
Public ParticipantType As String
Public ChapterNumber As String
Public ConferenceCode As String
Public ConferenceDate As DateTime
'constructor
Public Sub New(ByVal Participant As String, _
ByVal ParticipantType As String, _
ByVal ChapterNumber As String, _
ByVal ConferenceCode As String, _
ByVal ConferenceDate As DateTime)
Me.Participant = Participant
Me.ParticipantType = ParticipantType
Me.ChapterNumber = ChapterNumber
Me.ConferenceCode = ConferenceCode
Me.ConferenceDate = ConferenceDate
End Sub
End Class
Declaration:
Private conferenceList As New List(Of Conference)
addTestDataToList:
Private Sub addTestDataToList()
conferenceList.Add(New Conference("Rose Brown", "Member", "pc", "1234", New DateTime(2014, 11, 7)))
conferenceList.Add(New Conference("Megan Randall", "Guest", "fl", "1234", New DateTime(2014, 11, 8)))
conferenceList.Add(New Conference("Mike Done", "Advisor", "nm", "1234", New DateTime(2014, 11, 7)))
conferenceList.Add(New Conference("John Smith", "Member", "pc", "1234", New DateTime(2014, 11, 7)))
conferenceList.Add(New Conference("Tom Brooks", "Member", "pc", "1234", New DateTime(2014, 11, 7)))
conferenceList.Add(New Conference("Peter Davis", "Member", "pc", "1234", New DateTime(2014, 11, 8)))
conferenceList.Add(New Conference("Jane Doe", "Guest", "nm", "1234", New DateTime(2014, 11, 7)))
conferenceList.Add(New Conference("Bill Duncan", "Member", "fl", "1234", New DateTime(2014, 11, 8)))
conferenceList.Add(New Conference("David Dolittle", "Member", "pc", "1234", New DateTime(2014, 11, 8)))
End Sub
sort:
Private Sub Sort(Optional ByVal nameSort As String = "firstname")
'sorts by date, then by ParticipantType
Dim tempConference As Conference
'sort
For i As Integer = 0 To conferenceList.Count - …
