| |
 Mostrar Temas
|
|
Páginas: 1 [2] 3 4 5
|
|
11
|
Programación / .NET (C#, VB.NET, ASP) / Ejecutar VBScript en VB.NET "On The Fly"
|
en: 19 Marzo 2009, 21:21 pm
|
|
Buenas a todos.
Ese es mi problema, ejecutar un vbscript en vb.net al vuelo.
Se puede hacer mediante archivos temporales, pero lo que a mi me interesa es crear una función en vbscript y poder ejecutarla desde mi aplicación, obviamente recuperando el resultado de esa función.
Si alguno me puede ayudar se lo agradecería.
Saludos
|
|
|
|
|
12
|
Programación / .NET (C#, VB.NET, ASP) / Leer datos de otra aplicacion (VB.NET)
|
en: 13 Enero 2009, 03:10 am
|
|
Buenasssss
Tengo una duda, estoy haciendo una aplicacion y necesito sacar datos de otra.
Por ejemplo... hay una aplicacion con varios campos de texto... el objetivo es obtener esos datos pedo desde una app echa por mi.
Ejemplo practico:
Abro Inicio - Ejecutar. => Escribo la ruta de un archivo a ejecutar, por ejemplo "notepad.exe" (Todavia no apreto Enter)
Abro mi aplicacion y obtengo lo que hay escrito en el campo de texto del cuadro Ejecutar.... en este caso seria: "notepad.exe"
Me explico?
Si a alguno se le ocurre me seria de ayuda. Mientras tanto voy a seguir buscando y si lo encuentro lo posteo.
Gracias!
|
|
|
|
|
13
|
Programación / .NET (C#, VB.NET, ASP) / Imprimir grafico
|
en: 1 Septiembre 2008, 17:55 pm
|
Bueno, les comento mi duda. Necesito imprimir el contenido de un PictureBox, pero... lo que hay dentro no es una imagen. Simplemente uso el PictureBox como contenedor. Lo que necesito imprimir es lo que dibujo dentro de el. Con este codigo dibujo el grafico: Private Sub Pic_Graf1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pic_Graf1.Paint
Dim Superficie As Graphics
Dim Lapiz As Pen
Dim RectanguloSuperior As Rectangle
Dim RectanguloInferior As Rectangle
Dim RectanguloRelleno As Rectangle
Dim Relleno As SolidBrush
Dim Fuente As Font
If ActivateGraph_1 = False Then
Pic_Graf1.Image = My.Resources._50px_error
Me.Refresh()
Exit Sub
Else
Pic_Graf1.Image = Nothing
End If
Superficie = e.Graphics
Lapiz = New Pen(Color.Black, 2)
Relleno = New SolidBrush(Color.Gray)
Fuente = New Font("Arial", 12, FontStyle.Bold)
RectanguloSuperior = New Rectangle(5, 5, 100, 50)
RectanguloInferior = New Rectangle(5, 15, 100, 50)
RectanguloRelleno = New Rectangle(10, 30, 95, 15)
Superficie.FillRectangle(Relleno, RectanguloRelleno)
Superficie.FillEllipse(Relleno, RectanguloInferior)
Dim Valor1 As Integer = iPorcent_1_1
Dim Valor2 As Integer = iPorcent_1_2
Dim Valor3 As Integer = iPorcent_1_3
Dim Valor4 As Integer = iPorcent_1_4
Dim Porcent1 As Integer
Dim Porcent2 As Integer
Dim Porcent3 As Integer
Dim Porcent4 As Integer
Porcent1 = (Valor1 * 360) / 100
Porcent2 = ((Valor2 * 360) / 100)
Porcent3 = ((Valor3 * 360) / 100)
Porcent4 = ((Valor4 * 360) / 100)
'Rellena las secciones con diferentes colores
Relleno.Color = pic_ref1.BackColor
Superficie.FillPie(Relleno, RectanguloSuperior, 0, Porcent1)
Relleno.Color = pic_ref2.BackColor
Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1, Porcent2)
Relleno.Color = pic_ref3.BackColor
Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1 + Porcent2, Porcent3)
Relleno.Color = pic_ref4.BackColor
Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1 + Porcent2 + Porcent3, Porcent4)
End Sub
Y ahora... lo que yo me pregunto... es como imprimo el grafico resultante? Saludos. |
|
|
|
|
14
|
Programación / .NET (C#, VB.NET, ASP) / Funciones con parametros propios
|
en: 9 Abril 2008, 05:11 am
|
Bueno, no se si me exprese bien en el titulo o no. Seguramente no. Lo que quiero decir y que no se como hacer es lo siguiente: Por ejemplo, cuando uno llama a MsgBox puede escribir el texto a mostrar, el titulo, etc. Tambien en un momento al apretar la ,(coma) se despliega un " menu" con constantes (las cuaales indican el estilo del cuadro). Lo que yo quiesiera es crear una funcion X() que (vamos a explicarlo paso por paso bien detalladamente como si estuviera con VB.NEET en este momento  ) cuando abra el parentesis al señalame los parametros que necesita pase lo siguiete: -Me pida el primer parametro StringSuponiendo que: Function X (Parametro1 As String....
End Function -Al presionar la coma y pasar al segundo parametro tambien lo tenga que tipiar Suponiendo que: Function X (Parametro1 As String, Parametro 2 As Integer....
End Function -Luego al presionar coma nuevamente para pasar al tercer parametro, lo tenga que seleccionar de una "listita" que previamente ala definnido. Espero haber sido lo suficientemente claro. Eso trate. Y por lo que veran no fui nada tecnico jaja Espero puedan sacarme de esta duda. Si no se entendio, tratare de expresarme mejor. Atte, Mariano Malomo |
|
|
|
|
15
|
Programación / .NET (C#, VB.NET, ASP) / VB.NET & VBA
|
en: 7 Abril 2008, 22:23 pm
|
|
Buen dia.
Hoy vengo con una duda un tanto interesante.
Quiesiera saber si es posible correr una funcion que se encuentra dentro de un macro de Excel.
Si no se entiende la pregunta, simplemente avisenme.
El inconveniente surge por lo siguiente:
Tengo un Excel Add-In el cual si paso su code a VB6 no funciona, ni tampoco en VB.NET. Ya que usa una cantidad de bibliotecas externas impresionantes, y cada llamada esta relacionada con otra. Es un Add-In muy extenso.
Entonces me imagine que seria mas facil correr las funciones desde el mismo.
Muchas gracias por el tiempo.
Atte.
Mariano Malomo
|
|
|
|
|
16
|
Programación / .NET (C#, VB.NET, ASP) / Inyeccion DLL VB.NET
|
en: 1 Abril 2008, 19:09 pm
|
|
Que tal? Tal y como dice el titulo. No he visto mucho por la web sobre inyeccion en .net, calculo que debe ser no muy distinto a VB6
Si alguien esta interesado en el tema, bienbenido
Atte.
Mariano Malomo
|
|
|
|
|
17
|
Programación / .NET (C#, VB.NET, ASP) / Fila fija en DataGridView
|
en: 31 Marzo 2008, 16:45 pm
|
|
Buenas, que tal?
Mi duda de hoy es la siguiente:
Como hacer para que en un DataGridView pueda tener aparte de la cabecera en donde poner titulos, poder poner otros titulos. Osea por decir de una manera, que la primer fila del Grid sea fija.
Se entiende?
No se me ocurre mucho, por el momento estoy usando otro grid en donde se ven las cabeceras nada mas, pero lo quiero hacer mas profesional.
Si alguien sabe de algo, me seria de ayuda.
Saludos
Mariano Malomo
|
|
|
|
|
18
|
Programación / .NET (C#, VB.NET, ASP) / Idiomas para mi applicacion
|
en: 13 Marzo 2008, 17:33 pm
|
Buen día a todos. Mi duda es la siguiente: Me gustaría que mi aplicación sea multilenguaje y tengo una idea para eso. Pero quisiera saber si .Net viene con alguna utilidad para el caso. La idea es la siguiente: En un archivo de texto plano guardar por linea el nombre que representa a un control: Boton_Aceptar = Nombre del control Luego, al abrir la aplicación, leer el archivo de idioma y asignarle a los controles el nombre que indica la variable, Por ejemplo: btn_aceptar.text = Boton_Aceptar Anterior mente se hizo: Dim Boton_Aceptar = nombre que se obtuvo del archivo Esa es mi idea. Si alguno conoce algo mejor me gustaría que me avise Dejo un saludo. |
|
|
|
|
19
|
Programación / .NET (C#, VB.NET, ASP) / Imprimir DataGridView
|
en: 5 Marzo 2008, 14:19 pm
|
|
Buen dia. Nuevamente con una duda importante.
Me gustaria saber como hago para imprimir un DataGridView desde VB.Net
Encontre una clase en la web pero para imprimir un DataGrid pero no me sirve.
Si alguien sabe como, se lo agradeceria
Saludos.
|
|
|
|
|
20
|
Programación / .NET (C#, VB.NET, ASP) / Exportar DataGridView a Excel (CODIGO)
|
en: 5 Febrero 2008, 18:04 pm
|
Aca les dejo un codigo para exportar un DataGridView a Excel. Crea un archivo .csv y luego lo abre con Excel, evitando la dependencia de alguna version en particular. El codigo es sencillo Se debe agregar: Function Exportar()
Dim strStreamW As Stream
Dim strStreamWriter As StreamWriter
Dim Filas = frm_principal.Grid.Rows.Count
Dim Columnas = frm_principal.Grid.Columns.Count
Dim Archivo As String = Application.StartupPath & "\Centros.csv"
Dim Linea
Dim f, c
File.Delete(Archivo)
strStreamW = File.OpenWrite(Archivo)
strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)
'CABECERA
For c = 0 To Columnas - 1
Linea = Linea & frm_principal.Grid.Columns(c).Name & ";"
Next
Linea = Mid(Linea, 1, Linea.ToString.Length - 1)
strStreamWriter.WriteLine(Linea)
Linea = Nothing
'FILAS
For f = 0 To Filas - 1
For c = 0 To Columnas - 1
Linea = Linea & frm_principal.Grid.Item(c, f).Value & ";"
'MsgBox(Grid.Item(c, f).Value)
Next
Linea = Mid(Linea, 1, Linea.ToString.Length - 1)
strStreamWriter.WriteLine(Linea)
Linea = Nothing
Next
strStreamWriter.Close()
Try
Process.Start(Archivo) 'Ejecuta el archivo creado
Catch Ex As Exception
MsgBox(Ex.Message, MsgBoxStyle.Critical, Ex.Source)
End Try
End Function En un boton: Espero les sirva. |
|
|
|
|
|
| |
|
