|
Mostrar Mensajes
|
Páginas: 1 [2]
|
11
|
Programación / Programación Visual Basic / problema de imagen
|
en: 27 Octubre 2009, 16:32 pm
|
hola estoy haciendo un programa para guardar datos de empleados pero queria saber como se hace para agarrar una foto desde cualquier parte del disco de la compu y guardarla en la base de datos q cuando busque a ese empleado me aparezca su foto de antemano gracias
|
|
|
12
|
Programación / Programación Visual Basic / problema con base de datos en visual
|
en: 24 Octubre 2009, 21:56 pm
|
hola tngo un pequeño problema bueno ya conecte una base de datos a visual con una lista de trabajadores y eso... pero lo que necesito es saber como a cada hoja de trabajador le agrego una foto algo asi como una ficha de personal.... lo demas lo tengo todo hecho solo necesito saber como poner una foto si pueden ayudarme les agradeceria muxo
|
|
|
13
|
Programación / Programación Visual Basic / juego del ping pong
|
en: 9 Octubre 2009, 05:41 am
|
hola necesito ayuda con este ejercicio tngo que hacer que rebote por las 4 paredes pero solo logro hacer que rebote derecho
esto es lo que he echo
Private Sub Form_KeyPress(KeyAscii As Integer) 'Print "tecla:"; Chr$(KeyAscii) 'Print "valor"; KeyAscii If KeyAscii = 119 And Shape1.Top > 100 Then Shape1.Top = Shape1.Top - 100 End If If KeyAscii = 120 And Shape1.Top < 8900 Then Shape1.Top = Shape1.Top + 100 End If If KeyAscii = 56 And Shape2.Top > 100 Then Shape2.Top = Shape2.Top - 100 End If If KeyAscii = 50 And Shape2.Top < 8800 Then Shape2.Top = Shape2.Top + 100 End If If KeyAscii = 115 Then Shape1.Height = Shape1.Height - 50 Shape1.Top = Shape1.Top - 25 End If If KeyAscii = 97 Then Shape1.Height = Shape1.Height + 50 Shape1.Top = Shape1.Top + 25 End If If KeyAscii = 53 Then Shape2.Height = Shape2.Height - 50 Shape2.Top = Shape2.Top - 25 End If If KeyAscii = 48 Then Shape2.Height = Shape2.Height + 50 Shape2.Top = Shape2.Top + 25 End If End Sub
Private Sub Timer1_Timer() Randomize x = Int(Rnd(30) * 20) If i = 0 Then Shape3.Left = Shape3.Left + (x * 10) Else Shape3.Left = Shape3.Left - (x * 10) End If If Shape3.Left < 100 Then i = 1 End If If Shape3.Left > 18378 Then i = 1 End If If Shape3.Left - 495 <= Shape1.Left And Shape3.Top > Shape1.Top And Shape3.Top < Shape1.Top + 1815 Then i = 0 End If End Sub
|
|
|
14
|
Programación / Programación Visual Basic / tengo un problema
|
en: 6 Octubre 2009, 20:50 pm
|
ayer no mas empeze con visual basic 6.0 y la verdad tengo que hacer un ejercicio parecido al ping pong algo asi:
necesito que la pelota si toca las paletas rebote y eso si pueden ayudarne se los agradeceria ___________
0
___________
|
|
|
|
|
|
|