#1Nota » 24 Oct 2010 21:51
Bueno, recien le pregunte a standelf a quien le había pasado este code y me dijo que a mi y alguno que otro nadamas. Y le pregunte si lo posteaba para los que lo querían, y bueno con todo su derecho me dejo aportarlo.

Asique agradecimientos máximos:
Standelf

Empecemos:

TODO CLIENTE:
Creamos un Modulo que se llame Mod_Minimap y dentro de ese Modulo; agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

'***************************************************
'Author: Ezequiel Juárez (Standelf)
'Last Modification: 22/05/10
'Blisse-AO | Black And White AO | Round Pictures
'***************************************************

Option Explicit

Private Declare Function CreateRoundRectRgn Lib "gdi32" ( _
ByVal X1 As Long, _
ByVal Y1 As Long, _
ByVal X2 As Long, _
ByVal Y2 As Long, _
ByVal X3 As Long, _
ByVal Y3 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

Public Sub Round_Picture(El_Form As PictureBox, Radio As Long)
'***************************************************
'Author: Standelf
'Last Modification: 22/05/10 by Standelf
'***************************************************
Dim Region As Long
Dim Ret As Long
Dim Ancho As Long
Dim Alto As Long
Dim old_Scale As Integer

old_Scale = El_Form.ScaleMode
El_Form.ScaleMode = vbPixels
Ancho = El_Form.ScaleWidth
Alto = El_Form.ScaleHeight
Region = CreateRoundRectRgn(0, 0, Ancho, Alto, Radio, Radio)
Ret = SetWindowRgn(El_Form.hWnd, Region, True)
El_Form.ScaleMode = old_Scale
End Sub



Luego nos dirijimos al Form_Load del frmMain; y agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call Round_Picture(MiniMap, 100)



Y listo.

Este post es de uno que se llama Lord Fers y eske no lo entiendo y e puesto todo e creado un modulo y le e puesto de nombre Mod_Minimap
y el segundo paso de luego nos dirijimos al form_load del frmMain y agregamos donde se agrega eso al final,arriba del todo en medio y encima lo e puesto en medio y me tira error:
Error de compilacion:
Variable no definida me podeis ayudar porfavor?

Posteo lo que te marca en rojo

minimapa_con_directx_3_capas_t4FN.html
minimapa_usando_lectura_de_pixeles_estilo_iao_t3tc.html

Los 2 son funcionales si los aplican bien

Cual es la variable que te marca como no definida?

Pero ya hay funcionales, ¿para qué otros?

Saludos!