Mensajes

[command button]

Yo entiendo como boton a un command button, no a una tecla 

Corrijo, ya que no habia entendido bien, seguro algo asi te sirve:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim a() As String 'Declaramos un array dinamico tipo string para guardar las lineas
    a = Split(Text1.Text, vbNewLine) 'Cortamos con split cada linea y la guardamos en el array
    For i = 0 To UBound(a) 'Recorremos el array y vamos asignandolo al nuevo text con su respectivo *
        Text2.Text = Text2.Text & "*" & a(i) & vbNewLine
    Next i
End Sub
No se si exista una forma mas eficiente, pero asi funciona 

Saludos

Hola, como vi en el foro de C++ un tres en raya, aqui traigo uno que programe hace tiempo, es modular y estrictamente usando funciones; cuenta con una muy buena inteligencia artificial (les reto a que ganen en imposible  ), y tambien cuenta con la opcion de 2 jugadores, espero les guste.

http://www.megaupload.com/?d=XLDT29M1

Algunas capturas:



Por si quieres ver mi otro aporte:
http://foro.elhacker.net/programacion_vb/aporte_juego_vibora_vb-t240697.0.html

Saludos

[las constantes sustituyen un valor y lo hacen mas facil de reconocer]

Lo de las constantes no tiene mucha ciencia, y si el nombre tiene su logica, pero en visual basic al menos no es tan importante el nombre (aunque la mayoria lo respetan), simplemente las constantes sustituyen un valor y lo hacen mas facil de reconocer
Por ejemplo:

Esta es la version correcta:

Código (vb) [Seleccionar] Expandir

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Const MB_YESNO = &H4&
Const MB_ICONQUESTION = &H20&

Private Sub Command1_Click()
    MessageBox Me.hwnd, "Hola Mundo", "Hola", MB_YESNO + MB_ICONQUESTION
End Sub

Pero es exactamente el mismo resultado:

Código (vb) [Seleccionar] Expandir

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Command1_Click()
    MessageBox Me.hwnd, "Hola Mundo", "Hola", &H4& + &H20&
End Sub Igual puedes sustituir &H4& + &H20& por 32 +4 o simplemente 36.

Pero igual tambien puedes poner los nombres que desees a las constantes (respetando su valor):

Código (vb) [Seleccionar] Expandir

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Const SINO = &H4&
Const PREGUNTA = &H20&

Private Sub Command1_Click()
    MessageBox Me.hwnd, "Hola Mundo", "Hola", SINO + PREGUNTA
End Sub

Obviamente te recomiendo la forma correcta, ya que el tener buenos habitos de programacion te ayudara a migrar a otros lenguajes.

Saludos

Click derecho en el cuadro de herramientas/elegir elemento/componentes COM ahi palomeas "Microsoft Winsock Control Version 6"

Aunque no se para que lo quieres si vb 2008 usa tecnologia .NET que tiene sus propias clases para sockets, en fin.

Facil, consigue un manual desde 0 como este: http://elguille.info/vb/cursos_vb/basico/indice.htm pero empieza a leer desde donde te sientas menos familiariado, a ver si es cierto que eres "buen programador", y si, la unica es leer y leer y leer, si no lo haces nunca seras nada.

Saludos

En vez de usar el inputbox, porque no creas uno propio y lo mandas llamar en modo modal, luego recoges el contenido del textbox (del inputbox que creaste) y lo guardas en una variable declarada en un modulo.

Gracias a todos.

hahahaha muy bueno, veni de pelos hasta que mientras la serpiente iba para abajo aprete izquierda arriba bien rapido y pum! perdi sin salirme del terreno ni chocarme.

Quieres decir que te marcó que perdiste sin haber chocado?? Nunca me ha pasado, será un bug?, revisaré el código detenidamente.

que excelente aporte tio, dejare de comprar esos juegos costosos como el Halo 3 o el Gears of War y me pondre a jugar con el tuyo, es mejor       

Gracias, aunque se que es sarcasmo  , no es mi intencion competir con obras maestras como Gears of War o Halo, pero bueno me queda la satisfaccion de haber programado, quiza en un futuro pueda programar juegos de mas calidad para alguna empresa, ya que ese es mi sueño, por cierto porque me dices "tio" si ambos somos de México? 

Saludos

[for]

Hola, talvez no sea tan interesante como un troyano de conexion inversa o algun malware, pero he descargado mucho de este foro y jamas he aportado algo, asi que aqui les traigo uno de mis primeros juegos en Visual Basic, es muy util para aprender a usar el for, arreglos, control de teclas, numeros aleatorios, select case, dibujar puntos con el metodo PSet,guardar y leer archivos de texto, entre otras cosas, cualquier comentario es bienvenido.

http://www.mediafire.com/download.php?lngmn3ahmym

Saludos

Edito: Aqui van unas imagenes a parte de las de Novlucker, lo olvide por completo, gracias invisible_hack:

Si, el vb6 es compatible con vista sin problemas, pero te recomiendo la version 2008.

Saludos