Informatica-prohibida: prohibida

Efecto Rotación

<center>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="3276222169" style="display: inline-block; height: 280px; width: 336px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="4728944563" style="display: inline-block; height: 60px; width: 468px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcC5FUqHNNTzDeOco6pGfeUG6N3Z89CYAr5EKLEyozJVea_-P0eR6vk_wg0kwmwpWdA2KmUz-Kwcp5WGIePodmZvk3qq0-gmECtvvdUaF-bxkLy6w_qLX8ClxiWv6FcR6qyhxGHXzWWwWr/s1600/avatar.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgcC5FUqHNNTzDeOco6pGfeUG6N3Z89CYAr5EKLEyozJVea_-P0eR6vk_wg0kwmwpWdA2KmUz-Kwcp5WGIePodmZvk3qq0-gmECtvvdUaF-bxkLy6w_qLX8ClxiWv6FcR6qyhxGHXzWWwWr/s1600/avatar.jpg" /></a></div>
Hola a todos.<br />
Les vengo a dejar este efecto de rotación.<br />
Como en el tuto anterior, también hice uso del VB Shaped Form Creator.<br />
Hice dos imágenes de Dos círculos de diámetros diferentes.<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW3t_EW0Q73ZOoyTqsisEcpjJVUzFBM8PXGJ0u0WnfJ_ftpKpv29R-gP0dWj4FpoE3UgM-AIedxsOUaBwDIZPAhwS9G5XM9zg4JJXPOjuGjESHQjicqWiak6M_1jnyITIU5LVCKb74pe_L/s1600/Screenshot_17.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="249" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW3t_EW0Q73ZOoyTqsisEcpjJVUzFBM8PXGJ0u0WnfJ_ftpKpv29R-gP0dWj4FpoE3UgM-AIedxsOUaBwDIZPAhwS9G5XM9zg4JJXPOjuGjESHQjicqWiak6M_1jnyITIU5LVCKb74pe_L/s1600/Screenshot_17.png" width="320" /></a></div>
Usando el VB Shaped cree Un Form con el Circulo Grande y 4 Forms con el chiquito.<br />
Una vez hecho eso abro VB6 y generamos un nuevo proyecto.<br />
Agregamos los 5 forms antes creados y un sexto form que llame Principal.<br />
A los anteriores 5 los llame: CirculoAb, CirculoAr, CirculoDe y CirculoIz (los chiquitos) y<br />
Presentación (al Grande).<br />
<br />
<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGBhsYz01Xu9-MLvowkRqbT0RPP2DV3SYJFj8LuWkAPgJ4bMVTTXcZiUs9uOWGzBhuxz7QmKcGbf4QUeqKMJw5swIAhQn7R0ci0d86Z4HKSdlK59wdIjgBYHUDUivoJ0U-2NAkJZczeqSR/s1600/Screenshot_18.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="277" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGBhsYz01Xu9-MLvowkRqbT0RPP2DV3SYJFj8LuWkAPgJ4bMVTTXcZiUs9uOWGzBhuxz7QmKcGbf4QUeqKMJw5swIAhQn7R0ci0d86Z4HKSdlK59wdIjgBYHUDUivoJ0U-2NAkJZczeqSR/s1600/Screenshot_18.png" width="320" /></a></div>
Además agregue un Modulo llamado Transparencia.<br />
Al cual le agregue este código para hacer transparente un form:<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
---------------------<br />
<b>Option Explicit</b><br />
<b>Private Declare Function SetLayeredWindowAttributes Lib "user32" _</b><br />
<b>(ByVal hWnd As Long, _</b><br />
<b>ByVal crKey As Long, _</b><br />
<b>ByVal bAlpha As Byte, _</b><br />
<b>ByVal dwFlags As Long) As Long</b><br />
<b>Private Declare Function GetWindowLong Lib "user32" Alias</b><br />
<b>"GetWindowLongA" _</b><br />
<b>(ByVal hWnd As Long, _</b><br />
<b>ByVal nIndex As Long) As Long</b><br />
<b>Private Declare Function SetWindowLong Lib "user32" Alias</b><br />
<b>"SetWindowLongA" _</b><br />
<b>(ByVal hWnd As Long, _</b><br />
<b>ByVal nIndex As Long, _</b><br />
<b>ByVal dwNewLong As Long) As Long</b><br />
<b>Private Const GWL_EXSTYLE = (-20)</b><br />
<b>Private Const LWA_ALPHA = &H2</b><br />
<b>Private Const WS_EX_LAYERED = &H80000</b><br />
<b>Public Function Is_Transparent(ByVal hWnd As Long) As Boolean</b><br />
<b>On Error Resume Next</b><br />
<b>Dim Msg As Long</b><br />
<b>Msg = GetWindowLong(hWnd, GWL_EXSTYLE)</b><br />
<b>If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then</b><br />
<b>Is_Transparent = True</b><br />
<b>Else</b><br />
<b>Is_Transparent = False</b><br />
<b>End If</b><br />
<b>If Err Then</b><br />
<b>Is_Transparent = False</b><br />
<b>End If</b><br />
<b>End Function</b><br />
<b>Public Function Aplicar_Transparencia(ByVal hWnd As Long, Valor As</b><br />
<b>Integer) As Long</b><br />
<b>Dim Msg As Long</b><br />
<b>On Error Resume Next</b><br />
<b>If Valor < 0 Or Valor > 255 Then</b><br />
<b>Aplicar_Transparencia = 1</b><br />
<b>Else</b><br />
<b>Msg = GetWindowLong(hWnd, GWL_EXSTYLE)</b><br />
<b>Msg = Msg Or WS_EX_LAYERED</b><br />
<b>SetWindowLong hWnd, GWL_EXSTYLE, Msg</b><br />
<b>SetLayeredWindowAttributes hWnd, 0, Valor, LWA_ALPHA</b><br />
<b>Aplicar_Transparencia = 0</b><br />
<b>End If</b><br />
<b>If Err Then</b><br />
<b>Aplicar_Transparencia = 2</b><br />
<b>End If</b><br />
<b>End Function</b><br />
---------------------<br />
Yo le cambie el color de Fondo de todos los Forms por un negro. (Atributo BackColor igual a<br />
&H80000007&), ustedes pueden poner algunas imágenes o lo que deseen.<br />
En los códigos que crea el VB Shaped le borre el del evento MouseDown para que no se puedan<br />
mover con el Mouse.<br />
A los 4 forms chiquitos les agregue un Label, a los cuales llame Posición en todos los casos.<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5UbQrO6KTXCWs2S2rihwJnUg6yPXAP70Q02DouJNpWBciY181fk28_vDsF8Ed091n75N-kzx_DkuvdN_7JW_f_ORqrEXRI4KiHlNHO-FBo8cFQ5Rat5xyJI0rzRoXU4b-kLZj35G3juOL/s1600/Screenshot_19.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh5UbQrO6KTXCWs2S2rihwJnUg6yPXAP70Q02DouJNpWBciY181fk28_vDsF8Ed091n75N-kzx_DkuvdN_7JW_f_ORqrEXRI4KiHlNHO-FBo8cFQ5Rat5xyJI0rzRoXU4b-kLZj35G3juOL/s1600/Screenshot_19.png" /></a></div>
Ahora empezamos con el código.<br />
Al Form Principal solamente usando el evento Load, lo posicionamos en el medio de la pantalla.<br />
----------------<br />
<b>Private Sub Form_Load()</b><br />
<b>Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2</b><br />
<b>End Sub</b><br />
----------------<br />
En el caso de los cuatro form Chiquitos. Usando el evento Load, posicionamos el form en el medio<br />
de la pantalla. Ocultamos los Label (Atributo Visible = False) y en el atributo Caption le ponemos la<br />
posición en que se encuentra.<br />
CirculoAr --> Caption = "Arriba"<br />
CirculoAb --> Caption = "Abajo"<br />
CirculoDe --> Caption = "Derecha"<br />
CirculoIz --> Caption = "Izquierda"<br />
Veamos como seria:<br />
Form CirculoAr:<br />
-----------------<br />
<b>Private Sub Form_Load()</b><br />
<b>Dim nRet As Long</b><br />
<b>nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True)</b><br />
-----------------<br />
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2<br />
Posicion.Visible = False<br />
Posicion.Caption = "Arriba"<br />
End Sub<br />
Form CirculoAb:<br />
Private Sub Form_Load()<br />
Dim nRet As Long<br />
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True)<br />
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2<br />
Posicion.Visible = False<br />
Posicion.Caption = "Abajo"<br />
End Sub<br />
Form CirculoDe:<br />
Private Sub Form_Load()<br />
Dim nRet As Long<br />
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True)<br />
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2<br />
Posicion.Visible = False<br />
Posicion.Caption = "Derecha"<br />
End Sub<br />
Form CirculoIz:<br />
Private Sub Form_Load()<br />
Dim nRet As Long<br />
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True)<br />
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2<br />
Posicion.Visible = False<br />
Posicion.Caption = "Izquierda"<br />
End Sub<br />
NOTA: Las dos primeras líneas las crea el VB Shaped.<br />
Ahora el form Presentación.<br />
Primero le agregamos un Timer.<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjx5lWcM6LVDEI11FUkmk9KyZh-M1CU6xEgydwGnDzezd019B8RPywdJ87hUFVDtaaz1mXBjiY5X3Zlina-N4LAFuOrBRAxZ-Y-DroQeswdZKupDO2QV46Tok7MJ4qh1C2e4-8FvXH4fN38/s1600/Screenshot_20.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjx5lWcM6LVDEI11FUkmk9KyZh-M1CU6xEgydwGnDzezd019B8RPywdJ87hUFVDtaaz1mXBjiY5X3Zlina-N4LAFuOrBRAxZ-Y-DroQeswdZKupDO2QV46Tok7MJ4qh1C2e4-8FvXH4fN38/s1600/Screenshot_20.png" /></a><br />
Y le ponemos un 1000 en el atributo Interval.<br />
Bien.<br />
Agregamos la Api para la función Sleep<br />
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)<br />
Y definimos estas variables globales, que utilizaremos más adelante:<br />
Dim SeguirGirando As Boolean<br />
Dim arribaX As Integer, arribaY As Integer, abajoX As Integer, abajoY As<br />
Integer, derechaX As Integer, derechaY As Integer, izquierdaX As Integer,<br />
izquierdaY As Integer<br />
En el evento Load ponemos esto:<br />
Private Sub Form_Load()<br />
Dim nRet As Long<br />
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True)<br />
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2<br />
Call Aplicar_Transparencia(Me.hWnd, CByte(0))<br />
CirculoAb.Show<br />
CirculoAr.Show<br />
CirculoDe.Show<br />
CirculoIz.Show<br />
SeguirGirando = True<br />
End Sub<br />
Las primeras dos líneas las agrega el VB Shaped.<br />
Posicionamos el form en el medio de la pantalla.<br />
Le ponemos una transparencia = 0, es decir lo hago totalmente invisible.<br />
Muestro todos los forms chiquitos.<br />
Y le asigno a la variable booleana antes definida un valor igual a True.<br />
Vamos a agregar un Sub llamado Girar, que va a ser el encargado de producir el efecto.<br />
Private Sub Girar()<br />
Dim j As Integer<br />
j = 0<br />
Do While SeguirGirando<br />
If CirculoAr.Posicion.Caption = "Arriba" Then<br />
CirculoAr.Top = CirculoAr.Top + 1<br />
CirculoAr.Left = CirculoAr.Left + 1<br />
If (CirculoAr.Left = derechaX) And (CirculoAr.Top = derechaY)<br />
Then CirculoAr.Posicion.Caption = "Derecha"<br />
DoEvents<br />
End If<br />
If CirculoAr.Posicion.Caption = "Derecha" Then<br />
CirculoAr.Top = CirculoAr.Top + 1<br />
CirculoAr.Left = CirculoAr.Left - 1<br />
If (CirculoAr.Left = abajoX) And (CirculoAr.Top = abajoY)<br />
Then CirculoAr.Posicion.Caption = "Abajo"<br />
DoEvents<br />
End If<br />
If CirculoAr.Posicion.Caption = "Abajo" Then<br />
CirculoAr.Top = CirculoAr.Top - 1<br />
CirculoAr.Left = CirculoAr.Left - 1<br />
If (CirculoAr.Left = izquierdaX) And (CirculoAr.Top =<br />
izquierdaY) Then CirculoAr.Posicion.Caption = "Izquierda"<br />
DoEvents<br />
End If<br />
If CirculoAr.Posicion.Caption = "Izquierda" Then<br />
CirculoAr.Top = CirculoAr.Top - 1<br />
CirculoAr.Left = CirculoAr.Left + 1<br />
If (CirculoAr.Left = arribaX) And (CirculoAr.Top = arribaY)<br />
Then<br />
CirculoAr.Posicion.Caption = "Arriba"<br />
j = j + 1<br />
End If<br />
DoEvents<br />
End If<br />
If CirculoAb.Posicion.Caption = "Abajo" Then<br />
CirculoAb.Top = CirculoAb.Top - 1<br />
CirculoAb.Left = CirculoAb.Left - 1<br />
If (CirculoAb.Left = izquierdaX) And (CirculoAb.Top =<br />
izquierdaY) Then CirculoAb.Posicion.Caption = "Izquierda"<br />
DoEvents<br />
End If<br />
If CirculoAb.Posicion.Caption = "Izquierda" Then<br />
CirculoAb.Top = CirculoAb.Top - 1<br />
CirculoAb.Left = CirculoAb.Left + 1<br />
If (CirculoAb.Left = arribaX) And (CirculoAb.Top = arribaY)<br />
Then CirculoAb.Posicion.Caption = "Arriba"<br />
DoEvents<br />
End If<br />
If CirculoAb.Posicion.Caption = "Arriba" Then<br />
CirculoAb.Top = CirculoAb.Top + 1<br />
CirculoAb.Left = CirculoAb.Left + 1<br />
If (CirculoAb.Left = derechaX) And (CirculoAb.Top = derechaY)<br />
Then CirculoAb.Posicion.Caption = "Derecha"<br />
DoEvents<br />
End If<br />
If CirculoAb.Posicion.Caption = "Derecha" Then<br />
CirculoAb.Top = CirculoAb.Top + 1<br />
CirculoAb.Left = CirculoAb.Left - 1<br />
If (CirculoAb.Left = abajoX) And (CirculoAb.Top = abajoY)<br />
Then CirculoAb.Posicion.Caption = "Abajo"<br />
DoEvents<br />
End If<br />
If CirculoDe.Posicion.Caption = "Derecha" Then<br />
CirculoDe.Top = CirculoDe.Top + 1<br />
CirculoDe.Left = CirculoDe.Left - 1<br />
If (CirculoDe.Left = abajoX) And (CirculoDe.Top = abajoY)<br />
Then CirculoDe.Posicion.Caption = "Abajo"<br />
DoEvents<br />
End If<br />
If CirculoDe.Posicion.Caption = "Abajo" Then<br />
CirculoDe.Top = CirculoDe.Top - 1<br />
CirculoDe.Left = CirculoDe.Left - 1<br />
If (CirculoDe.Left = izquierdaX) And (CirculoDe.Top =<br />
izquierdaY) Then CirculoDe.Posicion.Caption = "Izquierda"<br />
DoEvents<br />
End If<br />
If CirculoDe.Posicion.Caption = "Izquierda" Then<br />
CirculoDe.Top = CirculoDe.Top - 1<br />
CirculoDe.Left = CirculoDe.Left + 1<br />
If (CirculoDe.Left = arribaX) And (CirculoDe.Top = arribaY)<br />
Then CirculoDe.Posicion.Caption = "Arriba"<br />
DoEvents<br />
End If<br />
If CirculoDe.Posicion.Caption = "Arriba" Then<br />
CirculoDe.Top = CirculoDe.Top + 1<br />
CirculoDe.Left = CirculoDe.Left + 1<br />
If (CirculoDe.Left = derechaX) And (CirculoDe.Top = derechaY)<br />
Then CirculoDe.Posicion.Caption = "Derecha"<br />
DoEvents<br />
End If<br />
If CirculoIz.Posicion.Caption = "Izquierda" Then<br />
CirculoIz.Top = CirculoIz.Top - 1<br />
CirculoIz.Left = CirculoIz.Left + 1<br />
If (CirculoIz.Left = arribaX) And (CirculoIz.Top = arribaY)<br />
Then CirculoIz.Posicion.Caption = "Arriba"<br />
DoEvents<br />
End If<br />
If CirculoIz.Posicion.Caption = "Arriba" Then<br />
CirculoIz.Top = CirculoIz.Top + 1<br />
CirculoIz.Left = CirculoIz.Left + 1<br />
If (CirculoIz.Left = derechaX) And (CirculoIz.Top = derechaY)<br />
Then CirculoIz.Posicion.Caption = "Derecha"<br />
DoEvents<br />
End If<br />
If CirculoIz.Posicion.Caption = "Derecha" Then<br />
CirculoIz.Top = CirculoIz.Top + 1<br />
CirculoIz.Left = CirculoIz.Left - 1<br />
If (CirculoIz.Left = abajoX) And (CirculoIz.Top = abajoY)<br />
Then CirculoIz.Posicion.Caption = "Abajo"<br />
DoEvents<br />
End If<br />
If CirculoIz.Posicion.Caption = "Abajo" Then<br />
CirculoIz.Top = CirculoIz.Top - 1<br />
CirculoIz.Left = CirculoIz.Left - 1<br />
If (CirculoIz.Left = izquierdaX) And (CirculoIz.Top =<br />
izquierdaY) Then CirculoIz.Posicion.Caption = "Izquierda"<br />
DoEvents<br />
End If<br />
Sleep 0.5<br />
If j = 2 Then SeguirGirando = False<br />
Loop<br />
End Sub<br />
Hago una breve explicación de cómo trabaja.<br />
Dependiendo de la palabra que contenga cada label de los form, les cambia los atributos Left y<br />
Top. Haciendo mover el circulo que se encuentra arriba hacia donde está el circulo de la derecha,<br />
el circulo de la derecha hacia el circulo de abajo, el circulo de abajo hacia el circulo de la izquierda<br />
y el circulo de la izquierda hacia el circulo de arriba.<br />
Una vez que llegan a su nueva posición, les cambio el atributo Caption por la posición nueva,<br />
recién llegada.<br />
Usando una variable local j de tipo Integer. Controlo que se hagan dos vueltas y luego hago que<br />
salga del bucle.<br />
Entendido esto sigamos con el código.<br />
Ahora vamos a hacer uso del evento Timer del Timer agregado.<br />
Private Sub Timer1_Timer()<br />
Dim i As Integer<br />
For i = 0 To 3000<br />
CirculoAr.Top = CirculoAr.Top - 1<br />
DoEvents<br />
Sleep 0.6<br />
Next i<br />
arribaX = CirculoAr.Left<br />
arribaY = CirculoAr.Top<br />
For i = 0 To 3000<br />
CirculoAb.Top = CirculoAb.Top + 1<br />
DoEvents<br />
Sleep 0.6<br />
Next i<br />
abajoX = CirculoAb.Left<br />
abajoY = CirculoAb.Top<br />
For i = 0 To 3000<br />
CirculoDe.Left = CirculoDe.Left + 1<br />
DoEvents<br />
Sleep 0.6<br />
Next i<br />
derechaX = CirculoDe.Left<br />
derechaY = CirculoDe.Top<br />
For i = 0 To 3000<br />
CirculoIz.Left = CirculoIz.Left - 1<br />
DoEvents<br />
Sleep 0.6<br />
Next i<br />
izquierdaX = CirculoIz.Left<br />
izquierdaY = CirculoIz.Top<br />
For i = 0 To 255<br />
Call Aplicar_Transparencia(Me.hWnd, CByte(i))<br />
DoEvents<br />
Sleep 0.6<br />
Next i<br />
Girar<br />
Sleep 500<br />
Unload Me<br />
Unload CirculoAr<br />
Unload CirculoAb<br />
Unload CirculoDe<br />
Unload CirculoIz<br />
Principal.Show<br />
End Sub<br />
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
     style="display:inline-block;width:234px;height:60px"
     data-ad-client="ca-pub-6123383525339038"
     data-ad-slot="5218675366"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script><br />
Al principio aparecen los 4 forms chiquitos en el centro de la pantalla, usando la sentencia For<br />
llevo cada Circulo a su posición, uno por uno, y cuando los tengo posicionados guardo sus atributo<br />
Top y Left en las variables globales que definimos al principio, y que van a servir para tener la<br />
referencia de las ubicaciones principales. Luego hago que el form Presentación aparezca de a poco<br />
cambiando su transparencia. Llamamos al Sub Girar para que produzca el efecto y por últimos<br />
cerramos todos los forms y mostramos el Form Principal.<br />
Ustedes miren con más paciencia el código, y se darán cuenta de lo que hablo.<br />
Y ya hemos terminado.<br />
Verificamos que el proyecto se inicialice con el Form Presentación.<br />
Espero que les guste.<br />
Saludos.<br />
--------------<br />
<span style="background-color: white; color: #333333; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px;">No olviden visitar mi Web Oficial |</span><a href="http://no-mames.com/" style="background-color: white; color: #999999; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px; text-decoration: none;"><b><span style="color: magenta;">no-mames.com</span></b></a><span style="background-color: white; color: #333333; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px;">| solo por apoyo ya que hay no hablo nada sobre programación hay es algo mas ligero y solo de pasatiempo así que espero tener su apoyo en mi humilde web y pues a un que sea me den un me gusta o algo a si bueno ya mucho bla bla bla </span><br />
<b style="background-color: white; color: #333333; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px;">Empezando con tutoriales super básicos apoyame con un me gusta si el post su de tu agrado</b>
<center><script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
     style="display:inline-block;width:336px;height:280px"
     data-ad-client="ca-pub-6123383525339038"
     data-ad-slot="3276222169"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>

Efecto Rotación

Hola a todos. Les vengo a dejar este efecto de rotación. Como en el tuto anterior, también hice uso del VB Shaped Form Creator....

Efecto con botones visual basic 6.0

<center>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="3276222169" style="display: inline-block; height: 280px; width: 336px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="4728944563" style="display: inline-block; height: 60px; width: 468px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkXgNjGYIgq2CX6Cn8FkDyC98lkI9Z4_hNZeDj5CXtte1grr0jlMTigtf1uf7dog3Xkf0Psd05xZQaZQs85j0tsLCSk6mpVGCeN1YU-2YYszrfqfLmssd6Qcn23YJj8-wKdDBD0-mNrnJp/s1600/avatar.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhkXgNjGYIgq2CX6Cn8FkDyC98lkI9Z4_hNZeDj5CXtte1grr0jlMTigtf1uf7dog3Xkf0Psd05xZQaZQs85j0tsLCSk6mpVGCeN1YU-2YYszrfqfLmssd6Qcn23YJj8-wKdDBD0-mNrnJp/s1600/avatar.jpg" /></a></div>
Este tutorial se va a basar en efectos con botones.<br />
Empecemos:<br />
Como primer paso elegimos o hacemos las imágenes que van a estar involucradas.<br />
En mi caso usare estas: pero ustedes pueden optar por usar cualquiera que os gusten o les llamen mas la atención este solo es un tutorial de formación y explicación para ayudar a darles ideas y o bien hacerlo tal y como yo lo hago o ustedes ponerle de su creatividad a si que manos a la obra en la siguiente imagen de abajo pueden ver los que utilizare yo a si que mucho bla bla bla y nada de acción ya saben cualquier duda dejen su comentario por muy tonta que sea me gusta ria ver un comentario en alguno de mis post bueno ya basta a comenzar el tuto<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh65q-yXDvPXe9gZfnfJCoKXc6xebxI4APlJxZsgv2GqMqn4qfiTxqgqlCqWFMvpuFrMU6WAB7DcCKsU08l9QYIuq1gb3b-heT94aD2Qm8h9Ob7ojrI4Pr-G-aLUu4cTESFQWu2WQpVRQoR/s1600/Screenshot_8.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="74" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh65q-yXDvPXe9gZfnfJCoKXc6xebxI4APlJxZsgv2GqMqn4qfiTxqgqlCqWFMvpuFrMU6WAB7DcCKsU08l9QYIuq1gb3b-heT94aD2Qm8h9Ob7ojrI4Pr-G-aLUu4cTESFQWu2WQpVRQoR/s1600/Screenshot_8.png" width="320" /></a></div>
Una con el borde blanco para el botón común.<br />
Una con el borde rojo para cuando posicionamos el mouse sobre ella.<br />
Y una con el borde azul para cuando apretamos.<br />
<br />
Abrimos VB6 y generamos un nuevo proyecto.<br />
Y ponemos 3 image en el form.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLPnfAxUFDXtaJF4Rsqkl0zLhb98N2tqcOHTp1-83BbNpEvE7BFMCXDRcnWtyJhbmoxIM6ZZW5GBQRTnefvSlubg3Geg3rq7LvjIvbk1OCT2hA-mV4slPu1K6__r8-I67XfVYWY9pFMV2I/s1600/Screenshot_9.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiLPnfAxUFDXtaJF4Rsqkl0zLhb98N2tqcOHTp1-83BbNpEvE7BFMCXDRcnWtyJhbmoxIM6ZZW5GBQRTnefvSlubg3Geg3rq7LvjIvbk1OCT2hA-mV4slPu1K6__r8-I67XfVYWY9pFMV2I/s1600/Screenshot_9.png" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
Y a cada una en la propiedad picture elegimos una de las imágenes.</div>
<div class="separator" style="clear: both; text-align: left;">
Quedándonos así:</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNSH0qXhDKjg0T2iZYq_bCxhwrx2wDGovsfWNI78mMIunuTn0H3Ps0JkQ1L8t-wXDd2bnM0Mai4R2yGfpNlLbfNaAGJv78p_Za_IZlnYkk4Ne8kSsocbv4CEYomWoeKRfza3Pou2PA3PFj/s1600/Screenshot_10.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="244" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNSH0qXhDKjg0T2iZYq_bCxhwrx2wDGovsfWNI78mMIunuTn0H3Ps0JkQ1L8t-wXDd2bnM0Mai4R2yGfpNlLbfNaAGJv78p_Za_IZlnYkk4Ne8kSsocbv4CEYomWoeKRfza3Pou2PA3PFj/s1600/Screenshot_10.png" style="cursor: move;" width="320" /></a></div>
<div class="separator" style="clear: both;">
A la imagen del borde blanco la llame BotonComun, a la del borde rojo BotonSeleccionado y a la</div>
<div class="separator" style="clear: both;">
del borde azul BotonApretado.</div>
<div class="separator" style="clear: both;">
Posicionamos las tres imágenes una arriba de otra.</div>
<div class="separator" style="clear: both;">
Primero la imagen del BotonComun, luego la del BotonSeleccionado y por último la del</div>
<div class="separator" style="clear: both;">
BotonApretado.</div>
<div class="separator" style="clear: both;">
Quedando solo visible la imagen BotonApretado, como se ve abajo:</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX8XGE_i6hbTFdIETxws0bAufvIhoP3uYxj7zOXoMmaOgaD4YcUJ0rfT5r6t3h1oEPz5xyqLD2Ek-y6ITfeHMp2aQ6zPrCsZL1-R106UdLmmBCHc0PuqClkk2bIMq_Zg3XR4BxpchcRNhQ/s1600/Screenshot_11.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="264" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhX8XGE_i6hbTFdIETxws0bAufvIhoP3uYxj7zOXoMmaOgaD4YcUJ0rfT5r6t3h1oEPz5xyqLD2Ek-y6ITfeHMp2aQ6zPrCsZL1-R106UdLmmBCHc0PuqClkk2bIMq_Zg3XR4BxpchcRNhQ/s1600/Screenshot_11.png" width="320" /></a></div>
<div class="separator" style="clear: both;">
Nota: A mí me gusta más hacer las cosas por código en vez de usar la tabla de propiedades del</div>
<div class="separator" style="clear: both;">
costado que te provee vb.</div>
<div class="separator" style="clear: both;">
Al evento Load del form le agregamos dos líneas, quedando así:</div>
<div class="separator" style="clear: both;">
-------------------</div>
<div class="separator" style="clear: both;">
<b>Private Sub Form_Load()</b></div>
<div class="separator" style="clear: both;">
<b>BotonSeleccionado.Visible = False</b></div>
<div class="separator" style="clear: both;">
-------------------</div>
<div class="separator" style="clear: both;">
<b>BotonApretado.Visible = False</b></div>
<div class="separator" style="clear: both;">
<b>End Sub</b></div>
<div class="separator" style="clear: both;">
-------------------</div>
<div class="separator" style="clear: both;">
Para que al ejecutar el programa solo se vea la imagen BotonComun.</div>
<div class="separator" style="clear: both;">
Ahora vamos a hacer que al posicionar el mouse sobre la imagen BotonComun nos muestre la</div>
<div class="separator" style="clear: both;">
imagen BotonSeleccionado.</div>
<div class="separator" style="clear: both;">
Para ello vamos a hacer uso del evento MouseMove de la imagen BotonComun.</div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
<b>Private Sub BotonComun_MouseMove(Button As Integer, Shift As Integer, X</b></div>
<div class="separator" style="clear: both;">
<b>As Single, Y As Single)</b></div>
<div class="separator" style="clear: both;">
<b>BotonSeleccionado.Visible = True</b></div>
<div class="separator" style="clear: both;">
<b>End Sub</b></div>
<div class="separator" style="clear: both;">
------------</div>
<div class="separator" style="clear: both;">
Pero también tendremos que agregarle al evento MouseMove del form lo siguiente:</div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
<b>Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As</b></div>
<div class="separator" style="clear: both;">
<b>Single, Y As Single)</b></div>
<div class="separator" style="clear: both;">
<b>BotonSeleccionado.Visible = False</b></div>
<div class="separator" style="clear: both;">
<b>End Sub</b></div>
<div class="separator" style="clear: both;">
----------</div>
<div class="separator" style="clear: both;">
Esto es porque si no, una vez que uno posicione el mouse arriba de la imagen BotonApretado, la</div>
<div class="separator" style="clear: both;">
imagen BotonSeleccionado quedara siempre visible.</div>
<div class="separator" style="clear: both;">
Entonces lo que hace ese último código es que cuando posicionemos el mouse sobre el form la</div>
<div class="separator" style="clear: both;">
imagen BotonSeleccionado se oculte.</div>
<div class="separator" style="clear: both;">
Ahora vamos a agregar que al apretar se muestre la imagen BotonApretado por un momento muy</div>
<div class="separator" style="clear: both;">
pequeño.</div>
<div class="separator" style="clear: both;">
Para ello vamos a hacer uso del evento Click de la imagen BotonSeleccionado.</div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
<b>Private Sub BotonSeleccionado_Click()</b></div>
<div class="separator" style="clear: both;">
<b>BotonApretado.Visible = True</b></div>
<div class="separator" style="clear: both;">
<b>Dim j As Long</b></div>
<div class="separator" style="clear: both;">
<b>For j = 0 To 100000</b></div>
<div class="separator" style="clear: both;">
<b>DoEvents</b></div>
<div class="separator" style="clear: both;">
<b>Next j</b></div>
<div class="separator" style="clear: both;">
<b>BotonApretado.Visible = False</b></div>
<div class="separator" style="clear: both;">
<b>End Sub</b></div>
<div class="separator" style="clear: both;">
-------------</div>
<div class="separator" style="clear: both;">
Lo que hacemos en ese código es que cuando hacemos click en la imagen Boton Seleccionado se</div>
<div class="separator" style="clear: both;">
muestre la imagen Boton Apretado, hacemos un bucle de 0 a 100000 para generar un retardo y</div>
<div class="separator" style="clear: both;">
luego ocultamos la imagen Boton Apretado.</div>
<div class="separator" style="clear: both;">
Para ese bucle podría utilizarse la función Sleep que nos provee vb pero tendríamos que también</div>
<div class="separator" style="clear: both;">
declarar el uso de un api.</div>
<div class="separator" style="clear: both;">
Y listo con eso ya tendríamos lo que queríamos hacer.</div>
<div class="separator" style="clear: both;">
Saludos y espero que les sirva.</div>
<div class="separator" style="clear: both;">
a qui una breve de como quedaría el trabajo ya terminado</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNk9fPuiEFsbBVKzdSTIVhCtrDgZU1wSHUvh9spDTZ1nZxzu5y3yTIbi9wuJd4qsAWB1p7nF9m3_BqTbRx84F5fyWkns1sYeKBhYWEs1nk-vjlb02ewwViYe55_ESRCwlUHxLltFm7aEmW/s1600/no-mames.com.gif" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="256" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNk9fPuiEFsbBVKzdSTIVhCtrDgZU1wSHUvh9spDTZ1nZxzu5y3yTIbi9wuJd4qsAWB1p7nF9m3_BqTbRx84F5fyWkns1sYeKBhYWEs1nk-vjlb02ewwViYe55_ESRCwlUHxLltFm7aEmW/s1600/no-mames.com.gif" width="320" /></a></div>
<div class="separator" style="clear: both;">
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
     style="display:inline-block;width:234px;height:60px"
     data-ad-client="ca-pub-6123383525339038"
     data-ad-slot="5218675366"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></div>
<div class="separator" style="clear: both;">
<a href="http://informatica-proibida.blogspot.com/2014/04/efecto-combinado-para-los-forms-visual.html#" id="flotante" style="-webkit-text-stroke-width: 0px; background-color: white; background-image: url(http://informatica-proibida.blogspot.com/); background-position: 50% 50%; background-repeat: no-repeat no-repeat; clear: both; color: black; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; height: 360px; letter-spacing: normal; line-height: 20.799999237060547px; margin-top: -365px; orphans: auto; position: relative; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; width: 640px; word-spacing: 0px;"></a></div>
<div id="aim21122286279642883794" style="-webkit-text-stroke-width: 0px; background-color: white; color: #333333; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 20.799999237060547px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">
<div id="aim23327554375511170614" style="-webkit-text-stroke-width: 0px; background-color: white; color: #333333; font-family: 'helvetica neue', arial, sans-serif; font-size: small; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 20.799999237060547px; orphans: auto; text-align: left; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px;">
cualquier duda que tengan comenten o deja un buen comentario en apoyo a mi trabajo<br />
<span style="background-color: white; color: #333333; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px;">No olviden visitar mi Web Oficial |</span><a href="http://no-mames.com/" style="background-color: white; color: #999999; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px; text-decoration: none;"><b><span style="color: magenta;">no-mames.com</span></b></a><span style="background-color: white;"><span style="color: #333333; font-family: Verdana, Geneva, sans-serif;"><span style="font-size: 12px; line-height: 19.200000762939453px;">| solo por apoyo ya que hay no hablo nada sobre programación hay es algo mas ligero y solo de pasatiempo así que espero tener su apoyo en mi humilde web y pues a un que sea me den un me gusta o algo a si bueno ya mucho bla bla bla </span></span></span><br />
<b style="background-color: white;"><span style="color: #333333; font-family: Verdana, Geneva, sans-serif;"><span style="font-size: 12px; line-height: 19.200000762939453px;">Empezando con tutoriales super básicos apoyame con un me gusta si el post su de tu agrado</span></span></b></div>
<center><script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
     style="display:inline-block;width:336px;height:280px"
     data-ad-client="ca-pub-6123383525339038"
     data-ad-slot="3276222169"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
</div>

Efecto con botones visual basic 6.0

Este tutorial se va a basar en efectos con botones. Empecemos: Como primer paso elegimos o hacemos las imágenes que van a estar...

Qué es la informática

Qué es la informática

Qué es la informática Les platicaría que es y para que nos sirve y como se come y como se maneja y como guisarla y muchas cosas ...