Uso libre de imágenes INSJEM2011???

Estuve observando...
Y resulta que buscando algunos datos, encontré que varios estudiantes utilizan varias de las imágenes colocadas en este blog.
Sabiendo que este blog lo realizo sin fines de lucro, pues no hay nada de malo en que utilicen las imágenes, fondos, logos, etc que están en este blog.
Pero.... lo que molesta es que en algunas de estas utilizaciones (carátulas, proyectos, softwares, interfaces, páginas web, trabajos, etc) son modificadas (si a eso se llama modificación) y las presentan como obras suyas, hasta tratan de tapar el copyrigth al grado de usurpar hasta la nominación del diseñador.
El caso es que si quieren utilizarlas, úsenlas, pero, no digan que son de propiedad suya. Claramente la nominación pertenece a SILENTdesign... o sea a diseños realizados por mi persona (Alejandro Montaño)..., así que no se pasen y hagan las cosas bien. GRACIAS.
NOTA: Esta aclaración no va apara todos, sino sólo para auqellos a quienes les quede el saco. A los demás adeptos a esta página, GRACIAS por seguirla y visitarla, la estaré mejorando y si quieres participar en ella manada tu correo a: insjem2011@hotmail.com

Deja de tu marca en la web

GraffitiMarkupLanguage.com (Trailer) from Evan Roth on Vimeo.

Graffiti Markup Language (Lenguaje de Marcado de Grafiti)

Graffiti Markup Language (.gml) es un formato de archivo abierto, universal, basado en XML, que está diseñado para guardar datos de movimiento de grafiti (coordenadas x, coordenadas y, y tiempo). GML tiene como objetivo convertirse en un puente sencillo que conecte la tinta y el código, promoviendo la colaboración entre escritores de grafiti y hackers.

 
Clik aquí

Pasar de un TextBox a otro al pulsar Enter:

Insertar tres TextBox y escribir el siguiente código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
otra forma:
Insertar tres TextBox, cambiar la propiedad KeyPreview del formulario a True y escribir el siguiente código:

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Provocar la trasparencia de un formulario:

Escribir el siguiente código:
Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long,
ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
Dim Resp As Long
Resp = SetWindowLong(Me.hwnd, -20, &H20&)
Form1.Refresh
End Sub

Como desplegar la lista de un ComboBox automáticamente:

Insertar un ComboBox y un Botón en un nuevo proyecto y escribir el siguiente código:

Private Declare Function SendMessageLong Lib "user32" Alias
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Objeto 1"
Combo1.AddItem "Objeto 2"
Combo1.AddItem "Objeto 3"
Combo1.AddItem "Objeto 4"
Combo1.AddItem "Objeto 5"
Combo1.AddItem "Objeto 6"
Combo1.AddItem "Objeto 7"
Combo1.Text = "Objeto 1"
End Sub

Private Sub Command1_Click()
'ComboBox desplegado
Dim Resp As Long
Resp = SendMessageLong(Combo1.hwnd, &H14F, True, 0)
End Sub
Nota: Resp = SendMessageLong(Combo1.hwnd, &H14F, False, 0) oculta la lista desplegada de un ComboBox, aunque esto sucede también cuando cambiamos el focus a otro control o al formulario.

Uso de Random:

La función Rnd o Random posee la virtud de obtener números aleatorios entre 0 y 1:

El único inconveniente a la hora de usar Rnd, es que hay que inicializarlo, en otro caso, el resultado de la función Rnd, será siempre el mismo dentro de un determinado ordenador. Por ejemplo, el código:

Private Sub Form_Load()
  Dim Num As Double
  Num = Rnd
  MsgBox Num
End Sub

Nos daría como resultado siempre el mismo número.

Para solucionar este problema, debemos escribir la sentencia Randomize antes de llamar a la función Rnd. De esta manera, la función Rnd actuará correctamente.

El código quedaría así:

Private Sub Form_Load()
  Dim Num As Double
  Randomize
  Num = Rnd
  MsgBox Num
End Sub