Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - SheKeL_C$

#211
Tienes q poner el codigo en el form ( m refiero en la parte de codear ) lo d las apis t recomeindo q t bajes el API-Guide k t hace una lista de muxas apis y t pone algunos ejemplos

Lo d q t apareza en la abajo en forma de pestaña... no tengo ni dea

Lo del error de la pagina web, pon esto :

Private Sub Text1_DblClick()
Set web = CreateObject("WScript.Shell")
web.Run "http://" & Text1.Text
End Sub


Siendo el text1 el texbox q tienes  ;)
#212
Lo q t a escrito _Sergi_ tiene errores tontos  ;) este es el mismo code pero t va a funcionar.

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


Private Sub Command1_Click()
Dim lRet As Long
Dim l As Long
Dim Width As Long
Dim Height As Long

Width = Me.ScaleWidth / Screen.TwipsPerPixelX
Height = Me.ScaleHeight / Screen.TwipsPerPixelY

lRet = CreateRoundRectRgn(10, 35, Width, Height + 900, 0, 0)

l = SetWindowRgn(Me.hwnd, lRet, True)
End Sub

Private Sub Command4_Click()
End 'Cerrar el programa
End Sub

Private Sub Command2_Click()
Unload Me 'Cerrar el form
End Sub

Private Sub Command3_Click()
Me.WindowState = vbMinimized  'Minimizar
End Sub


Lo d q habra la pagina web seria asi

Set web = CreateObject("WScript.Shell")
web.Run "http://" & Text1.Text


Tan solo decirte q eso t va a servir pero si lo kieres hacer muxo mejor busca sobre la API k t abre las web  ;)
#213
Yo me lo baje del eMule, puedes probar de ahi o x torrents






Salu2
#214
Mas o menos es lo del titulo, en el jeugo del cod2 ay un mod q cuadno t disparan se ve en la pantalla un agujero, es posible hacerlo en photoshop, si es asi alguien se sabe algun manual ??

aqui os dejo uns screen xara q veais lo q digo



#215
Diseño Gráfico / Re: Infinte Sea Layout
2 Junio 2006, 11:20 AM
Pa mi los botones estan bien  :)

Seguro q hasta cuando pulsas o pasas el cursor tienen alguna accion jejejeje  :D

Dew Salu2
#216
Creo k a eso no se refiere  :-X



Yo no tengo ni idea






#218
Vale d las 2 maneras, con parentesis y sin el pero ay una diferencia.

If List1.AddItem("hola") Then MsgBox "hola"

If List1.AddItem "hola" Then MsgBox "hola"

El primer codigo es valido, el segundo no
#219
Programación Visual Basic / Re: Sudoku..
31 Mayo 2006, 11:30 AM
Yo lo e mirado un poco x encima y e modificado el caption del form del sudoku. No se xq no puedes modificarlo tu

Archivo > Generar .exe  ;)
#220
Programación Visual Basic / Re: Sudoku..
31 Mayo 2006, 08:27 AM
No, para nada  ;D, creo q dices las damas xDD

Es un juego q tiene 9x9 de casillas y en ellas tienes q poner numeros q no se repitan en cada fila. La verdad es q es muy entretenido  ;)

http://es.wikipedia.org/wiki/Sudoku