Visual Basic - crear api instalable

Life is soft - evento anual de software empresarial
   
Vista:

crear api instalable

Publicado por pedro (5 intervenciones) el 04/12/2013 14:04:49
buenos dias
soy nuevo programando en visual basic 2010 estoy haciendo un aplicativo q genere archivos planos como implemento las API'S para que el aplicativo sea instalable en cualquier pc si tienen una guia o tutoriales que me recomienden les agradesco
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

crear api instalable

Publicado por omar pc.net.2018@hotmail.com (17 intervenciones) el 04/12/2013 14:39:22
en internet podrias encontrar ejemplos de archivos planos de tladamente

pero si deseas un ejemplo de una aplicación con código fuente de como generar textos planos según lo que tu requieres
tiene un costo

envíame un email si deseas apoyo para elaborar alguno
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

crear api instalable

Publicado por pedro (5 intervenciones) el 04/12/2013 15:00:21
Gracias Omar por contestar ya tengo mi codigo pero no entiendo la parte de las API'S Para que sea instalable y para que cambie mi formulario si esto se hace en un modulo estoy desorientado
mira el codigo que llevo y me genera el archivo

Imports System.IO

Public Class FormColpatria

Private Sub FormColpatria_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

el archivo se genera tomando lo insertado en las cajas texto
xxxxxx xxxxxx xxxxxxx xxxxxxx xxxxxxx



Private Sub Btngenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btngenerar.Click

Dim objbanco As New Clscolpatria()
Try
objbanco.num_SecReg = TxtNsecuReg.Text
objbanco.tiporeg = TxtTpReg.Text
objbanco.fecharecibo = TxtF_recibo.Text
objbanco.nitcliente = TxtNitcli.Text
objbanco.clav = Txtclave.Text
objbanco.num_reg = TxtNregEnv.Text
objbanco.ofi_pag = TxtOfiPago.Text
objbanco.numcuenta = TxtNumCuenta.Text
objbanco.espaci = Txtespacios.Text

If Not objbanco.guardararchivo() Then
lblerror.Text = objbanco.lberror
Else
lblerror.Text = "se ha generado el archivo correctamente"

End If
Catch ex As Exception
lblerror.Text = ex.Message

End Try


Try
Dim objarchivo As New System.IO.StreamWriter("./archivotexto.txt")
objarchivo.Write(TxtNsecuReg.Text + " ")
objarchivo.Write(TxtTpReg.Text + " ")
objarchivo.Write(TxtF_recibo.Text + " ")
objarchivo.Write(TxtNitcli.Text + " ")
objarchivo.Write(Txtclave.Text + " ")
objarchivo.Write(TxtNregEnv.Text + " ")
objarchivo.Write(TxtOfiPago.Text + " ")
objarchivo.Write(TxtNumCuenta.Text + " ")
objarchivo.Write(Txtespacios.Text + " ")
objarchivo.Close()
TxtNsecuReg.Text = ""
TxtTpReg.Text = ""
TxtF_recibo.Text = ""
TxtNitcli.Text = ""
Txtclave.Text = ""
TxtNregEnv.Text = ""
TxtOfiPago.Text = ""
TxtNumCuenta.Text = ""
Txtespacios.Text = ""


Catch ex As Exception
MsgBox("no se pudo guardar el archivo", MsgBoxStyle.Critical)
End Try

End Sub

Private Sub Btnleer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnleer.Click
Try
Dim miruta As String = ("./archivotexto.txt")
Dim archivo As New System.IO.StreamReader(miruta)


'Devuelve la matriz de cadenas resultante de la separación de una cadena en subcadenas.'
Dim S() As String = Split(archivo.ReadToEnd, " ")

TxtNsecuReg.Text = S(0)
TxtTpReg.Text = S(1)
TxtF_recibo.Text = S(2)
TxtNitcli.Text = S(3)
Txtclave.Text = S(4)
TxtNregEnv.Text = S(5)
TxtOfiPago.Text = S(6)
TxtNumCuenta.Text = S(7)
Txtespacios.Text = S(8)
archivo.Close()

Catch ex As Exception
MsgBox("No se pudo guardar el archivo", MsgBoxStyle.Critical)

End Try
End Sub
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar