Consultas sobre Visual Basic 6

Surfeando me encontre esto.

pablooo dijo:
hola
smiley%20-%20classic.gif

soy nuevo en esto de programacion mi pregunta es esta:
necisito hacer una aplicacion en la que escirba un texto y al hacer clic en el boton "ejecutar" el texto se invierta algo asi como.... pablooo ooolbap
Haz clic para expandir...
Viejito mira si te funciona este ejemplo que me encontre hace mucho tiempo en la web
 

Archivos adjuntos

  • vb_ControlString.zip
    4.3 KB · Visitas: 271
Berseker1 dijo:
una pregunta... porq casi nadie le hace al visual????.. es acaso por lo q hay que pagar licencia x los programas q se creen en ese programa?????


saludos
Haz clic para expandir...

licencias y quizas pantentes, aunque la mayoria son de MS, que los protege por su "Pograma de proteccion extendida al cliente", que al adquirir una suite de MS adquieres un derecho de distribucion de dichas patentes, un arma de doble filo.
ademas la verdad que ahora lo moderno son los programas basados en web.
 
Señores Tengo una Preguntica...
¿Como puedo eliminar un elemento de una Matriz, pero sin nesecidad de Vaciala Toda?
no se como, no he podido...
 
CaRrAcA dijo:
Señores Tengo una Preguntica...
¿Como puedo eliminar un elemento de una Matriz, pero sin nesecidad de Vaciala Toda?
no se como, no he podido...
Haz clic para expandir...

un elemento o una fila?
si es un elemento así como yuskekiss te dice lo puedes hacer.
si es una fila.. haces los corrimiento de un a fila a otra y disminuyes el tamaño en 1. :cool:
 
Seria eliminar la fila completa, pero lo que no se es como correr todos los elemntos una fila arriba...

Ademas el numero del elemento lo controla una matriz de controles es decir:

Winsock(1).localport = PuertoC(1)

entonces si elimino la fila y le resto a cada uno de los elementos la informacion que le llegaria al ontrol no serai la que se le asignó...
 
CaRrAcA dijo:
Seria eliminar la fila completa, pero lo que no se es como correr todos los elemntos una fila arriba...

Ademas el numero del elemento lo controla una matriz de controles es decir:

Winsock(1).localport = PuertoC(1)

entonces si elimino la fila y le resto a cada uno de los elementos la informacion que le llegaria al ontrol no serai la que se le asignó...
Haz clic para expandir...


pero corre los registros que van abajo de la fila a eliminar... así no se pierden los datos.:S:s
 
usa esta funcion usando un bucle for

Sub DeleteArrayItem(arr As Variant, index As Long)
Dim i As Long
For i = index To UBound(arr) - 1
arr(i) = arr(i + 1)
Next
string. arr(UBound(arr)) = Empty
End Sub

Segun lo que lei esta funcion es muy lenta asi que usa la funcion api copymemory

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(dest As Any, source As Any, ByVal numBytes As Long)

Sub DeleteArrayItemLong(arr() As Long, index As Long)
If index < UBound(arr) Then
CopyMemory arr(index), arr(index + 1), (UBound(arr) - index) * LenB(arr(index))
End If
arr(index) = Empty
End Sub

para .net no debes usar any como tipo para los parametros de la api ya que no se permite.
 
Hola Foro, me pongo a sus órdenes para preguntas y respuestas en VB6, soy MCSD en la versión 6 justamente... en proceso para .NET

Un abrazo
 
Hola a todos
Quería solicitarles el grande favor de que si alguien sabe como diantres se puede imprimir con un DataGrid?? la verdad he buscado por todo lado pero no encuentro la solución a este problema agradezco a quien me pueda ayudar GRACIAS
 
carloscaliche dijo:
Hola a todos
Quería solicitarles el grande favor de que si alguien sabe como diantres se puede imprimir con un DataGrid?? la verdad he buscado por todo lado pero no encuentro la solución a este problema agradezco a quien me pueda ayudar GRACIAS
Haz clic para expandir...
dos cosas.
objeto print (voy largo de imprementar)
Harvey Triana tiene un articulo sobre la implementacion.

con un form.print.
 
QUE HAY:
Tengo una duda la verdad es que ya tengo rato que no usaba el basic 6.0 y no puedo recordar como hacer un hipervinculo de un archivo de excel es decir en un menu tengo la opcion de "datos" y al darle ahi necesito me abra el archivo¨"TOTALES.xls" en excel si alguien puede decirme la sintaxis o un ejemplo se los agradecere ah y otra duda que tengo es la siguiente:

Tengo un boton exportar a excel y necesito que cuando lo abra en excel todos los datos que exporto ya esten seleccionados ya saben para copiar rapido y ponerlo en un nuevo libro sin necesidad de seleccionarlo me dicen si se puede pero por lo pronto me urge lo primero

gracias!!!!
 
Hola buenas tardes!!
Este es mi primer posteo en laneros. El motivo es que tengo un PFC en la Universidad el cual se trata de realizar una aplicacion para una PDA con Visual Studio 2008 (o cualquier version), el cual sirve como asistencia remota.
Es decir ejecutando la aplicacion en nuestra PDA llegue el mensaje a un "lugar" de monitorizacion, en el cual existira una BBDD nuestra (se supone que enviara un http a una pagina web creada por nosotros).
Me gustaria saber si todo esto lo puedo realizar con el Visual Studio 2008, es decir, la sincronizacion con la BBDD, con la web, etc... y si dispusieseis de algun manual o tutorial de visual basic, ya que nunca he programado en este tipo de programacion.

Muchas gracias a todos!!!
 
Muchachos muy buenas las tengan, las mañanas, tardes o noches, (ayyy sii no....)

Primero que nada un saludo, me estoy iniciando en esto de la programación o más bien dicho estoy en la Carrera de Ing. en Telecomunicaciones y ps como apenas empiezo resulta que también debo aprender a programar, no es mi fuerte pero aqui está mi pregunta.

Necesito hacer un programa que me de los Signos Zodiacales, como no me dijeron en que, lo estoy haciendo en visual, y ya tengo todo el código, solo me falta agregar unas líneas en donde me mande un mensaje de error (como los que ya tengo), en donde estoy pidiendo que el usuario me de su día de nacimiento, y el mes, si pone otra cosa que no sea un mes me manda un mensaje que dice que no es valido, pero no lo puedo hacer en caso de que meta TEXTO en el campo en donde va el día y el programa se detiene, como creen que me puedan ayudar¿¿¿¿

De antemano gracias.

Este es mi código.

Código: 
Dim a As Integer
Dim b As String
Dim c As String
a = TextBox1.Text
b = TextBox2.Text
b = UCase(TextBox2.Text)
If b <> "ENERO" And b <> "FEBRERO" And b <> "MARZO" And b <> "ABRIL" And b <> "MAYO" And b <> "JUNIO" And b <> "JULIO" And b <> "AGOSTO" And b <> "SEPTIEMBRE" And b <> "OCTUBRE" And b <> "NOVIEMBRE" And b <> "DICIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "ENERO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 29 And b = "FEBRERO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "MARZO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "ABRIL" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "MAYO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "JUNIO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "JULIO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "AGOSTO" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "SEPTIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "OCTUBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 30 And b = "NOVIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 31 And b = "DICIEMBRE" Then
MsgBox ("No es una Fecha Valida, Introduce de Nuevo una Fecha Real")
End If
If a > 20 And a < 32 And b = "MARZO" Then
c = "Tu Signo Es ARIES"
ElseIf a > 0 And a < 21 And b = "ABRIL" Then
c = "Tu Signo Es ARIES"
ElseIf a > 21 And a < 31 And b = "ABRIL" Then
c = "Tu Signo Es TAURO"
ElseIf a > 0 And a < 22 And b = "MAYO" Then
c = "Tu Signo Es TAURO"
ElseIf a > 21 And a < 32 And b = "MAYO" Then
c = "Tu Signo Es GEMINIS"
ElseIf a > 0 And a < 22 And b = "JUNIO" Then
c = "Tu Signo Es GEMINIS"
ElseIf a > 20 And a < 30 And b = "JUNIO" Then
c = "Tu Signo Es CÁNCER"
ElseIf a > 0 And a < 24 And b = "JULIO" Then
c = "Tu Signo Es CÁNCER"
ElseIf a > 23 And a < 32 And b = "JULIO" Then
c = "Tu Signo Es LEO"
ElseIf a > 0 And a < 24 And b = "AGOSTO" Then
c = "Tu Signo Es LEO"
ElseIf a > 24 And a < 31 And b = "AGOSTO" Then
c = "Tu Signo Es VIRGO"
ElseIf a > 0 And a < 24 And b = "SEPTIEMBRE" Then
c = "Tu Signo Es VIRGO"
ElseIf a > 23 And a < 30 And b = "SEPTIEMBRE" Then
c = "Tu Signo Es LIBRA"
ElseIf a > 0 And a < 24 And b = "OCTUBRE" Then
c = "Tu Signo Es LIBRA"
ElseIf a > 23 And a < 31 And b = "OCTUBRE" Then
c = "Tu Signo Es ESCORPIO"
ElseIf a > 0 And a < 23 And b = "NOVIEMBRE" Then
c = "Tu Signo Es ESCORPIO"
ElseIf a > 22 And a < 30 And b = "NOVIEMBRE" Then
c = "Tu Signo Es SAGITARIO"
ElseIf a > 0 And a < 22 And b = "DICIEMBRE" Then
c = "Tu Signo Es SAGITARIO"
ElseIf a > 21 And a < 31 And b = "DICIEMBRE" Then
c = "Tu Signo Es CAPRICORNIO"
ElseIf a > 0 And a < 21 And b = "ENERO" Then
c = "Tu Signo Es CAPRICORNIO"
ElseIf a > 20 And a < 31 And b = "ENERO" Then
c = "Tu Signo Es ACUARIO"
ElseIf a > 0 And a < 20 And b = "FEBRERO" Then
c = "Tu Signo Es ACUARIO"
ElseIf a > 19 And a < 29 And b = "FEBRERO" Then
c = "Tu Signo Es PISCIS"
ElseIf a > 0 And a < 19 And b = "MARZO" Then
c = "Tu Signo Es PISCIS"
End If
TextBox3 = c
End Sub
 

Los últimos mensajes

Los últimos temas

Arriba Pie
Atrás